附录(图书管理系统程序代码).doc

.附录主页面（MDImain）：Private Sub addbook_Click()add_book.ShowEnd SubPrivate Sub addreader_Click()add_reader.ShowEnd SubPrivate Sub adduser_Click()add_user.ShowEnd SubPrivate Sub backbook_Click()back_book.ShowEnd SubPrivate Sub borrowbook_Click()borrow_book.ShowEnd SubPrivate Sub cuibackbook_Click()cuiback_book.ShowEnd SubPrivate Sub findbook_Click()find_book.ShowEnd SubPrivate Sub findreader_Click()find_reader.ShowEnd SubPrivate Sub MDIForm_Load()End SubPrivate Sub modifybook_Click()change_book.ShowEnd SubPrivate Sub modifypwd_Click()change_pwd.ShowEnd SubPrivate Sub modifyreader_Click()change_reader.ShowEnd SubPrivate Sub delbook_Click()del_book.ShowEnd SubPrivate Sub delreder_Click()del_reader.ShowEnd SubPrivate Sub quitsys_Click()EndEnd Sub登陆（login）：Option ExplicitDim cnt As Integer 记录确定次数Private Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetIf Trim(txtuser.Text) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocusElse sql = select * from 用户表 where 用户名= & txtuser.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocus Else 检验密码是否正确 If Trim(rs_login.Fields(1) = Trim(txtpwd.Text) Then userID = txtuser.Text userpow = rs_login.Fields(2) rs_login.Close Unload Me MsgBox 欢迎登录到图书管理系统！, vbOKOnly + vbExclamation, MDImain.Show Else MsgBox 密码不正确, vbOKOnly + vbExclamation, txtpwd.SetFocus End If End IfEnd Ifcnt = cnt + 1If cnt = 3 Then Unload MeEnd IfExit SubEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source=图书管理系统.mdbconn.Open connectionstringcnt = 0End Sub添加用户（add_user）：Private Sub Command1_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = Then MsgBox 用户名不能为空, vbOKOnly + vbExclamation, Exit Sub Text1.SetFocusElse sql = select * from 用户表 rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox 已有这个用户, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Combo1.Text = Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub ElseIf Trim(Combo1.Text) system And Trim(Combo1.Text) guest Then MsgBox 请选择正确的用户权限, vbOKOnly + vbExclamation, Combo1.SetFocus Combo1.Text = Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close MsgBox 添加用户成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem systemCombo1.AddItem guestIf userpow = guest Then 权限相关 Command1.Enabled = False Command2.Enabled = FalseEnd IfEnd Sub添加读者（add_reader）：Option ExplicitDim rs_addreader As New ADODB.RecordsetPrivate Sub Command1_Click()Dim sql As StringIf Trim(Text1.Text) = Then MsgBox 借书证号不能为空, vbOKOnly + vbExclamation, Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = Then MsgBox 所在单位不能为空, vbOKOnly + vbExclamation, Text2.SetFocus Exit SubEnd IfIf Trim(Text3.Text) = Then MsgBox 姓名不能为空, vbOKOnly + vbExclamation, Text3.SetFocus Exit SubEnd IfIf Trim(Text4.Text) = Then MsgBox 性别不能为空, vbOKOnly + vbExclamation, Text4.SetFocus Exit SubEnd IfIf Trim(Text5.Text) = Then MsgBox 类型不能为空, vbOKOnly + vbExclamation, Text5.SetFocus Exit SubEnd IfIf Trim(Text6.Text) = Then MsgBox 地址不能为空, vbOKOnly + vbExclamation, Text6.SetFocus Exit SubEnd Ifsql = select * from 读者表 where 借书证号= & Text1.Text & rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addreader.EOF Then rs_addreader.AddNew rs_addreader.Fields(0) = Trim(Text1.Text) rs_addreader.Fields(1) = Trim(Text2.Text) rs_addreader.Fields(2) = Trim(Text3.Text) rs_addreader.Fields(3) = Trim(Text4.Text) rs_addreader.Fields(4) = Trim(Text5.Text) rs_addreader.Fields(5) = Trim(Text6.Text) rs_addreader.Update MsgBox 添加读者信息成功！, vbOKOnly, Unload MeElse MsgBox 借书证号重复！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = rs_addreader.Close Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()If userpow = guest Then 权限相关 Frame2.Enabled = FalseEnd IfEnd Sub删除读者(del_reader):Option ExplicitDim rs_reader As New ADODB.RecordsetPrivate Sub cmdcancel_Click() rs_reader.CancelUpdate DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = FalseEnd SubPrivate Sub cmddel_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(确定要删除吗？, vbYesNo, )If answer = vbYes Then DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Update DataGrid1.Refresh MsgBox 成功删除！, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = False rs_reader.Update DataGrid1.RefreshElse Exit SubEnd Ifdelerror:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub cmdquit_Click()Unload MeEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox 修改成功！, vbOKOnly + vbExclamation, End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 读者表rs_reader.CursorLocation = adUseClientrs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic 打开数据库cmdupdate.Enabled = False设定datagrid控件属性DataGrid1.AllowAddNew = False 不可增加DataGrid1.AllowDelete = False 不可删除DataGrid1.AllowUpdate = FalseIf userpow = guest Then 权限相关 Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_readercmdcancel.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_reader.CloseEnd Sub修改读者(change_reader):Option ExplicitDim rs_reader As New ADODB.RecordsetPrivate Sub cmdcancel_Click() rs_reader.CancelUpdate DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmdquit.Enabled = True cmdchange.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = FalseEnd SubPrivate Sub cmdchange_Click()Dim answer As StringOn Error GoTo cmdchange cmdquit.Enabled = Truecmdchange.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = Truecmdchange:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub cmdquit_Click()Unload MeEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If cmdquit.Enabled = True cmdchange.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox 修改成功！, vbOKOnly + vbExclamation, End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 读者表rs_reader.CursorLocation = adUseClientrs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic 打开数据库cmdupdate.Enabled = False设定datagrid控件属性DataGrid1.AllowAddNew = False 不可增加DataGrid1.AllowDelete = False 不可删除DataGrid1.AllowUpdate = FalseIf userpow = guest Then 权限相关 Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_readercmdcancel.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_reader.CloseEnd Sub查询读者(find_reader):Option ExplicitPrivate Sub Command1_Click()Dim rs_findreader As New ADODB.RecordsetDim sql As StringIf Check1.Value = vbChecked Then If Trim(sql) = Then sql = 借书证号= & Trim(Text1.Text & ) & Else sql = sql & and 借书证号= & Trim(Text1.Text & ) & End IfEnd IfIf Check2.Value = vbChecked Then If Trim(sql) = Then sql = 姓名= & Trim(Text2.Text & ) & Else sql = sql & and 姓名= & Trim(Text2.Text & ) & End IfEnd Ifsql = select * from 读者表 where & sqlrs_findreader.CursorLocation = adUseClientrs_findreader.Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findreaderrs_findreader.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub添加图书(add_book):Option ExplicitDim rs_addbook As New ADODB.RecordsetPrivate Sub Command1_Click()Dim sql As StringIf Trim(Text1.Text) = Then MsgBox 书号不能为空, vbOKOnly + vbExclamation, Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = Then MsgBox 分类号不能为空, vbOKOnly + vbExclamation, Text2.SetFocus Exit SubEnd IfIf Trim(Text3.Text) = Then MsgBox 作者不能为空, vbOKOnly + vbExclamation, Text3.SetFocus Exit SubEnd IfIf Trim(Text4.Text) = Then MsgBox 出版社不能为空, vbOKOnly + vbExclamation, Text4.SetFocus Exit Sub End IfIf Trim(Text5.Text) = Then MsgBox 单价不能为空, vbOKOnly + vbExclamation, Text5.SetFocus Exit SubEnd Ifsql = select * from 图书表 where 书号= & Text1.Text & rs_addbook.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addbook.EOF Then rs_addbook.AddNew rs_addbook.Fields(0) = Trim(Text1.Text) rs_addbook.Fields(1) = Trim(Text2.Text) rs_addbook.Fields(2) = Trim(Text3.Text) rs_addbook.Fields(3) = Trim(Text4.Text) rs_addbook.Fields(5) = Trim(Text5.Text) rs_addbook.Fields(4) = 否 rs_addbook.Update MsgBox 添加书籍信息成功！, vbOKOnly, Unload MeElse MsgBox 书号重复！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = rs_addbook.Close Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()If userpow = guest Then 权限相关 Command1.Enabled = False Command2.Enabled = FalseEnd IfEnd Sub删除图书(del_book):Option ExplicitDim rs_book As New ADODB.RecordsetPrivate Sub cmdcancel_Click() rs_book.CancelUpdate DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = FalseEnd SubPrivate Sub cmddel_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(确定要删除吗？, vbYesNo, )If answer = vbYes Then DataGrid1.AllowDelete = True rs_book.Delete rs_book.Update DataGrid1.Refresh MsgBox 成功删除！, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub cmdquit_Click()Unload MeEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_book.UpdateEnd If cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox 删除成功！, vbOKOnly + vbExclamation, End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 图书表rs_book.CursorLocation = adUseClientrs_book.Open sql, conn, adOpenKeyset, adLockPessimistic 打开数据库cmdupdate.Enabled = False设定datagrid控件属性DataGrid1.AllowAddNew = False 不可增加DataGrid1.AllowDelete = False 不可删除DataGrid1.AllowUpdate = FalseIf userpow = guest Then 权限相关 Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_bookcmdcancel.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_book.CloseEnd Sub修改图书(change_book):Option ExplicitDim rs_book As New ADODB.RecordsetPrivate Sub cmdcancel_Click() rs_book.CancelUpdate DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmdchange.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = FalseEnd SubPrivate Sub cmdchange_Click()Dim answer As StringOn Error GoTo cmdchangecmdchange.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = Truecmdchange:If Err.Number 0 Then MsgBox Err.DescriptionEnd Ifrs_book.UpdateDataGrid1.RefreshEnd SubPrivate Sub cmdquit_Click()Unload MeEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_book.UpdateEnd If cmdchange.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox 修改成功！, vbOKOnly + vbExclamation, End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 图书表rs_book.CursorLocation = adUseClientrs_book.Open sql, conn, adOpenKeyset, adLockPessimistic 打开数据库cmdupdate.Enabled = False设定datagrid控件属性DataGrid1.AllowAddNew = False 不可增加DataGrid1.AllowDelete = False 不可删除DataGrid1.AllowUpdate = FalseIf userpow = guest Then 权限相关 Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_bookcmdcancel.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_book.CloseEnd Sub查询图书(find_book):Option ExplicitDim panduan As StringPrivate Sub Command1_Click()Dim rs_findbook As New ADODB.RecordsetDim sql As StringIf Check1.Value = vbChecked Then If Trim(sql) = Then sql = 书号= & Trim(Text1.Text & ) & Else sql = sql & and 书号= & Trim(Text1.Text & ) & End IfEnd IfIf Check2.Value = vbChecked Then If Trim(sql) = Then sql = 作者= & Trim(Text2.Text & ) & Else sql = sql & and 作者= & Trim(Text2.Text & ) & End IfEnd IfIf Check3.Value = vbChecked Then If Trim(sql) = Then sql = 出版单位= & Trim(Text3.Text & ) & Else sql = sql & and 出版单位= & Trim(Text3.Text & ) & End IfEnd IfIf Check4.Value = vbChecked Then If Trim(sql) = Then sql = 分类号= & Trim(Text4.Text & ) & Else sql = sql & and 分类号= & Trim(Text4.Text & ) & End IfEnd IfIf Trim(sql) = Then MsgBox 请选择查询方式！, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 图书表 where & sqlrs_findbook.CursorLocation = adUseClientrs_findbook.Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findbookrs_findbook.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)End Sub修改密码(change(pwd):Private Sub Command1_Click()Dim rs_chang As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) Trim(Text2.Text) Then MsgBox 密码不一致！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Else sql = select * from 用户表 where 用户名= & userID & rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = Text1.Text rs_chang.Update rs_chang.Close MsgBox 密码修改成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub借书（borrow_book）:Option ExplicitDim cnt As Integer 记录确定次数Private Sub Command1_Click()Dim sql As StringDim sql2 As StringDim sql3 As StringDim rs_borrow1 As New ADODB.RecordsetDim rs_borrow2 As New ADODB.RecordsetDim rs_borrow3 As New ADODB.RecordsetIf Trim(Text1.Text) = Then 判断输入的借书证号是否为空 MsgBox 借书证号不可以为空, vbOKOnly + vbExclamation, Text1.SetFocusElse sql = sel