【正文】 在即將離校之際，能有這次實踐的機會，深感難得，同時感到學(xué)無止境，在今后的學(xué)習(xí)和工作中，我會不斷的充實自己。 總之，這次設(shè)計是我受益 匪 淺。但同時使我了解了一種新的思路，使我獲益匪淺。為今后開發(fā)和設(shè)計信息系統(tǒng)和數(shù)據(jù)庫系統(tǒng)打下了深厚的基礎(chǔ)。本 畢業(yè)設(shè)計論文對系統(tǒng)的 需求分析 、模型分析、設(shè)計和實現(xiàn) 作了較詳細地敘述，表明 了面向?qū)ο蟮乃枷朐谙到y(tǒng)開發(fā)中的優(yōu)越性。 amp。 \ If Trim(sql) = Then MsgBox 請選擇查詢方式 !, vbOKOnly + vbExclamation Exit Sub End If sql = select * from 書籍信息 where amp。 39。 and 出版社 =39。 Trim( amp。 ) amp。 Else sql = sql amp。 amp。 Trim( amp。 39。 End If End If If = vbChecked Then If Trim(sql) = Then sql = 作者 =39。 amp。 ) amp。 39。 程序代碼如下： Option Explicit Dim panduan As String Private Sub Command1_Click() Dim rs_findbook As New Dim conn As New Dim sql As String If = vbChecked Then sql = 書名 =39。 23 圖 查詢書籍信息窗體 用戶設(shè)置查詢方式并輸入查詢內(nèi)容后，單擊“確定”按鈕后，將會連接到數(shù)據(jù)庫當中的書籍信息表，如圖 所示。 39。 amp。Provider = 。 添加讀者種類窗體的創(chuàng)建 添加讀者種類窗體是在窗體上放置多個文本框，用來輸入讀者種類信息；兩個按鈕用來確定是否添加讀 者種類信息；多個標簽用來提示文本框中需要輸入的內(nèi)容。例如在圖 用戶登 錄 窗體中的用戶名中輸入 “ 110” ，密碼中輸入 “ 1234” ，將先對數(shù)據(jù)庫中用戶表的 user_ID 中的項進行匹配，如圖 用戶表中所示，有 “ 110” 這一項，用戶名匹配成功，接著將密碼 “ 1234” 與 user_ID 中 “ 110” 想對應(yīng)的 mima 中的項 20 進行匹配，發(fā)現(xiàn)與 “ 110” 所對應(yīng)的項是 “ 3333” ，密碼匹配不成功，這時系統(tǒng)將出示提示框 “ 密碼不正確，請重新輸入 ” 。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 ,請重輸入！ , vbOKOnly + vbExclamation, = Else username = If Trim((1)) = Trim() Then Unload Me Else MsgBox 密碼不正確 ,請重輸入！ , vbOKOnly + vbExclamation, = End If End If End If t = t + 1 If t = 3 Then Unload Me End If End Sub Private Sub Form_Load() t = 0 End Sub 用戶如果沒有輸入用戶名和用戶密碼，將出現(xiàn)消息框給予提示。 \ If Trim() = Then MsgBox 用戶名不能為空，請重新輸入！ Else 19 sql = select * from 用戶表 where user_ID=39。 圖 用戶表 代碼如下： Option Explicit Dim t As Integer 39。 為窗體定義全局變量 OK，用來判斷登 錄 是否成功；定義 Cnt，用來記載輸入密碼的次 18 數(shù) ， 并且在載入窗體時初始化這兩個全局變量，代碼如下： ?強制變量聲明 Option Explicit Pubic OK As Boolean ?記錄確定次數(shù) Dim miscount As Integer Private Sub Form_Load() OK=False miscount=0 End Sub Option Explicit 是用來規(guī)定所有變量使用前必須定義。如果用戶 3 次輸入的密碼不正確，將退出程序。如果登陸者是授權(quán)用戶，將進入系統(tǒng)，否則將停止程序的執(zhí)行。 添加全局變量，用來記錄各個窗體的讀寫狀態(tài)，代碼如下： Pubic flagRTedit As Boolean 16 Pubic gintRTmode As Integer Pubic flag Redit As Boolean Pubic gintRmode As Integer Pubic flagBTedit As Boolean Pubic gintBTmode As Integer Pubic flagBedit As Boolean Pubic gintBmode As Integer Pubic flagBOedit As Boolean Pubic gintBOmode As Integer Pubic flagBBedit As Boolean Pubic gintBBmode As Integer gintRTmode 變量用來記錄是添加狀態(tài)還是修改狀態(tài)，賦值 1 為添加，賦值 2 為修改。這樣可以極大地提高代碼的效率。狀態(tài)欄控件需要在通常的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進行設(shè)置。 9 圖 讀者借書過程 數(shù)據(jù)詞典 ： ⑴ 名稱：讀者 簡要描述：借書、還書、查詢及登記注冊 有關(guān)數(shù)據(jù)流：借書證；所借書本 ⑵ 名稱：日歷 簡要描述：當日日期 有關(guān)數(shù)據(jù)流：年月日 ： ⑴ 加工名：借書檢驗 加工編號：１ 簡要描述：檢驗讀者身份、圖書是否入庫、讀者還能借多少書以此判定讀者是否能借書 輸入數(shù)據(jù)流：借書證；所借書本，讀者信息，圖書信息，圖書訪問記錄，日期 輸出數(shù)據(jù)流：借書錯誤信息，借書信息 加工邏輯： IF 借書 證未登記入庫 THEN 發(fā)出 “借書錯誤 ” ELSE IF 圖書未登記入庫 THEN 發(fā)出 “借書錯誤 ” ELSE IF 讀者已借圖書和現(xiàn)借圖書多于限制數(shù)Ｎ THEN 日歷 讀者 1 借書 檢驗 2 借書 登記 選定圖書 讀者庫 圖書庫 圖書是否被借出 圖書信息 檢驗 10 發(fā)出 “借書錯誤 ” ELSE IF 讀者已借圖書中有超期 THEN 發(fā)出 “借書錯誤 ” ELSE 發(fā)出 “借書信息 ” ENDIF ENDIF ENDIF ENDIF ⑵ 加工名：借書登記 加工編號：２ 簡要描述：將“借書信息”登記到“圖書訪問記錄庫圖書訪問記錄”中，完成后將書本遞交讀者 輸入數(shù)據(jù)流：借書信息，日期 輸出數(shù)據(jù)流：圖書訪問記錄，圖書 加工邏輯：將借書信息及日期寫入圖書訪問記錄； ： ⑴ 數(shù)據(jù)流名：借書證 說明：用以攜帶讀者的唯一識別標識 數(shù)據(jù)流來源：讀者 數(shù)據(jù)流去向：借書檢驗 數(shù)據(jù)流組成：借書證＝借書證號 ＋姓名＋聯(lián)系方法 借書證號＝“ 000000001” ..“ 999999999” 姓名＝ 2{字母 }24 聯(lián)系方法＝ 4{字母 }50 ⑵ 數(shù)據(jù)流名：圖書 說明：記錄圖書的主要相關(guān)信息 數(shù)據(jù)流來源：讀者 數(shù)據(jù)流去向：借書檢驗 數(shù)據(jù)流組成：圖書＝書號＋書名＋作者＋出版社 書號＝“ 000000001” ..“ 999999999” 書名＝ 2{字母 }24 作者＝ 2{字母 }24 出版社＝ 2{字母 }24 ⑶ 數(shù)據(jù)流名：檢驗錯誤 說明：用于指示讀者借書錯誤信息 數(shù)據(jù)流來源：借書檢驗 數(shù)據(jù)流去向：讀者 11 數(shù)據(jù)流組成：檢驗錯誤＝ 2{字母 }40 ⑷ 數(shù)據(jù)流名：借書信息 說明：用于傳遞讀者號和圖書號 數(shù)據(jù)流來源：借書檢驗 數(shù)據(jù)流去向：借書登記 數(shù)據(jù)流組成：借書信息＝借書證號＋書號 ⑸ 數(shù)據(jù)流名：日期 說明：提供當前日期信息 數(shù)據(jù)流來源：日歷 數(shù)據(jù)流去向：借書檢驗，借書登記 數(shù)據(jù)流組成：日期＝年＋月 ＋日 年＝“ 0000” ..“ 9999” 月＝“ 01” ..“ 12” 日＝“ 01” ..“ 31” ⑹ 數(shù)據(jù)流名：圖書訪問記錄 說明：用于記錄讀者借書信息 數(shù)據(jù)流來源：圖書訪問記錄庫，借書登記 數(shù)據(jù)流去向：借書檢驗 數(shù)據(jù)流組成：圖書訪問記錄＝書號＋借閱證號＋借書日期 借書日期＝日期 ⑺ 數(shù)據(jù)流名：讀者信息 說明：用于記錄登記入庫的讀者信息 數(shù)據(jù)流來源：讀者庫 數(shù)據(jù)流去向：借書檢驗 數(shù)據(jù)流組成：讀者信息＝借 書證號＋姓名＋聯(lián)系方法 ⑻ 數(shù)據(jù)流名：圖書信息 說明：用于記錄登記入庫的圖書信息 數(shù)據(jù)流來源：圖書庫 數(shù)據(jù)流去向：借書檢驗 數(shù)據(jù)流組成：圖書信息＝書號＋書名＋作者＋出版社＋價格＋摘要＋狀態(tài) ： ⑴ 數(shù)據(jù)文件名：讀者庫 簡述：存放讀者信息 輸入數(shù)據(jù)：無 輸出數(shù)據(jù)：讀者信息 數(shù)據(jù)文件組成：讀者庫由“讀者信息”組成 12 ⑵ 數(shù)據(jù)文件名：圖書庫 簡述：存放圖書信息 輸入數(shù)據(jù)：無 輸出數(shù)據(jù)：圖書信息 數(shù)據(jù)文件組成：圖書 庫由“圖書信息”組成 ⑶ 數(shù)據(jù)文件名：圖書訪問記錄庫 簡述：存放圖書訪問記錄信息 輸入數(shù)據(jù)：圖書訪問記錄 輸出數(shù)據(jù)：圖書訪問記錄 數(shù)據(jù)文件組成：圖書訪問記錄庫由“圖書訪問記錄”組成 讀者還書過程的數(shù)據(jù)流圖和數(shù)據(jù)詞典 數(shù)據(jù)流圖 讀者還書過程數(shù)據(jù)流程如圖 所示 。 圖 書籍信息實體 ER 圖 書籍信息實體 書籍編號 書籍名稱 書籍類別 出版社 書籍類別信息實體 類別編號 類別名稱 關(guān)鍵詞 備注信息 讀者信息實體 讀者編號 讀者姓名 讀者類別 辦證日期 7 借閱信息實體 ER 圖如圖 所示。 讀者類別信息