基于VB和Access的毕业设计
（学生综合管理系统）
目录
未找到目录项。
第1章设计的目的和意义
系统是对高校教师及管理人员提供的对在校学生有效管理的一个信息系统。系统设计的目的是实现纪录、查询和修改学生档案信息；对于学生缴费情况能有效的处理，以及设置课程信息及考试相关信息。本系统的开发具有很强的使用价值及实践意义。开发本系统不仅能很好的巩固我们在学习中的所掌握的知识，而且系统本身就是应用于实践，为学校教学管理提供了很大的方便性，提高了工作效率；同时方便了我们自己。
第2章系统功能流程图
图2.1 系统功能流程图
第3章数据库的设计
本系统的数据库是Access数据库，在Access环境下创建数据库Stud.mdb文件。该数据库包括学生档案表、班级信息表、各专业学生学费表、管理人员表用于纪录学生的基本信息数据库表结构如下所示：
表3.3 课程种类表
表3.4 课程信息表
表3.4 学费表
表3.4 学身缴费情况
第4章主要内容
4．1登录窗体
图4.1 登录窗体
设计过程：
用于输入用户名和密码登录，提示中写可以以用户名和密码都为guest进入系统，不过是只读用户。点击确定判断数据库中的用户是否为合法用户。
设计代码：
Private Sub cmdCancel_Click()
End
End Sub
Private Sub cmdOK_Click()
Dim sql As String
'使用sql语言进行数据库的查找
sql = "select userpassword from use where username='" & txtUserName & "'"
'使用find语句查找数据库；（不能刷新）
'Adodc1.Recordset.Find "username='" & txtUserName & "'", , adSearchForward, 1 Adodc1.RecordSource = sql
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
If Adodc1.Recordset!userpassword <> txtPassword Then
MsgBox "密码错误！"
txtPassword.SetFocus
txtPassword = ""
ElseIf Adodc1.Recordset!userpassword = txtPassword Then
MsgBox "登陆成功，欢迎进入本系统！", vbOKOnly + vbInformation, "提示"
MDIForm1.Show
Me.Hide
End If
ElseIf Adodc1.Recordset.EOF Then
MsgBox "无此用户"
txtUserName.SetFocus
txtUserName = ""
txtPassword = ""
End If
End Sub
Private Sub Command1_Click()
MsgBox "可以以用户名和密码均为guest进入", vbOKOnly + vbInformation, "提示" txtUserName.SetFocus
End Sub
Private Sub Form_Load()
OpenTable Adodc1, "use"
Adodc1.Refresh
End Sub
4．2主控界面
图4.2 主控界面
设计过程：
所有功能都在菜单中打开来实现，在最下面添加了工具栏，来显示时间，操作员，状态等信息。在代码中判断登陆时的用户权限，不同权限有不同的权限来浏览各个窗体。
设计代码：
Private Sub adddangan_Click()
If QX2 = True Then
Form1.Show
Else
MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!"
End If
End Sub
Private Sub addjiaofei_Click()
If QX3 = True Then
Form10.Show
Else
MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End If
End Sub
Private Sub banjikechengliulan_Click()
Form13.Show
End Sub
Private Sub cengdie_Click()
MDIForm1.Arrange 0
End Sub
Private Sub chengji_Click()
End Sub
Private Sub chengjiadd_Click()
If QX4 = True Then
flAg = True
Form6.Show
Else
MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End If
End Sub
Private Sub chongpai_Click()
MDIForm1.Arrange 3
End Sub
Private Sub chuizhi_Click()
MDIForm1.Arrange 2
End Sub
Private Sub classkechengset_Click()
If QX4 = True Then
Form15.Show
Else
MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End If
End Sub
Private Sub danganfind_Click()
