vb60学生管理信息系统(编辑修改稿)

vb60学生管理信息系统(编辑修改稿)内容摘要：

改 成 绩 信 息 添 加 成 绩 信 息 查 询 成 绩 信 息 6 图 41 系统结构设计图 数据库设计 该系统的 数据库采用了 Microsoft 推出的 Access 数据库， 其中涉及到多张数据库表。 涉及的数据 库 表 本系统中所涉及到的主要实体共有九个数据 库 表： Allkecheng 表： {课程名称，教材 } Cj表： {学号，学期，类型，课程名称，分数 } Class 表： {年级，班级，教室，年制，专业，班主任，备注 } Classkecheng 表： {年级，专业，年制，学期，课程名称 } Kaoshileixing 表： {类型 } Use 表： {username,password,admin,readonly,qx1,qx2,qx3,qx4} Xj 表： {学号，姓名，性别，班级，出生年月，家庭住址，邮政编码，联系电话，入学时 间，备注 } 表的物理结构 各表的物理结构如表所示 ： 接受数据 处理中心 系统管理 理 理理 学籍管理 班级管理 课程管理 成绩管理 打印报表 7 Cj表 如表 41所示 ： 表 41 成绩表 字段名称 类型 宽度 小数位 学号 文本 10 学期 文本 50 类型 文本 16 课程名称 文本 20 分数 单精度型数字 自动 Class 表 如表 42所示： 表 42 班级 表 字段名称 类型 宽度 小数位 年级 文本 16 班级 文本 20 教室 文本 5 年制 文本 8 专业 文本 16 班主任 文本 8 备注 备注 Classkecheng表 如表 43所示 ： 表 43 班级课程表 字段名称 类型 宽度 小数位 年级 文本 16 专业 文本 12 年制 文本 8 学期 文本 50 课程名称 文本 20 8 Use 表 如表 44 所示 ： 表 44 用户表 字段名称 类型 宽度 小数位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 Xj表 如表 45所示 ： 表 45 学籍表 字段名称 类型 宽度 小数位 学号 文本 9 姓名 文本 8 性别 文本 2 班级 文本 10 出生年月 日期 /时间 家庭住址 文本 30 邮政编码 数字（长整型） 联系电话 数字（长整型） 入学时间 日期 /时间 备注 备注 系统的 界面设计 系统登录界面及主界面设计 进行完一些必要的分析后就要考虑界面的设计了。 运行本系统之前首先要进行登陆，登陆界面如图 42所示。 在登录界面中输 9 入正确的用户名和密码后单击“确定”即可进入主 界面进行相应的操作了。 图 42 系统 登陆界面图 根据需要该 系统 要 实现 学生学籍信息、班级信息、课程信息、成绩信息等相关信息的管理，所以该信息系统包括以下几个功能模块：系统管理、学籍管理、班级管理、课程信息、成绩管理和帮助。 该系统主界面如图 43所示，选择相应的模块就可以进行各个模块的相应操作了。 图 43 系统主界面图 系统管理模块 界面设计 该模块的主要任务是维护系统的正常运行和安全性设置 ,包括添加用户、修改密码、 退出系统三个模块。 界面如图 44所示（由于其他几个模块的界面类似于本模块， 所以下面内容的中将不再列出界面图）。 10 图 44 系统管理模块界面图 学籍管理模块界面设计 该模块的功能是实现对 学生 的 学籍信息进行 管理 ，包括添加学籍信息、修改学籍信息和查询学籍信息三个模块 ，这三个功能模块 能够各自独立 完成 学生学籍信息 的管理。 班级 管理模块 界面设计 该模块的主要功能是实现对 全校班级信息的管理 ，包括 添加班级信息和修改班级信息两个模块 ，从而方便学校管理部门对学校的 班级 情况 进行管理。 课程管理模块 界面设计 该模块对各个班级的课程进行 添加、修改 和 设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。 该模块包括 添加课程信息、修改课程信息和设置班级课程三 个模块。 成绩管理模块 界面设计 学校的成绩管理工作是检验学生学习情况的一个主要手段 ,其中 设置了 添加成绩 信息 、 修改成绩信息和查询成绩信息三个 功能模块。 5 代码分析与实现 本部分主要内容 是介绍 本系统 的一些 主要界面 及相应 的源代码。 11 系统登陆界面 本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在 Use 表中，本系统根据不同的 用户而设置了不同的权限。 具体界面如图 42所示，代码如下所示。 Private Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize 0 Then = Else = vbNullString End If OK = False miCount = 0 End Sub Private Sub cmdCancel_Click() OK = False End Sub Private Sub cmdOK_Click() Dim txtSQL As String Dim mrc As Dim MsgText As String 39。 ToDo: create test for correct password 12 39。 check for correct password UserName = If Trim( = ) Then MsgBox 没有 这 个用 户 ，请 重新 输 入用 户名。 , vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user_Info where user_ID = 39。 amp。 amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 没有这个用户，请重新输入用户名 !, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 输入密码不正确，请重新输入。 , vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 13 If miCount = 3 Then End If Exit Sub End Sub 用户管理模块 本模块是本系统的安全性设置模块， 由管理员根据学校不同部门以及不同使用人员对本系统的要求和需要为其分配 权限 ，并且添加新用户。 图 51 是系统管理模块中添加用户的界面。 图 51 系统管理模块中添加用户的界面 图 具体代码如下： Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密码输入不正确。 , vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus 14 Text1(1).Text = Else txtSQL = select * from user_Info where user_ID = 39。 amp。 UserName amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Text1(1).Text。