学生综合管理系统毕业设计

基于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()