基于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()EndEnd SubPrivate 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 = sqlAdodc1.RefreshIf Not Adodc1.Recordset.EOF ThenIf Adodc1.Recordset!userpassword <> txtPassword ThenMsgBox "密码错误！"txtPassword.SetFocustxtPassword = ""ElseIf Adodc1.Recordset!userpassword = txtPassword ThenMsgBox "登陆成功，欢迎进入本系统！", vbOKOnly + vbInformation, "提示"MDIForm1.ShowMe.HideEnd IfElseIf Adodc1.Recordset.EOF ThenMsgBox "无此用户"txtUserName.SetFocustxtUserName = ""txtPassword = ""End IfEnd SubPrivate Sub Command1_Click()MsgBox "可以以用户名和密码均为guest进入", vbOKOnly + vbInformation, "提示" txtUserName.SetFocusEnd SubPrivate Sub Form_Load()OpenTable Adodc1, "use"Adodc1.RefreshEnd Sub4．2主控界面图4.2 主控界面设计过程：所有功能都在菜单中打开来实现，在最下面添加了工具栏，来显示时间，操作员，状态等信息。
在代码中判断登陆时的用户权限，不同权限有不同的权限来浏览各个窗体。
设计代码：Private Sub adddangan_Click()If QX2 = True ThenForm1.ShowElseMsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!"End IfEnd SubPrivate Sub addjiaofei_Click()If QX3 = True ThenForm10.ShowElseMsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End IfEnd SubPrivate Sub banjikechengliulan_Click()Form13.ShowEnd SubPrivate Sub cengdie_Click()MDIForm1.Arrange 0End SubPrivate Sub chengji_Click()End SubPrivate Sub chengjiadd_Click()If QX4 = True ThenflAg = TrueForm6.ShowElseMsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End IfEnd SubPrivate Sub chongpai_Click()MDIForm1.Arrange 3End SubPrivate Sub chuizhi_Click()MDIForm1.Arrange 2End SubPrivate Sub classkechengset_Click()If QX4 = True ThenForm15.ShowElseMsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End IfEnd SubPrivate Sub danganfind_Click()Form4.ShowEnd SubPrivate Sub liulanbiao_Click()Form2.ShowEnd SubPrivate Sub jiaofeifind_Click()Form12.ShowEnd SubPrivate Sub jiaofeiliulan_Click()Form11.ShowEnd SubPrivate Sub jibenkechengset_Click()If QX4 = True ThenForm14.ShowElseMsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!"End IfEnd SubPrivate Sub kecheng_Click()Form13.ShowEnd SubPrivate Sub liulanchengjibiao_Click()Form5.ShowEnd SubPrivate Sub liulandanganbiao_Click()Form2.ShowEnd SubPrivate Sub MDIForm_Load()StatusBar1.Panels(2) = NowOpenTable Adodc1, "use"Adodc1.RefreshAdodc1.RecordSource = "select * from use where username = '" & frmLogin.txtUserName & "'"Adodc1.RefreshIf Adodc1.Recordset!admin = "y" ThenQXstr = "admin"ElseIf Adodc1.Recordset!userreadonly = "y" ThenQXstr = "userreadonly"End IfIf Adodc1.Recordset!QX1 = "y" ThenQX1 = TrueEnd IfIf Adodc1.Recordset!QX2 = "y" ThenQX2 = TrueEnd IfIf Adodc1.Recordset!QX3 = "y" ThenQX3 = TrueEnd IfIf Adodc1.Recordset!QX4 = "y" ThenQX4 = TrueEnd IfStatusBar1.Panels(3) = "当前操作员：" & frmLogin.txtUserNameIf QXstr = "admin" ThenZhuangTai = "超级管理员"ElseIf QXstr = "userreadonly" ThenZhuangTai = "只读用户"ElseZhuangTai = "普通用户"End IfStatusBar1.Panels(4) = "状态：" & ZhuangTaiEnd SubPrivate Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)'弹出式菜单If Button = 2 ThenPopupMenu tanEnd IfEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer)Call quit_ClickEnd SubPrivate Sub quit_Click()If MsgBox("确定要要退出本系统么？", vbOKCancel + vbExclamation, "警告") = vbOK ThenEndEnd IfEnd SubPrivate Sub shuiping_Click()MDIForm1.Arrange 1End SubPrivate Sub textleixing_Click()If QX4 = True ThenForm7.ShowElseMsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End IfEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(2) = NowEnd SubPrivate Sub useradd_Click()If QX1 = True ThenForm16.ShowElseMsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!" End IfEnd SubPrivate Sub viewchengji_Click()Form5.ShowEnd SubPrivate Sub viewdangan_Click()Form2.ShowEnd SubPrivate Sub viewjiaofei_Click()Form11.ShowEnd SubPrivate Sub xiugaimima_Click()Form17.ShowEnd SubPrivate Sub xuefeiadd_Click()If QX3 = True ThenForm9.ShowElseMsgBox "对不起,您没有权限!", vbOKOnly + vbExclamation, "警告!"End IfEnd SubPrivate Sub xuefeishezhi_Click()Form8.ShowEnd Sub4．3档案管理4．3．1档案浏览图4.3.1 档案浏览设计过程：用控件可以实现档案的浏览，在此窗体所有上用户可以浏览，查找，有权限的用户可以进行修改和删除。