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

第2章学生基本信息管理系统的开发（C级）

2.1项目概述

2.1.1项目主要功能

登陆是否合法不合法权限判断

登陆

是否合法

不合法

权限判断

相应功能

操作

次数限制

2.1.2程序文件结构

图2-1程序文件结构

2.2全局变量和数据库设计

2.2.1定义全局变量

全局变量的定义：

PublicFlagAsInteger

PublicusernameAsString

这两个变量用来存放登陆用户名和相应等级，定义在标准模块Module1.BAS中。

公有函数（可执行SQL语句，返回记录集）的定义：

PublicFunctionexesql(ByValsqlAsString)AsADODB.Recordset

sql=Trim$(sql)

Setconn=NewADODB.Connection

Setrst=NewADODB.Recordset

conn.ConnectionString=dsn=student’ODBC数据源名

conn.Open

Setrst.ActiveConnection=conn

rst.LockType=adLockOptimistic

rst.CursorType=adOpenKeyset

rst.Opensql

Setexesql=rst

Setrst=Nothing

Setconn=Nothing

EndFunction

公有函数亦定义在标准模块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

字段名

主键

数据类型

长度

必填

默认值

CHECK约束

说明

username

√

char

8

√

用户名

password

char

5

√

密码

jibie

int

2

√

1

等级

2.2.2

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,，核心程序如下：

验证操作员及密码

DimsqlAsString

sql=select*fromyonghuwhereusername=+Combo1.Text+andpassword=+Text2.Text+

Setrs=exesql(sql)

Ifrs.RecordCount0Then

Loadmain

main.Show

username=Combo1

UnloadMe

ElseIfTIM=3Then密码输错3次，退出系统

myval=MsgBox(密码输入错误,请向系统管理员查询!,0,)

Ifmyval=vbOKThenEnd

Else

MsgBox输入错误，你还有3-TIM次机会

TIM=TIM+1

EndIf

3、支持键盘操作，例TEXT2文本框中支持方向键代码如下：

PrivateSubtext2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

IfKeyCode=vbKeyReturnThenCmdOk.SetFocus按回车键CmdOk获得焦点

IfKeyCode=vbKeyUpThenCombo1.SetFocus

IfKeyCode=vbKeyDownThenCmdOk.SetFocus

EndSub

4、密码框中输入任何字符以制定字符显示（例“*”），应设置其passwordchar属性的值即可。

2.3.2学生信息管理模块(窗体名:main)

图2-3学生信息管理界面(窗体名:main)

关键技术：

1、采用a