密码打开窗体能实现吗？

大漠水手　发表于：2014-02-06 12:57:17 　

我想在带有用户名和密码的窗体上实现输入管理员用户名和密码后进入access界面（主要用于修改程序），这个能实现吗？我的代码如下，请高手帮忙解决一下，看看能在代码上加上这个功能。

代码如下：

Private Sub btnContinue_Click()
On Error GoTo Err_btnContinue_Click

'EMPLOYEE LOGIN
'VERIFY THAT AN EMPLOYEE HAS BEEN SELECTED
If IsNull(Me.cmbEmployee) Then
MsgBox "你必须选择一个用户名."
Me.cmbEmployee.SetFocus
Exit Sub
End If
'VERIFY THAT A PASSWORD HAS BEEN ENTERED
If IsNull(Me.txtPassword) Then
MsgBox "你必须键入密码."
Me.txtPassword.SetFocus
Exit Sub
End If
'VALIDATE PASSWORD
If Me.txtPassword = Me.cmbEmployee.Column(2) Then
'Save UserID to global variable for further use
UserID = Me.cmbEmployee
DoCmd.Close
'Add your next form here
DoCmd.OpenForm "大同市考古研究所信息平台"
DoCmd.SelectObject acForm, , True
Else
'PASSWORD VALIDATION FAILED
MsgBox "密码无效. 请重新输入."
Me.txtPassword.SetFocus
Exit Sub
End If

Exit_btnContinue_Click:
Exit Sub

Err_btnContinue_Click:
MsgBox Err.Description
Resume Exit_btnContinue_Click

End Sub

Top

煮江品茶发表于：2014-02-06 16:08:00

不知所云

Top

大漠水手发表于：2014-02-06 16:16:24

意思是里面加行代码实现

Top

煮江品茶发表于：2014-02-06 16:23:54

实现什么不清楚，为什么非要登录后才能修改程序？有点脱裤子放屁的嫌疑。

Top

大漠水手发表于：2014-02-06 16:48:31

说错i了，应该是维护数据。就是说管理员进入特定的窗体进行数据维护或系统维护，明白了吗？

Top

一启软研发表于：2014-02-06 17:05:31

你想在隐藏数据库窗口的情况下，通过一个窗体打开相关表格或窗体，这个窗体就象是有锁的门吧。我的一个示例，供参考。

Option Compare Database
Dim MyCishu As Integer '登录操作次数
Private strVer As String '字符串变量,当前EXCEL版本号

Private Sub Form_Load()
DoCmd.Maximize
End Sub

Private Sub 取消_Click()
DoCmd.Quit
End Sub

Private Sub 登录_Click()
    On Error GoTo Err_登录_Click
    Dim MyUser As String
    Dim MyPassword As String
    Dim mysql As String
    Dim rs
    MyCishu = 1 + MyCishu
    If MyCishu = 4 Then
        MsgBox "您已经登录过3次，操作被取消。　　　", vbInformation, "一启软件"
        DoCmd.Quit
        Exit Sub
    End If
    If IsNull(Me.用户) Then
        DoCmd.GoToControl "用户"
        MsgBox "请输入用户名。　　　　　　", vbInformation, "一启软件"
        Exit Sub
    End If
    If IsNull(Me.密码) Then
        DoCmd.GoToControl "密码"
        MsgBox "请输入密码。　　　　　　", vbInformation, "一启软件"
        Exit Sub
    End If

    MyUser = RC4(CStr(Me.用户))
    MyPassword = RC4(CStr(Me.密码))
    mysql = "SELECT * FROM admin_access WHERE ID=1"
    Set rs = CurrentDb.OpenRecordset(mysql)

    If rs.用户 = MyUser And rs.密码 = MyPassword Then
        DoCmd.close
        DoCmd.OpenForm "302主界面", acNormal
        Set rs = Nothing
        Exit Sub
    Else
        Me.提示.Caption = "提示：用户名或密码错误！"
        Me.提示.ForeColor = 255
        Me.用户 = ""
        Me.密码 = ""
        DoCmd.GoToControl "用户"
        Set rs = Nothing
        Exit Sub
    End If

Exit_登录_Click:
Exit Sub

Err_登录_Click:
MsgBox Err.Description
Resume Exit_登录_Click

End Sub

Top

在水一方发表于：2014-02-06 21:14:44

按住shift键启动软件就可以了，不需要登录

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

密码打开窗体能实现吗？