计算机毕业设计关键代码介绍:
4.3系统关键代码
1.系统登陆功能的实现
用户在进入功能界面之前,必须进入用户的登录,用户输入用户名和密码,经过数据库的信息检验,确认后身份后进入功能界面。如输入信息错误,会弹出提示框,以实现用户的合法登陆。
此验证过程的具体的代码实现方法如下:
Private Sub btn添加_Click()
'判断当前的用户和密码是不是正确
Dim tmprs As New ADODB.Recordset
Set tmprs = ExecSql("select * from Gly where mc='" & Trim(Me.Text3(0).Text) & "' and mm='" & Trim(Me.Text3(1).Text) & "'")
If tmprs.RecordCount <= 0 Then
MsgBox "用户或密码错误,不能使用系统,请重新输入!"
Exit Sub
End If
Unload Me
frmMain.Show
End Sub
Private Sub Form_Resize()
'动态改变窗体的布局和标题
Call FormFace(Me, TopPicture, KKShape)
Me.KKShape.Width = Me.Width - 360
Call TopCaption(Me.TopPicture, Label2.Caption)
End Sub
Private Sub UserControl11_Click()
'结束程序
End
End Sub
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第11页为计算机毕业论文关键代码介绍2......