【正文】 1) = Trim() MsgBox 添加圖書類別成功！, vbOKOnly, Else MsgBox 讀者類別重復(fù)！, vbOKOnly + vbExclamation, = Exit SubEnd IfEnd Sub（2）修改功能的代碼Private Sub cmdupdate_Click()If Not IsNull() Then End If = True = True = False = False = False MsgBox 修改成功！, vbOKOnly + vbExclamation, End Sub（3）刪除按鈕功能Private Sub cmddel_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(確定要刪除嗎？, vbYesNo, )If answer = vbYes Then = True MsgBox 成功刪除！, vbOKOnly + vbExclamation, = FalseElse Exit SubEnd Ifdelerror:If 0 Then MsgBox End IfEnd Sub（4）點擊ListView中一項，將在上面顯示該項目的詳細(xì)信息，并讓修改按鈕可以使用，增加按鈕不能使用Private Sub ListView1_ItemClick(ByVal Item As ) = = (1).Text = (2).Text = (3).Text = (4).Text = (5).Textid = (6).Text = False = True = TrueEnd Sub（5）添加或修改完畢后，刷新ListView信息的顯示Private Sub lstrefresh()Dim rs As New 39。 Set rs = TransactSQL(SQL) If = 1 Then select * from transactor, If = False Then While True Set lb = (, , Trim((tstname).Value)) (1) = Trim((tstxb).Value) amp。 (2) = Trim((tstdepartment).Value) amp。 (3) = Trim((tstnl).Value) amp。 (4) = Trim((tstphone).Value) amp。 (5) = Trim((tstzc).Value) amp。 (6) = Trim((tstid).Value) Wend End IfEnd SubD、讀者管理模塊:圖8讀者管理【實現(xiàn)思路】該模塊的實現(xiàn)與圖書管理模塊類似，只是字段多一些。【流程圖】【實現(xiàn)代碼】（1）實現(xiàn)了窗體加載時應(yīng)該進(jìn)行的操作。Private Sub Form_Load() 男 女Dim rs_leibie As New Dim sql As Stringsql = select * from 讀者類別 sql, conn, adOpenKeyset, adLockPessimisticDo While Not (0) LoopEnd Sub（2）增加讀者Dim sql As StringIf Trim() = Then MsgBox 請選擇讀者種類, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 讀者姓名不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 讀者編號不能為空, vbOKOnly + vbExclamation, Exit SubEnd Ifsql = select * from 讀者信息 where 讀者編號=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = CDate() MsgBox 添加讀者信息成功！, vbOKOnly, Else MsgBox 讀者編號重復(fù)！, vbOKOnly + vbExclamation, = Exit SubEnd IfEnd Sub（3）修改讀者Private Sub Command3_Click()Dim optflag As IntegerIf = True Then optflag = 1End IfIf = 1 Then update operator set optname=39。 amp。 amp。 39。,optpwd=39。 amp。 amp。 39。,optrgt= amp。 optflag amp。 where optid=39。 amp。 optid amp。 39。lst = False = False = TruetxtclrEnd Sub（4）刪除讀者Private Sub Command4_Click()If = 1 Then delete from operator where optid=39。 amp。 optid amp。 39。MsgBox 刪除成功！, vbExclamation, 信息提示lst = False = False = TruetxtclrEnd Sub（5）listView的項點擊事件處理代碼Private Sub ListView1_ItemClick(ByVal Item As ) = = (1).TextIf (2).Text = 超級管理員 Then = TrueElse = TrueEnd Ifoptid = (3).Text = True = True = FalseEnd SubE、圖書借閱管理圖9圖書借閱界面【實現(xiàn)思路】在該窗體通過點擊查詢已借出和未借出單選按鈕可以搜索當(dāng)前圖書的借閱信息，選擇未借出的圖書可以進(jìn)行圖書的借閱?！玖鞒虉D】【實現(xiàn)代碼】主要代碼：（1）窗體加載時：Private Sub Form_Load()Dim rs_borrow As New Dim rs_reader As New Dim sql As Stringsql = select * from 書籍信息 where 書籍編號=39。 amp。 book_num amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic = (0) = (1) = (2) = (3) = (4) = (5) = (6)sql = select * from 讀者信息 sql, conn, adOpenKeyset, adLockPessimisticIf Not Then Do While Not (1) (0) LoopElse MsgBox 請先登記讀者！, vbOKOnly + vbExclamation Exit SubEnd IfEnd Sub（2）查詢圖書借閱：Private Sub Command1_Click()Dim rs_findbook As New Dim sql As StringIf = vbChecked Then sql = 書名=39。 amp。 Trim( amp。 ) amp。 39。End IfIf = vbChecked Then If Trim(sql) = Then sql = 類別=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書名=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 作者=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 作者=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 出版社=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 出版社=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 書籍編號=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書籍編號=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf Trim(sql) = Then MsgBox 請選擇查詢方式！, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 書籍信息 where amp。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = FalseSet = rs_findbook39。End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If Trim(book_num) = Then MsgBox 請選擇要借閱的圖書！, vbOKOnly + vbExclamation Exit SubEnd IfIf panduan = 是 Then MsgBox 此書已被借出！, vbOKOnly + vbExclamation Exit SubEnd IfEnd Sub（3）點擊借書Private Sub Command1_Click()Dim rs_borrowbook As New Dim sql As Stringsql = select * from 讀者信息 where 讀者編號=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticleibie = (3)shumu = (8)sql = select * from 讀者類別 where 種類名稱=39。 amp。 leibie amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticqixian = (2)maxnum = (1)If shumu = maxnum Then MsgBox 該讀者借書數(shù)額已滿！, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 借閱信息 sql, conn, adOpenKeyset, adLockPessimistic(1) = (2) = (3) = (4) = (5) = Date(6) = DateAdd(Ww, qixian, Date)sql = select * from 書籍信息 where 書籍編號=39。 amp。 book_num amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic(7) = 是sql = select * from 讀者信息 where 讀者編號=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic(8) = (8) + 1MsgBox 本書借閱成功！, vbOKOnly + vbExclamationUnload MeEnd SubF、系統(tǒng)管理（圖）添加用戶（圖）修改密碼【實現(xiàn)思路】根據(jù)輸入的用戶信息，添加相應(yīng)的用戶，需要注意的是用戶名不能重復(fù)，使用用該做用戶名校驗，修改密碼也需要校驗用戶兩次輸入是否一致?！玖鞒虉D】【實現(xiàn)代碼】代碼片段添加用戶功能Private Sub Command1_Click()Dim sql As StringDim rs_add As New If Trim() = Then MsgBox 用戶名不能為空, vbOKOnly + vbExclamation, Exit Sub Else sql = select * from 系統(tǒng)管理 sql, conn, adOpenKeyset, adLockPessimistic While ( = False) If Trim((0)) = Trim() Then MsgBox 已有這個用戶, vbOKOnly + vbExclamation, = = = =