【導(dǎo)讀】術(shù)應(yīng)用方面得到了廣泛的普及和使用。由于圖書(shū)館圖書(shū)收藏量大大增加，使傳統(tǒng)。費(fèi)用低的優(yōu)點(diǎn)慢慢地帶入人們的生活，將傳統(tǒng)的圖書(shū)管理方式徹底的解脫出來(lái)，的時(shí)間在選擇書(shū)和看書(shū)很迫切。從而使人們有更多時(shí)間來(lái)獲取信息、了解信息、本圖書(shū)管理系統(tǒng),介紹了該系統(tǒng)組成結(jié)構(gòu)、功能特點(diǎn)、使用原理和方。法,本系統(tǒng)實(shí)現(xiàn)了系統(tǒng)登陸、圖書(shū)管理、學(xué)生管理，圖書(shū)的借閱與歸還等功能。整體自動(dòng)化管理模式。本文介紹了在VB環(huán)境下采用“自上而下地總體規(guī)劃，自下。而上地應(yīng)用開(kāi)發(fā)”的策略開(kāi)發(fā)一個(gè)管理信息系統(tǒng)的過(guò)程。

　　

【正文】 t Case intCount Case 0 27 sMeg = 讀者編號(hào) Case 1 sMeg = 讀者姓名 Case 2 sMeg = 工作單位 Case 3 sMeg = 家庭住址 Case 4 sMeg = 電話(huà)號(hào)碼 Case 5 sMeg = 電子郵件地址 Case 6 sMeg = 辦證日期 End Select sMeg = sMeg amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount If Not IsDate(Trim(txtItem(6))) Then MsgBox 請(qǐng)輸入日期！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else txtItem(6) = Format(txtItem(6), yyyymmdd) End If If gintRmode = 1 Then‘判斷是否有重復(fù)記錄 28 txtSQL = select * from readers where readerno=39。 amp。 Trim(txtItem(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此讀者編號(hào)的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If If gintRmode = 2 Then 39。先刪除已有記錄 txtSQL = delete from readers where readerno=39。 amp。 Trim(txtItem(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) End If txtSQL = select * from readers 39。再加入新記錄 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘為數(shù)據(jù)庫(kù)對(duì)象添加記錄 For intCount = 0 To 1 (intCount) = Trim(txtItem(intCount)) Next intCount (2) = Trim(cboItem(5)) (3) = Trim(cboItem(1)) For intCount = 2 To 7 29 (intCount + 2) = Trim(txtItem(intCount)) Next intCount If gintRmode = 1 Then For intCount = 0 To 7 txtItem(intCount) = Next intCount mblChange = False If flagRedit Then Unload frmReader = select * from readers‘重新顯示數(shù)據(jù) End If ElseIf gintRmode = 2 Then Unload Me If flagRedit Then Unload frmReader End If = select * from readers End If End Sub 同樣在選擇“修改讀者信息”命令，將觸發(fā) memnuModifyreader 的 Click 時(shí)間。程序判斷修改狀態(tài)后，首先刪除愿有記錄，然后把新內(nèi)容加入到數(shù)據(jù)庫(kù)中。 30 書(shū)籍類(lèi)別管理模塊 書(shū)籍類(lèi)別管理模塊主要實(shí)現(xiàn)如下功能：添加書(shū)籍類(lèi)別、修改書(shū)籍類(lèi)別、刪除書(shū)籍類(lèi)別。 選擇“書(shū)籍管理 |書(shū)籍類(lèi)別管理 |添加書(shū)籍類(lèi)別”菜單，將出現(xiàn)如圖 45所示的窗體，用來(lái)添加書(shū)籍類(lèi)別。 圖 45 添加書(shū)籍類(lèi)別窗體 選擇“書(shū)籍管理 |書(shū)籍類(lèi)別管理 |修改書(shū)籍類(lèi)別”菜單，將出現(xiàn)如圖 46所示的窗體。 圖 46 書(shū)籍類(lèi)別信息列表 在列表中選中記錄，單擊鼠標(biāo)右鍵出現(xiàn)“修改書(shū)籍類(lèi)別”的命令。所選的記錄出現(xiàn)在如入 45 的窗體中，然后可以對(duì)記錄進(jìn)行修改。 31 書(shū)籍信息管理模塊主要實(shí)現(xiàn)功能如下：添加書(shū)籍信息、修改書(shū)籍信息、刪除書(shū)籍信息、查詢(xún)書(shū)籍信息。 添加書(shū)籍信息窗體的創(chuàng)建 選擇“書(shū)籍管理 |書(shū)籍信息管理 |添加書(shū)籍信息”菜單，將出現(xiàn)如圖 47所示的窗體。 圖 47 添加書(shū)籍信息窗體 輸入完畢，單擊“保存”按鈕，程序?qū)⑹紫葯z查內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫(kù)中。 修改書(shū)籍信息 選擇“書(shū)籍管理 |書(shū)籍信息管理 |修改書(shū)籍信息”菜單，將出現(xiàn)如圖 48所示的窗體。 32 圖 48 書(shū)籍信息記錄別表 選擇需要修改的記錄，單擊右鍵，出現(xiàn)“選擇修改書(shū)籍信息”命令，就可以在圖47所示的窗體中對(duì)記錄進(jìn)行修改。 查詢(xún)書(shū)籍信息 選擇“書(shū)籍管理 |書(shū)籍信息管理 |查詢(xún)書(shū)籍信息”菜單，將首 先出現(xiàn)如圖 49所示的窗體。 圖 49 查詢(xún)書(shū)籍信息窗體 設(shè)置產(chǎn)尋方式并輸入查詢(xún)內(nèi)容后，單擊“確定”按鈕后，所有滿(mǎn)足要求的記錄都將顯示在如圖 49所示的窗體中。 33 借書(shū)信息管理模塊 借書(shū)信息管理模塊主要實(shí)現(xiàn)如下：添加借書(shū)信息、修改借書(shū)信息、刪除信息、查詢(xún)借書(shū)信息。 添加借書(shū)信息窗體的創(chuàng)建 選擇“借閱信息管理 |借書(shū)信息管理 |添加借書(shū)信息”菜單，將首先出現(xiàn)如圖410 所示的窗體。 圖 410 添加借書(shū)信息窗體 載入窗體時(shí)，所有書(shū)籍信息和讀者信息都將自動(dòng) 加入。在下拉式文本框中選擇書(shū)籍種類(lèi)時(shí)，書(shū)籍名稱(chēng)中將自動(dòng)加入所有書(shū)籍的名稱(chēng)；選擇書(shū)籍名稱(chēng)后，在所有書(shū)籍信息都將顯示出來(lái)；選擇讀者種類(lèi)后，讀者姓名中將自動(dòng)加入所有同類(lèi)形的讀者；選擇讀者姓名后，所有讀者信息都將顯示出來(lái)。這將觸發(fā) Click 時(shí)間，根據(jù) Index 判斷文本框編號(hào)。代碼如下： Private Sub Form_Load() Dim sSql As String Dim intCount As Integer Dim MsgText As String 34 Dim mrcc As If gintBmode = 1 Then = amp。 添加 39。初始化物資名稱(chēng) txtSQL = select DISTINCT typename from booktype Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex = 0 Else MsgBox 請(qǐng)先進(jìn)行書(shū)籍標(biāo)準(zhǔn) 設(shè)置！ , vbOKOnly + vbExclamation, 警告 = False Exit Sub End If txtNo = GetRkno() ElseIf gintBmode = 2 Then Set mrcc = ExecuteSQL(txtSQL, MsgText) If = False Then 35 With mrcc txtNo = .Fields(0) txtItem(0) = .Fields(1) For intCount = 1 To 6 If Not IsNull(.Fields(intCount + 2)) Then txtItem(intCount) = .Fields(intCount + 2) End If Next intCount txtItem(7) = .Fields(9) txtSQL = select DISTINCT typename from booktype cboItem(0).Clear Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop Else MsgBox 請(qǐng)先進(jìn)行書(shū)籍種類(lèi)設(shè)置！ , vbOKOnly + vbExclamation, 警告 = False Exit Sub End If End With 36 End If = amp。 修改 End If mblChange = False End Sub 修改借書(shū)信息 選擇“借閱信息管理 |借書(shū)信息管理 |修改借書(shū)信息”菜單，將首先出現(xiàn)如圖 411所示的窗體。 圖 411 借書(shū)信息列表 選擇需要修改的記錄，單擊鼠標(biāo)右鍵，出現(xiàn)彈出式菜單，選擇“修改借書(shū)信息”命令，在如圖 410 所示的窗體中進(jìn)行修 改。 37 查詢(xún)借書(shū)信息 選擇“借閱信息管理