北方民族大学学士学位论文
（9）公告信息表：用于存放公告信息，如表3.9所示。
表3.9 公告信息表(Tb_order)
列名 公告编号 公告名称 公告内容 时间 数据类型 nchar(10) nchar(10) ntext datatime 数据长度 10 10 可变 8 4 允许空值 否 是 是 是 是 是否主键 是 否 否 否 否 备注 0为不显示 123分别表示显示顺序 显示及排序 int
第 19 页 共 54 页
基于SQL的小型实验室管理系统设计
第4章 实验室管理系统的详细设计
4.1 用户登录模块设计
（1）功能：
判断当前登录用户账号密码是否正确，若账号或者密码错误则弹出提示“信息框提示用户账号或密码错误”。若账号密码信息正确，则判断当前登录账号的类型，若为学生则进入学生页面，若为教师则登陆则进入教室页面，若为管理员则进入管理员页面。 （2）界面设计：
添加Form_login窗体为登录窗体，并设置其style属性为1，添加Image_login控件对窗体登陆窗体美化，添加Label_zh控件作为输入框提示信息，添加TextBox_mm控件作为输入框，添加CommandButton_dl控件确认登陆按钮，添加CommandButton_qx控件作为取消按钮。登陆界面如图4.1所示。
第 20 页 共 54 页
北方民族大学学士学位论文
图4.1 登录界面
（3）功能流程如图4.2所示。
开始输入用账号和密码判断账号密码是否正确YN错误提示N是否为学生N是否为教师YY是否为管理员Y学生界面教师界面管理员界面 图4.2 登陆流程图
(4)主要实现代码：
'点击登陆后验证输入账号和密码 Private Sub Command_dl_Click()
第 21 页 共 54 页
基于SQL的小型实验室管理系统设计
Dim tapy As Integer '未输入账号提示
If Text1.Text = \
MsgBox \请输入账号\提示\ Else
'打开连接数据库dbserver中用户表Tb_user
con.Open \Security Info=True;User ID=sa;Initial Catalog=dbserver;Data Source=THUNISOF-110C31\
rec.Open \学号='\密码 ='\
'账号密码验证
If rec.RecordCount > 0 Then '验证通过，根据用户类型选择调用的窗口 tapy = rec.Fields(\用户类型\ Select Case tapy Case Is = 1
form_stu.Show Case Is = 2
Form_tuc.Show Case Is = 3
Form_adm.Show End Select
Else: MsgBox \密码或者账号错误\提示\
End If '记录当前登陆用户 rec.Close con.Close
Unload Form_login
'显示管理员窗口界面 '显示教师窗口界面 '显示学生窗口界面
第 22 页 共 54 页
