- UID
- 231571
- 帖子
- 12783
- 精华
- 0
- 威望
- 97
- 阅读权限
- 100
- 来自
- Ragnarok
- 注册时间
- 2004-10-15
|
24#
发表于 2007-6-28 15:53
| 只看该作者
Dim mrc As ADODB.Recordset
Dim strmsg As String
txtSQL = "select count(*) from userinfo where UID='" & Trim(txtUserName.Text) & "' and PWD='" & Trim(txtPassword.Text) & "'"
mrc = ExecuteSQL(txtSQL, strmsg)
Dim return_count
return_count = mrc.Fields(0)
If return_count = 0 Or return_count = "0" Then
MsgBox(" 用户名不存在或密码错误!", vbExclamation + vbOKOnly, "警告")
End If
OK = True
frmMain.Show()
Unload(Me)
再试下.. 应该没问题的啊.. |
|