網(wǎng)站設(shè)計介紹 VB程序設(shè)計,用戶登陸界面代碼?
VB程序設(shè)計,用戶登陸界面代碼?Dim AAA As StringPrivate Sub Command1uclick()Dim AA,bbaa=“admin”“account BB=“Admin88
VB程序設(shè)計,用戶登陸界面代碼?
Dim AAA As StringPrivate Sub Command1uclick()Dim AA,bbaa=“admin”“account BB=“Admin888”“password AAA=Val(AAA)1“記錄登錄次數(shù)如果Val(AAA)>=3則”大于3次,提示并退出程序msgbox“您錯誤地輸入了3次!如果text1=AA和text2=BB結(jié)束,則“如果輸入正確,msgbox”登錄成功Me.Hideform2文件. 顯示“登錄成功后,進(jìn)入form2界面,否則”如果輸入錯誤是msgbox “帳戶或密碼輸入錯誤!“end IfEnd subprivate sub form Load()label1=”歡迎!“末端接頭