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