毕业设计--学生信息管理系统

毕业设计--学生信息管理系统内容摘要：

理系统 –5– 软件功能设计 图 软件功能设计 学生信息管理系统 –6– 3 数据库设计 学生表 表 学生表 列 字段名 类型 长度 是否为空 主键 学号 Id Char 20 否 是 姓名 name Char 20 否 否 性别 sex Char 2 是 否 出生年月 birthday Date/time 8 是 否 民族 nation Text 10 是 否 籍贯 native text 10 是 否 入学时间 enterTime Date/time 8 是 否 院系编号 fID text 5 是 否 专业编号 speID text 5 是 否 班级编号 cID text 5 是 否 教师表 表 教师表 列 字段名 类型 长度 是否为空 主键 教师工号 tID text 20 否 是 教师姓名 tName text 10 否 否 性别 tSex text 2 是 否 名族 tNation text 10 是 否 籍贯 tNative text 10 是 否 政治面貌 Political text 10 是 否 职称 tital text 10 是 否 所属部门 department text 10 是 否 登陆密码 password text 50 是 否 学生信息管理系统 –7– 管理员表 表 管理员表 列 字段名 类型 长度 是否为空 主键 管理员编号 adID text 10 否 是 管理员账号 adName text 50 否 否 密码 adPassword text 50 否 否 所属部门 adDepart text 10 否 否 成绩表 表 成绩表 列 字段名 类型 长度 是否为空 主键 学生编号 stuID text 12 否 否 学科编号 subID text 10 否 否 平时成绩 usual text 10 否 否 期末 final text 10 否 否 总评 eff text 10 是 否 教师工号 teacherID text 20 否 否 院系表 表 院系表 列 字段名 类型 长度 是否为空 主键 院系编号 fID text 2 否 是 院系名称 fName text 10 否 否 专业表 表 专业表 列 字段名 类型 长度 是否为空 主键 专业编号 speID text 2 否 是 专业名称 sName text 50 否 否 所属院系 sfID text 2 否 否 学科表 学生信息管理系统 –8– 表 学科表 列 字段名 类型 长度 是否为空 主键 编号 subID text 5 否 是 名称 subName text 50 否 否 班级表 表 班级表 列 字段名 类型 长度 是否为空 主键 班级编号 cID text 2 是 否 班级名称 cName text 50 是 否 所属院系 fID text 2 是 否 所属专业 sID text 2 是 否 学生信息管理系统 –9– 4 程序代码的设计 程序代码设计要求 根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。 在这一阶段的工作中，主要任务有以下几项： (1)、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。 (2)、进行系统的流程分析，为模块的细化做好准备。 (3)、对每个模块进行详细的算法设计。 详细代码设计 公共模块 解决登陆用户信息以及数据库标志等公共信息，所以定义通用变量 Public gUserName As String 39。 保存用户名称 Public gTid As String 39。 保存教师信息 Public gStuID As String 39。 保存学生登录信息 Public flag As Integer 39。 添加和修改的标志 Public gSQL As String 39。 保存 SQL 语句 Public kqsql2 As String 39。 保存查询其他考勤结果 SQL 语句 Public ArecordID As Integer Public LrecordID As Integer Public orecordID As Integer Public ErecordID As Integer Public iflag As Integer 39。 数据库是否打开标志 数据库连接选用 ADODB 连接方式，首先先编写一公共模块，用于存放数据库访问类 [5]。 Public Function TransactSQL(ByVal sql As String) As Dim con As Dim rs As 学生信息管理系统 –10– Dim strConnection As String Dim strArray() As String Set con = New Set rs = New On Error GoTo TransactSQL_Error strConnection = Provider=。 Data Source= amp。 amp。 \DB\ strArray = Split(sql) strConnection If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), con, adOpenKeyset, adLockOptimistic Set TransactSQL = rs iflag = 1 Else sql iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error: MsgBox 查询错误： amp。 iflag = 2 Resume TransactSQL_Exit End Function 解决关闭窗口后程序任在后台运行类： Public Sub Shutdown(Optional ByVal Force As Boolean = False) Dim I As Long On Error Resume Next For I = 1 To 0 Step 1 If Not Force Then 学生信息管理系统 –11– If I Then Exit Sub End If End If Next I If Force Or ( = 0) Then Close If Force Or ( 0) Then End End Sub 识别 tab 键 Public Sub TabToEnter(Key As Integer) If Key = 13 Then SendKeys {TAB} End If End Sub 登陆界面设计 图 由于有三类用户同时登陆。 其中，学生输入学号登陆，教师登陆由教工号于密码登陆，管理员由账号密码登陆。 代码如下： Private Sub cmdOK_Click() 学生信息管理系统 –12– Dim sql As String Dim rs As If Trim( = ) Then MsgBox 没有输入用户名，请重新输入。 , vbOKOnly + vbExclamation, 警告 Else sql = select * from Administrator where adName=39。 amp。 amp。 39。 Set rs = TransactSQL(sql) If iflag = 1 Then If = True Then MsgBox 没有这个用户，请重新输入。 , vbOKOnly + vbExclamation, 警告 Else If Trim((2)) = Trim() Then。