学生学籍管理信息系统论文

学生学籍管理信息系统论文内容摘要：

定树来描述。 （ 6）数据字典 :是关于数据库中数据的描述，即对原数据的描述。 本系统的数据字典如下： 表 36 学生信息表 学生信息 专业 班级 学号 姓名 出生年月 家庭住址 联系电话 列名 数据类型及长度 可否为空 主键 专业 文本型（ 20） NOTNULL 班级 文本型（ 20） NOTNULL 学号 文本型（ 8） NOTNULL 主键 姓名 文本型（ 8） NOTNULL 性别 逻辑型（ 2） NOTNULL 籍贯 文本型（ 8） NOTNULL 出生年月 日期型（ 8） NOTNULL 家庭住址 文本型（ 60） NOTNULL 联系电话 文本型（ 12） NOTNULL 政治面貌 文本型（ 4） NOTNULL 备注 备注型 (50) NOTNULL .页眉 . .页脚 表 37学生成绩表 1 表 38 学生档案表 表 39 管理表 列名 数据类型及长度 可否为空 主键 专业 文本型（ 20） NOTNULL 班级 文本型（ 20） NOTNULL 学号 文本型（ 8） NOTNULL 主键 姓名 文本型（ 8） NOTNULL 计算机网络 数 字型（ 4） NOTNULL 计算机组成原理 数字型（ 4） NOTNULL 计算机应用与提高 数字型（ 4） NOTNULL 管理信息系统 数字型（ 4） NOTNULL 信息法律规程 数字型（ 4） NOTNULL 办公软件 数字型（ 4） NOTNULL 备注 备注型（ 50） NOTNULL 列名 数据类型及长度 可否为空 主键 专业 文本型（ 20） NOTNULL 班级 文本型（ 20） NOTNULL 学号 文本型（ 8） NOTNULL 主键 姓名 文本型（ 8） NOTNULL 性别 文本型（ 4） NOTNULL 民族 文本型（ 8） NOTNULL 籍贯 文本型（ 8） NOTNULL 家庭住址 文本型（ 60） NOTNULL 联系电话 文本型（ 12） NOTNULL 奖惩情况 文本型（ 100） NOTNULL 留级情况 文本型（ 60） NOTNULL 表现情况 文本型（ 200） NOTNULL 备注 备注型（ 50） NOTNULL 列名 数据类型及长度 可否为空 主键 用户名 文本型（ 16） NOTNULL 密码 文本型（ 16） NOTNULL .页眉 . .页脚 表 310 注册表 列名 数据类型及长度 可否为空 主键 专业 文本型（ 20） NOTNULL 班级 文本型（ 20） NOTNULL 学号 文本型（ 8） NOTNULL 主键 出生年月 文本型（ 8） NOTNULL 家庭住址 文本型（ 8） NOTNULL 联系电话 文本型（ 8） NOTNULL 备注 备注型（ 50） NOTNULL .页眉 . .页脚 第四章 系统实现 界面、代码设计与实现 图 41 主窗口 ：用户直接单击“进入”按钮进入登录界面。 ： Private Sub Command1_Click() 主界面 .Hide 39。 隐藏主界面 登录界面 .Show 39。 显示登录界面 End Sub .页眉 . .页脚 图 42 登录窗口 此登录界面分为“管理员”和“普通用户”登录。 “管理员”需输入用户名和密码登录“信息管理”窗口；而普通用户则直接单击“登录”按钮进入“普通用户学生学籍窗口”。 （ 1）管理员登录代码： Private Sub Command1_Click() Dim db As New Dim rs As New Dim sql As String =Provider=。 DataSource=E:\zlf\db。 Persist Security Info=False sql = select * from 用户管理表 sql, db, adOpenStatic, adLockReadOnly While = False If (0).Value = Then If (1).Value = Then 登录界面 .Hide 学生学籍信息管理窗口 .Show Else MsgBox (密码错误 ,请重新输入。 ) End If End If Wend .页眉 . .页脚 End Sub Private Sub Command2_Click() 登录界面 .Hide 主界面 .Show End Sub （ 2）普通用户窗口代码 Private Sub Command3_Click() 普通用户学生学籍窗口 .Show 登录界面 .Hide End Sub Private Sub Command4_Click() 登录界面 .Hide 主界面 .Show End Sub 图 43信息管 理窗口 信息管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理、用户管理”，下设相应的子菜单。 管理员可根据需要进行内容的查询、添加、删除等。 （ 1）（学生学籍信息管理）信息查询窗口弹出代码： Private Sub xxcx_Click(Index As Integer) 查询学生信息窗口 .Show End Sub .页眉 . .页脚 （ 2）（学生学籍信息管理）信息添加窗口弹出代码： Private Sub xxtj_Click(Index As Integer) 添加学 生信息窗口 .Show End Sub （ 3）（学生学籍信息管理）信息修改窗口弹出代码： Private Sub xxg_Click(Index As Integer) 修改学生信息窗口 .Show End Sub （ 4）（学生学籍成绩管理）成绩查询窗口弹出代码： Private Sub chjcx_Click(Index As Integer) 查询学生成绩窗口 .Show End Sub （ 5）（学生学籍成绩管理）成绩添加窗口弹出代码： Private Sub chjtj_Click(Index As Integer) 添加学生成绩窗口 .Show End Sub （ 6）（学生学籍成绩管理）成绩修改窗口弹出代码： Private Sub chjxg_Click(Index As Integer) 修改学生成绩窗口 .Show End Sub （ 7）（学生学籍档案管理）档案查询窗口弹出代码： Private Sub dacx_Click(Index As Integer) 用户档案查询窗口 .Show End Sub （ 8）（学生学籍档案管理）注册查询窗口弹出代码： Private Sub dazccx_Click(Index As Integer) 用户注册查询窗口 .Show End Sub （ 9）（用户管理）用户修改窗口弹出代码： Private Sub yhxg_Click(Index As Integer) 用户修改窗口 .Show End Sub （ 10）（用户管理）用户添加窗口弹出代码： Private Sub yhtj_Click(Index As Integer) 用户添加窗口 .Show End Sub （ 11）信息管理返回按钮代码： Private Sub Command1_Click() 学生学籍信息管 理窗口 .Hide 登录界面 .Show End Sub .页眉 . .页脚 图 44 查询学生信息窗口 用户选择所要查询的对象，单击“确定”按钮，得出相应信息。 Private Sub Command1_Click() Dim kl As String Dim db As New Dim rs As New Dim sql As String Dim rs1 As New Dim sql1 As String kl = = Provider=。 Data Source=E:\zlf\。 Persist Security Info=False sql = select * from 学生信息表 sql, db, adOpenStatic, adLockReadOnly sql1 = select * from 学生信息表 where 姓名 =39。 amp。 kl amp。 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表内无记录 39。 如果为空，弹出对话框 Else 39。 如果不为空，定位到选定的记录 = (0).Value = (1).Value 39。 显示相 应字段的内容 = (2).Value = (3).Value = (4).Value = (5).Value .页眉 . .页脚 = (6).Value = (7).Value = (8).Value = (9).Value MsgBox (查询成功 ) End If End Sub Private Sub Command2_Click() 查询学生信息窗口 .Hide 学生学籍信息管理窗口 .Show End Sub 图 45 添加学生信息窗口 管理员在空白栏中正确输入所要添加的信息，单击“添加”按钮即可添加成功。 Private Sub Command1_Click() Dim db As New Dim rs As New Dim sql, rt As String Dim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As String = Provider=。 Data Source=E:\zlf\。 Persist Security Info=False sql = select * from 学生信息表 sql, db, adOpenStatic, adLockOptimistic .页眉 . .页脚 (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value = MsgBox (增加成功 ) = = = = = = = = = = = End Sub Private Sub Command2_Click() Unload Me End Sub .页眉 . .页脚 图 46 修改学生信息窗口 管理员可根据需要对学生信息进行修改（在相应信息处正确进行修改），修改完毕后 单击“修改”按钮即可成功修改学生信息。 Private Sub Command1_Click() Dim db As New Dim rs As New Dim gg As New Dim sql, rt As String Dim z, a As String Dim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As String = Provider=。 Data Source=E:\zlf\。 Persist Security Info=False sql = select * from 学生信息表 sql, db, adOpenStatic, adLockOptimistic a = update 学生信息表 set 专业 = 39。 amp。 amp。 39。 ,班级 = 39。 amp。 amp。 39。 ,学号 = 39。 amp。 amp。 39。 ,姓名 = 39。 amp。 amp。 39。 ,性别 =39。 amp。 amp。 39。 ,出生年月 = 39。 amp。 amp。 39。 ,家庭住址 = 39。 amp。 amp。 39。 ,联系电话 =39。 amp。 amp。 39。 ,政治面貌 =。