vb制作登陆界面(共2页).doc

《vb制作登陆界面(共2页).doc》由会员分享，可在线阅读，更多相关《vb制作登陆界面(共2页).doc（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上体验用vb制作登陆界面的美感（程序源代码）先建一个模块在里面输入下列内容：Public conn As ADODB.ConnectionSub main()Set conn = New ADODB.Connection conn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False; _ + User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1conn.Openfrom1.Show 登录界面End Sub再在

2、登录界面“确定”下写入如下代码：Private Sub Command1_Click() If id.Text = ThenMsgBox 用户名不能为空！, vbOKOnly + vbInformation, 友情提示id.SetFocusExit SubEnd IfIf password.Text = ThenMsgBox 密码不能为空！, vbOKOnly + vbInformation, 友情提示password.SetFocusExit SubEnd IfDim strSQl As StringstrSQl = select * from Users where users_name=

3、 & Trim$(id.Text) & and password= & Trim$(password.Text) & Dim str As New ADODB.RecordsetSet str = New ADODB.Recordsetstr.CursorLocation = adUseClientstr.Open strSQl, conn, adOpenStatic, adLockReadOnlyWith strIf .State = adStateOpen Then .Close.Open strSQlIf .EOF ThenTry_times = Try_times + 1If Try_times = 3 ThenMsgBox 您已经三次尝试进入本系统，均不成功，系统将自动关闭, vbOKOnly + vbCritical, 警告Unload MeElseMsgBox 对不起，用户名不存在或密码错误 ！, vbOKOnly + vbQuestion, 警告id.SetFocusid.Text = password.Text = End IfElseUnload MeForm2.Show登录进入的另一个界面End IfEnd WithEnd Sub专心-专注-专业