【導(dǎo)讀】主要用于驗(yàn)證用戶身份，進(jìn)行有效的操作。從主界面模塊在驗(yàn)證后進(jìn)入每個子模。塊進(jìn)行各個子系統(tǒng)的具體功能操作。在整個系統(tǒng)設(shè)計(jì)中充分利用了模塊化的設(shè)計(jì)。思想和開發(fā)方法。根據(jù)系統(tǒng)的需求，首先將要記錄的信息分類，要記錄的信息如下?？梢詫ψx者信息進(jìn)行維護(hù),包括添加及刪除等操作。⑶在書籍信息管理部分,要求如下?？梢詾g覽借閱信息。顯示當(dāng)前數(shù)據(jù)庫中管理者情況。2塊網(wǎng)卡：客戶機(jī)D-LinkDFE-650TX，服務(wù)器IntelPCLA8460B。本設(shè)計(jì)采用客戶機(jī)/服務(wù)器（C/S）體系，數(shù)據(jù)的儲存管理功能較為透明性，可以合理均衡事務(wù)的處理，充分保證數(shù)據(jù)的完整性和一致性。數(shù)據(jù)庫主要著重于數(shù)據(jù)對象的屬性和數(shù)據(jù)對象之間的關(guān)系的分析。

　　

【正文】 .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ù)據(jù)源不同外，設(shè)計(jì)思路步驟均相同，此處省略“管理者信息”，“出 版社信息”，“書籍信息”，“借閱信息”四個模塊的代碼。 附 （略） 附 （略） 附 （略） 附 （略） 附 ： Public Class 綜合查詢 Inherits Region Windows 窗體設(shè)計(jì)器生成的代碼 ‘此處省略窗體設(shè)計(jì)代碼 End Region Sub QueryData(ByVal SqlString As String, ByVal OrderString As String) QueryString = SqlString If OrderString Then QueryString = SqlString + ORDER BY + OrderString End If End Sub Public Sub LoadDataSet() Dim objDataSetTemp As 圖書館管理 .Lib綜合查詢 objDataSetTemp = New 圖書館管理 .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 圖書館管理 .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。該數(shù)組用來存儲字段的數(shù)據(jù)類型 Dim SqlString As String Dim OrderString As String Dim QueryString As String 39。這三個字符串變量用來存儲查詢語句 39。SqlString變量用來存儲查詢語句中除了 ORDER BY子句之外的部分 39。OrderString變量用來存儲 ORDER BY子句 39。QueryString變量存儲查詢語句 Private Sub 綜合查詢 _Load(ByVal sender As , ByVal e As ) Handles 39。初始化列表“ cmbBox查詢表” .(讀者信息 ) .(管理者信息 ) .(借閱信息 ) .(書籍信息 ) .(出版社信息 ) .SelectedIndex = 0 39。將列表的第一項(xiàng)設(shè)為選中項(xiàng) End Sub Private Sub cmbBox查詢表 _SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles cmbBox查詢表 .SelectedIndexChanged 39。在“ cmbBox查詢表”中選擇一項(xiàng)作為查詢表 39。則在“ cmbBox查詢依據(jù)”“ cmbBox排序依據(jù)”將自動填充 39。查詢表中的所有字段 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 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。 + .Text + 39。 ElseIf DataType( .SelectedIndex) = Date Then SqlString = SELECT * FROM + .Text + WHERE SqlString = SqlString + 詢依據(jù) .Text + + _ .Text + Cdate( + .Text + ) End If OrderString = .Text QueryData(SqlString, OrderString) If .Text = 讀者信息 Then = QueryString End If If .Text = 管理者信息 Then = QueryString End If If .Text = 借閱信息 Then = QueryString End If If .Text = 書籍信息 Then = QueryString End If If .Text = 出版社信息 Then 32 = QueryString End If Try () 39。嘗試加載數(shù)據(jù)集 = .Text Catch eLoad As () End Try End Sub End Class