《VB课程设计学生综合管理系统》由会员分享，可在线阅读，更多相关《VB课程设计学生综合管理系统（67页珍藏版）》请在金锄头文库上搜索。
1、学生综合管理系统姓 名：学 号：指导老师: 设计时间：2006年12月26日-2007年1月7日目录第1章 设计的目的和意义1第2章 系统的功能流程图1第3章 数据库的设计3第4章 主要内容（设计过程、界面、代码）741登录窗体 742主控界面 943档案管理14431档案浏览 14432档案添加 16433档案查询 1944成绩管理22441成绩浏览与修改 22442成绩添加 24443考试类型设置 28 45、学费管理 33451学费设置浏览 33452学费设置添加 35453学生交费浏览 39454学生交费添加 41455学生交费查询 45 46、课程设定 48461基本课程设计 484
2、62班级课程浏览 54462班级课程设置 56 47、系统维护 60471增加用户 60472密码修改 64第5章 设计的体会 66第6章 附录 67 61、实现主要功能的核心源程序 67 62、附录参考书 67第1章 设计的目的和意义 系统是对高校教师及管理人员提供的对在校学生有效管理的一个信息系统。系统设计的目的是实现纪录、查询和修改学生档案信息；对于学生缴费情况能有效的处理，以及设置课程信息及考试相关信息。本系统的开发具有很强的使用价值及实践意义。开发本系统不仅能很好的巩固我们在学习中的所掌握的知识，而且系统本身就是应用于实践，为学校教学管理提供了很大的方便性，提高了工作效率；同时方便了
3、我们自己。第2章 系统功能流程图学生综合管理系统 用户登陆系统主控界面档案管理成绩管理学费管理课程设置用户管理管理添加查询浏览提交查询权限设定增加设置学费增加图2.1 系统功能流程图第3章 数据库的设计本系统的数据库是Access数据库，在Access环境下创建数据库Stud.mdb文件。该数据库包括学生档案表、班级信息表、各专业学生学费表、管理人员表用于纪录学生的基本信息数据库表结构如下所示：字段名类型大小说明学号文本10学生学号姓名文本8学生姓名性别文本2学生性别班级文本10班级出生年月日期/时间家庭住址文本30入学时间日期/时间学生入学时间表3.1 学生档案表字段名类型大小说明年级文本1
4、6班级文本20年制文本8学习年限班主任文本8备注备注表3.2 班级信息表字段名类型大小说明课程名称文本20纪录课程名称教材文本30所使用教材表3.3 课程种类表字段名类型大小说明学号文本10学生学号学期文本50类型文本16期中/期末课程名称文本20分数数字单精度型考试成绩表3.4 学生成绩表字段名类型大小说明年级文本16专业文本12专业类型年制文本8学习年限学期文本50课程名称文本20开设课程表3.4 课程信息表字段名类型大小说明username文本20用户名uerpassword文本20密码admin文本2是否为管理员readonly文本2是否为只读用户qx1文本2是否有系统管理权限qx2文
5、本2是否有档案管理权限qx3文本2是否有交费管理权限qx4文本2是否有成绩管理权限表3.4 管理人员表字段名类型大小说明年级文本16专业文本50年制文本20学习年限学期文本40学费货币应缴纳学费表3.4 学费表字段名类型大小说明学号文本10学期文本50缴费货币货币已交纳费用欠费货币货币欠费额日期日期日期/时间纪录时间操作员文本10添加纪录人员表3.4 学身缴费情况第4章 主要内容41登录窗体图4.1 登录窗体设计过程：用于输入用户名和密码登录，提示中写可以以用户名和密码都为guest进入系统，不过是只读用户。点击确定判断数据库中的用户是否为合法用户。设计代码：Private Sub cmdCa
6、ncel_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, 1Adodc1.RecordSource = sqlAdodc1.RefreshIf Not Adodc1.Recordset.E
7、OF 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 IfElseIf Adodc1.Recordset.EOF Then MsgBox 无此用户 txtUserName.Se
8、tFocus txtUserName = txtPassword = End IfEnd SubPrivate Sub Command1_Click()MsgBox 可以以用户名和密码均为guest进入, vbOKOnly + vbInformation, 提示txtUserName.SetFocusEnd SubPrivate Sub Form_Load()OpenTable Adodc1, useAdodc1.RefreshEnd Sub42主控界面图4.2 主控界面设计过程：所有功能都在菜单中打开来实现，在最下面添加了工具栏，来显示时间，操作员，状态等信息。在代码中判断登陆时的用户权限，
9、不同权限有不同的权限来浏览各个窗体。设计代码：Private Sub adddangan_Click()If QX2 = True Then Form1.ShowElse MsgBox 对不起,您没有权限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub addjiaofei_Click()If QX3 = True Then Form10.ShowElse MsgBox 对不起,您没有权限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub banjikechengliu
10、lan_Click()Form13.ShowEnd SubPrivate Sub cengdie_Click() MDIForm1.Arrange 0End SubPrivate Sub chengji_Click()End SubPrivate Sub chengjiadd_Click()If QX4 = True Then flAg = True Form6.ShowElse MsgBox 对不起,您没有权限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub chongpai_Click() MDIForm1.Arrange 3
11、End SubPrivate Sub chuizhi_Click()MDIForm1.Arrange 2End SubPrivate Sub classkechengset_Click()If QX4 = True Then Form15.ShowElse MsgBox 对不起,您没有权限!, 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()I
