:大数据实习报告

　　If Adodc1.Recordset.EOF = True

　　Private Sub m_punish_Click() frmPunishManage.Show End Sub

　　Private Sub m_punish_report_Click() dsrFineManageReport.Show End Sub

　　Private Sub m_reader_Click() frmReaderManage.Show End Sub

　　Private Sub m_readerquery_Click() frmReaderQuery.Show End Sub

　　Private Sub m_rigister_Click() RegisterNewUsers.Show End Sub

　　Private Sub MDIForm_Load() If OA = True Then m_rigister.Enabled = False End Sub

　　Then MsgBox "用户名错误，请重新输入", vbExclamation, "警告" txtUserName.Text = "" txtUserName.SetFocus Else If

　　Trim(Adodc1.Recordset.Fields("密码")) = Trim(txtPassword.Text) And (OrdinaryUser.Value = True Or SuperUser.Value = True) Then

　　If OrdinaryUser.Value = True Then