一般进入系统都要登录(如进入Windows NT),进行身份检验,以保证软件的合法使用和维护,便于明确责任。我们自己开发的系统也必须保证系统使用者是合法用户,登录时要进行身份验证。
---- 系统登录时一般有三次机会,超过则视为非法用户,不让使用系统。本程序是用VB5.0实现的,后台数据库是Access 97。
其主要源程序代码如下:Private Sub cmd_yes_Click()开始检验Picture1.Picture = LoadPicture("trffc10b.ico")times = times + 1解密txt_mm.Text = invert(txt_mm.Text)查找用户名ordc_dlmmk.Recordset.FindFirst"username=" & txt_bh.Text & ""If ordc_dlmmk.Recordset.NoMatch ThenIf times 3 ThenPicture1.Picture = LoadPicture("trffc10c.ico")MsgBox "无此用户,请重新输入!",vbExclamation + vbOKOnly,"提示信息"Pic...[ 查看全文 ]