圖書管理系統(tǒng)vb源代碼加設(shè)計(存儲版)
【正文】 = 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。 amp。 amp。 data source= amp。 Trim( amp。 Else sql = sql amp。 Trim( amp。 39。 amp。 39。 data source= amp。 amp。 39。 provider=。 book_number amp。 amp。 \ = adUseClient sql, connt, adOpenKeyset, adLockPessimistic If Not Then Do While Not (1) (0) Loop End If sql = select * from [借閱信息 ] = adUseClient sql, connt, adOpenKeyset, adLockPessimistic If Not Then Do While Not (3) (4) Loop End If End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub 。 39。 \ book_number = (3).CellValue() reader_number = (1).CellValue() answer = MsgBox(確定要還這本書嗎 ?, vbYesNo, ) If answer = vbYes Then sql = select * from 借閱信息 where 書籍編號 = 39。 amp。 amp。 \ sql, connt, adOpenKeyset, adLockPessimistic If Not Then Do While Not (0) Loop = 0 End If End Sub Private Sub Form_Load() End Sub Private Sub 確認(rèn) _Click() Dim connt As New Dim rs_mima As New Dim sql As String provider=。 39。 Trim( amp。 Else sql = sql amp。 Trim( amp。 End If End If If = vbChecked Then If Trim(sql) = Then sql = 作者 =39。 ) amp。 sql, connt, adOpenKeyset, adLockPessimistic = (0) = (1) = (3) = (5) = (2) = (4) = (6) sqlreader = select * from 讀者信息 sqlreader, connt, adOpenKeyset, adLockPessimistic If Not Then Do While Not (1) (0) Loop Else MsgBox 請先登記讀者 !, vbOKOnly + vbExclamation Exit Sub End If End Sub Private Sub Command1_Click() Dim rs_findbook As New Dim connt As New Dim sql As String If = vbChecked Then sql = 書名 =39。 39。 39。 amp。 amp。 data source= amp。Persist Security Info=false。 \ sql = select * from 讀者類別 sql, connt, adOpenKeyset, adLockPessimistic Do While Not (0) Loop 男 女 End Sub Private Sub Command1_Click() Dim rs_addbook As New Dim connt As New Dim sql As String If Trim() = Then MsgBox 圖書編號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 書名不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 請選擇圖書種類 , vbOKOnly + vbExclamation, Exit Sub
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1