用access做一个数据库，用户登录界面，不同用户权限不同，应该怎么设置

问答 › 用access做一个数据库，用户登录界面，不同用户权限不同，应该怎么设置

0 赞一个踩一下

王利头管理员 asked 9 月 ago

3 个回答

0 赞一个踩一下

Mark Owen 管理员 answered 9 月 ago

前言

在 Access 中构建一个带有用户登录界面的数据库，并为不同用户分配不同的权限，可以提高数据的安全性并简化用户管理。以下是我创建这种数据库的步骤：

1. 创建一个新数据库

首先，打开 Microsoft Access 并创建一个新数据库。将其命名为 “权限差异化用户数据库”。

2. 创建用户表

接下来，创建一张名为 “用户” 的表。这将存储有关每个用户的信息，包括他们的用户名、密码和权限级别。

添加以下字段：
- 用户 ID（主键）
- 用户名
- 密码
- 权限级别（文本字段，例如 “管理员” 或 “用户”）

3. 创建登录表单

现在，创建一个登录表单。这将允许用户输入他们的凭据并登录数据库。

创建一个新表单，将其命名为 “登录”。
添加以下控件：
- 文本框：用于输入用户名和密码
- 命令按钮：用于提交登录信息

4. 验证用户凭据

下一步是验证用户凭据。这将确保只有授权用户才能访问数据库。

双击登录表单上的命令按钮，将打开代码视图。
在 “事件” 下拉列表中选择 “点击”。
粘贴以下代码：

“`
Private Sub cmdLogin_Click()
Dim strUsername As String
Dim strPassword As String
Dim rsUsers As DAO.Recordset

' 获取用户输入的用户名和密码
strUsername = Me.txtUsername.Value
strPassword = Me.txtPassword.Value
' 使用 DAO.Recordset 查询用户表
Set rsUsers = CurrentDb.OpenRecordset("SELECT * FROM Users WHERE Username = '" & strUsername & "' AND Password = '" & strPassword & "'")
' 如果查询结果集不为空，则登录成功
If Not rsUsers.EOF Then
    MsgBox "登录成功！"
    ' 根据用户权限级别打开相应窗体
    If rsUsers("权限级别") = "管理员" Then
        DoCmd.OpenForm "管理员窗体"
    Else
        DoCmd.OpenForm "用户窗体"
    End If
Else
    MsgBox "无效的用户名或密码！"
End If

End Sub
“`

5. 创建差异化权限窗体

最后，我们需要创建不同权限级别的窗体。这将允许不同用户查看和编辑不同的数据。

管理员窗体：此窗体将允许管理员查看和编辑所有用户、表和查询。
用户窗体：此窗体将仅允许用户查看和编辑自己的记录。

6. 限制对 Form 和 Report 的访问

为了进一步限制对窗体和报表的访问，您可以在 “导航窗格” 中右键单击每个对象并选择 “属性”。在 “属性表” 中，在 “安全” 选项卡下，您可以配置每个对象的访问权限。

总结

通过遵循这些步骤，您可以创建一个安全且易于管理的 Access 数据库，其中不同用户具有不同的权限级别。这种方法有助于保护敏感数据并确保只有授权用户才能访问所需的信息。

0 赞一个踩一下

seoer788 管理员 answered 9 月 ago

当需要创建具有不同用户权限的数据库时，Microsoft Access 提供了强大的工具来实现。为了构建一个安全的登录界面并设置不同的用户权限，请按照以下步骤操作：

1. 创建用户表

在 Access 中，创建一个名为 “Users” 的新表。
添加以下字段：
- 用户名：文本字段（主键）
- 密码：文本字段
- 用户类型：文本字段（例如 “Admin” 或 “User”）

2. 创建登录窗体

创建一个新窗体，将其命名为 “frmLogin”。
在窗体中添加以下控件：
- 用户名文本框
- 密码文本框（设置其属性为 “已加密”）
- 登录按钮

3. 编写登录事件过程

在 “frmLogin” 窗体的 “登录” 按钮上，编写以下事件过程：
“`
Private Sub btnLogin_Click()
Dim strUsername As String
Dim strPassword As String
Dim strUserType As String

strUsername = Me.txtUsername.Value
strPassword = Me.txtPassword.Value

‘ 验证用户名和密码
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(“SELECT * FROM Users WHERE Username = ‘” & strUsername & “‘ AND Password = ‘” & strPassword & “‘”)

If rs.EOF Then
MsgBox “用户名或密码不正确。”
Else
strUserType = rs!UserType
```
' 根据用户类型打开不同的窗体
If strUserType = "Admin" Then
    DoCmd.OpenForm "frmAdmin"
ElseIf strUserType = "User" Then
    DoCmd.OpenForm "frmUser"
Else
    MsgBox "无权访问此数据库。"
End If
```
End If

rs.Close
Set rs = Nothing
End Sub
“`

4. 创建不同的用户表单

为不同的用户类型创建不同的窗体，例如 “frmAdmin” 和 “frmUser”。
在这些窗体中，添加特定于每种用户类型的控件和功能。例如，管理员窗体可以包含管理用户和数据库设置的功能，而用户窗体可以包含查看和编辑记录的功能。

5. 设置用户权限

在 Access 中，转到 “数据库工具” 选项卡。
在 “安全” 组中，单击 “用户和组”。
创建新用户，并为其分配适当的权限级别（例如 “管理员” 或 “只读”）。
将用户与他们的用户类型相关联，如在 “Users” 表中定义的那样。

6. 测试登录界面

使用不同的用户名和密码测试登录界面。
验证具有不同权限的用户是否可以访问适当的窗体和功能。
验证未经授权的用户无法访问受限区域。

通过遵循这些步骤，你可以使用 Microsoft Access 构建一个安全的登录界面，为不同用户提供不同的权限。这有助于确保数据的保密性和完整性，同时允许用户根据其职责访问必要的信息。

0 赞一个踩一下

ismydata 管理员 answered 9 月 ago

在 Access 中创建具有不同用户权限的登录界面是一个相对简单的过程，但需要仔细计划和实施。以下是如何逐步完成：

1. 创建用户组

首先，我们需要创建不同的用户组，每个组将有自己的权限集。在 Access 中，通过转到“管理”选项卡并单击“安全性”组中的“用户和组”来执行此操作。

单击“添加”按钮创建一个新用户组，输入一个有意义的名称和描述。对需要创建的所有用户组重复此过程。

2. 设置用户权限

接下来，我们需要设置每个用户组的权限。选择一个用户组并单击“权限”选项卡。在此选项卡上，可以分配以下权限：

读取数据：允许用户查看数据库中的数据
写入数据：允许用户在数据库中创建和修改数据
删除数据：允许用户从数据库中删除数据
创建表：允许用户创建新表
修改表结构：允许用户更改表结构
删除表：允许用户删除表

为每个用户组选择适当的权限。

3. 创建用户帐户

现在，我们需要创建用户帐户并将其分配给不同的用户组。转到“用户和组”对话框，单击“添加”按钮以创建一个新用户。输入用户名和密码，然后从下拉菜单中选择用户组。对需要创建的所有用户重复此过程。

4. 创建登录界面

最后，我们需要创建登录界面，用户可以在其中输入其凭据以访问数据库。在 Access 中，可以使用窗体来创建登录界面。

创建新窗体并添加文本框以输入用户名和密码。还添加一个按钮以提交凭据。在按钮的单击事件中，可以使用 DLookup 函数检查用户名和密码是否与用户表中的记录匹配。如果匹配，则授予用户访问数据库的权限。否则，显示错误消息。

示例代码：

“`vba
Private Sub btnLogin_Click()
Dim strUsername As String
Dim strPassword As String
Dim intGroupID As Integer

strUsername = Me.txtUsername.Value
strPassword = Me.txtPassword.Value
If IsNull(DLookup("GroupID", "Users", "Username = '" & strUsername & "' AND Password = '" & strPassword & "'")) Then
    MsgBox "Invalid username or password."
Else
    intGroupID = DLookup("GroupID", "Users", "Username = '" & strUsername & "' AND Password = '" & strPassword & "'")
    CurrentUserGroupID = intGroupID
    DoCmd.OpenForm "frmMain"
End If

End Sub
“`

结论

按照这些步骤，可以在 Access 中创建一个具有不同用户权限的登录界面。这允许您控制谁可以访问数据库中的数据和执行哪些操作，从而提高安全性并保护敏感信息。