ACCESS_VBA_ERP_BH大作业

【实例简介】

【实例截图】

【核心代码】

仅仅是很小的一部分哦↓

Private Sub Command7_Click()

Set data_login = CurrentDb.OpenRecordset("G_用户登录信息", dbOpenDynaset)

If IsNull(Me.account) Or IsNull(Me.pswd) Then
    MsgBox "账户或密码不能为空", vbOKOnly, "提示"
    
    ElseIf DLookup("用户密码", "G_用户登录信息", "用户账号='" & Me.account & "'") = Me.pswd.Value Then
        user = Me.account.Value
        data_login.MoveFirst
        Do While Not data_login.EOF
            data_login.Edit
            data_login.Fields("登录状态").Value = 0
            data_login.Update
            data_login.MoveNext
        Loop '将登录状态全部清零
        data_login.MoveFirst
        Do While data_login.Fields("用户账号").Value <> user
            data_login.MoveNext
        Loop
        data_login.Edit
        data_login.Fields("登录状态").Value = 1
        data_login.Update
        DoCmd.Close acForm, "G_主导航界面"
        DoCmd.OpenForm "G_主导航界面"
        DoCmd.Close acForm, "登录"
        
         Dim rst_info_workshop As ADODB.Recordset
        Set rst_info_workshop = CreateObject("ADODB.Recordset")
        rst_info_workshop.Open Source:="登录记录", ActiveConnection:="东门子电器公司", LockType:=adLockPessimistic
        
        With rst_info_workshop:
        
           .AddNew
           .Fields("用户名").Value = user
           .Fields("登陆时间").Value = Now
           .Update
        End With
        
        rst_info_workshop.Close
        Set rst_info_workshop = Nothing
        
    
    Else
        MsgBox "账户或密码错误", vbOKOnly, "警告"
        Me.account.Value = ""
        Me.pswd.Value = ""
End If
data_login.Close
Set data_login = Nothing
End Sub

【目录】

demo

├── AccessDatabaseEngine_X64.exe
├── READ ME.txt
└── 东门子电器公司.accdb

0 directories, 3 files