第2章 学生基本信息管理系统的开发.docVIP

第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 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 信科系 系科 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) 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 KeyC