【正文】 ) 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 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 借閱信息 () Else (登錄失敗！ , 登錄 , , _ ) End If End Sub Private Sub btn_退出 _Click(ByVal sender As , ByVal e As ) Handles btn_退出 .Click End 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 綜合查詢 () Else (登錄失敗！ , 登錄 , , _ ) End If End Sub Private Sub btn_報(bào)表 _Click(ByVal sender As , ByVal e As ) 25 Handles btn_報(bào)表 .Click If UserCheck(sender, e) Then Dim dlg As 報(bào)表窗體 dlg = New 報(bào)表窗體 () 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 管理者信息 () Else (登錄失敗！ , 登錄 , , _ ) End If End Sub Private Sub Panel2_Paint(ByVal sender As , ByVal e As ) Handles End Sub End Class 附 ： Public Class 讀者信息 Inherits Region Windows 窗體設(shè)計(jì)器生成的代碼 ‘此處省略主窗體設(shè)計(jì)代碼 End Region Private Sub GroupBox_Enter(ByVal sender As , ByVal e As ) Handles End Sub Private Sub edit證號(hào) _TextChanged(ByVal sender As , ByVal e As ) Handles edit證號(hào) .TextChanged End Sub Private Sub OleDbDataAdapter1_RowUpdated(ByVal sender As , ByVal e As ) Handles End Sub Private Sub 讀者信息 _Load(ByVal sender As , ByVal e As ) Handles Try () 26 Catch eLoad As () End Try _PositionChanged() End Sub Public Sub LoadDataSet() Dim objDataSetTemp As 圖書館管理 .Lib讀者信息 objDataSetTemp = New 圖書館管理 .Lib讀者信息 39。創(chuàng)建一個(gè)新數(shù)據(jù)集來保存對(duì)主數(shù)據(jù)集所做的更改 (objLib讀者信息 , 讀者信息 ).EndCurrentEdit() 39。OrderString變量用來存儲(chǔ) ORDER BY子句 39。 + .Text + 39。在“ cmbBox查詢表”中選擇一項(xiàng)作為查詢表 39。 附 （略） 附 （略） 附 （略） 附 （略） 附 ： Public Class 綜合查詢 Inherits Region Windows 窗體設(shè)計(jì)器生成的代碼 ‘此處省略窗體設(shè)計(jì)代碼 End Region Sub QueryData(ByVal SqlString As String, ByVal OrderString As String) QueryStr