Private Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() Dim Mima Mima = Trim(Text2.Text) rs.Open "select USERNAME,PWD from Admin where USERNAME='" & Trim(Text1.Text) & "' And PWD='" & MD5(Mima) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText If rs.EOF = True And rs.BOF Then Beep MsgBox "请重新登录" Text1.Text = "" Text1.SetFocus Else Form1.Hide End If rs.CloseEnd SubPrivate Sub Form_Load() login.Caption = "登陆窗口" login.Top = (Screen.Height - login.Height) / 2 login.Left = (Screen.Width - login.Width) / 2 '窗口居中 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.ConnectionString = "Driver={sql server};server=WANGXINFEI;uid=sa;pwd=;database=library" conn.ConnectionTimeout = 30 conn.Open '连接数据库 Label1.Caption = "用户名：" Label2.Caption = "密码：" Text1.Text = "" Text2.Text = "" cmdOK.Caption = "确定" cmdCancel.Caption = "取消"End Sub刚刚学习vb 谢谢您！！ 字串2
网友解答：首先你没有MD5加密子程序，所以你调用MD5（TEXT2.TEXT)肯定会提求“过程未定义”另外，你要问别人错在哪里，最好请把你遇到的错误提求一并贴出来，不然我相信没有多少人会一句句读你的程序再看看哪里会出错的！ 字串1
网友解答：還有,沒分的貼也太不道義了.....