【正文】 NULL 備注信息 表 35為皆閱信息表，從表中可以看出 borrowno,readerid,readername,bookid, Bookname 是主鍵，不能為空。 17 第 4 章 圖書館管理系統(tǒng)的實現(xiàn) 上面的 SQL 語句在 SQL Server 2021 查詢分析器中執(zhí)行后，將自動產(chǎn)生需要的所有表格?，F(xiàn)在將通過圖書館管理信息系統(tǒng)中各個模塊的實現(xiàn)，來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。 創(chuàng)建圖書館管理信息系統(tǒng)的主窗體 單擊工具欄中的 ADD MDI Form 按鈕，生成一個窗體。 表 41 主窗體及控件屬性設置 控件 屬性 屬性取值 FirmMain(Form) Name FirmMain Caption 圖書館管理信息系統(tǒng) StartUpPosition CenterScreen WindowState Maximized SbStatusBar (StatusBar) Name SbStatusBar Panels(1) Style SbrText Panels(2) Style SbrDate Panels(3) Style SbrTime 在主窗體中加入狀態(tài)欄控件，可以實時反映系統(tǒng)中的各個狀態(tài)的變化。選中狀態(tài)欄控件，單擊鼠標右鍵，選中 Property 菜單，然后設置屬性。創(chuàng)建好的窗體如圖 41 所示。 系統(tǒng)：修改密碼、添加用戶、退出。 書籍管理：書籍類別管理：添加書籍類別、修改書籍類別、刪除 書籍類別； 書籍信息管理：添加書籍信息、修改書籍信息、刪除書籍信息、查詢書籍信息。 幫助： About 19 圖書館需要管理不同種類的讀者，并且不同讀者享受的服務不同。 添加讀者種類窗體的創(chuàng)建 選擇“讀者管理 |讀 者種類管理 |添加讀者種類”菜單，將出現(xiàn)如圖 310 所示窗體： 圖 42 添加讀者種類窗體 在窗體上放置多個文本框，用來輸入讀者種類信息：兩個按鈕用來確定是否添加讀者種類信息；多個標簽用來提示文本框中需要輸入的內(nèi)容。 表 42 添加讀者種類窗體中各個控件的屬性設置 控件 屬性 屬性取值 frmReadertype1(Form) Name frmReadertype1 Caption 客房標準 MDIChild True txtItem(0)txtItem(4) Name txtItem(0)txtItem(4) Label1 Caption 種類編號 20 Label2 Caption 種類名稱 Label3 Caption 借書數(shù)量 Label4 Caption 借書期限 Label5 Caption 有效日期 Label6 Caption 備注信息 在載入窗體時，程序首先判斷所處狀態(tài)，代碼入下： Private Sub Form_Load()‘載入窗體后，判斷所處狀態(tài) Dim intCount As Integer Dim MsgText As String‘用來存放返回信息 Dim i As Integer If gintRTmode = 1 Then‘判斷是否屬于添加狀態(tài) = amp。 修改 End If mblChange = False End Sub 程序首先對是否輸入內(nèi)容進行判斷，然后進行格式判斷。最后根據(jù)狀態(tài)來顯示相應的信息：如果是添加狀態(tài)，將提示添加成功，然后重新顯示并清空文本框，以便繼續(xù)添加記錄； 21 如果處于修改狀態(tài)，將提示修改成功，然后更新所有記錄的列表。用戶輸入內(nèi)容完畢以后，單擊 cmdSave 按鈕將觸發(fā) Click 事件，代碼如下： Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String ‘判斷輸入內(nèi)容是否符合要求 For intCount = 0 To 4 If Trim(txtItem(intCount) amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount For intCount = 2 To 4‘判斷輸入內(nèi)容是否為數(shù)字 22 If Not IsNumeric(Trim(txtItem(intCount))) Then Select Case intCount Case 2 sMeg = 借書數(shù)量 Case 3 sMeg = 借書期限 Case 4 sMeg = 有效期限 End Select sMeg = sMeg amp。添加判斷是否有相同的 ID 記錄 If gintRTmode = 1 Then txtSQL = select * from readertype where typeno=39。 Trim(txtItem(0)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此種類編號的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If 39。 amp。 39。 amp。 39。 amp。 39。 圖 43 讀者種類記錄列表窗體 刪除讀者種類 選擇“讀者管理 |讀者種類管理 |刪除讀者種類”菜單，將出現(xiàn)記錄列表。 讀者信息功能模塊主要實現(xiàn)功能如下：添加讀者信息、修改讀者信息、刪除讀者信息、查詢讀者信息。 26 圖 44 添加讀者信息窗體 程序首先對是否輸入內(nèi)容進行判斷，然后進行格式判斷。最后根據(jù)狀態(tài)來顯示相應的信息：如果是添加狀態(tài)，將提示添加成功，然后重新顯示并清空文本框，以便繼續(xù)添加記錄；如果處于修改狀態(tài)，將提示修改成功，然后更新所有記錄的列表。在輸入完內(nèi)容，單擊“保存”按鈕，觸發(fā) Click 時間，首先檢查文本內(nèi)容是否符合格式要求，然后判斷是否有重復記錄，并 更新讀者表中的相關信息，最后添加內(nèi)容到數(shù)據(jù)庫，代碼如下： Private Sub cmdSave_Click()‘單擊保存按鈕觸發(fā)事件 Dim intCount As Integer Dim sMeg As String Dim mrcc As Dim MsgText As String For intCount = 0 To 6‘檢查輸入內(nèi)容是否符合要求 If Trim(txtItem(intCount) amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount If Not IsDate(Trim(txtItem(6))) Then MsgBox 請輸入日期！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else txtItem(6) = Format(txtItem(6), yyyymmdd) End If If gintRmode = 1 Then‘判斷是否有重復記錄 28 txtSQL = select * from readers where readerno=39。 Trim(txtItem(0)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此讀者編號的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If If gintRmode = 2 Then 39。 amp。 39。再加入新記錄 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘為數(shù)據(jù)庫對象添加記錄 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 時間。 30 書籍類別管理模塊 書籍類別管理模塊主要實現(xiàn)如下功能：添加書籍類別、修改書籍類別、刪除書籍類別。 圖 45 添加書籍類別窗體 選擇“書籍管理 |書籍類別管理 |修改書籍類別”菜單，將出現(xiàn)如圖 46所示的窗體。所選的記錄出現(xiàn)在如入 45 的窗體中，然后可以對記錄進行修改。 添加書籍信息窗體的創(chuàng)建 選擇“書籍管理 |書籍信息管理 |添加書籍信息”菜單，將出現(xiàn)如圖 47所示的窗體。 修改書籍信息 選擇“書籍管理 |書籍信息管理 |修改書籍信息”菜單，將出現(xiàn)如圖 48所示的窗體。 查詢書籍信息 選擇“書籍管理 |書籍信息管理 |查詢書籍信息”菜單，將首 先出現(xiàn)如圖 49所示的窗體。 33 借書信息管理模塊 借書信息管理模塊主要實現(xiàn)如下：添加借書信息、修改借書信息、刪除信息、查詢借書信息。 圖 410 添加借書信息窗體 載入窗體時，所有書籍信息和讀者信息都將自動 加入。這將觸發(fā) Click 時間，根據(jù) Index 判斷文本框編號。 添加 39。 修改 End If mblChange = False End Sub 修改借書信息 選擇“借閱信息管理 |借書信息管理 |修改借書信息”菜單，將首先出現(xiàn)如圖 411所示的窗體。 37 查詢借書信息 選擇“借閱信息管理 |