:大数据实习报告

　　OA = True

　　Else

　　SA = True End If

　　frmmdi.Show Unload Me Else

　　MsgBox "密码或管-理-员类别错误，请重新输入", vbExclamation,

　　读者管理信息界面代码：

　　Private Sub CmdAdd_Click() Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdCancel.Enabled = True MsgBox "添加读者信息成功" End Sub

　　Private Sub CmdCancel_Click() Adodc1.Refresh

　　CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdCancel.Enabled = False End Sub

　　Private Sub CmdDel_Click() X = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion) If X = vbYes Then