vb设计成品.docVIP

面向对象程序设计（VB） 课程设计 设计题目：学生信息管理系统 专 业 信息管理与信息系统 班 级 09信管（1）班 学 生 刘扬 刘霞霞 慕鑫鑫 马小华 马莉 高科学院 2011 年 2 学期 实验题目 ：学生信息管理系统 实验目的： 当今教育正在普及，学校要对每位同学的基本信息情况进行统计整理，如何对信息进行保存、查询无疑很重要，同时满足信息管理者和查询者的使用。而系统的安全也相当重要，防止恶意者的窜改给使用者带来极大不便。 在本系统中将实现数据库应用系统最基本的几种功能，即对信息的保存、增加、浏览、修改、删除以及查询，同时还提供一定的安全功能。 实验设备及环境： Windows操作系统、VB软件等。 功能模块简介和系统结构图 基本情况管理模块 学生信息编辑模块是管理员可以对学生基本信息及成绩进行添加、修改、删除等操作，而学生则不可以；成绩统计情况模块可以以表格和图表的形式显示前三名同学的平均成绩和最低成绩；各专业人数统计模块以直方图图表形式显示各专业的总人数。 学生成绩查询 管理员可以添加、修改、删除学生的专业、学号、姓名，并以网格显示对应学号学生的成绩，而学生只能浏览信息。 查看报表 可以查看学生的基本情况，包括学号、姓名、系别、专业、出生年月等信息。 安全机制 密码登录——用户登录时要输入用户名、用户身份和密码，这三项一一对应才能登录此系统，并根据用户身份限制相应操作。 密码修改——用户登录时有初始密码，为保护个人隐私，防止他人盗用窜改，成功登录系统后可以进行密码修改。 登录时间控制锁定——如果用户三次登录出现错误，系统就会锁定，要求用户一分钟后再尝试重新登录（为方便操作，此系统锁定时间设置较短，可以更改延长）。在锁定未解除时登录，系统会提示您还有多长时间才可以登录。这有效防止恶意者频繁尝试登录，窜改信息。 系统的主要界面设计及运行说明： 1.登录界面 当用户输入的信息有错误时，系统会提示你是用户名错误还是密码错误。 当用户三次登录都错误时，系统会提示您“登录错误已达3次，请1分钟后重新登录”；若在1分钟内登录，系统会提示还要多长时间才可以登录。这提高了系统的安全系数，防止恶意者频繁尝试登录。 3.学生信息编辑界面 此模块可以使管理者添加、删除、修改以及查询学生基本信息，当单击“新增”命令时，该命令按钮的Caption变为“确定”，同时，“删除”和“修改”命令变灰，不能使用。填写完信息后，单击“确定”，则新信息成功录入；若单击“放弃”，则跳回当前记录。“修改”命令类似 4.成绩统计界面 此界面显示平均成绩在前三名的成绩情况。通过select语句实现，添加ADO控件，分别与两个表建立连接，adodc1的visibel属性设为false。通过相对路径设置adodc1的属性，这样在使用时，不会出现每次使用不同的电脑，因装在不同的硬盘分区而重新连接，为使用者提供了便利。具体代码如下： Private Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= App.Path \stu.mdb Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = Select top 3 基本情况.姓名,Avg(成绩) As 平均成绩,Min(成绩) As 最低成绩 From 基本情况,成绩情况 Where 基本情况.学号=成绩情况.学号 Group By 基本情况.姓名,成绩情况.学号 Order by Avg(成绩) desc; Adodc1.Refresh End Sub 学生成绩查询界面 运行此界面时单击“查询”命令，会弹出对话框让你输入要查询的学号。运行后会在表格中显示学号、课程和成绩。单击“关闭”，退出此界面。主要代码如下： Private Sub Command1_Click() Dim c As String c = InputBox$(请输入学号, 查找窗) Data1.RecordSource = select * from 成绩情况 where 学号 like c Data1.Refresh If Data1.Recordset.EOF Then MsgBox 无此学号！, , 提示 Data1.RecordSource = 成绩情况 Data1.Refresh End If End