用vba编写用户登陆的问题

[Freeeeee]

我是初学者..

想问一下在用户登陆时,检验用户信息的代码应该是怎样的

[aohan]

'我在一个EXCEL中写的登录界面
Private Sub CommandButton1_Click()
ORGS = 1
'ORG1.Caption

Typeuser = 0
'b = Asc("A")
If ListOrg.ListIndex > 0 Then
ORGS = ListOrg.ListIndex + 1
End If
UsName = username.Value
Set Reco = New ADODB.Recordset
'Set Con = New ADODB.Connection
'Con.Open Conn
Reco.ActiveConnection = Conn
Reco.Source = "select * from at_useraccount where username='" & UsName & "' and ORg=" & ORGS
Reco.Open
If Reco.EOF Then
MsgBox "没有此用户"
Reco.Close
Exit Sub

Else
If Reco("menureport") = True Then

If Trim(Reco("password")) <> password.Value Then
MsgBox "密码错误"
Reco.Close
Exit Sub
End If
Else
MsgBox ("无权使用")
Reco.Close

End
End If
End If

Typeuser = Reco("userid")
Reco.Close

Unload Me
ReportType.Show


End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
proc1.Visible = xlSheetVeryHidden
proc1.Range("a1") = Trim(server1.Text)
proc1.Range("b1") = Trim(user1.Text)
proc1.Range("c1") = Trim(pass1.Text)
proc1.Range("d1") = Trim(database.Text)
ThisWorkbook.Save
End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_Initialize()
server1.Text = proc1.Range("a1").Value
user1.Text = proc1.Range("b1").Value
pass1.Text = proc1.Range("c1").Value
database.Text = proc1.Range("d1").Value
Conn = "DRIVER={SQL Server};server=" & server1.Text & ";uid=" & user1.Text & ";pwd=" & pass1.Text & ";database=" & database.Text


username.SetFocus
End Sub

[Freeeeee]

可能是我表述的有问题..我是想问一下.在access中,我建立了登陆窗口..我应该怎样效验用户的信息.
我想这个问题应该比你那个还要简单些吧~~~

谢谢!我是初学者有些东西真还是不晓得~~~