【正文】 ??????? ????? ? ????? ?? 5 系統(tǒng)開發(fā)平臺 ???????????????????? ? 6 網(wǎng)絡(luò)拓 撲結(jié)構(gòu) ???????????????????? ? 6 第 2 章 解決方案 ???????????????????????? 7 ER 模型設(shè)計 ????????????? ????? ??? 7 實體列表 ???????????????????? 7 系統(tǒng)的 ER 模型 ????????????????? 8 設(shè)計數(shù)據(jù)庫 ????????????? ????? ???? 8 創(chuàng)建數(shù)據(jù)庫 ???????????????? ??? 8 創(chuàng)建數(shù)據(jù)表 ???????????????? ??? 8 連接數(shù)據(jù)庫 ???????????????? ??? 9 主窗體設(shè)計 ????????????? ????? ???? 10 設(shè)計登錄界面 ?????????????? ???? 10 添加數(shù)據(jù)組件 ????????????? ????? 10 生成數(shù)據(jù)集 ?????????????? ????? 11 設(shè)計代碼 ??????????? ????? ???? 11 讀者信息 ???????????? ?????????? ? 12 設(shè)計顯示界面 ?????????? ???? ? ??? 12 添加數(shù)據(jù)組件 ????????????? ????? 12 功能實現(xiàn) ??????????? ????? ???? 12 顯示報表 ?????????????????? ????? 12 添加讀者信息報表 ?????????????? ?? 13 添加借閱情況 表 ???? ?????????? ??? 13 綜合查詢的實現(xiàn) ???????????????? ???? 14 4 添加數(shù)據(jù)組件 ???????????????? ?? 14 窗體功能實現(xiàn) ?????? ??????????? ? 14 第 3 章 系統(tǒng)實現(xiàn) ????? ??????????????????? 15 開發(fā)環(huán)境 ???????????????????? ??? 15 系統(tǒng)流程圖 ???????????? ?????????? 15 程序調(diào)試情況 ??????????????? ????? ? 16 功能顯示 ?????????????? ????? ???? 16 結(jié)論 ????????????????????? ???? 20 第 4 章 結(jié)束語 ????????????????????????? 20 參考文獻(xiàn) ? ?????????????????????????? 21 附錄：源代碼清單 ???????????????????? ??? 21 5 第 一 章 問題描述 圖書 管理系統(tǒng)簡介 本系統(tǒng)利用 處理數(shù)據(jù)庫的功能，實現(xiàn)對圖書館信息的管理。 ⑴ 讀者信息：包括證號、姓名、聯(lián)系方式、已借書數(shù)目、讀者類別和能否借書等。 ⑸ 管理者信息：包括管理者名稱、對應(yīng)密碼和對應(yīng)權(quán)限等。 ? 可以瀏覽讀者信息。 ? 可 以對出版社信息進(jìn)行維護(hù) ,包括添加及刪除等操作。 ⑷ 在借閱信息管理部分 ,要求如下。 ? 顯示當(dāng)前數(shù)據(jù)庫中管理者情況。 圖 C/S模式結(jié)構(gòu) 第二章 解決方案 數(shù)據(jù)庫 主要著重于數(shù)據(jù)對象的屬性和數(shù)據(jù)對象之間的關(guān)系的分析。 (3)單擊“確定”按鈕，則新建的數(shù)據(jù)庫就會出現(xiàn)在服務(wù)器上。 (2)添加表的字段和其他詳細(xì)資料。在 彈出的快捷菜單中執(zhí)行“添加連接”命令，打開 Data Link Properties 對話框。輸入登錄服務(wù)器信息后選擇數(shù)據(jù)庫 Library，然后單擊 Test Connection 按鈕。 在窗體中添加兩個 Pannel 控件， 7 個 Button 控件和 7 個 Linklabel 控件。 (2) 單擊“下一步”，在打開的對話框中選擇前面建好的數(shù)據(jù)連接，然后單擊“下一步”。 配置數(shù)據(jù)適配器后，在主窗體上就會自動添加 一個 OleDbConnection 控件。 (4)選中“將此數(shù)據(jù)集添加到設(shè)計器”復(fù)選框，單擊“確定”按鈕 這樣 ,將生成一個名稱為“ Lib 管理 者信息”的數(shù)據(jù)集 ,該數(shù)據(jù)集以文件形式存儲 ,文件名為“ Lib 管理者信息 .xsd”。單擊“確定 ” 按鈕，這樣該項目啟動時，就會從主窗體開始啟動。 設(shè)計顯示界面 在窗體上添加 1 個 GroupBox 控件， 9 個 Button 控件， 5 個 TextBox 控件， 1個 CheckBox 控件和 7 個 Label 控件。 添加 OleDbDataAdapter 組件和生成數(shù)據(jù)集的方法步驟如 及 。 (3)設(shè)置 Text 屬性：在該屬性后面欄中單擊并選擇所對應(yīng)字段。 “管理者信息”，“出版社信息”，“書籍信息”，“借閱信息”和該模塊的設(shè)計思路及方法步驟完全一致，在此從略。 添加讀者信息報表 (1)在開發(fā)環(huán)境中選擇菜單“項目”中的“添加新項”對話框中選擇 Crystal Report 選項。選擇 OLB DB 提供程序為 Microsoft OLE DB Provider for SQL Server,單擊“下一步”按鈕，顯示 “連接信息”對話框。 (7)在“字段”選項卡中單擊“全部添加”按鈕，把“讀者信息”表中的所有字段添加到報表中，單擊“完成”按鈕就完成報表的設(shè)計。在其中設(shè)置查詢條件，根據(jù)查詢條件從記錄集中篩選出所需記錄。 圖 所示設(shè)置字符串集合編輯器 設(shè)置完畢，單擊確定按鈕。 生成數(shù)據(jù)集的步驟如下。 這樣，將生成一個名稱為“ Lib 綜合查詢”的數(shù)據(jù)集，該數(shù)據(jù)集以文件的形式存儲，文件名為“ Lib 綜合查詢 .xsd”。 圖 綜合 查詢數(shù)據(jù)集 第三章 系統(tǒng)實現(xiàn) 開發(fā)環(huán)境 本系統(tǒng)使用 語言進(jìn)行開發(fā)。 (1) 主窗體：管理著各個子窗體。 (5)“書籍信息”子窗體：管理書籍信息。 系統(tǒng)流程圖如圖 所示： 圖 系統(tǒng)流程圖 程序調(diào)試情況 在數(shù)據(jù)連接時一定要注意窗體和相應(yīng)顯示控件的綁定關(guān)系。 圖 登錄界面 在登錄對話框中輸入用戶姓名和密碼，單擊“確認(rèn)”按鈕，就會對用戶身份進(jìn)行認(rèn)證，如果認(rèn)證通過，那么就會彈出如圖 所示的讀者信息管理窗體。 18 圖 書籍信息窗體 單擊“輸入 /查看借閱信息”，就會顯示“借閱信息”窗體，在該窗體中可以對出版社信息進(jìn)行維護(hù)操作。 19 圖 出版社信息窗體 單擊“輸 入 /查看管理者信息”，結(jié)果如圖 所示。 20 圖 綜合查詢窗體 結(jié)論 在這 個系統(tǒng)的開發(fā)過程中，值得注意的幾點有： (1)數(shù)據(jù)報表的實現(xiàn) .報表是數(shù)據(jù)庫應(yīng)用程序的重要組成部分 ,通過報表 ,可以把數(shù)據(jù)庫中內(nèi)容經(jīng)過組織以后生動地展示給用戶， 提供的Crystal Report 可以大大提高報表的設(shè)計效率。 1. 扎實的 理論 基礎(chǔ)。當(dāng)遇到障礙的時候 ， 暫時遠(yuǎn)離電腦，當(dāng)重新開始工作的時候， 也許 會發(fā)現(xiàn)那些難題現(xiàn)在竟然可以迎刃而解。注意養(yǎng)成良好的習(xí)慣，代碼的縮進(jìn)編排，變量的命名規(guī)則要始終保持一致。臨時數(shù)據(jù)集 objDataSetTemp保存從 FillDataSet()函數(shù)調(diào)用中返回的記錄 39。臨時數(shù)據(jù)集 objDataSetTemp保存從 FillDataSet()函數(shù)調(diào)用中返回的記錄 39。首先清除控件 中的內(nèi)容然后調(diào)用 AddNew方法添加新記錄如果出錯顯示信息 39。停止當(dāng)前的任何編輯 objDataSetChanges = CType(objLib讀者信息 .GetChanges, 圖書館管理 .Lib讀者 信息 ) If (Not (objDataSetChanges) Is Nothing) Then Try (objDataSetChanges) 39。該數(shù)組用來存儲字段的數(shù)據(jù)類型 Dim SqlString As String Dim OrderString As String Dim QueryString As String 39。QueryString變量存儲查詢語句 Private Sub 綜合查詢 _Load(ByVal sender As , ByVal e As ) Handles 39。則在“ cmbBox查詢依據(jù)”“ cmbBox排序依據(jù)”將自動填充 39。 ElseIf DataType( .SelectedIndex) = Date Then SqlString = SELECT * FROM + .Text + WHERE SqlString = SqlString + 詢依據(jù) .Text + + _ .Text + Cdate( + .Text + ) End If OrderString = .Text QueryData(SqlString, OrderString) If .Text = 讀者信息 Then = QueryString End If If .Text = 管理者信息 Then = QueryString End If If .Text = 借閱信息 Then = QueryString End If If .Text = 書籍信息 Then = QueryString End If If .Text = 出版社信息 Then 32 = QueryString End If Try () 39。保持?jǐn)?shù)據(jù)表與字段二者的一致性 Dim str_Table As String str_Table = .SelectedItem If str_Table = Then Return .() .() Dim mySelectQuery As String = SELECT * FROM + str_Table Dim myCommand As New (mySelectQuery, ) If = Then 31 () End If Dim myReader As myReader = Dim i As Integer For i = 0 To 1 DataType(i) = (i).Name .((i).ToString) .((i).ToString) Next () .SelectedIndex =