2022年第章-学生基本信息管理系统的开发 .pdf

第 2 章 学生基本信息管理系统的开发（C级）2.1 项目概述2.1.1项目主要功能项目主要功能包含： （1） 学生信息管理模块： 该模块具体功能是学生基本基本信息的添加、信息修改、删除和查询，排序统计；(2 ）权限管理模块：该模块主要负责管理用户的信息，区分不同级别的用户，可提高系统安全性；（3）统计及报表；（4）数据管理四个部分。其操作流程如下所示：2.1.2程序文件结构图 2-1 程序文件结构2.2 全局变量和数据库设计2.2.1定义全局变量全局变量的定义：Public Flag As Integer 登陆是否合法不合法权限判断相应功能操作次数限制名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 12 页 - - - - - - - - - Public username As String 这两个变量用来存放登陆用户名和相应等级，定义在标准模块Module1.BAS 中。公有函数（可执行SQL语句，返回记录集）的定义：Public Function exesql(ByVal sql As String) As ADODB.Recordset sql = Trim$(sql) Set conn = New ADODB.Connection Set rst = New ADODB.Recordset conn.ConnectionString = dsn=student ODBC 数据源名conn.Open Set rst.ActiveConnection = conn rst.LockType = adLockOptimistic rst.CursorType = adOpenKeyset rst.Open sql Set exesql = rst Set rst = Nothing Set conn = Nothing End Function 公有函数亦定义在标准模块Module1.BAS 中。2.2.2数据库的设计物理数据库名：student ODBC 数据源名： student 字段名主键数据类型长度必填默认值CHECK 约束说明Sno char 8 学号Sname char 5 姓名Ssex char 2 性别Sbirthday datetime 8 1/1/1949 ,1/1/2010 出生日期Sdept char 20 信科系系科名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 12 页 - - - - - - - - - Sgrade int 4 1,4 年级2.2.1 S表（学生基本信息表）字段名主键数据类型长度必填默认值CHECK 约束说明username char 8 用户名password char 5 密码jibie int 2 1 等级2.2.2 yonghu 表（学生基本信息表）2.3 效果和关键实现2.3.1登陆模块 ( 窗体名 :login) 图 2-2 登陆界面 ( 窗体名 :login) 关键技术：1、操作数据库的专用函数exesql也应添加到标准模块Module1.BAS 中并在 VB在 VB工程-引用中添加Microsoft ActiveX Data Objects 2.5 Library。2、登陆错误次数限制3 次不允许用户无止尽尝试密码，一旦错误超过三次程序自动结束，在窗体通用部分首先定义窗体级变量TIM, ，核心程序如下： 验证操作员及密码 Dim sql As String sql = select * from yonghu where username= + Combo1.Text + and password= + Text2.Text + Set rs = exesql(sql) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 12 页 - - - - - - - - - If rs.RecordCount 0 Then Load main main.Show username = Combo1 Unload Me ElseIf TIM = 3 Then 密码输错3 次，退出系统 myval = MsgBox(密码输入错误 , 请向系统管理员查询!, 0, ) If myval = vbOK Then End Else MsgBox 输入错误，你还有 & 3 - TIM & 次机会 TIM = TIM + 1 End If 3、支持键盘操作，例TEXT2文本框中支持方向键代码如下：Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then CmdOk.SetFocus 按回车键 CmdOk获得焦点 If KeyCode = vbKeyUp Then Combo1.SetFocus If KeyCode = vbKeyDown Then CmdOk.SetFocus End Sub 4、密码框中输入任何字符以制定字符显示（例“* ” ） ，应设置其passwordchar属性的值即可。2.3.2学生信息管理模块( 窗体名 :main) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 12 页 - - - - - - - - - 图 2-3 学生信息管理界面( 窗体名 :main) 关键技术：1、采用 adodc 和 datagrid显示数据。操作步骤：（1）选中工程 - 部件(2)Adodc控件完成与各类数据库的连接( 连接ODBC数据源student)，可执行sql命令(select * from s)。(3)datagrid控件完成数据的显示( 指定其 DataSource 为 Adodc 控件 ) 。2、记录移动技术首条： Adodc1.Recordset.MoveFirst 未条： Adodc1.Recordset.MoveLast 上一条 （注意应判断是否已移到最前，如果不判断移到第1 条记录后再往前移动，程序就出错） ，关键代码如下：If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious End If 下一条 （注意应判断是否已移到最后，如果不判断移到第后条记录后再往后移动，程序就出错） ，关键代码如下：If Not Adodc1.Recordset.EOF Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 12 页 - - - - - - - - - Adodc1.Recordset.MoveNext End If 3、数据删除技术（应判断是否存在记录，否则不存在记录作删除操作程序报错）关键代码如下：If Adodc1.Recordset.RecordCount 0 Then Dim sss sss = Trim(Adodc1.Recordset.Fields(sno) If MsgBox( 真的要删除 + sss + 吗？ , vbYesNo, 系统友情提示) = vbYes Then Adodc1.Recordset.Delete End If End If 4、查询技术：在这里强调标准SQL语句的语法问题, 对于字符数据匹配，要加单引号，而对于数值型字段不需要加， 例如 SNO(char) 与 text1是否匹配的sql 语句为：”select * from s where sno=” &text1&” , 例如 Sgrade(int)与 text1是否匹配的sql 语句为” select * from s where Sgrade=” &text1 5、聚集函数的使用( 可以给聚集函数起别名) ，使用方法如下：Dim t sqlt As String sqlt = select count(*) as 总人数 from s where & Combo1.Text & Combo2.Text & & Text1 & Set rs = exesql(sqlt) 调用执行 SQL函数，已经在模块中添加Text2.Text = rs(总人数 ) 5、增加修改技术（共用界面update ）增加全局变量Public Flag As Integer，Flag = 0 增加记录， Flag = 1 修改记录If Flag = 1 Then Call edit调用编辑过程Else Call add调用增加过程End If 增加记录时，程序中应考虑主键，空值，check 等约束，因此程序中必须增加容错判断，代名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 12 页 - - - - - - - - - 码如下：Sub add() 注意也可以直接使用insert语句Dim sql As String sql = select * from s where sno= & Text1.Text & Set rs = exesql(sql) If Text1.Text = Or Text2.Text = Then MsgBox 学号姓名不能空 Exit Sub End If If DTPicker1.Value #1/1/2010# Or DTPicker1.Value #1/1/2010# Or DTPicker1.Value #1/1/1949# Then MsgBox 出生日期不合法（1949-1-12010-1-1） ！ Exit Sub End If rs(Sname) = Text2 If Option1.Value = True Then rs(Ssex) = 男 Else rs(Ssex) = 女 End If rs(Sbirthday) = DTPicker1.Value rs(Sdept) = Text3 rs(Sgrade) = CInt(Combo1.Text) rs.UPDATE MsgBox 增加更新成功 End Sub 6，权限限制技术：Private Sub Form_Activate() 权限判断1 级权限所有权限 等级 2：拥有数据查询，增加权限 等级 3：拥有数据查询Dim sql As String sql = select * from yonghu where username= & username & Set rs = exesql(sql) If rs(jibie) = 2 Then Command3.Enabled = False Command4.Enabled = False ElseIf rs(jibie) = 3 Then Command3.Enabled = False 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 12 页 - - - - - - - - - Command4.Enabled = False Command5.Enabled = False End If End Sub 7，报表打印技术( 在报表中添加相应控件): Private Sub DataReport_Initialize() Set rs1 = exesql(sqltext) Set DataReport1.DataSource = rs1 设置 DataReport 的数据源DataReport1.Sections(Section1).Controls(text1).DataField = sno字段名DataReport1.Sections(Section1).Controls(text2).DataField = sname DataReport1.Sections(Section1).Controls(text3).DataField = ssex DataReport1.Sections(Section1).Controls(text4).DataField = sbirthday DataReport1.Refresh End Sub 2.3.3增加、修改学生信息模块( 窗体名 : update) 图 2-4 增加学生信息界面( 窗体名 :update) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 12 页 - - - - - - - - - 图 2-5 修改学生信息界面窗体名:update 2.3.4查询打印报表模块( 窗体名 : datareport1) 图 2-6 查询打印报表界面(datareport1) 2.3.5权限管理模块( 窗体名 : datareport1) 图 2-7 权限管理界面( 窗体名 :quanxian) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 12 页 - - - - - - - - - 2.4 本实例小结本章通过一个简单完整的应用程序开发实例，介绍了数据库应用系统开发中常用的一些技术，适合C 级学生完成，涵盖了SQL 的使用，常用控件的使用，报表的使用，我们在开发过程中， 应充分考虑到到用户的需要，尽量的方便用户使用，例如，在这个例子中支持了键盘操作。 当然本系统只是一个示例，在信息表述上不够完备，通用性不强，比如权限设置不够灵活， 一些模块信息不够详细，读者可以根据实际情况来完善我们的例子，把它做得更加人性化，智能化，通用化。第 3 章医院体检结论查询打印系统（C级）名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 12 页 - - - - - - - - -