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

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

Form4.Show

End Sub

Private Sub liulanbiao_Click()

Form2.Show

End Sub

Private Sub jiaofeifind_Click()

Form12.Show

End Sub

Private Sub jiaofeiliulan_Click()

Form11.Show

End Sub

Private Sub jibenkechengset_Click()

If QX4 = True Then

Form14.Show

Else

MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!"

End If

End Sub

Private Sub kecheng_Click()

Form13.Show

End Sub

Private Sub liulanchengjibiao_Click()

Form5.Show

End Sub

Private Sub liulandanganbiao_Click()

Form2.Show

End Sub

Private Sub MDIForm_Load()

StatusBar1.Panels(2) = Now

OpenTable Adodc1, "use"

Adodc1.Refresh

Adodc1.RecordSource = "select * from use where username = '" & frmLogin.txtUserName & "'"

Adodc1.Refresh

If Adodc1.Recordset!admin = "y" Then

QXstr = "admin"

ElseIf Adodc1.Recordset!userreadonly = "y" Then

QXstr = "userreadonly"

End If

If Adodc1.Recordset!QX1 = "y" Then

QX1 = True

End If

If Adodc1.Recordset!QX2 = "y" Then

QX2 = True

End If

If Adodc1.Recordset!QX3 = "y" Then

QX3 = True

End If

If Adodc1.Recordset!QX4 = "y" Then

QX4 = True

End If

StatusBar1.Panels(3) = "当前操作员：" & frmLogin.txtUserName

If QXstr = "admin" Then

ZhuangTai = "超级管理员"

ElseIf QXstr = "userreadonly" Then

ZhuangTai = "只读用户"

Else

ZhuangTai = "普通用户"

End If

StatusBar1.Panels(4) = "状态：" & ZhuangTai

End Sub

Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

'弹出式菜单

If Button = 2 Then

PopupMenu tan

End If

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)

Call quit_Click

End Sub

Private Sub quit_Click()

If MsgBox("确定要要退出本系统么？", vbOKCancel + vbExclamation, "警告") = vbOK Then

End

End If

End Sub

Private Sub shuiping_Click()

MDIForm1.Arrange 1

End Sub

Private Sub textleixing_Click()

If QX4 = True Then

Form7.Show

Else

MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End If

End Sub

Private Sub Timer1_Timer()

StatusBar1.Panels(2) = Now

End Sub

Private Sub useradd_Click()

If QX1 = True Then

Form16.Show

Else

MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End If

End Sub

Private Sub viewchengji_Click()

Form5.Show

End Sub

Private Sub viewdangan_Click()

Form2.Show

End Sub

Private Sub viewjiaofei_Click()

Form11.Show

End Sub

Private Sub xiugaimima_Click()

Form17.Show

End Sub

Private Sub xuefeiadd_Click()

If QX3 = True Then

Form9.Show

Else

MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!"

End If

End Sub

Private Sub xuefeishezhi_Click()

Form8.Show

End Sub

4．3档案管理

4．3．1档案浏览

图4.3.1 档案浏览

设计过程：

用控件可以实现档案的浏览，在此窗体所有上用户可以浏览，查找，有权限的用户可以进行修改和删除。此窗体与数据轮中的student表进行连接。

设计代码：

Private Sub Command1_Click()

Form4.Show

End Sub

Private Sub Command2_Click()

If QX2 = True Then

Form3.Show

Else

MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!"

End If

End Sub

Private Sub Command3_Click()

If QX2 = True Then

'删除语句

If MsgBox("确定要删除学号为" & Adodc1.Recordset!学号& " 的记录么？" & Chr(10) + Chr(13) & "会导致该学生的信息丢失!" & Chr(10) + Chr(13) & "确定么?", vbYesNo + vbExclamation, "警告") = vbYes Then

If MsgBox("真的要删除么？", vbYesNo + vbExclamation, "警告！") = vbYes Then

Adodc1.Recordset.Delete

Adodc1.Recordset.Update

MsgBox "删除成功！", vbOKOnly + vbInformation, "提示！"

End If

End If

Else

MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!"

End If

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Form_Load()

'打开数据库中的student表

OpenTable Adodc1, "student"

Adodc1.Refresh

'连接DataGrid1表到数据库

Set DataGrid1.DataSource = Adodc1

DataGrid1.Refresh

End Sub

4．3．2档案添加

图4.3.2 档案登记

设计过程：

用于档案的登记，此窗体和档案浏览窗体中的数据表进行了连接，可以直接进行添加，前提是必须有权限，加入了text 和combo控件的keypress事件，让用户可以更轻松的进行添加。

设计代码：

Private Sub combo1_KeyPress(KeyAscii As Integer)

'回车换下一个输入项目

If KeyAscii = 13 Then

SendKeys "{TAB}"

End If

End Sub

Private Sub combo2_KeyPress(KeyAscii As Integer)

'回车换下一个输入项目

If KeyAscii = 13 Then

SendKeys "{TAB}"

End If

End Sub

Private Sub Command1_Click()

'定义变量

Dim msg

Dim f As Boolean

Dim g As Boolean

Dim j As Integer

f = True

g = True

'判断文本框是否为空

For j = 0 To 4

If Text1(j).Text = "" Then

MsgBox Label2(j).Caption & "不能为空！", vbExclamation + vbOKOnly, "警告"

f = False

Text1(j).SetFocus

Exit Sub

End If

Next j

'判断出生年月是否为日期

If Not IsDate(Text1(2).Text) Then

MsgBox "应输入日期yy-mm-dd", vbOKOnly + vbInformation, "提示"

g = False

'反白错误的框

Text1(2).SetFocus

Text1(2).SelStart = 0

Text1(2).SelLength = 10

Exit Sub

End If

'判断入学时间是否为日期

If Not IsDate(Text1(4).Text) Then

MsgBox "应输入日期yy-mm-dd", vbOKOnly + vbInformation, "提示"

g = False

'反白错误的框

Text1(4).SetFocus

Text1(4).SelStart = 0

Text1(4).SelLength = 10

End If

'判断是否要保存

If f = True And g = True Then

msg = MsgBox("确定要添加么？", vbYesNo + vbInformation, "提示") End If

'确定后执行的语句

If msg = vbYes Then

MsgBox "添加成功！", vbOKOnly + vbInformation, "提示"

Adodc1.Recordset.AddNew

'数据传递到数据库

Adodc1.Recordset!学号= Text1(0).Text

Adodc1.Recordset!姓名= Text1(1).Text

Adodc1.Recordset!出生年月= Text1(2).Text

Adodc1.Recordset!家庭住址= Text1(3).Text

Adodc1.Recordset!入学时间= Text1(4).Text

Adodc1.Recordset!备注= Text1(5).Text

Adodc1.Recordset!性别= Combo1.Text

Adodc1.Recordset!班级= Combo2.Text

Adodc1.Recordset.Update

'添加保存后清空文本

For j = 0 To 5

Text1(j).Text = ""

Next j

End If

Form2.Show

End Sub

Private Sub Command2_Click()

'退出该窗体

Unload Me

End Sub

Private Sub Form_Load()

'打开数据库中的student表

OpenTable Adodc1, "student"

'初始化combo的初值

Combo1.Text = Combo1.List(ListIndex)

Combo2.Text = Combo2.List(ListIndex)

End Sub

Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)

'回车换下一个输入项目

If KeyAscii = 13 Then

SendKeys "{TAB}"

End If

End Sub

Private Sub Form_Activate()

Text1(0).SetFocus

End Sub

4．3．3档案查询

图4.3.3 学生信息查找

设计过程：

用户可以根据自己的需要按学号，姓名，班级查找，查找的学生信息会显示在档案浏览的窗体上，用的是sql语言。在此窗体上必须输入至少一条记录，不然会提示。若没

有找到一条符合的记录，则会提示无此记录。

设计代码：

Private Sub Command1_Click()

'定义sql语言

Dim sqlxuehao As String

Dim sqlxingming As String

Dim sqlbanji As String

sqlxuehao = "select * from student where 学号='" & Text1.Text & "'" sqlxingming = "select * from student where 姓名='" & Text2.Text & "'" sqlbanji = "select * from student where 班级='" & Combo1.Text & "'" If Combo1.Text = "" And Text1.Text = "" And Text2.Text = "" Then Label1.Caption = "至少一条记录不空"

Exit Sub

End If

If Text1.Text <> "" Then

Form2.Adodc1.RecordSource = sqlxuehao

Form2.Adodc1.Refresh

Form2.DataGrid1.Refresh

End If

If Text2.Text <> "" Then

Form2.Adodc1.RecordSource = sqlxingming

Form2.Adodc1.Refresh

Form2.DataGrid1.Refresh

End If

If Combo1.Text <> "" Then

Form2.Adodc1.RecordSource = sqlbanji

Form2.Adodc1.Refresh

Form2.DataGrid1.Refresh

End If

If Form2.Adodc1.Recordset.EOF Then

MsgBox "无此记录", vbOKOnly + vbInformation, "提示"

End If

Unload Me

End Sub

Private Sub Command2_Click()

'退出该窗体

Unload Me

End Sub

Private Sub Form_Activate()

Text1.SetFocus

End Sub

Private Sub combo1_KeyPress(KeyAscii As Integer) '回车换下一个输入项目

If KeyAscii = 13 Then

SendKeys "{TAB}"

End If

End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)

'回车换下一个输入项目

If KeyAscii = 13 Then

SendKeys "{TAB}"

End If

End Sub

Private Sub text2_KeyPress(KeyAscii As Integer)

'回车换下一个输入项目

If KeyAscii = 13 Then

SendKeys "{TAB}"

End If

End Sub

4．4成绩管理

4．4．1成绩浏览与修改

图4.4.1 考试成绩浏览

设计过程：

通过一个combo数组（4个），来实现各个信息的选择，符合的信息会在下面显示出来，同时此窗体同样可以连接到其它的窗体上，例如修改。若是有权限的话还可以直接删除。此窗体是连接到数据库中的scorei表。

设计代码：

Private Sub Command1_Click()

If QX4 = True Then

flAg = False

Form6.Show

Else

MsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!"

End If

End Sub