学生信息管理系统学士学位论文

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

备注 备注 无 否 14 学费数据表 (xuefei) 该数据库是对学生各学期交费信息的管理，由于入学时间、专业、学期的不同，其交费信息也不相同，故要设立专门的表对其进行管理。 结构如表 58所 示 ： 表 58学费数据表 字段名称 字段类型 字段宽度 是否可空 年级 文本 16 否 专业 文本 50 否 年制 文本 20 否 学期 文本 40 否 学费 货币 小数位数自动 否 用户名数据表 (use) 该表主要实现用户注册、角色定义、权限分配和用户信息维护等功能，普通用户的帐号是否有效。 各字段的含义 Username(用户名 )、 password(密码 )用来进入系统时输入， admin(管理员 )、readonly(自由访问者 )、 qx(权限 )根据不同权限来确定可实现的不同功能，超级用户（管理员）可实现对所有功能的访问，普通用户其权限由超级用户来指定，只读用户只能浏览和查询，不能修改和添加。 结构如表 59所示： 表 59用户名数据表 字段名称 字段类型 字段宽度 是否可空 username 文本 20 否 password 文本 20 否 Admin 文本 2 否 readonly 文本 2 否 Qx1 文本 2 否 Qx2 文本 2 否 Qx3 文本 2 否 Qx4 文本 2 否 167。 VB 与数据库的连接方式 Visual Basic 提供了与底层数据库系统紧密的连接。 它 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长 ， 生成独立应用或脱离服务器运行 的 应用 程序。 Visual Basic 通过 使用 ADO的连接方式来与数据库进行连接。 15 第 六 章 系统 详细设计 167。 系统的特点 本系统主要是利用 ，结合学生信息管理的需要，力求在满足系统功能需求的基础上，使程序的运行更加快捷高效，并在数据查询等方面更加贴 近使用者的使用习惯使界面更为友好。 在录入窗口中，实现了数据窗口控件和下拉式数据窗口对象相结合的方式，既让程序的操作方便，又让系统直接与数据库本身的原始数据相交互，保证了所操作数据的准确性； 167。 系统子模块功能概括 该学生信息管理系统包括系统管理模块、学生信息管理模块。 其中学生信息管理模块又包括班级管理模块、学生档案管理模块、学生交费管理模块、课程管理模块、成绩管理模块。 本系统具有如下功能： 系统管理：包括添加用户， 重新登 录 ； 班级管理：包括班级浏览，添加班级，班级查询； 学生 档案 管理：包括 档案 添加， 档案 浏览， 档案 查询； 学生交费管理：包括基本学费设置，学生交费浏览，学生交费添加，学生交费查询； 课程管理：包括基本课程设置，班级课程设置； 成绩管理：包括考试类型设置，成绩添加，成绩浏览，成绩查询； 167。 用户界面的实现 登录界面 首先，系统的界面是至关重要的。 它是与用户沟通的桥梁，用户工作时要时时面对它，所以界面一定要简洁、直观，操作简单。 根据选择的相应用户和对应的口令进入系统，进行相应的操作。 若密码错误，则弹出“密码错误”对话框。 效果如图 61所示： 16 图 61登录界面 登 录流程 如 图 62 所示 ： 图 62登录流程图 主界面 密码无误，正确登录后会看到主界面。 效果 如图 63所示： 图 63主界面 17 系统管理界面 点击系统管理后看到的界面 ，效果 如图 64所示： 图 64系统管理 若是超级用户（管理员）则可以使用添加用户功能，在此可以添加用户的同时给用户赋予权限。 超级用户是权限最高的用户，他可以享有系统的所有功能。 只读用户权限最低，只可以浏览系统的某些内容，而不能参与修改。 普通用户可以根据超级用户赋予 的权限进行权限栏中的任意一项或多项功能。 普通用户和只读用户都没有添加用户功能。 作为普通用户在进行未赋予权限的功能和只读用户在进行“写”操作时，会弹出对话框“对不起，你没有管理本功能的权限，请与管理员联系。 ”。 效果如图 65所示： 图 65新增用户 学生信息管理部分包括班级管理、学生档案管理、学生交费管理、课程管理、成绩管理。 而每一部分都包括对该部分信息的添加、浏览、查询、修改、删 除。 其实现过程是相似的。 我们以学生档案管理为例，介绍其实现过程 ，可使用下面的程序完成。 18 Private Sub Command1_Click() If Trim(Text1(0).Text) = Then MsgBox 用户名不能为空。 , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If If Trim(Text1(1).Text) = Then MsgBox 密码不能为空。 , vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit Sub End If If Trim(Text1(2).Text) = Then MsgBox 确认密码不能为空。 , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 确认密码不正确。 , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If Dim aa As Integer aa = 0 If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End If Next i If aa = 0 Then MsgBox 普通用户至少要有一项权限。 , vbExclamation + vbOKOnly, 警告 Exit Sub End If End If 19 Dim mrc As txtsql = select * from use where username=39。 amp。 Trim(Text1(0).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql) If = False Then MsgBox 已存在该用户。 , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If txtsql = select * from use Set mrc = ExecuteSQL(txtsql) (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 (admin) = y Case 1 (readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 (qx1) = y Case 1 (qx2) = y Case 2 (qx3) = y Case 3 (qx4) = y 20 End Select End If Next j End Select End If Next i MsgBox 用户添加成功。 , vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Option1(2).Value = True End Sub Private Sub Form_Resize() Text1(0).SetFocus End Sub Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Option1_Click(Index As Integer) If Index 2 Then For i = 0 To 3 Check1(i).Enabled = False Next i Else For i = 0 To 3 Check1(i).Enabled = True Next i End If End Sub 21 学生档案管理界面 点击 “学生档案管理” 后出现 如下界面，效果 如图 66所示。 图 66档案管理界面 在学生信息管理的添加界面中，我们先通过变量传递得到输入的学号，然后进行判断。 首先程序先对输入的学号进行判断，若已存在，则给出提示信息，若不存在，则显 示所要添加的内容。 输入学生信息后，我们将信息加入到数据库中， 而对于记录删除，可以使用下面程序完成： Dim mrc As txtsql1 = select * from xj where 学号 =39。 amp。 Trim(Text1(0).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql1) If modi = False Then If = False Then sss = MsgBox(已经存在该学号的记录 ,学号不能重复。 , vbExclamation + vbOKOnly, 警告 ) Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If 22 图 67入学登记界面 另外，对于记录查找，可以使用下面程序来完成： Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = =39。 amp。 Trim(Text1(0).Text) amp。 39。 Else txtsql = txtsql amp。 and =39。 amp。 Trim(Text1(0).Text) amp。 39。 End If End If If Trim(Text1(1).Text) Then aa = 1 If txtsql = Then txtsql = =39。 amp。 Trim(Text1(1).Text) amp。 39。 Else txtsql = txtsql amp。 and =39。 amp。 Trim(Text1(1).Text) amp。 39。 End If End If 23 If Trim(Text1(2).Text) Then aa = 1 If txtsql = Then txtsql = =39。 amp。 Trim(Text1(2).Text) amp。 39。 Else txtsql = txtsql amp。 and =39。 amp。 Trim(Text1(2).Text) amp。 39。 End If End If If Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = like 39。 % amp。 Trim(Text1(3).Text) amp。 %39。 End If If。