visual_basicsql学生信息管理系统(毕业设计)(编辑修改稿)

visual_basicsql学生信息管理系统(毕业设计)(编辑修改稿)内容摘要：

DO 通过 ODBC 方式访问数据库可以使用用户 DSN、系统 DSN 和文件DSN，鉴于安全性的考虑，一般不使用系统 DSN，本系统选用文件 DSN。 在设计过程中设置本系统的文件 DSN为 DSN访问数据库的代码如下： Public Function ExecuteSQL(ByVal SQL As String, rst As , Optional enableWrite As Boolean = True) Dim con As Set con = New FileDSN= Set rst = New If enableWrite Then Trim$(SQL), con, adOpenDynamic, adLockOptimistic Else Trim$(SQL), con, adOpenDynamic, adLockReadOnly End If End Function 7 3 系统分析与设计 系统功能分析 随着学校的规模不 断扩大，学生的数量急剧增加，有关学生的各种信息量也成倍增长。 通过这样的系统可以做到信息的规范管理、快速查询、修改、增加、删除等，从而减少管理方面的工作量。 设计内容为管理员、教师和学生用户登录该系统进行八个模块操作： （ 1）学生基本情况更新：增加、修改、删除、查询（按学号） （ 2）班级信息维护：添加班级、删除、编辑、查询（按班级编号） （ 3）课程信息维护：添加课程、删除、编辑 （ 4）成绩管理：录入成绩（教师用户）、查询成绩（管理员、学生用户） （ 5）奖惩信息维护：奖学金申请（学生用户）、奖学金评定（管理员用户 ）、惩处信息的维护（管理员） （ 6）学费信息：费用设置、欠费处理、缴费 （ 7）密码更改 （ 8）管理员角色添加（管理员用户） 系统结构图 登 录学 生 信 息 管 理 系 统基本维护教务信息奖惩信息学费信息管理员信息班级信息学生信息课程信息学生选课学生成绩奖学金处分信息学费设置学生缴费欠费处理管理员管理密码修改 图 系统结构图 8 系统 E— R 图 图 系统 ER 图 数据库设计 本系统通过 SQL server 2020 建立后台数据库，数据库共由 11 个表组成，分别是：访问权限信息表（访问权限）、学生基本情况信息表（学生信息）、班级信息表（班级信息）、课程信息、教师信息、选课表、处分信息、奖学金、学费信息、缴费信息、助学贷款信息表（贷款名单），下文将对主要表格进行简单介绍。 （ 1） 访问权限 表 31 访问权限表设计 名称 字段名称 类型 长度 访问账号 账号 varchar 14 密码 密码 varchar 14 权限等级 权限 varchar 8 （ 2） 学生信息 表 32 学生基本信息表设计 字段名称 类型 长度 NULL 值 学号 varchar 14 NOT 姓名 varchar 8 NOT 班级编号 varchar 7 NOT 性别 varchar 2 NOT 9 年级 varchar 4 NOT 政治面貌 varchar 8 NULL 民族 varchar 4 NOT 籍贯 varchar 4 NOT 身份证号 varchar 18 NOT 学籍状态 varchar 4 NULL （ 3） 班级信息 表 33 班级信息表设计 字段名称 类型 长度 NULL 值 班级编号 varchar 7 NOT 年级 varchar 4 NOT 班级名称 varchar 30 NOT 班级简称 varchar 16 NULL 人数 Int 5 NOT 班主任 varchar 8 NOT （ 4） 课程信息 表 34 课程信息表设计 字段名称 类型 长度 NULL 值 课程代码 varchar 5 NOT 课程名称 varchar 50 NOT 课程性质 varchar 4 NOT 上课时间 varchar 20 NOT 上课地点 varchar 14 NULL 任课教师 varchar 8 NOT 学分 int 2 NOT （ 5） 选课表 表 35 选课表设计 字段名称 类型 长度 NULL 值 学号 varchar 14 NOT 课程代码 varchar 5 NOT 成绩 float 20 NULL （ 6） 教师信息 10 表 36 教师表设计 字段名称 类型 长 度 NULL 值 账号 varchar 14 NOT 姓名 varchar 8 NOT 任课科目 varchar 50 NOT （ 7） 处分信息 表 38 处分信息表设计 字段名称 类型 长度 NULL 值 学号 varchar 14 NOT 处分等级 varchar 12 NOT 说明 varchar 50 NOT 填报时间 date NOT （ 8） 奖学金 表 39 奖学金信息表设计 字段名称 类型 长度 NULL 值 学号 varchar 14 NOT 平均成绩 float 20 NOT 申请标记 varchar 4 NULL 11 4 系统具体实现 本部分主要内容为本系统的各个运行界面以及主要界面的源代码。 模块设计 加一个模块 module1，该部分主要包括一些公共变量的定义、 ExecuteSQL等执行过程定义以及自动把备份的数据库文件还原到 SQL Server 2020 中的代码设计。 公共变量 Public 权限 As String Public 账号 1 As String 用于存储账号和权限，在访问过程中分配其访问权限以及当前登陆者密码的更改。 SQL 执行语句 Public Function ExecuteSQL(ByVal SQL As String, rst As , Optional enableWrite As Boolean = True) Dim con As Set con = New FileDSN=39。 打开文件 DSN Set rst = New If enableWrite Then Trim$(SQL), con, adOpenDynamic, adLockOptimistic’ 以读写方式打开数据文件 Else Trim$(SQL), con, adOpenDynamic, adLockReadOnly’ 以只读方式打开数据文件 End If End Function 判断数据库中是否存在指定记录 Public Function DBExist(ByVal SQL As String) As Boolean 39。 判断数据库中 是否存在指定记录 Dim rst As Dim con As Set con = New Set rst = New filedsn= 12 Trim$(SQL), con, adOpenStatic, adLockOptimistic If = True Then DBExist = False 39。 没有此记录 Else DBExist = True 39。 有此记录 End If End Function DataGride 中显示数据 Public Function viewData(ByVal SQL As String, dg As DataGrid, Optional enableWrite As Boolean = True) As Integer 39。 DataGride 中显示数据 Dim rst As Dim con As Set con = New Set rst = New filedsn= If enableWrite Then Trim$(SQL), con, adOpenStatic, adLockOptimistic Set = rst Else Trim$(SQL), con, adOpenStatic, adLockReadOnly Set = rst End If End Function 登录窗体设计 添加一个窗体（登录 .frm），该部分主要包括用户的验证以及权限的限制。 登录功能的程序代码： Option Explicit Dim SQL As String Dim rst As Private Sub Command1_Click() If = Or = Then 13 MsgBox 请你填写完整。 , vbOKOnly + vbExclamation, 提示 Else SQL = select 账号 ,权限 from 访问权限 where 账号 =39。 + Trim() + 39。 and 密码 = 39。 + Trim() + 39。 Call DBExist(SQL) If DBExist(SQL) = True Then 账号 1 = Trim() Call ExecuteSQL(SQL, rst, False) 权限 = (1) Else MsgBox 密码错误 , vbOKOnly + vbExclamation, 警告 = End If End If If 权限 = 学生 Then 学生 .Show 登录 .Hide End If If 权限 = 教师 Then 教师 .Show 登录 .Hide End If If 权限 = 管理员 Then 登录 .Hide End If End Sub Private Sub Command2_Click() = = End Sub Private Sub Command3_Click() End End Sub Private Sub form_load() 14 = = End。