图书管理系统VB源代码加设计.docx

图书管理系统VB源代码加设计Option ExplicitDim cont As Integer 记录确定次数Private Sub 登录_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetDim connt As New ADODB.Connectionconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= App.Path \database.mdb If Trim(text1.Text) = ThenMsgBox 用户名不能为空，请重新输入！ text1.SetFocus Elsesql = select * from 用户表 where user_ID= Trim(text1.Text) rs_login.Opensql, connt, adOpenKeyset, adLockPessimistic If rs_login.EOF = True ThenMsgBox 没有这个用户,请重输入！, vbOKOnly + vbExclamation, text1.Text = text1.SetFocus Elseusername = text1.Text If Trim(rs_login.Fields(1)) = Trim(text2.Text) Then Unload Me图书管理系统.Show ElseMsgBox 密码不正确,请重输入！, vbOKOnly + vbExclamation, text2.SetFocus text2.Text = End If End If End Ifcont = cont + 1 If cont = 3 Then Unload Me End IfEnd SubPrivate Sub Form_Load()cont = 0text1.Text = text2.Text = End SubPrivate Sub 取消_Click()Unload MeEnd SubPrivate Sub Command1_Click()Dim rs_addreader As New ADODB.RecordsetDim connt As New ADODB.ConnectionDim sql As StringIf Trim(Combo1.Text) = ThenMsgBox 请选择读者类别, vbOKOnly + vbExclamation, Combo1.SetFocus Exit SubEnd IfIf Trim(Text1.Text) = ThenMsgBox 读者姓名不能为空, vbOKOnly + vbExclamation, Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = ThenMsgBox 读者编号不能为空, vbOKOnly + vbExclamation, Text2.SetFocus Exit SubEnd IfIf Not IsDate(Text6.Text) ThenMsgBox 请按照yyyy-mm-dd格式输入登记日期, vbOKOnly + vbExclamation, Text6.SetFocus Exit SubEnd IfIf Trim(Combo2.Text) = ThenMsgBox 请选读者性别, vbOKOnly + vbExclamation, Combo2.SetFocus Exit SubEnd Ifconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= App.Path \database.mdbsql = select * from 读者信息 where 读者编号= Text2.Text rs_addreader.Opensql, connt, adOpenKeyset, adLockPessimisticIf rs_addreader.EOF Thenrs_addreader.AddNewrs_addreader.Fields(0) = Trim(Text1.Text)rs_addreader.Fields(1) = Trim(Text2.Text)rs_addreader.Fields(2) = Trim(Combo2.Text)rs_addreader.Fields(3) = Trim(Combo1.Text)rs_addreader.Fiel