Question

我是一个VB菜鸟，找人做了一个VB的酒店客房管理系统，但是没有编写用户登陆界面，哪位能帮帮我，

还有一个问题，编好的程序用的是ACCESS，能不能改成SQL的，当然前提是不影响程序运行。如能相助，我将把我的所有积分都送给您！
我的QQ是408798482，欢迎大侠在线帮我，剩余的130积分必当全部赠予！

Answer 1

Private Sub cmdCancle_Click()
Unload Me
End Sub

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) = "" Then
MsgBox "用户名不能为空，请重新输入！"
text1.SetFocus
Else
sql = "select * from 用户表 where user_ID='" & Trim(text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""
text1.Text = ""
text1.SetFocus
Else
username = text1.Text
If Trim(rs_login.Fields(1)) = Trim(text2.Text) Then

Unload Me
图书馆理系统.Show
Else
MsgBox "密码不正确,请重输入！", vbOKOnly + vbExclamation, ""
text2.SetFocus
text2.Text = ""
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
End Sub

Private Sub Form_Load()
cnt = 0

End Sub

这是vb+sql的用户登陆代码

Answer 2

数据库换了~
当然要改的代码也不少