【文章內(nèi)容簡介】 籍信息進(jìn)行維護(hù)操作。書籍信息維護(hù)窗體如圖 所示。 18 圖 書籍信息窗體 單擊“輸入 /查看借閱信息”，就會顯示“借閱信息”窗體，在該窗體中可以對出版社信息進(jìn)行維護(hù)操作。出版社信息維護(hù)窗體如圖所示。 圖 借閱信息窗體 單擊“輸入 /查看出版社信息”，就會顯示“出版社信息”窗體，在該窗體中可以對借閱信息進(jìn)行維護(hù)操作。借閱信息維護(hù)窗體如圖 所示。 19 圖 出版社信息窗體 單擊“輸 入 /查看管理者信息”，結(jié)果如圖 所示。 圖 管理者信息窗體 在主窗體上單擊“顯示報(bào)表”，那么就可以查看反映讀者信息和借閱信息的報(bào)表，借閱信息的報(bào)表如圖所示。 圖 報(bào)表窗體 如果用戶在運(yùn)行的主窗體上單擊“綜合查詢”，那么就可以查看針對不同的數(shù)據(jù)表進(jìn)行查詢操作。選擇查詢依據(jù)為“出版社信息”表查看其中的所有信息，結(jié)果如圖 所示。 20 圖 綜合查詢窗體 結(jié)論 在這 個(gè)系統(tǒng)的開發(fā)過程中，值得注意的幾點(diǎn)有： (1)數(shù)據(jù)報(bào)表的實(shí)現(xiàn) .報(bào)表是數(shù)據(jù)庫應(yīng)用程序的重要組成部分 ,通過報(bào)表 ,可以把數(shù)據(jù)庫中內(nèi)容經(jīng)過組織以后生動地展示給用戶， 提供的Crystal Report 可以大大提高報(bào)表的設(shè)計(jì)效率。 (2)復(fù)雜查詢的實(shí)現(xiàn)。在程序運(yùn)行過程中，單擊窗體中的“綜合查詢”按鈕，就會彈出一個(gè)對話框，在該對話框中設(shè)置查詢條件，根據(jù)查詢條件從記錄集中篩選出所需記錄，所指定的查詢條件包括查詢的依據(jù)，排序的依據(jù)，運(yùn)算符等等。 第四章 結(jié)束語 通過做課程設(shè)計(jì)，有幾點(diǎn)感想， 歸納 如下。 1. 扎實(shí)的 理論 基礎(chǔ)。如果不掌握 它 們，很難寫出高水平的程序。 而這一點(diǎn)又是我們所缺乏的。 2. 不鉆牛角尖。當(dāng)遇到障礙的時(shí)候 ， 暫時(shí)遠(yuǎn)離電腦，當(dāng)重新開始工作的時(shí)候， 也許 會發(fā)現(xiàn)那些難題現(xiàn)在竟然可以迎刃而解。 3. 多與別人交流。三人行必有我?guī)煛? 4. 良好的編程風(fēng)格。注意養(yǎng)成良好的習(xí)慣，代碼的縮進(jìn)編排，變量的命名規(guī)則要始終保持一致。如果注釋和代碼不一致，那就更加糟糕。 最后 ,特別要感謝史開宗老師在軟件工程和數(shù)據(jù)庫課程中認(rèn)真負(fù)責(zé)的教學(xué)，才使得我能結(jié)合所學(xué)的知識完成這一課程設(shè)計(jì)。 21 參考文獻(xiàn) 1 薩師煊，王珊，數(shù)據(jù)庫系統(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 圖書館管理 .Lib管理者信息 objDataSetTemp = New 圖書館管理 .Lib管理者信息 39。臨時(shí)數(shù)據(jù)集 objDataSetTemp保存從 FillDataSet()函數(shù)調(diào)用中返回的記錄 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 圖書館管理 .Lib管理者信息 ) 39。實(shí)現(xiàn)打開連接，將 OleDbDataAdapter1中的數(shù)據(jù)添加到數(shù)據(jù)集，關(guān)閉連接。 = False Try () (dataSet) Catch fillException As 22 Throw fillException Finally = True () End Try End Sub Private Sub Label1_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub LinkLabel_退出 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_退出 .LinkClicked End End Sub Private Sub LinkLabel_讀者信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_讀者信息 .LinkClicked btn_讀者信息 _Click(sender, e) End Sub Private Sub LinkLabel_書籍信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_書籍信息 .LinkClicked btn_書籍信息 _Click(sender, e) End Sub Private Sub 主窗體 _Load(ByVal sender As , ByVal e As ) Handles End Sub Private Sub LinkLabel_出版社信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_出版社信息 .LinkClicked btn_出版社信息 _Click(sender, e) End Sub Private Sub LinkLabel_借閱信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_借閱信息 .LinkClicked btn_借閱信息 _Click(sender, e) End Sub Private Sub LinkLabel_查詢 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_查詢 .LinkClicked btn_查詢 _Click(sender, e) End Sub Private Sub LinkLabel_報(bào)表 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_報(bào)表 .LinkClicked btn_報(bào)表 _Click(sender, e) End Sub Private Sub LinkLabel_管理者信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_管理者信息 .LinkClicked btn_管理者信息 _Click(sender, e) End Sub 23 Function UserCheck(ByVal sender As , ByVal e As ) As Boolean Dim dlg_Login As Login dlg_Login = New Login If ( = ) Then Try () Catch eLoad As () End Try Dim i As Integer (objLib管理者信息 , 管理者信息 ).Position = 0 For i = 0 To (objLib管理者信息 , 管理者信息 ).Count 1 If Not (objLib管理者信息 , 管理者信息 ). Is GetType(DataRowView) Then Exit For End If Dim drv As DataRowView = CType((objLib管理者信息 , 管理者信息 ).Current, DataRowView) If Trim(drv(用戶名稱 )) = .Text Then If Trim(drv(密碼 )) = .Text Then Return True End If End If (objLib管理者信息 , 管理者信息 ).Position += 1 Next End If UserCheck = False End Function Private Sub btn_讀者信息 _Click(ByVal sender As , ByVal e As ) Handles btn_讀者信息 .Click If UserCheck(sender, e) Then Dim dlg As 讀者信息 dlg = New 讀者信息 () Else (登錄失?。?, 登錄 , , _ ) End If End Sub Private Sub btn_書籍信息 _Click(ByVal sender As , ByVal e As ) Handles btn_書籍信息 .Click If UserCheck(sender, e) Then Dim dlg As 書籍信息 dlg = New 書籍信息 24 () Else (登錄失?。?, 登錄 , , _ ) End If End Sub Private Sub btn_出版社信息 _Click(ByVal sender As , ByVal e