窗体的构成及窗体的基本操作?

发布网友发布时间：2022-04-26 07:54

共1个回答

热心网友时间：2022-06-25 12:55

1. 需要建一个用户表，表中要有用户名和密码字段，只建一个用户表就可以；

2. 登陆按钮的单击事件代码：

Private Sub 登陆_Click()
    if isnull(me.用户名) or isnull(me.密码) then
        msgbox "请输入正确的用户名和密码！"
    elseif isnull(DLookup("用户名","用户表","用户名='" & me.用户名 & "'")) then
        msgbox "用户名不存在！"
    elseif DLookup("密码","用户表","用户名='" & me.用户名 & "'")=me.密码 then
        docmd.openform 个人信息窗体
        docmd.Close acForm,me.name
    else
        msgbox "密码错误！"
    end if
end sub

3. 重置按钮的点击事件代码：

Private Sub 重置_Click()
    me.用户名=null
    me.密码=null
    me.用户名.SetFocus
end sub

祝你成功！