【文章內(nèi)容簡介】 查詢”子窗體：執(zhí)行用戶自定義的查詢。： 系統(tǒng)流程圖 程序調(diào)試情況在數(shù)據(jù)連接時一定要注意窗體和相應(yīng)顯示控件的綁定關(guān)系。，并對相應(yīng)的提供服務(wù)的SQL Server服務(wù)器進行相應(yīng)的修改，否則數(shù)據(jù)正確連接并顯示。 功能顯示運行程序后首先顯示主窗體。 主界面單擊“輸入/查看讀者信息”。 登錄界面在登錄對話框中輸入用戶姓名和密碼，單擊“確認”按鈕，就會對用戶身份進行認證，如果認證通過。 讀者信息管理窗體在“讀者信息”窗體中可以對讀者信息進行維護操作，例如瀏覽讀者信息，添加記錄和刪除記錄等。單擊“輸入/查看書籍信息”，就會顯示“書籍信息”窗體，在該窗體中可以對書籍信息進行維護操作。 書籍信息窗體單擊“輸入/查看借閱信息”，就會顯示“借閱信息”窗體，在該窗體中可以對出版社信息進行維護操作。出版社信息維護窗體如圖所示。 借閱信息窗體單擊“輸入/查看出版社信息”，就會顯示“出版社信息”窗體，在該窗體中可以對借閱信息進行維護操作。 出版社信息窗體單擊“輸入/查看管理者信息”。 管理者信息窗體在主窗體上單擊“顯示報表”，那么就可以查看反映讀者信息和借閱信息的報表，借閱信息的報表如圖所示。 報表窗體如果用戶在運行的主窗體上單擊“綜合查詢”，那么就可以查看針對不同的數(shù)據(jù)表進行查詢操作。選擇查詢依據(jù)為“出版社信息”表查看其中的所有信息。 綜合查詢窗體 結(jié)論在這個系統(tǒng)的開發(fā)過程中，值得注意的幾點有：(1) ,通過報表,可以把數(shù)據(jù)庫中內(nèi)容經(jīng)過組織以后生動地展示給用戶， Report可以大大提高報表的設(shè)計效率。(2) 復雜查詢的實現(xiàn)。在程序運行過程中，單擊窗體中的“綜合查詢”按鈕，就會彈出一個對話框，在該對話框中設(shè)置查詢條件，根據(jù)查詢條件從記錄集中篩選出所需記錄，所指定的查詢條件包括查詢的依據(jù)，排序的依據(jù)，運算符等等。第四章 結(jié)束語通過做課程設(shè)計，有幾點感想，歸納如下。1. 扎實的理論基礎(chǔ)。如果不掌握它們，很難寫出高水平的程序。而這一點又是我們所缺乏的。 2. 不鉆牛角尖。當遇到障礙的時候，暫時遠離電腦，當重新開始工作的時候，也許會發(fā)現(xiàn)那些難題現(xiàn)在竟然可以迎刃而解。3. 多與別人交流。三人行必有我?guī)煛?. 良好的編程風格。注意養(yǎng)成良好的習慣，代碼的縮進編排，變量的命名規(guī)則要始終保持一致。如果注釋和代碼不一致，那就更加糟糕。最后,特別要感謝史開宗老師在軟件工程和數(shù)據(jù)庫課程中認真負責的教學，才使得我能結(jié)合所學的知識完成這一課程設(shè)計。參考文獻[1] 薩師煊，王珊，數(shù)據(jù)庫系統(tǒng)概論（第三版）. 北京：高等教育出版社，2000[2] 齊治昌，譚慶平，寧洪，軟件工程（第二版）.北京：高等教育出版社，2004[3] David ，Visual . 電子工業(yè)出版社，2003附錄：源代碼清單：Public Class 主窗體 Inherits Region Windows 窗體設(shè)計器生成的代碼 ‘此處省略主窗體設(shè)計代碼End Region Dim sender As Dim e As Public Sub LoadDataSet() Dim objDataSetTemp As objDataSetTemp = New 39。臨時數(shù)據(jù)集objDataSetTemp保存從FillDataSet()函數(shù)調(diào)用中返回的記錄 39。如果未出錯則填充到主數(shù)據(jù)集 objLib管理者信息中 Try (objDataSetTemp) Catch eFillDataSet As Throw eFillDataSet End Try Try () (objDataSetTemp) Catch eLoadMerge As Throw eLoadMerge End Try End Sub Public Sub FillDataSet(ByVal dataSet As ) 39。實現(xiàn)打開連接，將OleDbDataAdapter1中的數(shù)據(jù)添加到數(shù)據(jù)集，關(guān)閉連接。 = False Try () (dataSet) Catch fillException As 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 End End Sub Private Sub LinkLabel_讀者信息_LinkClicked(ByVal sender As , ByVal e As ) Handles btn_讀者信息_Click(sender, e) End Sub Private Sub LinkLabel_書籍信息_LinkClicked(ByVal sender As , ByVal e As ) Handles 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 btn_出版社信息_Click(sender, e) End Sub Private Sub LinkLabel_借閱信息_LinkClicked(ByVal sender As , ByVal e As ) Handles btn_借閱信息_Click(sender, e) End Sub Private Sub LinkLabel_查詢_LinkClicked(ByVal sender As , ByVal e As ) Handles btn_查詢_Click(sender, e) End Sub Private Sub LinkLabel_報表_LinkClicked(ByVal sender As , ByVal e As ) Handles btn_報表_Click(sender, e) End Sub Private Sub LinkLabel_管理者信息_LinkClicked(ByVal sender As , ByVal e As ) Handles btn_管理者信息_Click(sender, e) End Sub 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(用戶名稱)) = Then If Trim(drv(密碼)) = 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 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 If UserCheck(sender, e) Then Dim dlg As 書籍信息 dlg = New 書籍信息