數(shù)據(jù)庫(kù)原理與應(yīng)用課程設(shè)計(jì)指導(dǎo)書(shū)-閱讀頁(yè)
2024-08-23 00:40本頁(yè)面
【正文】 () Else (登錄失敗！, 登錄, , _ ) End IfEnd SubPrivate Sub btn_退出_Click(ByVal sender As , ByVal e As ) Handles End End Sub 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_報(bào)表_Click(ByVal sender As , ByVal e As ) Handles 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 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 SubEnd 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 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 () Catch eLoad As () End Try () End Sub Public Sub LoadDataSet() Dim objDataSetTemp As objDataSetTemp = New 39。如果未出錯(cuò)則填充到主數(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。 = False Try () (dataSet) Catch fillException As Throw fillException Finally = True () End Try End Sub Private Sub objLib讀者信息_PositionChanged() = ((((objLib讀者信息, _讀者信息).Position + 1).ToString + 的) _+ (objLib讀者信息, 讀者信息).) End Sub Private Sub btnAdd_Click(ByVal sender As , ByVal e As ) Handles 39。調(diào)用函數(shù)顯示記錄數(shù)和當(dāng)前記錄位置 Try (objLib讀者信息, 讀者信息).EndCurrentEdit() (objLib讀者信息, 讀者信息).AddNew() Catch eEndEdit As () End Try () End Sub Private Sub btnUpdate_Click(ByVal sender As , ByVal e As ) Handles 39。創(chuàng)建一個(gè)新數(shù)據(jù)集來(lái)保存對(duì)主數(shù)據(jù)集所做的更改 (objLib讀者信息, 讀者信息).EndCurrentEdit() 39。調(diào)用UpdateDataSource函數(shù)將更改合并到數(shù)據(jù)集中 (objDataSetChanges) () Catch eUpdate As Throw eUpdate End Try End If End Sub Public Sub UpdateDataSource(ByVal ChangedRows As ) 39。（略）（略）（略）（略）：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 objDataSetTemp = New 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 ) = False Try If Then () End If () (dataSet) (dataSet) (dataSet) (dataSet) (dataSet) Catch fillException As Throw fillException Finally = True () End Try End Sub Dim DataType(100) As String 39。這三個(gè)字符串變量用來(lái)存儲(chǔ)查詢語(yǔ)句 39。OrderString變量用來(lái)存儲(chǔ)ORDER BY子句 39。初始化列表“cmbBox查詢表” (讀者信息) (管理者信息) (借閱信息) (書(shū)籍信息) (出版社信息) = 0 39。在“cmbBox查詢表”中選擇一項(xiàng)作為查詢表 39。查詢表中的所有字段 39。 + + 39。嘗試加載數(shù)據(jù)集 = Catch eLoad As () End Try End SubEnd Cl
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1