圖書(shū)館管理系統(tǒng)分析及設(shè)計(jì)畢業(yè)論文-資料下載頁(yè)

　　

【正文】 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讀者管理【實(shí)現(xiàn)思路】該模塊的實(shí)現(xiàn)與圖書(shū)管理模塊類(lèi)似，只是字段多一些。【流程圖】【實(shí)現(xiàn)代碼】（1）實(shí)現(xiàn)了窗體加載時(shí)應(yīng)該進(jìn)行的操作。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。 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 讀者編號(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。 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的項(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ū)的借閱。【流程圖】【實(shí)現(xiàn)代碼】主要代碼：（1）窗體加載時(shí)：Private Sub Form_Load()Dim rs_borrow As New Dim rs_reader As New Dim sql As Stringsql = select * from 書(shū)籍信息 where 書(shū)籍編號(hào)=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 請(qǐng)先登記讀者！, vbOKOnly + vbExclamation Exit SubEnd IfEnd Sub（2）查詢(xún)圖書(shū)借閱：Private Sub Command1_Click()Dim rs_findbook As New Dim sql As StringIf = vbChecked Then sql = 書(shū)名=39。 amp。 Trim( amp。 ) amp。 39。End IfIf = vbChecked Then If Trim(sql) = Then sql = 類(lèi)別=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書(shū)名=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 = 書(shū)籍編號(hào)=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書(shū)籍編號(hào)=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf Trim(sql) = Then MsgBox 請(qǐng)選擇查詢(xún)方式！, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 書(shū)籍信息 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 請(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。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticleibie = (3)shumu = (8)sql = select * from 讀者類(lèi)別 where 種類(lèi)名稱(chēng)=39。 amp。 leibie amp。 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。 amp。 book_num amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic(7) = 是sql = select * from 讀者信息 where 讀者編號(hào)=39。 amp。 amp。 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ù)兩次輸入是否一致。【流程圖】【實(shí)現(xiàn)代碼】代碼片段添加用戶(hù)功能Private Sub Command1_Click()Dim sql As StringDim rs_add As New If Trim() = Then MsgBox 用戶(hù)名不能為空, vbOKOnly + vbExclamation, Exit Sub Else sql = select * from 系統(tǒng)管理 sql, conn, adOpenKeyset, adLockPessimistic While ( = False) If Trim((0)) = Trim() Then MsgBox 已有這個(gè)用戶(hù), vbOKOnly + vbExclamation, = = = = Exit Sub Else End If Wend If Trim() Trim() Then MsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, = = Exit Sub ElseIf Trim() system And Trim() guest Then MsgBox 請(qǐng)選擇正確的用戶(hù)權(quán)限, vbOKOnly + vbExclamation, = Exit Sub Else (0) = (1) = (2) = MsgBox 添加用戶(hù)成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd Sub修改密碼：Private Sub Command1_Click()Dim rs_chang As New Dim sql As StringIf Trim() Trim() Then MsgBox 密碼不一致！, vbOKOnly + vbExclamation, = = Else sql = select * from 系統(tǒng)管理 where 用戶(hù)名=39。 amp。 userID amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic (1) = MsgBox 密碼修改成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd Sub退出系統(tǒng)：Private Sub exit_sys_Click()EndEnd S