帮我看下这个登陆界面的代码咯?刚提了，怎么没看到哪>??

来源：百度知道编辑：UC知道时间：2024/06/15 10:09:53

Private Sub cmdOK_Click()

Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"

If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then
MsgBox "用户名或密码不能为空，请重新输入！"
Text2.Text = ""

Text1.SetFocus
Else
sql = "select * from 用户表 where user_ID='" & Trim(Text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If Trim(rs_login.Fields(0)) <> Trim(Text1.Text) Or Trim(rs_login.Fields(1)) <> Trim(Text2.Text) Then

MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""
Text1.Text = ""
Text2.Text = ""

Text1.SetFocus

If Trim(rs_login.Fields(0)) = Trim(Text1.

'一般是这样的
sql = "select * from 用户表 where user_ID='" & Trim(Text1.Text) & "' and userPWD='" & Trim(Text2.Text) & "'" '假定你的密码字段为userPWD
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
if rs_login.EOF then
msgobx "用户名密码错误"
'.......你的其它代码
else
frmMain.Show
Unload Me
endif

'VB.net 现在还不能完全替代VB

把这两条语句的顺序换一下看能否解决
Unload Me
frmMain.Show
换成
frmMain.Show
Unload Me

补充：你用的是VB6.0吧？现在VB2008都出来好久了，你怎么还用这么旧的呢？

你这些语句是进不去的吧
我给你一个
Private Sub cmdOK_Click()

Dim count As Integer
count = 0

If Trim(txtUserName.Text) = "" Then
MsgBox "请输入用户名！", vbOKOnly + 64, "登录"
txtUserName.SetFocus
SendKeys "{Home}+{End}"
Else
If Trim(txtPassword.Text) = "" Then

帮我看下这个登陆界面的代码咯?刚提了，怎么没看到哪>?? 大家帮我看下这个代码！帮我看下这个代码如何修改！帮我看下这个ASP分页代码谁4帮我看下这个asp代码请大家帮我看下这个代码的图片连接是哪里啊？大家帮我看下这个窗体大小设置的代码? 帮我看一下这个FLASH代码的意思！谁帮我看一下这个ASP代码的问题？帮我看下我的提交代码为何不对