一、建立用户表

二、登录

1、登录窗体

2、代码

Private Sub 确定_Click()

If IsNull(Trim(Me.用户名)) Then

MsgBox ("请输入用户名"), vbInformation, "提示"

Me.用户名.SetFocus

Exit Sub

End If

If IsNull(Trim(Me.密码)) Then

MsgBox ("请输入密码"), vbInformation, "提示"

Me.密码.SetFocus

Exit Sub

End If

If Trim(Me.密码) = DLookup("密码", "用户表", "密码='" & Trim(Me.密码) & "'") Then

MsgBox ("欢迎登陆系统")

Dim qx As String

qx = DLookup("用户类型", "用户表", "用户名='" & Trim(Me.用户名) & "'")

Call QXGW(qx)

Else

MsgBox ("你输入的账号或密码不正确，请重新输入")

Me.用户名 = ""

Me.密码 = ""

Exit Sub

End If

End Sub

Private Sub QXGW(i As String)

If i = "管理员" Then

DoCmd.Close acForm, Me.name

DoCmd.OpenForm "主切换面板"

Exit Sub

Else

If i = "收入管理" Then

DoCmd.Close acForm, Me.name

DoCmd.OpenForm "收入管理"

Exit Sub

Else

If i = "支出管理" Then

DoCmd.Close acForm, Me.name

DoCmd.OpenForm "支出管理"

Exit Sub

Else

DoCmd.Close acForm, Me.name

DoCmd.OpenForm "收支查询"

End If

End If

End If

End Sub