【正文】 查詢(xún)表中的所有字段 39。這三個(gè)字符串變量用來(lái)存儲(chǔ)查詢(xún)語(yǔ)句 39。調(diào)用函數(shù)顯示記錄數(shù)和當(dāng)前記錄位置 27 Try (objLib讀者信息 , 讀者信息 ).EndCurrentEdit() (objLib讀者信息 , 讀者信息 ).AddNew() Catch eEndEdit As () End Try _PositionChanged() End Sub Private Sub btnUpdate_Click(ByVal sender As , ByVal e As ) Handles 39。如果未出錯(cuò)則填充到主 數(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 圖書(shū)館管理 .Lib管理者信息 ) 39。 3. 多與別人交流。 (2)復(fù)雜查詢(xún)的實(shí)現(xiàn)。出版社信息維護(hù)窗體如圖所示。在把系統(tǒng)從一臺(tái)計(jì)算機(jī)移植到另一臺(tái)計(jì)算機(jī)時(shí)一定要把數(shù)據(jù)文件 和 同時(shí)移植，并對(duì)相應(yīng)的提供服務(wù)的 SQL Server 服務(wù)器進(jìn)行相應(yīng)的修改，否則數(shù)據(jù)正確連接并顯示。 (2)“讀者信息”子窗體：管理讀者信息。而在項(xiàng)目中，添加一個(gè) DataSet 組件，名稱(chēng)為“ objLib 綜合查詢(xún)”。 添加數(shù)據(jù)組件 在窗體上添加一個(gè) OleDbDataAdapter 組件，使用數(shù)據(jù)適配器配置向?qū)?duì)其進(jìn)行配置。 設(shè)計(jì)完成的“讀者信息報(bào)表”如圖所示。 (2)在“名稱(chēng)”文本框中輸入報(bào)表名“讀者信息報(bào)表 .rpt”，單擊“打開(kāi)”按鈕，就會(huì)彈出入圖所示的“ Crystal Report 庫(kù)”對(duì)話(huà)框。 (4)設(shè)置其他 TextBox 控件的 DataBinding 屬性。 各按鈕控件是為了執(zhí)行相應(yīng) 的操作。而在項(xiàng)目中 ,添加了一個(gè) DataSet 組件 ,名為“ objLib 管理者信息”。 (3)選中“使用 SQL 語(yǔ)句”，然后單擊“下一步”進(jìn)入“生成 SQL 語(yǔ)句”對(duì)話(huà)框。如果測(cè)試成功，單擊“確定”按鈕。各表數(shù)據(jù)結(jié)構(gòu)如 下 表所示。一般采用 ER 圖， 即 實(shí)體 關(guān)系模型來(lái)分析數(shù)據(jù)對(duì)象的屬性和數(shù)據(jù)對(duì)象之間的關(guān)系。 ? 可以瀏覽借閱信息。 ? 可以對(duì)讀者信息進(jìn)行維護(hù) ,包括添加及刪除等操作。 ⑵ 出版社信息：包括名稱(chēng)、地址、網(wǎng)址、 Email 等。 運(yùn)用 Visual 結(jié)合 Microsoft SQL Server 20xx 開(kāi)發(fā)的登 錄 模塊主要用于驗(yàn)證用戶(hù)身份，進(jìn) 行有效的操作。 本系統(tǒng)的結(jié)構(gòu)分為讀者信息管理模塊、出版社信息管理模塊、書(shū)籍信息管理模塊、借閱信息管理模塊、管理者管理信息模塊、報(bào)表顯示模塊和查詢(xún)處理模塊。 事務(wù)需求 經(jīng)過(guò)實(shí)際考察、咨詢(xún)和分析，高等院校圖書(shū) 管理系統(tǒng)主要應(yīng)該具有以下功能 模塊 ，如 圖 。 ? 可以瀏覽書(shū)籍信息。 圖 系統(tǒng)業(yè)務(wù)邏輯關(guān)系 系 統(tǒng)開(kāi)發(fā)平臺(tái) 前臺(tái) ： 硬件要求： CPU: Pentium 4 IBM兼容機(jī) 內(nèi)存： 512MB 以上容量 顯卡： 32MB 或以上顯存之 AGP 接口顯卡 軟件要求： 操作系統(tǒng)： Microsoft Windows 20xx/XP 用戶(hù)登錄 讀者信息管理 出版社信息管理 書(shū)籍信息管理 借閱信息管理 管理者信息管理 注 銷(xiāo) 7 開(kāi)發(fā)工具： Microsoft Visual 數(shù)據(jù)庫(kù)服務(wù)器： 硬件要求： CPU: Pentium4 IBM兼容機(jī) 內(nèi)存： 1024MB 以上容量 顯卡： 32MB 或以上顯存之 AGP 接口顯卡 軟件要求： 操作系統(tǒng)： Microsoft Windows 20xx Server 數(shù)據(jù)庫(kù)服務(wù)器 ： Microsoft SQL 20xx Server 網(wǎng)絡(luò)設(shè)備： 2 塊 網(wǎng)卡： 客戶(hù) 機(jī) DLink DFE650TX， 服務(wù)器 Intel PCLA8460B。 (1)在服務(wù) 器資源管理器中右擊數(shù)據(jù)庫(kù) Library 下的“表”文件夾。單擊“下一步”切換到 Connection 選項(xiàng)卡。 添加數(shù)據(jù)組件 在工具箱中單擊“數(shù)據(jù)”選項(xiàng)卡，添加 OleDbDataAdapter 組件。 (2)在其中選中“新建”單選按鈕 ,并在其后面的文本框中輸入“ Lib 管理者信息”。否則拒絕用戶(hù)的操作請(qǐng)求 . 在 UserCheck 函數(shù)中首先定義 Login 類(lèi)型的變量 dlg_Login,然后通過(guò)ShowDialog 方法來(lái)顯示登錄窗體 .如果用戶(hù)在登錄窗體中輸入用戶(hù)姓名和密碼 ,并且單擊了 確認(rèn) 按鈕 ,那么自動(dòng)調(diào)用一個(gè)自定義函數(shù) LoadDataSet(),由此函數(shù)進(jìn)行數(shù)據(jù)加載 .如果出錯(cuò) ,顯示錯(cuò)誤信息 ,回滾整個(gè)事務(wù) . 具體設(shè)計(jì)代碼見(jiàn)附錄 。 (1)選中“ Edit 證號(hào)”控件單擊“屬性”對(duì)話(huà)框。 在窗體上添加一個(gè) CrystalReportViewer1，它充當(dāng)報(bào)表顯示的窗體，然后在窗體中添加一個(gè)菜單，菜單中包括兩個(gè)子菜單項(xiàng) — “讀者信息”和“借閱信息”。 (6)選擇數(shù)據(jù)源為 OLE DB(ADO)中的 Library 數(shù)據(jù)庫(kù)，并且選中其中的“讀者信息”表。 還需要設(shè)置“ CmbBox運(yùn)算符”控件的 Items 屬性。 (2)在“選擇要添加到數(shù)據(jù)集中的表”列表框中，選中 5 個(gè)表前面的復(fù)選框。適用內(nèi)存不低于 256M 配備有 Windows20xx，Windows20xx， WindowsXP 系統(tǒng)的計(jì)算機(jī)。 16 (7)“報(bào)表窗體”子窗體：顯示數(shù)據(jù)報(bào)表。 單擊“輸入 /查看書(shū)籍信息”，就會(huì)顯示“書(shū)籍信息”窗體，在該窗體中可以對(duì)書(shū)籍信息進(jìn)行維護(hù)操作。 圖 報(bào)表窗體 如果用戶(hù)在運(yùn)行的主窗體上單擊“綜合查詢(xún)”，那么就可以查看針對(duì)不同的數(shù)據(jù)表進(jìn)行查詢(xún)操作。 而這一點(diǎn)又是我們所缺乏的。 最后 ,特別要感謝史開(kāi)宗老師在軟件工程和數(shù)據(jù)庫(kù)課程中認(rèn)真負(fù)責(zé)的教學(xué)，才使得我能結(jié)合所學(xué)的知識(shí)完成這一課程設(shè)計(jì)。實(shí)現(xiàn)打開(kāi)連接，將 OleDbDataAdapter1中的數(shù)據(jù)添加到數(shù)據(jù)集，關(guān)閉連接。打開(kāi)數(shù)據(jù)連接，使用 OleDbDataAdapter的 Update方法更新數(shù)據(jù)庫(kù) Try If (Not (ChangedRows) Is Nothing) Then () (ChangedRows) End If Catch updateException As 28 Throw updateException Finally () End Try End Sub Private Sub btnNavFirst_Click(ByVal sender As , ByVal e As ) Handles (objLib讀者信息 , 讀者信息 ).Position = 0 _PositionChanged() End Sub Private Sub btnCancel_Click(ByVal sender As , ByVal e As ) Handles (objLib讀者信息 , 讀者信息 ).CancelCurrentEdit() _PositionChanged() End Sub Private Sub btnDelete_Click(ByVal sender As , ByVal e As ) Handles If ((objLib讀者信息 , 讀者信息 ).Count 0) Then (objLib讀者信息 , 讀者信息 ).RemoveAt _ ((objLib讀者信息 , 讀者信息 ).Position) End If _PositionChanged() End Sub Private Sub btnLast_Click(ByVal sender As , ByVal e As ) Handles (objLib讀者信息 , 讀者信息 ).Position = _ ((objLib讀者信息 , 讀者信息 ).Count 1) _PositionChanged() End Sub Private Sub btnNavPrev_Click(ByVal sender As , ByVal e As ) Handles (objLib讀者信息 , 讀者信息 ).Position = _ ((objLib讀者信息 , 讀者信息 ).Position 1) _PositionChanged() End Sub Private Sub btnNavNext_Click(ByVal sender As , ByVal e As ) Handles (objLib讀者信息 , 讀者信息 ).Position = _ ((objLib讀者信息 , 讀者信息 ).Position + 1) _PositionChanged() End Sub Private Sub btnCancelAll_Click(ByVal sender As , ByVal e As ) Handles .RejectChanges() 29 End Sub End Class **鑒于“讀者信息”，“管理者信息”，“出版社信息”，“書(shū)籍信息”，“借閱信息”模塊除連接數(shù)據(jù)源不同外，設(shè)計(jì)思路步驟均相同，此處省略“管理者信息”，“出 版社信息”，“書(shū)籍信息”，“借閱信息”四個(gè)模塊的代碼。將列表的第一項(xiàng)設(shè)為選中項(xiàng) End Sub Private Sub cmbBox查詢(xún)表 _SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles cmbBox查詢(xún)表 .SelectedIndexChanged 39。 ElseIf DataType( .SelectedIndex) = Date Then SqlString = SELECT * FROM + .Text + WHERE SqlString = S