附錄主頁面（MDImain）：PrivateSubaddbook_Click()add_book.ShowEndSubPrivateSubaddreader_Click()add_reader.ShowEndSubPrivateSubadduser_Click()add_user.ShowEndSubPrivateSubbackbook_Click()back_book.ShowEndSubPrivateSubborrowbook_Click()borrow_book.ShowEndSubPrivateSubcuibackbook_Click()cuiback_book.ShowEndSubPrivateSubfindbook_Click()find_book.ShowEndSubPrivateSubfindreader_Click()find_reader.ShowEndSubPrivateSubMDIForm_Load()EndSubPrivateSubmodifybook_Click()change_book.ShowEndSubPrivateSubmodifypwd_Click()change_pwd.ShowEndSubPrivateSubmodifyreader_Click()change_reader.ShowEndSubPrivateSubdelbook_Click()del_book.ShowEndSubPrivateSubdelreder_Click()del_reader.ShowEndSubPrivateSubquitsys_Click()EndEndSub登陸（login）：OptionExplicitDimcntAsInteger'記錄確定次數PrivateSubCommand1_Click()DimsqlAsStringDimrs_loginAsNewADODB.RecordsetIfTrim(txtuser.Text)=""Then'判斷輸入旳顧客名與否為空MsgBox"沒有這個顧客",vbOKOnly+vbExclamation,""txtuser.SetFocusElsesql="select*from顧客表where顧客名='"&txtuser.Text&"'"rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"沒有這個顧客",vbOKOnly+vbExclamation,""txtuser.SetFocusElse'檢查密碼與否對旳IfTrim(rs_login.Fields(1))=Trim(txtpwd.Text)ThenuserID=txtuser.Textuserpow=rs_login.Fields(2)rs_login.CloseUnloadMeMsgBox"歡迎登錄到圖書管理系統！",vbOKOnly+vbExclamation,""MDImain.ShowElseMsgBox"密碼不對旳",vbOKOnly+vbExclamation,""txtpwd.SetFocusEndIfEndIfEndIfcnt=cnt+1Ifcnt=3ThenUnloadMeEndIfExitSubEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimconnectionstringAsStringconnectionstring="provider=Microsoft.Jet.oledb.4.0;"&_"datasource=圖書管理系統.mdb"conn.Openconnectionstringcnt=0EndSub添加顧客（add_user）：PrivateSubCommand1_Click()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrim(Text1.Text)=""ThenMsgBox"顧客名不能為空",vbOKOnly+vbExclamation,""ExitSubText1.SetFocusElsesql="select*from顧客表"rs_add.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs_add.EOF=False)IfTrim(rs_add.Fields(0))=Trim(Text1.Text)ThenMsgBox"已經有這個顧客",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Combo1.Text=""ExitSubElsers_add.MoveNextEndIfWendIfTrim(Text2.Text)<>Trim(Text3.Text)ThenMsgBox"兩次密碼不一致",vbOKOnly+vbExclamation,""Text2.SetFocusText2.Text=""Text3.Text=""ExitSubElseIfTrim(Combo1.Text)<>"system"AndTrim(Combo1.Text)<>"guest"ThenMsgBox"請選擇對旳旳顧客權限",vbOKOnly+vbExclamation,""Combo1.SetFocusCombo1.Text=""ExitSubElsers_add.AddNewrs_add.Fields(0)=Text1.Textrs_add.Fields(1)=Text2.Textrs_add.Fields(2)=Combo1.Textrs_add.Updaters_add.CloseMsgBox"添加顧客成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"system"Combo1.AddItem"guest"Ifuserpow="guest"Then'權限有關Command1.Enabled=FalseCommand2.Enabled=FalseEndIfEndSub添加讀者（add_reader）：OptionExplicitDimrs_addreaderAsNewADODB.RecordsetPrivateSubCommand1_Click()DimsqlAsStringIfTrim(Text1.Text)=""ThenMsgBox"借書證號不能為空",vbOKOnly+vbExclamation,""Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=""ThenMsgBox"所在單位不能為空",vbOKOnly+vbExclamation,""Text2.SetFocusExitSubEndIfIfTrim(Text3.Text)=""ThenMsgBox"姓名不能為空",vbOKOnly+vbExclamation,""Text3.SetFocusExitSubEndIfIfTrim(Text4.Text)=""ThenMsgBox"性別不能為空",vbOKOnly+vbExclamation,""Text4.SetFocusExitSubEndIfIfTrim(Text5.Text)=""ThenMsgBox"類型不能為空",vbOKOnly+vbExclamation,""Text5.SetFocusExitSubEndIfIfTrim(Text6.Text)=""ThenMsgBox"地址不能為空",vbOKOnly+vbExclamation,""Text6.SetFocusExitSubEndIfsql="select*from讀者表where借書證號='"&Text1.Text&"'"rs_addreader.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_addreader.EOFThenrs_addreader.AddNewrs_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.UpdateMsgBox"添加讀者信息成功！",vbOKOnly,""UnloadMeElseMsgBox"借書證號反復！",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""rs_addreader.CloseExitSubEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Ifuserpow="guest"Then'權限有關Frame2.Enabled=FalseEndIfEndSub刪除讀者(del_reader):OptionExplicitDimrs_readerAsNewADODB.RecordsetPrivateSubcmdcancel_Click()rs_reader.CancelUpdateDataGrid1.RefreshDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=Falsecmddel.Enabled=Truecmdcancel.Enabled=Falsecmdupdate.Enabled=FalseEndSubPrivateSubcmddel_Click()DimanswerAsStringOnErrorGoTodelerroranswer=MsgBox("確定要刪除嗎？",vbYesNo,"")Ifanswer=vbYesThenDataGrid1.AllowDelete=Truers_reader.Deleters_reader.UpdateDataGrid1.RefreshMsgBox"成功刪除！",vbOKOnly+vbExclamation,""DataGrid1.AllowDelete=Falsers_reader.UpdateDataGrid1.RefreshElseExitSubEndIfdelerror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubcmdquit_Click()UnloadMeEndSubPrivateSubcmdupdate_Click()IfNotIsNull(DataGrid1.Bookmark)Thenrs_reader.UpdateEndIfcmddel.Enabled=Truecmdcancel.Enabled=Falsecmdupdate.Enabled=FalseDataGrid1.AllowUpdate=FalseMsgBox"修改成功！",vbOKOnly+vbExclamation,""EndSubPrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from讀者表"rs_reader.CursorLocation=adUseClientrs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic'打開數據庫cmdupdate.Enabled=False'設定datagrid控件屬性DataGrid1.AllowAddNew=False'不可增長DataGrid1.AllowDelete=False'不可刪除DataGrid1.AllowUpdate=FalseIfuserpow="guest"Then'權限有關Frame2.Enabled=FalseEndIfSetDataGrid1.DataSource=rs_reader'cmdcancel.Enabled=FalseExitSubloaderror:MsgBoxErr.DescriptionEndSubPrivateSubForm_Unload(CancelAsInteger)SetDataGrid1.DataSource=Nothingrs_reader.CloseEndSub修改讀者(change_reader):OptionExplicitDimrs_readerAsNewADODB.RecordsetPrivateSubcmdcancel_Click()rs_reader.CancelUpdateDataGrid1.RefreshDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=Falsecmdquit.Enabled=Truecmdchange.Enabled=Truecmdcancel.Enabled=Falsecmdupdate.Enabled=FalseEndSubPrivateSubcmdchange_Click()DimanswerAsStringOnErrorGoTocmdchangecmdquit.Enabled=Truecmdchange.Enabled=Falsecmdupdate.Enabled=Truecmdcancel.Enabled=TrueDataGrid1.AllowUpdate=Truecmdchange:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubcmdquit_Click()UnloadMeEndSubPrivateSubcmdupdate_Click()IfNotIsNull(DataGrid1.Bookmark)Thenrs_reader.UpdateEndIfcmdquit.Enabled=Truecmdchange.Enabled=Truecmdcancel.Enabled=Falsecmdupdate.Enabled=FalseDataGrid1.AllowUpdate=FalseMsgBox"修改成功！",vbOKOnly+vbExclamation,""EndSubPrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from讀者表"rs_reader.CursorLocation=adUseClientrs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic'打開數據庫cmdupdate.Enabled=False'設定datagrid控件屬性DataGrid1.AllowAddNew=False'不可增長DataGrid1.AllowDelete=False'不可刪除DataGrid1.AllowUpdate=FalseIfuserpow="guest"Then'權限有關Frame2.Enabled=FalseEndIfSetDataGrid1.DataSource=rs_reader'cmdcancel.Enabled=FalseExitSubloaderror:MsgBoxErr.DescriptionEndSubPrivateSubForm_Unload(CancelAsInteger)SetDataGrid1.DataSource=Nothingrs_reader.CloseEndSub查詢讀者(find_reader):OptionExplicitPrivateSubCommand1_Click()Dimrs_findreaderAsNewADODB.RecordsetDimsqlAsStringIfCheck1.Value=vbCheckedThenIfTrim(sql)=""Thensql="借書證號='"&Trim(Text1.Text&"")&"'"Elsesql=sql&"and借書證號='"&Trim(Text1.Text&"")&"'"EndIfEndIfIfCheck2.Value=vbCheckedThenIfTrim(sql)=""Thensql="姓名='"&Trim(Text2.Text&"")&"'"Elsesql=sql&"and姓名='"&Trim(Text2.Text&"")&"'"EndIfEndIfsql="select*from讀者表where"&sqlrs_findreader.CursorLocation=adUseClientrs_findreader.Opensql,conn,adOpenKeyset,adLockPessimisticDataGrid1.AllowAddNew=FalseDataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_findreader'rs_findreader.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSub添加圖書(add_book):OptionExplicitDimrs_addbookAsNewADODB.RecordsetPrivateSubCommand1_Click()DimsqlAsStringIfTrim(Text1.Text)=""ThenMsgBox"書號不能為空",vbOKOnly+vbExclamation,""Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=""ThenMsgBox"分類號不能為空",vbOKOnly+vbExclamation,""Text2.SetFocusExitSubEndIfIfTrim(Text3.Text)=""ThenMsgBox"作者不能為空",vbOKOnly+vbExclamation,""Text3.SetFocusExitSubEndIfIfTrim(Text4.Text)=""ThenMsgBox"出版社不能為空",vbOKOnly+vbExclamation,""Text4.SetFocusExitSubEndIfIfTrim(Text5.Text)=""ThenMsgBox"單價不能為空",vbOKOnly+vbExclamation,""Text5.SetFocusExitSubEndIfsql="select*from圖書表where書號='"&Text1.Text&"'"rs_addbook.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_addbook.EOFThenrs_addbook.AddNewrs_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.UpdateMsgBox"添加書籍信息成功！",vbOKOnly,""UnloadMeElseMsgBox"書號反復！",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""rs_addbook.CloseExitSubEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Ifuserpow="guest"Then'權限有關Command1.Enabled=FalseCommand2.Enabled=FalseEndIfEndSub刪除圖書(del_book):OptionExplicitDimrs_bookAsNewADODB.RecordsetPrivateSubcmdcancel_Click()rs_book.CancelUpdateDataGrid1.RefreshDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=Falsecmddel.Enabled=Truecmdcancel.Enabled=Falsecmdupdate.Enabled=FalseEndSubPrivateSubcmddel_Click()DimanswerAsStringOnErrorGoTodelerroranswer=MsgBox("確定要刪除嗎？",vbYesNo,"")Ifanswer=vbYesThenDataGrid1.AllowDelete=Truers_book.Deleters_book.UpdateDataGrid1.RefreshMsgBox"成功刪除！",vbOKOnly+vbExclamation,""DataGrid1.AllowDelete=FalseElseExitSubEndIfdelerror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubcmdquit_Click()UnloadMeEndSubPrivateSubcmdupdate_Click()IfNotIsNull(DataGrid1.Bookmark)Thenrs_book.UpdateEndIfcmddel.Enabled=Truecmdcancel.Enabled=Falsecmdupdate.Enabled=FalseDataGrid1.AllowUpdate=FalseMsgBox"刪除成功！",vbOKOnly+vbExclamation,""EndSubPrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from圖書表"rs_book.CursorLocation=adUseClientrs_book.Opensql,conn,adOpenKeyset,adLockPessimistic'打開數據庫cmdupdate.Enabled=False'設定datagrid控件屬性DataGrid1.AllowAddNew=False'不可增長DataGrid1.AllowDelete=False'不可刪除DataGrid1.AllowUpdate=FalseIfuserpow="guest"Then'權限有關Frame2.Enabled=FalseEndIfSetDataGrid1.DataSource=rs_book'cmdcancel.Enabled=FalseExitSubloaderror:MsgBoxErr.DescriptionEndSubPrivateSubForm_Unload(CancelAsInteger)SetDataGrid1.DataSource=Nothingrs_book.CloseEndSub修改圖書(change_book):OptionExplicitDimrs_bookAsNewADODB.RecordsetPrivateSubcmdcancel_Click()rs_book.CancelUpdateDataGrid1.RefreshDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=Falsecmdchange.Enabled=Truecmdcancel.Enabled=Falsecmdupdate.Enabled=FalseEndSubPrivateSubcmdchange_Click()DimanswerAsStringOnErrorGoTocmdchangecmdchange.Enabled=Falsecmdupdate.Enabled=Truecmdcancel.Enabled=TrueDataGrid1.AllowUpdate=Truecmdchange:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfrs_book.UpdateDataGrid1.RefreshEndSubPrivateSubcmdquit_Click()UnloadMeEndSubPrivateSubcmdupdate_Click()IfNotIsNull(DataGrid1.Bookmark)Thenrs_book.UpdateEndIfcmdchange.Enabled=Truecmdcancel.Enabled=Falsecmdupdate.Enabled=FalseDataGrid1.AllowUpdate=FalseMsgBox"修改成功！",vbOKOnly+vbExclamation,""EndSubPrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from圖書表"rs_book.CursorLocation=adUseClientrs_book.Opensql,conn,adOpenKeyset,adLockPessimistic'打開數據庫cmdupdate.Enabled=False'設定datagrid控件屬性DataGrid1.AllowAddNew=False'不可增長DataGrid1.AllowDelete=False'不可刪除DataGrid1.AllowUpdate=FalseIfuserpow="guest"Then'權限有關Frame2.Enabled=FalseEndIfSetDataGrid1.DataSource=rs_bookcmdcancel.Enabled=FalseExitSubloaderror:MsgBoxErr.DescriptionEndSubPrivateSubForm_Unload(CancelAsInteger)SetDataGrid1.DataSource=Nothingrs_book.CloseEndSub查詢圖書(find_book):OptionExplicitDimpanduanAsStringPrivateSubCommand1_Click()Dimrs_findbookAsNewADODB.RecordsetDimsqlAsStringIfCheck1.Value=vbCheckedThenIfTrim(sql)=""Thensql="書號='"&Trim(Text1.Text&"")&"'"Elsesql=sql&"and書號='"&Trim(Text1.Text&"")&"'"EndIfEndIfIfCheck2.Value=vbCheckedThenIfTrim(sql)=""Thensql="作者='"&Trim(Text2.Text&"")&"'"Elsesql=sql&"and作者='"&Trim(Text2.Text&"")&"'"EndIfEndIfIfCheck3.Value=vbCheckedThenIfTrim(sql)=""Thensql="出版單位='"&Trim(Text3.Text&"")&"'"Elsesql=sql&"and出版單位='"&Trim(Text3.Text&"")&"'"EndIfEndIfIfCheck4.Value=vbCheckedThenIfTrim(sql)=""Thensql="分類號='"&Trim(Text4.Text&"")&"'"Elsesql=sql&"and分類號='"&Trim(Text4.Text&"")&"'"EndIfEndIfIfTrim(sql)=""ThenMsgBox"請選擇查詢方式！",vbOKOnly+vbExclamationExitSubEndIfsql="select*from圖書表where"&sqlrs_findbook.CursorLocation=adUseClientrs_findbook.Opensql,conn,adOpenKeyset,adLockPessimisticDataGrid1.AllowAddNew=FalseDataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_findbook'rs_findbook.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubDataGrid1_RowColChange(LastRowAsVariant,ByValLastColAsInteger)book_num=DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)EndSub修改密碼(change(pwd):PrivateSubCommand1_Click()Dimrs_changAsNewADODB.RecordsetDimsqlAsStringIfTrim(Text1.Text)<>Trim(Text2.Text)ThenMsgBox"密碼不一致！",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Elsesql="select*from顧客表where顧客名='"&userID&"'"rs_chang.Opensql,conn,adOpenKeyset,adLockPessimisticrs_chang.Fields(1)=Text1.Textrs_chang.Updaters_chang.CloseMsgBox"密碼修改成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub借書（borrow_book）:OptionExplicitDimcntAsInteger'記錄確定次數PrivateSubCommand1_Click()DimsqlAsStringDimsql2AsStringDimsql3AsStringDimrs_borrow1AsNewADODB.RecordsetDimrs_borrow2AsNewADODB.RecordsetDimrs_borrow3AsNewADODB.RecordsetIfTrim(Text1.Text)=""Then'判斷輸入旳借書證號與否為空MsgBox"借書證號不可認為空",vbOKOnly+vbExclamation,""Text1.SetFocusElsesql="select*from讀者表where借書證號='"&Text1.Text&"'"rs_borrow1.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_borrow1.EOF=TrueThenMsgBox"沒有這個讀者",vbOKOnly+vbExclamation,""Text1.SetFocusElse'檢查書號與否對旳IfTrim(Text2.Text)=""ThenMsgBox"書號不可認為空!",vbOKOnly+vbExclamation,""Elsesql2="select*from圖書表where書號='"&Text2.Text&"'"rs_borrow2.Opensql2,conn,adOpenKeyset,adLockPessimisticIfrs_borrow2.EOF=TrueThenMsgBox"對不起,沒有這本書!",vbOKOnly,""Text2.Text=""Text2.SetFocusElseIf(rs_borrow2.Fields(4))="是"ThenMsgBox"對不起,此書已被借出!",vbOKOnly+vbExclamation,""Text2.Text=""Text2.SetFocusElsesql3="select*from借書表"rs_borrow3.Opensql3,conn,adOpenKeyset,adLockPessimisticrs_borrow3.AddNewrs_borrow3.Fields("書號")=Trim(Text2.Text)rs_borrow3.Fields("借書證號")=Trim(Text1.Text)rs_borrow3.Fields("借書日期")=Daters_borrow2.Fields("與否借出")="是"rs_borrow2.Updaters_borrow3.UpdateMsgBox"借書成功!",vbOKOnly,""Text1_ChangeText2.Text=""EndIfEndIfEndIfEndIfEndIfcnt=cnt+1Ifcnt=8ThenUnloadMeEndIfExitSubEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()cnt=0EndSubPrivateSubText1_Change()Dimsql1AsStringDimrs_borrow1AsNewRecordsetsql1="select*from借書表where借書證號='"&Text1.Text&"'"rs_borrow1.CursorLocation=adUseClientrs_borrow1.Opensql1,conn,adOpenKeyset,adLockPessimisticSetDataGrid1.D