UC知道求VB登陆界面的代码
来源：百度知道 编辑：UC知道 时间：2024/06/14 07:15:00
我作了一个程序想添加一个登陆界面，数据库是远程ACCESS数据库，是动网8.2论坛程序的的数据库连接地址是“http://www.123.com/123.asp” 密码好像是MD5加密的代码，软件要求Text1.Text为用户名 Text.Text为密码，登陆成功后软件可使用，未登陆成功 软件不可使用 软件的登陆代码放在frame容器中
参考：http://www.heiseanyu.cn/dispbbs.asp?boardid=17&id=122&page=1&star=1
如果能当鄙人的师傅就更求之不得了
参考：http://www.heiseanyu.cn/dispbbs.asp?boardid=17&id=122&page=1&star=1
如果能当鄙人的师傅就更求之不得了
Dim MsgText As String
Public LoginSucceeded As Boolean
Dim kuname As String
Dim kugn As String
Private Sub cmdCancel_Click()
'ÉèÖÃÈ«¾Ö±äÁ¿Îª false
'²»Ìáʾʧ°ÜµÄµÇ¼
LoginSucceeded = False
Unload Me
'Me.Hide
End Sub
Private Sub cmdOK_Click()
txtUserName.SetFocus
If Trim(txtUserName.Text = "") Then
MsgBox "ûÓÐÕâ¸öÓû§£¬ÇëÖØÐÂÊäÈëÓû§Ãû£¡", vbOKOnly + vbExclamation, "¾¯¸æ"
txtUserName.SetFocus
Else
sql = "select * from user where user = &