|
3.3系统各部分功能 学生信息管理部分分为基本信息、体检信息两部分。 http://www.paper51.com
员工信息管理部分分为基本信息和培训信息两部分。员工培训信息部分可以浏览所有员工培训的资料，添加新的培训资料，修改需要改的信息。 paper51.com 班级信息管理部分分为班级查询和班级浏览两部分。班级查询部分可以依各条件查询所有班级信息。班级浏览部分支持资料的修改和删除以及班级资料的报表打印。 paper51.com
课程管理部分分为学校基本课程，各班课程设置两部分。学校基本课程设置部分提供所有课程的设置，可以查询、添加、删除、筛选。各班课程设置部分则根据各个班级情况从已经设置好的基本课程中选择所需要的课程，或者删除不需要的课程，同样支持报表打印。 copyright paper51.com
成绩信息管理部分分为学生成绩信息、补考、重修、积考成绩输入和学生成绩查询三部分。学生成绩信息部分可以浏览所有成绩信息，并能输入/修改，支持报表打印。补考、重修、积考成绩输入部分可以添加/修改补考、重修、积考成绩。学生成绩查询部分可以查询所有成绩、补考成绩、重修成绩和积考成绩。 paper51.com 综合测评部分分为综合测评信息和综合测评图示两部分。综合测评信息部分显示所有综合测评资料，并能实现多项查询，支持打印。综合测评图示部分能依每个人的成绩显示不同的二维图。 paper51.com 毕业管理部分分为毕业设计、实习管理两部分。毕业设计部分能浏览所有学生的毕业设计资料，并能进行资料的添加/修改。实习管理部分能浏览所有学生的实习资料，并能进行资料的添加/修改。 copyright paper51.com 图书馆管理部分。 paper51.com 4. 系统部分窗体界面、代码及简要解释 http://www.paper51.com 4.1界面窗体（界面.frm） http://www.paper51.com 内容来自论文无忧网 www.paper51.com 图4.1界面窗体 copyright paper51.com 这是一个运行的主界面，在控件中增加了ProgressBar，再利用Time控件来控制其的变化。 paper51.com Private Sub Timer1_Timer() http://www.paper51.com If ProgressBar1.Value = ProgressBar1.Max Then '当ProgressBar的达到100（max设定值）时触发 paper51.com
Unload Me paper51.com
用户登陆.Show 内容来自论文无忧网 www.paper51.com Timer1.Enabled = False '停止时钟 内容来自www.paper51.com
End If http://www.paper51.com ProgressBar1.Value = ProgressBar1.Value + 2.5 'ProgressBar的值每次加2.5 内容来自论文无忧网 www.paper51.com 'timer属性中设定每0.05秒触发一次，因此展示窗体显示时间移动为2秒 内容来自www.paper51.com End Sub http://www.paper51.com 4.2用户登陆窗体（用户登陆.frm） 内容来自www.paper51.com paper51.com 图4.2用户登陆窗体 内容来自论文无忧网 www.paper51.com 这是个用户登陆的窗体，用DataCombo来设置了连接数据库的所有组名称，用于方便选择。DataSource来源于DataEnvironment1,DataMember来源于组表，DataField来源于组名，RowSource来源于DataEnvironment1,RowMember来源于组表，ListFiele来源于组名。 copyright paper51.com
Option Explicit 内容来自论文无忧网 www.paper51.com
Dim rstS As ADODB.Recordset paper51.com Private Sub Command2_Click() http://www.paper51.com
If Text1.Text = "" Then 内容来自www.paper51.com MsgBox "用户名不能为空！", vbExclamation + vbOKOnly,"警告" http://www.paper51.com Text1.SetFocus 内容来自论文无忧网 www.paper51.com Exit Sub http://www.paper51.com
End If '防止空用户名 paper51.com If Text2.Text = "" Then 内容来自www.paper51.com
MsgBox "密码不能为空！", vbExclamation + vbOKOnly,"警告" paper51.com
Text2.SetFocus copyright paper51.com Exit Sub 内容来自论文无忧网 www.paper51.com End If '防止空密码 内容来自论文无忧网 www.paper51.com Do 内容来自www.paper51.com If DataCombo1.Text = rstS(0) And Text1.Text = rstS(2)And Text2.Text = rstS(3) Then copyright paper51.com If rstS(0) = "管理员" Then paper51.com
admin = 1 内容来自论文无忧网 www.paper51.com
Else copyright paper51.com admin = 0 内容来自论文无忧网 www.paper51.com End If copyright paper51.com MDIForm1.Show http://www.paper51.com
rstS.Close 内容来自论文无忧网 www.paper51.com
Unload Me http://www.paper51.com
Exit Do 内容来自论文无忧网 www.paper51.com
End If '当用户名和密码相符的时候，进入主窗体，跳出循环 copyright paper51.com rstS.MoveNext 内容来自www.paper51.com
If rstS.EOF = True Then 内容来自论文无忧网 www.paper51.com
MsgBox "密码错误，请重新输入！", vbExclamation + vbOKOnly,"警告" http://www.paper51.com Text2.Text = "" 内容来自论文无忧网 www.paper51.com
Text2.SetFocus http://www.paper51.com rstS.MoveFirst 内容来自www.paper51.com Exit Do http://www.paper51.com
End If '用户名或者密码不相符或者不存在，都出现提示密码错误的对话框，跳出循环 http://www.paper51.com Loop '循环搜索每条记录，直到出现以上两种结果的一种 http://www.paper51.com End Sub copyright paper51.com Private Sub Form_Load() 内容来自www.paper51.com Set rstS = DataEnvironment1.rs用户表 内容来自论文无忧网 www.paper51.com rstS.MoveFirst copyright paper51.com End Sub 内容来自论文无忧网 www.paper51.com Private Sub Form_Load() paper51.com Set 员工培训表 = Adodc1.Recordset http://www.paper51.com
End Sub 内容来自www.paper51.com |