【正文】 bOKOnly + vbExclamation, Else 39。False ScaleHeight = 8760 ScaleWidth = 11460 StartUpPosition = 2 39。 Caption = 圖 書(shū) 管 理 系 統(tǒng) BeginProperty Font Name = 宋體 Size = Charset = 134 Weight = 700 Underline = 0 39。當(dāng)用戶(hù)在ListView控件中點(diǎn)擊某一部影片的時(shí)候應(yīng)在上半部分顯示出該圖書(shū)的詳細(xì)信息。 amp。 amp。 (2) = Trim((tstdepartment).Value) amp。 (6) = Trim((tstid).Value) Wend End IfEnd SubD、讀者管理模塊:圖8讀者管理【實(shí)現(xiàn)思路】該模塊的實(shí)現(xiàn)與圖書(shū)管理模塊類(lèi)似，只是字段多一些。 amp。 amp。 amp。 where optid=39。lst = False = False = TruetxtclrEnd Sub（4）刪除讀者Private Sub Command4_Click()If = 1 Then delete from operator where optid=39。MsgBox 刪除成功！, vbExclamation, 信息提示lst = False = False = TruetxtclrEnd Sub（5）listView的項(xiàng)點(diǎn)擊事件處理代碼Private Sub ListView1_ItemClick(ByVal Item As ) = = (1).TextIf (2).Text = 超級(jí)管理員 Then = TrueElse = TrueEnd Ifoptid = (3).Text = True = True = FalseEnd SubE、圖書(shū)借閱管理圖9圖書(shū)借閱界面【實(shí)現(xiàn)思路】在該窗體通過(guò)點(diǎn)擊查詢(xún)已借出和未借出單選按鈕可以搜索當(dāng)前圖書(shū)的借閱信息，選擇未借出的圖書(shū)可以進(jìn)行圖書(shū)的借閱。 39。 ) amp。 Trim( amp。 and 書(shū)名=39。 39。 ) amp。 amp。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 出版社=39。 39。 Trim( amp。 amp。 Else sql = sql amp。 ) amp。End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If Trim(book_num) = Then MsgBox 請(qǐng)選擇要借閱的圖書(shū)！, vbOKOnly + vbExclamation Exit SubEnd IfIf panduan = 是 Then MsgBox 此書(shū)已被借出！, vbOKOnly + vbExclamation Exit SubEnd IfEnd Sub（3）點(diǎn)擊借書(shū)Private Sub Command1_Click()Dim rs_borrowbook As New Dim sql As Stringsql = select * from 讀者信息 where 讀者編號(hào)=39。 sql, conn, adOpenKeyset, adLockPessimisticleibie = (3)shumu = (8)sql = select * from 讀者類(lèi)別 where 種類(lèi)名稱(chēng)=39。 sql, conn, adOpenKeyset, adLockPessimisticqixian = (2)maxnum = (1)If shumu = maxnum Then MsgBox 該讀者借書(shū)數(shù)額已滿(mǎn)！, 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 書(shū)籍信息 where 書(shū)籍編號(hào)=39。 sql, conn, adOpenKeyset, adLockPessimistic(7) = 是sql = select * from 讀者信息 where 讀者編號(hào)=39。 sql, conn, adOpenKeyset, adLockPessimistic(8) = (8) + 1MsgBox 本書(shū)借閱成功！, vbOKOnly + vbExclamationUnload MeEnd SubF、系統(tǒng)管理（圖）添加用戶(hù)（圖）修改密碼【實(shí)現(xiàn)思路】根據(jù)輸入的用戶(hù)信息，添加相應(yīng)的用戶(hù)，需要注意的是用戶(hù)名不能重復(fù)，使用用該做用戶(hù)名校驗(yàn)，修改密碼也需要校驗(yàn)用戶(hù)兩次輸入是否一致。 39。 amp。 amp。 book_num amp。 leibie amp。 amp。 End IfEnd IfIf Trim(sql) = Then MsgBox 請(qǐng)選擇查詢(xún)方式！, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 書(shū)籍信息 where amp。 amp。 ) amp。 39。 and 出版社=39。 Trim( amp。 ) amp。 Else sql = sql amp。 amp。 Trim( amp。 39。End IfIf = vbChecked Then If Trim(sql) = Then sql = 類(lèi)別=39。 amp。 amp。 optid amp。 optid amp。,optrgt= amp。,optpwd=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 讀者編號(hào)重復(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。Private Sub Form_Load() 男 女Dim rs_leibie As New Dim sql As Stringsql = select * from 讀者類(lèi)別 sql, conn, adOpenKeyset, adLockPessimisticDo While Not (0) LoopEnd Sub（2）增加讀者Dim sql As StringIf Trim() = Then MsgBox 請(qǐng)選擇讀者種類(lèi), vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 讀者姓名不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 讀者編號(hào)不能為空, vbOKOnly + vbExclamation, Exit SubEnd Ifsql = select * from 讀者信息 where 讀者編號(hào)=39。 (4) = Trim((tstphone).Value) amp。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = Trim() MsgBox 添加圖書(shū)類(lèi)別成功！, vbOKOnly, Else MsgBox 讀者類(lèi)別重復(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(確定要?jiǎng)h除嗎？, vbYesNo, )If answer = vbYes Then = True MsgBox 成功刪除！, vbOKOnly + vbExclamation, = FalseElse Exit SubEnd Ifdelerror:If 0 Then MsgBox End IfEnd Sub（4）點(diǎn)擊ListView中一項(xiàng)，將在上面顯示該項(xiàng)目的詳細(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。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = 否 MsgBox 添加書(shū)籍信息成功！, vbOKOnly, Else MsgBox 圖書(shū)編號(hào)重復(fù)！, vbOKOnly + vbExclamation, = Exit SubEnd IfEnd SubPrivate Sub Command1_Click()Dim rs_bookstyle As New Dim sql As StringIf Trim() = Then MsgBox 圖書(shū)種類(lèi)不能為空, vbOKOnly + vbExclamation,