圖書管理系統(tǒng)vb源代碼加設(shè)計-全文預(yù)覽
【正文】 End If End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub 。 data source= amp。 amp。 amp。 book_number amp。 data source= amp。 provider=。 \ = adUseClient sql, connt, adOpenKeyset, adLockPessimistic Set = rs_reader = False = False = False End Sub Private Sub Command2_Click() Dim rs_book As New Dim connt As New Dim sql As String findform = False sql = select * from 借閱信息 where 書籍編號 = 39。 39。 39。 amp。 data source= amp。 data source= amp。 Trim( amp。 39。 End If End If If = vbChecked Then If Trim(sql) = Then sql = 出版社 =39。 amp。 ) amp。 39。 and 作者 =39。 Trim( amp。 ) amp。 Else sql = sql amp。 amp。 Trim( amp。 book_num amp。 data source= amp。 amp。 amp。 amp。 amp。該讀者借書數(shù)量的限制 Private Sub Combo1_Click() = End Sub Private Sub Combo2_Click() = End Sub Private Sub Command1_Click() Dim rs_borrowbook As New Dim sql As String Dim connt As New provider=。 ElseIf = True And = Then MsgBox 請輸入讀者姓名！ , vbOKOnly + vbExclamation Exit Sub End If = adUseClient sql, connt, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_find End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() End Sub Dim leibie As String 39。 End If If = True And Then sql = select * from 借閱信息 where 讀者姓名 =39。 \ If = True Then sql = select * from 書籍信息 where 是否被借出 =39。 amp。 data source= amp。 39。 amp。 data source= amp。 39。 amp。 Trim() amp。 data source= amp。記錄確定次數(shù) Private Sub 登錄 _Click() Dim sql As String Dim rs_login As New Dim connt As New provider=。 amp。 data source= amp。 amp。data source=D:\圖書管理系統(tǒng)\ provider=。 data source= amp。 amp。data source=F:\VB作業(yè) \新建文件夾 \ provider=。 data source= amp。 amp。否 39。 39。該讀者已借書數(shù)量 Dim maxnum As Integer 39。 \ sql = select * from 讀者信息 where 讀者編號 =39。 sql, connt, adOpenKeyset, adLockPessimistic leibie = (3) shumu = (8) sql = select * from 讀者類別 where 種類名稱 =39。 sql, connt, adOpenKeyset, adLockPessimistic qixian = (2) maxnum = (1) If shumu = maxnum Then MsgBox 該讀者借書數(shù)額已滿 !, vbOKOnly + vbExclamation Exit Sub End If sql = select * from 借閱信息 sql, connt, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = (5) = Date (6) = Date + qixian sql = select * from 書籍信息 where 圖書編號 =39。 sql, connt, adOpenKeyset, adLockPessimistic (7) = 是 sql = select * from 讀者信息 where 讀者編號 =39。
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1