各位大大，谁能告诉我登陆窗体代码
网上好多代码都是连到数据库里的。我换个界面就不可以用了……

哪位大大救命啊……

其實是一樣的,別人是判斷輸入的數據與數據庫的數據是否一致,你只要把判斷你輸入的數據和判斷條件就可以了

登陆窗体有两种:一种是与数据库连接,从数据库中获取数据的方式.
另一种是直接给予指定的用户名.
('此种登录界面为单击事件
if text1.text="xiexie" and text2.text="meili" then
msgbox"登录成功!"
else
msgbox"登录失败?"
end if
)

有点不全面

有没有连接到数据库的代码…
我就是这个搞不懂

我已经发过N次了..
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset

Private Sub CmdOK_Click()
Dim ConStr As String
If TxtUserName.Text = "" Then
MsgBox "請輸入用戶名!", vbOKOnly + vbExclamation, "登錄"
TxtUserName.SetFocus
Exit Sub
End If
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\StuAcc.Mdb"
cn.Open ConStr
cn.CursorLocation = adUseServer
rs.Open "Select * From User_Property", cn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
If TxtUserName.Text <> "" Then
Set rs1 = New ADODB.Recordset
rs1.Open "Select * From User_Property Where User_Name= '" & TxtUserName.Text & "'", cn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
If TxtPassWord.Text <> "" Then
If rs.Fields("User_Name") = TxtUserName.Text And rs.Fields("User_password") = TxtPassWord.Text And rs.Fields("User_Popedom") = Cbop.Text Then
FrmMain.Show
rs1.Close
Unload Me
Else
If rs1.Fields("User_password") <> TxtPassWord.Text Then
MsgBox "密碼錯誤,請與管理員聯系!", vbCritical + vbOKOnly, "密碼錯誤"
TxtPassWord.SetFocus
TxtPassWord.SelStart = 0
TxtPassWord.SelLength = Len(TxtPassWord.Text)
Exit Sub
Else
If rs1.Fields("User_Popedom") <> Cbop.Text Then
MsgBox "權限錯誤,請與管理員聯系!", vbOKOnly + vbCritical, "權限錯誤"
Cbop.SetFocus
Exit Sub
End If
End If
End If
Else
MsgBox "請輸入密碼!", vbOKOnly, "登錄"
TxtPassWord.SetFocus
Exit Sub
End If
Else
MsgBox "沒有該用戶,請與管理員聯系!", vbOKCancel + vbExclamation, "登錄"
Exit Sub
End If
End If
Else
MsgBox "沒有用戶信息,請確定!", vbExclamation + vbOKCancel, "登錄"
TxtUserName.SetFocus
Exit Sub
End If
rs.Close
End Sub

Private Sub CmdCancle_Click()
Unload Me
End Sub

Private Sub Form_Load()
Move Screen.Width / 2 - Width / 2, Screen.Height / 2 - Height / 2
Cbop.AddItem "管理員"
Cbop.AddItem "普通操作員"
Dim MyConStr As String
Dim UserCount As Integer
Dim Mycn As New ADODB.Connection
Dim Myrs As New ADODB.Recordset
MyConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\StuAcc.mdb"
Mycn.Open MyConStr
Mycn.CursorLocation = adUseClient
Myrs.Open "Select * From User_Property", Mycn, adOpenKeyset, adLockPessimistic
If Myrs.RecordCount <= 0 Then
UserCount = MsgBox("沒有用戶,請先注冊!", vbYesNo + vbExclamation, "登錄")
If UserCount = vbYes Then FrmAddUser.Show
Myrs.Close
Mycn.Close
Set Myrs = Nothing
Set Mycn = Nothing
Unload Me
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set cn = Nothing
End Sub