上海946路:VB登陆界面问题

Dim constr As String
constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=lzx"
cnn.Open constr

Private Sub Command1_Click()
Dim sql As String
Dim rst As New ADODB.Recordset
If n = 3 Then
Unload Me
Else
sql = "select * from mima where username='" + Me.Combo1.Text + "'and password='" + Text2.Text + "'"
rst.Open sql, cnn, adOpenKeyset, adLockReadOnly
If rst.RecordCount > 0 Then '数据库中查没查到这个用户（查询到的次数）
qwe = rst.Fields(2)
Frmain.Show
username = Me.Combo1.Text
Unload Me
Else
MsgBox "您的用户名或密码有误，请核对后重新输入", 0, "警告"
Combo1.SetFocus
n = n + 1
End If
End If

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim sql As String
Dim i As Integer
Dim rst As New ADODB.Recordset
sql = "select username from mima"
rst.Open sql, cnn, adOpenKeyset, adLockReadOnly
For i = 0 To rst.RecordCount - 1
Me.Combo1.AddItem rst.Fields(0)
rst.MoveNext
Next
End Sub

Private Sub Form_Resize()
Me.Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '按回车自动到command1
Command1_Click
End If
End Sub

Private Sub Text2_LostFocus()
Text2.SelStart = 0 '返回后字为篮
Text2.SelLength = Len(Text2.Text)
End Sub

设置变量
获得用户输入的用户名和密码
然后再将这两个变量送入sql的连接代码中
要用的东西就是一个对话框
或者两个文本框加上一个确认、取消按钮

然后就是变量和字符串操作

不会真要详细代码吧？

就是登陆的时候:
连上SQL数据库,然后写一个SELECT语句就可以了
SELECT * FROM USERS(数据表) WHERE USER=用户名 AND PASSWORD=密码
可以了