【正文】 If DataType( .SelectedIndex) = Int32 Then SqlString = SELECT * FROM + .Text + WHERE SqlString = SqlString + .Text + + _ .Text + + ( + .Text + ) ElseIf DataType( .SelectedIndex) = String Then SqlString = SELECT * FROM + .Text + WHERE SqlString = SqlString + .Text + + _ .Text + + 39。SqlString變量用來存儲查詢語句中除了 ORDER BY子句之外的部分 39。將在窗體中對數(shù)據(jù)的更改保存到數(shù) 據(jù)庫中 Try () Catch eUpdate As () End Try _PositionChanged() End Sub Public Sub UpdateDataSet() Dim objDataSetChanges As 圖書館管理 .Lib讀者信息 = _ New 圖書館管理 .Lib讀者信息 39。實現(xiàn)打開連接，將 OleDbDataAdapter1中的數(shù)據(jù)添加到數(shù)據(jù)集，關(guān)閉連接。三人行必有我?guī)?。在程序運行過程中，單擊窗體中的“綜合查詢”按鈕，就會彈出一個對話框，在該對話框中設(shè)置查詢條件，根據(jù)查詢條件從記錄集中篩選出所需記錄，所指定的查詢條件包括查詢的依據(jù)，排序的依據(jù)，運算符等等。 圖 借閱信息窗體 單擊“輸入 /查看出版社信息”，就會顯示“出版社信息”窗體，在該窗體中可以對借閱信息進行維護操作。 功能顯示 運行程序后首先顯示主窗體，如圖 所示。 (3)“管理者信息”子窗體：管理用戶信息。 設(shè)計完成的數(shù)據(jù)集如圖 所示。選擇數(shù)據(jù)連接后輸入 SQL 語句“ SELECT 出版社信息 .* FROM 出版社信息”。 圖 讀者信息報表效果圖 添加借閱情況報表 添加借閱情況報表的過程與添加讀者信息報表過程大致相同，不同之處在于 14 插入到報表中的數(shù)據(jù)表為“讀者信息”。 (3)在其對話框中選擇“使用報表專家”單選按鈕，在“選擇專家”列表框中選擇“標準”選項，單擊“確定”按鈕，進入下一步。 功能實現(xiàn) 顯示數(shù)據(jù)，添加讀者，保存更改，記錄定位的實現(xiàn)。各 TextBox 控件和 CheckBox 控件用來顯示數(shù)據(jù)集中的數(shù)據(jù)，這個功能通過設(shè)置 DataBindings 屬性來實現(xiàn)。 在解決方案資源管理器中右擊該項目，在彈出快捷菜單中單擊“屬性”菜單項。 (4)在其中的多行文本框直接輸入 SQL 語句“ SELECT 管理者信息 .* FROM 管理者信息”。 主窗體設(shè)計 創(chuàng)建一個新的“ Windows 應(yīng)用程序”類型的 項目，名為“圖書館管理”。 表 名 列 名 數(shù)據(jù)類型 長 度 主 鍵 出版社信息 出版社 名稱 varchar 50 Yes 出版社 地址 varchar 50 網(wǎng)址 char 50 Email char 50 讀者信息 證號 int 4 Yes 姓名 varchar 20 聯(lián)系方式 varchar 50 已借書數(shù)目 int 4 讀者類別 int 4 能否借書 bit 1 密碼 varchar 6 借閱信息 書號 char 10 Yes 證號 int 4 Yes 借閱日期 datetime 8 應(yīng)歸還日期 datetime 8 實際歸還日期 datetime 8 續(xù)借 bit 1 書籍信息 書號 char 10 Yes 叢書系列 nchar 50 作者 nchar 50 責任編輯 nchar 50 字數(shù) int 4 定價 money 8 出版時 間 datetime 8 主題分類 nchar 50 二級分類 char 50 館內(nèi)借閱分類 int 4 總冊數(shù) int 4 庫存量 int 4 出版社 varchar 50 書名 varchar 50 管理者信息 用戶名稱 char 20 Yes 密碼 char 20 權(quán)限 int 4 表 圖書管理系統(tǒng) 各表數(shù)據(jù)結(jié)構(gòu) 連接數(shù)據(jù)庫 10 為數(shù)據(jù)庫 Library 和本系統(tǒng)之間建立一個數(shù)據(jù)連接。 ER 模型 設(shè)計 實體列表 實 體 描 述 讀 者 所有借閱者 ，查閱者 ，由證件號標識 出 版 社 圖書館所有圖書所屬出版社 ，由出版社編號標識 書 籍 圖書館所有圖書 ，由刊號標識 借 閱 書號 、證號、借閱日期、應(yīng)歸還日期 等屬性，由方式標識 客戶機 數(shù)據(jù)庫服務(wù)器 8 系統(tǒng)管理員 系統(tǒng)維護人員 系統(tǒng)的 ER 模型 該圖書管理系統(tǒng)的 ER 模型， 如下圖所示 出 版 社 讀 者書 籍名 稱地 址網(wǎng) 址E m a i l證 號 姓 名 聯(lián) 系 方 式已 借 書 數(shù) 目讀 者 類 別能 否 借 書書 號叢 書 系 列作 者責 任 編 輯字 數(shù)定 價 出 版 時 間 主 題 分 類 二 級 分 類 館 內(nèi) 借 閱 分 類書 名出 版 社總 冊 數(shù)庫 存 量借 閱借 閱 日 期應(yīng) 歸 還 日 期能 否 續(xù) 借書 號證 號出 版實 際 歸 還 日 期1mmn 設(shè)計數(shù)據(jù)庫 創(chuàng)建數(shù)據(jù)庫 (1)在服務(wù)器資源管理器中的任一節(jié)點右擊。 ? 可以對借閱信息進行維護操作。 ⑵ 在出版社信息管理部分 ,要求如下。 ⑶ 書籍信息：包括書號、叢書系列、作者、責任編輯、字數(shù)、定價、出版時間、主題分類、二級分類、館內(nèi)借閱分類、總冊數(shù)、庫存量、出版社和書名等。從主界面模塊在驗證后進入每個子模塊 進行各 個 子 系統(tǒng) 的 具 體功能操作。主要功能為管理有關(guān)讀者、出版社、書籍、借閱和管理者的信息等。 根據(jù)這些需要，本系統(tǒng)需要“讀者信息” 表，“出版社信息”表，“書 籍信息”表，“ 借閱信息”表和“管理者信息”表 。 6 ⑶ 在書籍信息管理部分 ,要求如下。 ? 對管理者信息維護操作。 創(chuàng)建數(shù)據(jù)表 9 創(chuàng)建數(shù)據(jù)庫后，為 Library 數(shù)據(jù)庫添加數(shù)據(jù)表，步驟如下。切換到 Provider選項卡，選中列表框中的 Microsoft OLE DB Provider for SQL Server 項。 設(shè)計登錄界面 設(shè)計登錄界面 ,創(chuàng)建一個新的” Windows 窗體” ,名為 登錄 ,作為本系統(tǒng)的登錄界面 .在 登錄 窗體上添加兩個 Label 控件 ,兩個 Button 控件和兩個 TextBox控件 ,添加控件后的窗體如圖所示。 11 生成數(shù)據(jù)集 生成數(shù)據(jù)集的步驟如下 : (1)單擊 OleDbDataAdapter 控件“屬性”對話框中的“生成數(shù)據(jù)集”鏈接 ,打開“生成數(shù)據(jù)集”對話框。 設(shè)計代碼 在程序運行過程中 ,如果想通過單擊 LinkLabel控件或 Button控件進入系統(tǒng)中的各個功能模塊 (如顯示讀者信息等 ),就會彈出一個對話 框要求輸入用戶名和密碼 .單擊 確認 按鈕 ,程序就會到數(shù)據(jù)庫的 管理者信息 表中查找該用戶名和密碼是否存在 .如果存在 ,允許進入功能模塊 . 完成登錄功能的主要代碼集中在 UserCheck 函數(shù)中 .在程序運行過程中 ,在登錄 窗體的 用戶姓名 和 用戶密碼 文本框中輸入用戶名和密碼后 ,單擊 確認 按鈕就會觸發(fā) UserCheck函數(shù)并執(zhí)行其中的代碼 .如果 UserCheck函數(shù)返回 True,那么允許用戶的操作 。 設(shè)置各 TextBox 控件的 DataBinding 屬性來實現(xiàn)對數(shù)據(jù)集中數(shù)據(jù)的顯示 (以Edit 證號為例 )。 顯示報表 在當前項目中添加一個“ Windows 窗體”，命名為“報表窗體”，該模塊顯示當前數(shù)據(jù)庫中讀者信息和借閱信息的報表。 (5)在其中設(shè)置連接信息，單擊“完成”按鈕，返回“標準報表專家”對話框。 為此需要在項目中添加一個窗體“綜合查詢”。 (1)在 OleDbDataAdapter1 組件的“屬性”對話框中單擊“生成數(shù)據(jù)集”超鏈 15 接，打開“ 生成數(shù)據(jù)集”對話框，選中“新建”按鈕并在后面文本框中輸入“ Lib綜合查詢”。需要 Microsoft .NET Framework SDK 的支持。 (6)“借閱信息”子窗體：管理借閱信息。 圖 讀者信息管理窗體 在“讀者信息”窗體中可以對讀者信息進行維護操作，例如 瀏覽讀者信息，添加記錄和刪除記錄等。 圖 管理者信息窗體 在主窗體上單擊“顯示報表”，那么就可以查看反映讀者信息和借閱信息的報表，借閱信息的報表如圖所示。如果不掌握 它 們，很難寫出高水平的程序。如果注釋和代碼不一致，那就更加糟糕。如果未出錯則填充到主數(shù)據(jù)集 objLib讀者信息 中 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讀者信息 ) 39。調(diào)用 UpdateDataSource函數(shù)將更改合并到數(shù)據(jù)集中 objLib讀者信息 .Merge(objDataSetChanges) objLib讀者信息 .AcceptChanges() Catch eUpdate As Throw eUpdate End Try End If End Sub Public Sub UpdateDataSource(ByVal ChangedRows As 圖書館管理 .Lib讀者信息 ) 39。初始化列表“ cmbBox查詢表” .(讀者信息 ) .(管理者信息 ) .(借閱信息 ) .(書籍信息 ) .(出版社信息 ) .SelectedIndex = 0 39。嘗試加載數(shù)據(jù)集 = .Text Catch eLoad As () End Try End Sub End Class