【導(dǎo)讀】程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。模式分析，并由此設(shè)計(jì)了數(shù)據(jù)庫(kù)結(jié)構(gòu)和應(yīng)用程序。系統(tǒng)運(yùn)行結(jié)果證明，本文所設(shè)計(jì)的圖書(shū)管理系統(tǒng)?？梢詽M足借閱者、圖書(shū)館工作人員的使用需要。據(jù)管理比傳統(tǒng)數(shù)據(jù)的管理有更簡(jiǎn)單方便的使用性，維護(hù)性和保密性等好處。理是遠(yuǎn)遠(yuǎn)沒(méi)有敲幾下鍵盤(pán)跟用鼠標(biāo)點(diǎn)點(diǎn)就能瞬間進(jìn)行圖書(shū)的借閱、歸還等操作的方便，試想一下，只需要輸入一個(gè)圖書(shū)的編號(hào)，就馬上得到該書(shū)借出去了沒(méi)有，如果借了出去，又借出了多少天？否超過(guò)了租借的期限？這些數(shù)據(jù)都可以以瞬間顯示出來(lái)，因此大大減少了圖。書(shū)管理員的操作時(shí)間，增加了工作效率，而且，別忘了，這只是這個(gè)系統(tǒng)的一個(gè)小部分功能而已。好處是顯而易見(jiàn)的。由于時(shí)間和水平有限，難免有不足和錯(cuò)漏，歡迎批評(píng)指正。

　　

【正文】 rce= _ amp。 amp。 \。Mode=ReadWrite。persist security info=true。Jet OLEDB:Database Password=xgg2213 = adUseClient = adCmdText = StrSQL = CStr() g_strsql = select * from setinfo Set g_rs = (g_strsql) strcount = g_rs!借出冊(cè)數(shù) = CStr(strcount) End Sub 還書(shū)窗體 Private Sub Command1_Click() g_strsql = select * from lentinfo where 書(shū)籍編號(hào) =39。 amp。 amp。 39。and 讀者編號(hào) = 39。 amp。 amp。 39。 _ amp。 and 借書(shū)日期 = amp。 amp。 Set g_rs = (g_strsql) With g_rs .Edit .Fields(還書(shū)日期 ).Value = .Fields(超出天數(shù) ).Value = .Fields(罰款金額 ).Value = .Update End With Set g_rs = Nothing g_strsql = select * from bookinfo where 書(shū)籍編號(hào) =39。 amp。 amp。 39。 Set g_rs = (g_strsql) With g_rs .Edit .Fields(是否借出 ).Value = False .Update End With Set g_rs = Nothing = = = = = = = = = = = = = False MsgBox 歸還完畢，請(qǐng)返回！ , vbInformation + vbOKOnly, 信息 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() dbl End Sub Private Sub txtbookid_keypress(keyascii As Integer) If keyascii = 13 And Then g_strsql = select , ,別 , _ amp。 , , ,lentinfo.借書(shū)日期 , _ amp。 _ amp。 from bookinfo,readerinfo,booktype,lentinfo _ amp。 where = and 編號(hào) = _ amp。 and =39。 amp。 amp。 39。 and bookinfo.類(lèi)別代碼 = and 還書(shū)日期 is null Set g_rs = (g_strsql) If Not Then = g_rs!書(shū)籍名稱(chēng) = g_rs!讀者編號(hào) = g_rs!書(shū)籍類(lèi)別 = g_rs!書(shū)籍頁(yè)碼 = g_rs!讀者姓名 = g_rs!借書(shū)日期 = g_rs!借出天數(shù) = Date = CStr(Date g_rs!借書(shū)日期 ) If CInt() CInt() 0 Then = CStr(CInt() CInt()) Else = 0 End If Set g_rs = Nothing Set g_rs = (select * from setinfo) = g_rs!罰款 * CInt() Set g_rs = Nothing = True Else Set g_rs = Nothing MsgBox 沒(méi)有該圖書(shū)信息或該圖書(shū)尚未借出，請(qǐng)返回！ , vbInformation + vbOKOnly, 信息 = = = = = = = = = = = = End If ElseIf keyascii = 13 And = Then MsgBox 請(qǐng)輸入需要返還的圖書(shū)編號(hào)！ , vbInformation + vbOKOnly, 信息 End If End Sub 查找圖書(shū)窗體 Private Sub Command1_Click() Dim findsql As String Dim strcon(6) As String Dim x As Integer findsql = select * from bookinfo where If = False And = False And = False And _ = False And = False And = False Then MsgBox 請(qǐng)選擇查詢方式 , vbInformation + vbOKOnly, 警告 = True Exit Sub End If If = Then MsgBox 請(qǐng)?zhí)?寫(xiě)查詢內(nèi)容！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If = True Then If = 0 Then strcon(1) = 書(shū)籍編號(hào) =39。 amp。 amp。 39。 Else strcon(1) = 書(shū)籍編號(hào) like 39。% amp。 amp。 %39。 End If Else strcon(1) = End If If = True Then If = 0 Then strcon(2) = 書(shū)籍名稱(chēng) =39。 amp。 amp。 39。 Else strcon(2) = 書(shū)籍名稱(chēng) like 39。% amp。 amp。 %39。 End If Else strcon(2) = End If If = True Then If = 0 Then strcon(3) = 類(lèi)別代碼 =39。 amp。 amp。 39。 Else strcon(3) = 類(lèi)別代碼 like 39。% amp。 amp。 %39。 End If Else strcon(3) = End If If = True Then If = 0 Then strcon(4) = 出版社 =39。 amp。 amp。 39。 Else strcon(4) = 出版社 like39。% amp。 amp。 %39。 End If Else strcon(4) = End If If = True Then If = 0 Then strcon(5) = 作者姓名 =39。 amp。 amp。 39。 Else strcon(5) = 作者姓名 like39。% amp。 amp。 %39。 End If Else strcon(5) = End If If = True Then If = 0 Then strcon(6) = 登記日期 = amp。 amp。 Else strcon(6) = 登記日期 like 39。% amp。 amp。 %39。 End If Else strcon(6) = End If For x = 1 To 6 If strcon(x) Then findsql = findsql + strcon(x) End If Next x = adUseClient = adCmdText = findsql If 0 Then = True = True Else MsgBox 對(duì)不起館內(nèi)沒(méi)有你所查詢的書(shū)籍，請(qǐng)核對(duì)后再查詢！ , vbInformation + vbOKOnly, 提示 OptionV = End If End Sub Private Sub Command2_Click() OptionV = End Sub Private Sub Command3_Click() If = False Then MsgBox 對(duì)不起，你的權(quán)限不夠，不能進(jìn)行修改操作！ , vbInformation + vbOKOnly, 信息 Exit Sub Else End If End Sub Private Sub Command4_Click() Dim BookID As String Dim lent As String If = False Then MsgBox 對(duì)不起 ，你的權(quán)限不夠，不能進(jìn)行刪除操作！ , vbInformation + vbOKOnly, 信息 Exit Sub Else = 0 BookID = If MsgBox(你確定要?jiǎng)h除編號(hào)為 + BookID + _ 的書(shū)籍信息嗎？ , vbInformation + vbOKCancel, 刪除 ) = vbOK Then = 8 lent = If lent = 1 Then If MsgBox(此書(shū)尚未還回館內(nèi)，你是否繼續(xù)刪除操作？ , vbInformation + vbOKCancel, 提示 ) = vbOK Then With .Delete If Not .EOF Then .MoveNext Else .MoveLast End If End With MsgBox 編號(hào)為 + BookID + 的書(shū)籍信息已經(jīng)刪除！ , vbInformation + vbOKOnly, 提示 Exit Sub Else Exit Sub End If End If With .Delete