第一遍机房收费系统（登录窗体）

Private Sub cmdok_Click()
    Dim txtsql As String    '用来存放记录集对象
    Dim mrc As adodb.Recordset     '用来存放返回信息
    Dim mrc1 As adodb.Recordset
    Dim mrc2 As adodb.Recordset
    Dim msgtext As String
    
       '查询指定用户名的记录
    txtsql = "select * from user_info where userid ='" & txtusername.Text & "'"
      '执行查询语句
    Set mrc = ExecuteSQL(txtsql, msgtext)
    If txtusername.Text = "" Then
         MsgBox "请输入用户名！", vbOKOnly + vbExclamation, "警告"
         txtusername.SetFocus
         
      		 ElseIf txtpassword.Text = "" Then           '如果为空
                MsgBox "请输入密码！", vbOKOnly + vbExclamation, "警告"
                txtpassword.SetFocus              'TXTpassword获得焦点
                ElseIf mrc.EOF Then              '如果没有返回值
                 MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
                 txtusername.SetFocus
        '判断密码是否正确
                        ElseIf Trim(mrc.Fields(1)) = Trim(txtpassword.Text) Then
                        username = txtusername.Text
                               ok = True
                               Me.Hide
                              ' frmmain.Show
                             '添加工作记录
                              txtsql = "select * from onwork_info "
                              Set mrc1 = ExecuteSQL(txtsql, msgtext)
                                mrc1.AddNew
                                mrc1.Fields(0) = txtusername.Text
                                mrc1.Fields(1) = mrc.Fields(2)
                                mrc1.Fields(2) = Date
                                mrc1.Fields(3) = Time
                                mrc1.Fields(4) = VBA.Environ("computername")
                                mrc1.Update
                                 
                            '把信息写入worklog表
                              txtsql = "select * from worklog_Info "
                             Set mrc2 = ExecuteSQL(txtsql, msgtext)
                             mrc2.AddNew
                             mrc2.Fields(1) = Trim(txtusername.Text)
                             mrc2.Fields(2) = Trim(mrc1.Fields(1))
                             mrc2.Fields(3) = Trim(mrc1.Fields(2))
                             mrc2.Fields(4) = Trim(mrc1.Fields(3))
                             mrc2.Fields(7) = VBA.Environ("computername")
                             mrc2.Fields(8) = "True"
                             mrc2.Update
                             mrc2.Close
                             mrc.Close
                             mrc1.Close
                        Else                               '密码输入三次自动退出
                           MsgBox "输入的密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                           txtpassword.SetFocus
                           txtpassword.Text = ""
                           micount = micount + 1
                            If micount = 3 Then
                                MsgBox "您已输入三次，请重新登陆！", 48, "警告"
                                Unload Me
                            End
                Exit Sub
            End If
        End If
    End Sub