转子泵系统登录模块

2014/10/11 11:54:10      点击:
任何一种软件应用系统的登录界面都是必不可少的,一般都要使用登录程序来验证登录系统的用户是否是注册过的合法用户,只有应用系统允许的合法用户才能使用系统,这样能够保证应用系统的安全性。本系统启动后也将首先进入登录界面,通过用户名和密码验证后可以进入系统使用,本系统用户名或是密码输入错误出现三次将自动退出系统。系统登录登陆界面如图5.8所示。
1登录模块技术分析
凸轮转子泵登录系统的原理是将输入文本框中的用户名与密码同数据库中存储的用户名与密码进行比较,只有密码和用户名全部输入正确才能进入系统,如果输入不对出现次数达到三次系统将弹出消息提示框并退出系统,如图所示。
消息提示框


能够实现输入出错次数计数的关键是设计一个模块内的全局变量,在登录窗体加载时给它赋出值为零,每次点击进入系统的确定按钮时,这个变量将自动加1,经过判断当这个变量的值为3时,触发退出系统命令退出系统。

2转子泵系统登录模块窗体设计
为了让登录窗体美观简明,在窗体设计时添加PictureBox控件,通过LoadPicture方法在程序中编写代码将图片加载到窗体中当做窗体背景。
在程序中要调用数据库用户信息,要使用到ADO控件连接数据库,但ADO属于ActiveX控件,使用前应先将它加载到工具箱中,添加的方法是:在菜单栏中选择“工程"|‘‘引用”命令,打开“引用"对话框,在“可用的引用”列表中选择Microsoft ActiveX Data Objecst2.5 Library选项,单击确定按钮,此时ADODC控件将添加在工具箱中。
在窗体中添加一个Combol控件和TextBox控件,Combol控件为下来列表框,可用来存放一些用户者的用户名,TextBox文本框用来输出密码,它们分别放在“用户名"和“密码"后面。
添加两个Command控件,分别把它们的Caption属性设置为“确定”和“退出",这两个控件是用来触发进入系统程序事件和退出程序事件。
3转子泵系统登录模块代码设计
在输入用户名和密码后点击退出按钮,系统将执行End命令退出系统。点击确定按钮后系统首先把用户名和数据库中的数据进行对比判断用户名是否存在,不存在或输入错误要求重新输入,如果用户存在将判断密码是否正确,如果密码正确则进入系统,错误输入三次系统将关闭退出。主要代码如下:
Dim tim—n As Integer ‘定义计数变量
Private Sub Commandl Oick0 ’触发确定按钮事件
IfComb01.Text=”Or Txtmima.Text=”Then鼍要求用户名和密码不能为空
MsgBox(”请输入完整的转子泵系统用户名和密码”) ‘提示框
Else
’用户名和密码输入完毕,开始检索数据库
'ADO对象连接数据库
DaKai ’打开数据库函数在公共部分
'SQL语句查找用户名匹配记录
strsql=。select‘的m用户名登陆where用户名=”&Trim(Comb01.Text)&””
l'S.Openstrsql,cnn,3,3 ’打开记录集
Ifrs.EOF Then t记录集为空,没有找到匹配用户名
MsgBox(”无此用户名”)

Comboi.Text=” ‘给下来列表框和文本框设置为空闭系统


////////////////////////////////////////////////////////////
力华转子泵网www.
电话:0575-83539901
传真:0575-83534469




友情链接:    万兴彩票   123彩票开户   彩票登陆app   123彩票投注   四季彩票