圖書管理系統(tǒng)vb源代碼加設(shè)計-預(yù)覽頁
【正文】 sql, connt, adOpenKeyset, adLockPessimistic (8) = (8) + 1 MsgBox 本書借閱成功 !, vbOKOnly + vbExclamation Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim rs_borrow As New Dim rs_reader As New Dim connt As New Dim sql As String Dim sqlreader As String provider=。 amp。 amp。 End If If = vbChecked Then If Trim(sql) = Then sql = 類別 =39。 39。 Trim( amp。 amp。 Else sql = sql amp。 ) amp。 Trim( amp。 and 圖書編號 =39。 39。 ) amp。 amp。 End If End If provider=。 sql = adUseClient sql, connt, adOpenKeyset, adLockPessimistic = False = False = False If = 0 Then MsgBox 查詢不到該圖書信息 !, vbOKOnly + vbExclamation Else Set = rs_findbook End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() If Trim(book_num) = Then MsgBox 請選擇要借閱的圖書 !, vbOKOnly + vbExclamation Exit Sub End If If panduan = 是 Then MsgBox 此書已被借出 !, vbOKOnly + vbExclamation Exit Sub End If Unload Me 借閱登記 .Show End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = (0).CellValue() panduan = (7).CellValue() End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() Dim rs_find As New Dim connt As New Dim sql As String sql = select * from 圖書類別 provider=。 data source= amp。 username amp。 amp。 amp。 39。 \ = adUseClient sql, connt, adOpenKeyset, adLockPessimistic Set = rs_book = False = False = False End Sub Private Sub Command3_Click() Dim book_number As String Dim reader_number As String Dim answer As String Dim rs_back As New Dim connt As New Dim sql As String provider=。 amp。刪除這本書在 借閱信息 中的記錄 = adUseClient sql, connt, adOpenKeyset, adLockPessimistic sql = select * from 書籍信息 where 圖書編號 = 39。 = adUseClient sql, connt, adOpenKeyset, adLockPessimistic (7) = 否 sql = select * from 讀者信息 where 讀者編號 = 39。 = adUseClient sql, connt, adOpenKeyset, adLockPessimistic (8) = (8) 1 MsgBox 成功刪除 !, vbOKOnly + vbExclamation, = False Else Exit Sub End If If findform = True Then Command1_Click Else Command2_Click End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() Dim rs_reader As New Dim connt As New Dim rs_book As New Dim sql As String sql = select * from [讀者信息 ] provi
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1