圖書管理系統(tǒng)vb源代碼加設(shè)計-免費閱讀
【正文】 = 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 [讀者信息 ] provider=。刪除這本書在 借閱信息 中的記錄 = adUseClient sql, connt, adOpenKeyset, adLockPessimistic sql = select * from 書籍信息 where 圖書編號 = 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。 username amp。 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=。 amp。 39。 Trim( amp。 Else sql = sql amp。 Trim( amp。 End If If = vbChecked Then If Trim(sql) = Then sql = 類別 =39。 amp。 sql, connt, adOpenKeyset, adLockPessimistic (7) = 是 sql = select * from 讀者信息 where 讀者編號 =39。 sql, connt, adOpenKeyset, adLockPessimistic leibie = (3) shumu = (8) sql = select * from 讀者類別 where 種類名稱 =39。該讀者已借書數(shù)量 Dim maxnum As Integer 39。否 39。 data source= amp。 amp。data source=D:\圖書管理系統(tǒng)\ provider=。 data source= amp。記錄確定次數(shù) Private Sub 登錄 _Click() Dim sql As String Dim rs_login As New Dim connt As New provider=。 Trim() amp。 39。 amp。 data source= amp。 \ If = True Then sql = select * from 書籍信息 where 是否被借出 =39。 ElseIf = True And
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1