vb制作登陆界面.doc

《vb制作登陆界面.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、体验用vb制作登陆界面的美感（程序源代码）先建一个模块在里面输入下列内容：PublicconnAsADODB.ConnectionSubmain()    Setconn=NewADODB.Connection    conn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;"_    +"UserID=sa;password=sa;InitialCatalog=您的数据库名;DataSource=127.0.0.1"  

2、  conn.Openfrom1.Show    ’登录界面EndSub再在登录界面“确定”下写入如下代码：PrivateSubCommand1_Click()    Ifid.Text=""Then        MsgBox"用户名不能为空！",vbOKOnly+vbInformation,"友情提示"        id.SetFocus        ExitSub    EndIf    Ifpassword.Text=""Then        MsgBox"密码不能为空！",vbOKOn

3、ly+vbInformation,"友情提示"        password.SetFocus        ExitSub    EndIf    DimstrSQlAsString    strSQl="select*fromUserswhereusers_name='"&Trim$(id.Text)&"'andpassword='"&Trim$(password.Text)&"'"        DimstrAsNewADODB.Recordset    Setstr=NewADODB.Rec

4、ordset    str.CursorLocation=adUseClient    str.OpenstrSQl,conn,adOpenStatic,adLockReadOnly        Withstr        If.State=adStateOpenThen.Close        .OpenstrSQl        If.EOFThen            Try_times=Try_times+1            IfTry_times>=3Then         

5、       MsgBox"您已经三次尝试进入本系统，均不成功，系统将自动关闭",vbOKOnly+vbCritical,"警告"                UnloadMe            Else                MsgBox"对不起，用户名不存在或密码错误！",vbOKOnly+vbQuestion,"警告"                id.SetFocus                id.Text=""                password.Text=

6、""            EndIf        Else                        UnloadMe                      Form2.Show    ’登录进入的另一个界面                    EndIf    EndWithEndSub