学生管理信息系统论文

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

,qx1,qx2,qx3,qx4} xj 表： {学号，姓名，性别，班级，出生年月，家庭住址，邮政编码，联系电话，入学时间，备注 } suefei 表： {年级，专业，年制，学期，学费 } 16 3． 2． 2 各表的物理结构如下： allkecheng 表： 字段名称 类型 宽度 小数位 课程名称 文本 20 教材 文本 30 Cj 表： 字段名称 类型 宽度 小数位 学号 文本 10 学期 文本 50 类型 文本 16 课程名称 文本 20 分数 单精度型数字 自动 Class 表： 字段名称 类型 宽度 小数位 年级 文本 16 班级 文本 20 教室 文本 5 年制 文本 8 专业 文本 16 班主任 文本 8 备注 备注 17 Classkecheng 表： 字段名称 类型 宽度 小数位 年级 文本 16 专业 文本 12 年制 文本 8 学期 文本 50 课程名称 文本 20 Jf 表： 字段名称 类型 宽度 小数位 学号 文本 5 学期 文本 50 交费 货币 自动 欠费 货币 自动 日期 日期 /时间 操作员 文本 10 Kaosileixing 表： 字段名称 类型 宽度 小数位 类型 文本 10 18 Use 表： 字段名称 类型 宽度 小数位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 xj 表： 字段名称 类型 宽度 小数位 学号 文本 9 姓名 文本 8 性别 文本 2 班级 文本 10 出生年月 日期 /时间 家庭住址 文本 30 邮政 编码 数字（长整型） 联系电话 数字（长整型） 入学时间 日期 /时间 备注 备注 19 xuefei 表： 字段名称 类型 宽度 小数位 年级 文本 16 专业 文本 50 年制 文本 20 学期 文本 40 学费 货币 自动 20 本部分主要内容为本系统的运行界面以及主要界面的源代码。 4． 1 系统登陆界面： 本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在 USE 表中，本系统根据不同的用户而设置了不同的权限，可以用 909。 909 为 用户名和密码来登陆本系统。 Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用户名错误。 , vbExclamation + vbOKOnly, 警告 21 = 0 = Len() Exit Sub End If username = (0) txtsql2 = select username from use where password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql2) If = True Then MsgBox 密码错误。 , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If txtsql = select username from use where username=39。 amp。 Trim() amp。 39。 and password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用户名称和密码不匹配。 , vbExclamation + vbOKOnly, 警告 Exit Sub End If 22 = Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 23 4． 2 系统主界面： 本模块是本系统的应用界面，在本界面上集成了本系统的所有 功能，共有 6 个功能菜单和 19 个子菜单（功能模块），从而实现了本系统从班级管理、档案管理、缴费管理、课程管理、成绩管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。 Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Dim find1 As Integer Dim liulan1 As Integer 24 Private Sub add_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If modi = False (0) End Sub Private Sub cjadd_Click() fenshumodi = False qxstr = Executeqx(4) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 25 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub claasfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) 26 End Sub Private Sub classapp_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If classmodi = False (0) End Sub Public Sub clabrowse() txtsql = select * from class (0) = 浏览班级设置 End Sub 27 Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub classfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与 管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) End Sub Private Sub find_Click() End Sub 28 Private Sub classkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限， 请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub denglu2_Click() Unload Me End Sub Private Sub jiaofeiadd_Click() qxstr = Executeqx(3) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 29 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub jiaofeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(对不起，你没有管理 本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub jiaofeifind_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 30 End Sub Private Sub jibenkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub leixing_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 31。