【正文】 ing = SqlString If OrderString Then QueryString = SqlString + ORDER BY + OrderString End If End Sub Public Sub LoadDataSet() Dim objDataSetTemp As 圖書館管理 .Lib綜合查詢 objDataSetTemp = New 圖書館管理 .Lib綜合查詢 Try (objDataSetTemp) Catch eFillDataSet As Throw eFillDataSet End Try Try objLib綜合查詢 .Clear() objLib綜合查詢 .Merge(objDataSetTemp) Catch eLoadMerge As Throw eLoadMerge End Try End Sub Public Sub FillDataSet(ByVal dataSet As 圖書館管理 .Lib綜合查詢 ) = False Try If Then () End If () (dataSet) 30 (dataSet) (dataSet) (dataSet) (dataSet) Catch fillException As Throw fillException Finally = True () End Try End Sub Dim DataType(100) As String 39。 = False Try () (dataSet) Catch fillException As Throw fillException Finally = True () End Try End Sub Private Sub objLib讀者信息 _PositionChanged() = ((((objLib讀者信息 , _ 讀者信息 ).Position + 1).ToString + 的 ) _ + (objLib讀者信息 , 讀者信息 ).) End Sub Private Sub btnAdd_Click(ByVal sender As , ByVal e As ) Handles 39。 21 參考文獻 1 薩師煊，王珊，數(shù)據(jù)庫系統(tǒng) 概論（第三版） . 北京：高等教育出版社， 20xx 2 齊治昌，譚慶平，寧洪，軟件工程（第二版） .北京：高等教育出版社， 20xx 3 David ， Visual 編程導(dǎo)論 . 電子工業(yè)出版社， 20xx 附錄：源代碼清單 附 ： Public Class 主窗體 Inherits Region Windows 窗體設(shè)計器生成的代碼 ‘此處省略主窗體設(shè)計代碼 End Region Dim sender As Dim e As Public Sub LoadDataSet() Dim objDataSetTemp As 圖書館管理 .Lib管理者信息 objDataSetTemp = New 圖書館管理 .Lib管理者信息 39。 2. 不鉆牛角尖。選擇查詢依據(jù)為“出版社信息”表查看其中的所有信息，結(jié)果如圖 所示。書籍信息維護窗體如圖 所示。 (8)“綜合查詢”子窗體：執(zhí)行用戶自定義的查詢。 系統(tǒng)流程圖 在本系統(tǒng)中準(zhǔn)備通過如下窗體來實現(xiàn)數(shù)據(jù)維護的功能。 (3)選中“將此數(shù)據(jù)集添加到設(shè)計器”復(fù)選框，單擊“確定”按鈕。單擊窗體上“ CmbBox運算符”控件，然后在“屬性”對話框中單擊 Items 欄，就會出現(xiàn)一個按鈕，單擊按鈕，在打開的窗口中如圖 所示設(shè)置字符串集合編輯器字符串。單擊“插入表”按鈕，把“讀者信息”表插入到報表中，單擊“下一步”按鈕。 在程序運行中，如果單擊“讀者信息”菜單項，就會自動在窗體上顯示“讀者信息報表 .rpt”：如果單擊“借閱信息”命令就會自動在窗體上顯示“借閱信息 13 報表 .rpt”報表。 (2)單擊 DataBinding 屬性前面的 +號打開該屬性的詳細列表。 12 讀者信息 在當(dāng)前項目中添加一個“ Windows 窗體”，將窗體命名為“讀者信息”。 (3)在“選擇要添加到數(shù)據(jù)集中的表”列表框中列出了前面添加的OleDbDataAdapter 組件所連接的表 ,選中該表名前面的復(fù)選框。 (1)在工具箱中 單擊 OleDbDataAdapter 組件，在窗體任意位置拖動出一個虛框矩形后釋放左鍵彈出“數(shù)據(jù)適配器配置向?qū)А睂υ捒颉? (2)在其中的第一個下拉列表框中選擇數(shù)據(jù)庫所在服務(wù)器名稱。在彈出的快捷菜單中執(zhí)行“新建表”命令，出現(xiàn)表設(shè)計器。 路由器： 一臺 SOHO 路由器 TLR402M 網(wǎng)絡(luò)拓?fù)浣Y(jié)構(gòu) 本設(shè)計采用 客戶機 /服務(wù)器（ C/S）體系 ， 數(shù)據(jù)的儲存管理功能較為透明 性 ，可以合理均衡事務(wù)的處理，充分保證數(shù)據(jù)的完整性和一致性。 ? 可以對書籍信息進行維護 ,包括添加及刪除等操作。 ⑴ 在讀者信息管理部分 ,要求如下。 數(shù)據(jù)需求 根據(jù)系統(tǒng)的需求，首先 將要記錄的信息分類，要記錄的信息如下。 **大學(xué)計算機科學(xué)與工程 學(xué)院 數(shù)據(jù)庫課程設(shè)計 報告書 題目： 基于 C/S模式的 圖書 管理 系統(tǒng)的設(shè)計 所學(xué) 專業(yè)： 計算機軟件與理論 班 級 ： 作 者 ： 指導(dǎo)老師： 完成 日期： 20xx 年 08月 08 日 2 內(nèi)容提要 本文介紹了一個基于 Client/Server 模式的 高校 圖書 管理 系統(tǒng)的設(shè)計與實現(xiàn) 。 ⑴ 讀者信息：包括證號、姓名、聯(lián)系方式、已借書數(shù)目、讀者類別和能否借書等。 ? 可以瀏覽讀者信息。 ⑷ 在借閱信息管理部分 ,要求如下。 圖 C/S模式結(jié)構(gòu) 第二章 解決方案 數(shù)據(jù)庫 主要著重于數(shù)據(jù)對象的屬性和數(shù)據(jù)對象之間的關(guān)系的分析。 (2)添加表的字段和其他詳細資料。輸入登錄服務(wù)器信息后選擇數(shù)據(jù)庫 Library，然后單擊 Test Connection 按鈕。 (2) 單擊“下一步”，在打開的對話框中選擇前面建好的數(shù)據(jù)連接，然后單擊“下一步”。 (4)選中“將此數(shù)據(jù)集添加到設(shè)計器”復(fù)選框，單擊“確定”按鈕 這樣 ,將生成一個名稱為“ Lib 管理 者信息”的數(shù)據(jù)集 ,該數(shù)據(jù)集以文件形式存儲 ,文件名為“ Lib 管理者信息 .xsd”。 設(shè)計顯示界面 在窗體上添加 1 個 GroupBox 控件， 9 個 Button 控件， 5 個 TextBox 控件， 1個 CheckBox 控件和 7 個 Label 控件。 (3)設(shè)置 Text 屬性：在該屬性后面欄中單擊并選擇所對應(yīng)字段。 添加讀者信息報表 (1)在開發(fā)環(huán)境中選擇菜單“項目”中的“添加新項”對話框中選擇 Crystal Report 選項。 (7)在“字段”選項卡中單擊“全部添加”按鈕，把“讀者信息”表中的所有字段添加到報表中，單擊“完成”按鈕就完成報表的設(shè)計。 圖 所示設(shè)置字符串集合編輯器 設(shè)置完畢，單擊確定按鈕。 這樣，將生成一個名稱為“ Lib 綜合查詢”的數(shù)據(jù)集，該數(shù)據(jù)集以文件的形式存儲，文件名為“ Lib 綜合查詢 .xsd”。 (1) 主窗體：管理著各個子窗體。 系統(tǒng)流程圖如圖 所示： 圖 系統(tǒng)流程圖 程序調(diào)試情況 在數(shù)據(jù)連接時一定要注意窗體和相應(yīng)顯示控件的綁定關(guān)系。 18 圖 書籍信息窗體 單擊“輸入 /查看借閱信息”，就會顯示“借閱信息”窗體，在該窗體中可以對出版社信息進行維護操作。 20 圖 綜合查詢窗體 結(jié)論 在這 個系統(tǒng)的開發(fā)過程中，值得注意的幾點有： (1)數(shù)據(jù)報表的實現(xiàn) .報表是數(shù)據(jù)庫應(yīng)用程序的重要組成部分 ,通過報表 ,可以把數(shù)據(jù)庫中內(nèi)容經(jīng)過組織以后生動地展示給用戶， 提供的Crystal Report 可以大大提高報表的設(shè)計效率。當(dāng)遇到障礙的時候 ， 暫時遠離電腦，當(dāng)重新開始工作的時候， 也許 會發(fā)現(xiàn)那些難題現(xiàn)在竟然可以迎刃而解。臨時數(shù)據(jù)集 objDataSetTemp保存從 FillDataSet()函數(shù)調(diào)用中返回的記錄 39。首先清除控件 中的內(nèi)容然后調(diào)用 AddNew方法添加新記錄如果出錯顯示信息 39。該數(shù)組用來存儲字段的數(shù)據(jù)類型 Dim SqlString As String Dim OrderString As String Dim QueryString As String 39。則在“ cmbBox查詢依據(jù)”“ cmbBox排序依據(jù)”將自動填充 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 = 0 .SelectedIndex = 0 End Sub Private Sub btn執(zhí)行查詢 _Click(ByVal sender As , ByVal e As ) Handles btn執(zhí)行查詢 .Click