求计算机ACCESS高手，帮忙做一个ACCESS实验报告（发到sdlczhc@126.com）

把源文件发给我试试看：
roy.chan@coats.com

Private Sub 登录_Click()
'LogUser是登陆界面的用户名输入框
If IsNull(Me.LogUser) Then
MsgBox "请输入用户名", vbInformation, "提示"
Exit Sub
End If
'LogPwd是登陆界面的密码输入框
If IsNull(Me.LogPwd) Then
MsgBox "请输入密码", vbInformation, "提示"
'没有输入密码则不再执行其它指令。
Exit Sub
End If
'Logon为自定义的子过程，后面有~~
'检查正确后将打开相应的界面。
If Logon = True Then
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "Frm_Main"
Else
’否则退出不再执行其它指令。
MsgBox "用户名或者密码输入有误", vbCritical
Exit Sub
End If
End Sub
'Logon子过程。
Public Function Logon() As Boolean
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
'打开用户表tbl_user中的用户名和密码记录集。
Set rst = dbs.OpenRecordset("select user,pwd from tbl_user where user='" & Me.LogUser & "'and pwd='" & Me.LogPwd & "'")
'如果输入的用户名和密码在记录集里找得到则返回正确值。
If Not rst.EOF Then
If rst.Fields("pwd") = Me.LogPwd Then
Logon = True
End If
End If
End Function

这年代，不赚钱的生意没人愿意，呵呵，除非是有现成的