序言：

Access是一款强大而灵活的数据库软件，可以设计和开发各种类型和规模的数据库应用程序。本文旨在为您提供从零开始设计Access数据库系统的详细指导，并通过实际案例演示如何在Access中设计和管理数据库。本文特别适合那些对数据库设计理论和概念感到困惑或陌生的读者，因为我们将通过实践来帮助您轻松直观地领悟和理解这些内容。

本文将用一个完整的应用系统，逐步引导您完成一个完整数据库系统的设计，并在每个步骤中给出具体操作方法和注意事项。我们相信，在实践中学习是最有效也最有趣的方式。通过本文指导，您可以更加深入地理解和掌握数据库设计相关知识和技巧，并最终成功地设计出一套高效、稳定和易于使用的系统。

请跟着我们一起动手吧！让我们开始这段轻松、直观而愉悦的学习之旅！

今天，首先给大家讲解系统登录窗口的设计。

一、系统登录窗口

在登录Access系统时，会自动打开一个登录窗口，同时可以加载用户自定义的背景图片。当点击确定按钮时，需要验证用户输入的用户名和密码是否匹配数据库中的记录，用以保障系统和数据的安全，如果验证正确，则打开主窗口，否则便提示用户名或密码错误。

运行效果：

如下图：

• 验证错误：

验证错误

• 验证正确：则打开主窗口

验证正确

实现代码：

Private Sub CommandButton1_Click()‘点击“确定”按钮的事件代码
    '定义变量
    Dim rs As Recordset
    Dim strSQL As String
    '检查用户名和密码是否为空
    If Me.txtUserName = "" Or Me.txtPassword = "" Then
        MsgBox "用户名或密码不能为空!", vbCritical + vbOKOnly, "错误"
        Exit Sub
    End If
    '查询用户名和密码是否匹配
    strSQL = "SELECT * FROM tblUsers WHERE UserName='" & Me.txtUserName & "' AND Password='" & Me.txtPassword & "'"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    '检查记录集是否为空
    If rs.EOF Then
        MsgBox "用户名或密码错误!", vbCritical + vbOKOnly, "错误"
        Exit Sub
    Else
        DoCmd.Close acForm, Me.Name '关闭登录窗口
        DoCmd.OpenForm "frmMain" '打开主窗口
    End If
End Sub
Private Sub Form_Load()
'加载背景图片，可以更改为其他图片路径。
Me.Image1.Picture = Application.CurrentProject.Path & "\background.jpg"
End Sub

这是一个使用VBA在Access中创建登录界面的示例代码。请注意，您需要根据您的数据库和表格进行相应的调整。你可以将上述代码复制并粘贴到登录窗口的代码视图中。你还需要创建一个名为tblUsers的表格，其中包含UserName和Password字段，并添加一些用户记录。此外，你还需要在登录窗口中添加文本框（用于输入用户名和密码）和命令按钮（用于触发上述代码），并将它们分别命名为txtUserName、txtPassword和CommandButton1

希望这对你有所帮助！如果你有其他问题，请随时告诉我。

下一篇将给大家介绍数据备份和数据恢复功能的设计方法。