Access登陆窗体设计

Question

在Access里已经做好了登陆窗体界面，退出按钮运行正常，但是确定按钮没有用，应该怎么做一个能实现交互的登陆界面？谢谢，是否要用代码自定义按钮？如何自定义？

Answer 1

1.点击表集合，打开表的集合，这里你可以看到所有的表的清单。

2.在这个表集合中，选择一个表作为窗体的数据源，右键单击这个表，在弹出的右键菜单中，选择打开。

3.接着在菜单栏中，点击创建选项。

4.在创建选项中，点击【窗体】。

5.会看到，在界面中打开了一个窗体的设计视图，这就是建立的窗体，你可以看到这种方法创建窗体非常的简单，不过你还有一些后续的步骤。

6.点击菜单栏左上方的保存按钮。

7.弹出一个另存为的对话框，在这里要输入名称，然后点击确定即可，这样自动创建的窗体就可以了。

Answer 2

Private Sub OK_GotFocus()
Dim str As String
Dim rs As New ADODB.Recordset
logname = Trim(Me.UserName) '将两头空格全部去除
pwd = Trim(Me.PassWord) '将两头空格全部去除
If IsNull(logname) Then
DoCmd.Beep
MsgBox "请输入用户名称！", vbOKOnly, "提示信息"
Me.UserName.SetFocus
ElseIf IsNull(pwd) Then
DoCmd.Beep
MsgBox "请输入登录口令！", vbOKOnly, "提示信息"
Me.PassWord.SetFocus
Else
str = "Select * From Admin Where UserName= '" & logname & "' And PassWord='" & pwd & "'"
Set rs = GetRS(str)
If rs.EOF Then '未检索到当前记录则提示错误
DoCmd.Beep
MsgBox "用户名称或登录口令有误,请输入正确的用户名称和登录口令！", vbOKOnly, "提示信息"
Me.UserName.SetFocus
Else '正确登录后隐藏登录窗口
check = True
Me.Visible = False
DoCmd.OpenForm "欢迎", acNormal, , , , acDialog
End If
End If
Set rs = Nothing
Set conn = Nothing
End Sub本回答被提问者采纳

Answer 3

Access 中的窗体是一种数据库对象，可用于创建数据库应用程序的用户界面。“绑定”窗体直接连接到表或查询之类的数据源，可用于输入、编辑或显示来自该数据源的数据。或者也可以创建“未绑定”窗体。