sqlvb圖書管理系統(tǒng)(數(shù)據(jù)庫源代碼論文)-課程設(shè)計(jì)-wenkub
2022-12-27 14:21:48 本頁面
【正文】 =39。,備注 =39。,操作員 =39。 _ amp。 _ + Trim() + 39。 39。,訂購(gòu)日期 =39。,訂購(gòu)單價(jià) =39。,訂購(gòu)數(shù)量 =39。,訂購(gòu)者聯(lián)系方式 =39。,訂購(gòu)者 =39。,圖書 ID=39。) Else sql = update 圖書征訂 set 征訂編號(hào) =39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。 條記錄 [10] ... SQL+VB圖書管理 系統(tǒng) (數(shù)據(jù)庫 +源代碼 +論文 ) MsgBox 出現(xiàn) 系統(tǒng) 錯(cuò)誤 !請(qǐng)重啟本 系統(tǒng) ! End If End If Case 5 1 Case 7 MoveFirst Case 8 MovePre Case 9 MoveNext Case 10 MoveLast Case 12 Unload Me End Select End Sub 其中“新增”記錄和“修改”記錄界面代碼設(shè)計(jì)如下： Private Sub Form_Resize() = End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Dim sql As String, rtn As Long Select Case Case 3 If Trim() = Or Trim() = Then MsgBox 請(qǐng)?zhí)顚懴嚓P(guān)信息！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If = 圖書征訂添加 Then sql = insert into 圖書征訂 values(39。 _ + (, 0) + 39。 條記錄 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Dim sql As String, rtn As Long Select Case Case 1 = 圖書征訂添加 1 (1).Text = 總共有 amp。 ShowData strSql4, If Trim((, 7)) = 普通讀者 And = 4 Then MsgBox 該讀者借書數(shù)量已達(dá)到上限！ , vbOKOnly + vbInformation, 信息 Exit Sub ElseIf Trim((, 7)) = 高級(jí)讀者 And = 6 Then MsgBox 該讀者借書數(shù)量已達(dá)到上限！ , vbOKOnly + vbInformation, 信息 Exit Sub End If = 圖書續(xù)借新增 (3).Caption = 確認(rèn)續(xù)借 1 End If End If End If End Sub Public Sub MoveFirst(ctr As Control) With ctr .Row = 1 .Col = 0 .RowSel = .Row .ColSel = .Cols 1 End With End Sub Public Sub MovePre(ctr As Control) With ctr If .Row 1 Then .Row = .Row 1 .Col = 0 .RowSel = .Row [10] ... SQL+VB圖書信息管理 系統(tǒng) 論文 .ColSel = .Cols 1 End If End With End Sub Public Sub MoveNext(ctr As Control) With ctr If .Row .Rows 1 Then .Row = .Row + 1 .Col = 0 .RowSel = .Row .ColSel = .Cols 1 End If End With End Sub Public Sub MoveLast(ctr As Control) With ctr .Row = .Rows 1 .Col = 0 .RowSel = .Row .ColSel = .Cols 1 End With End Sub Public Sub Main() strn = provider=。 ShowData strSql3, If Trim((, 7)) = 否 Then MsgBox 此書籍丟失未賠償，請(qǐng)先賠償！ , vbOKOnly + vbInformation, 信息 1 Exit Sub End If = 2 = 2 strSql4 = select * from 讀者信息 where 借書證號(hào) =39。 ShowData strSql2, If Trim((, 6)) = 否 Then MsgBox 此書籍逾期欠款，請(qǐng)先交款！ , vbOKOnly + vbInformation, 信息 1 Exit Sub End If = 2 = 2 strSql3 = select * from 圖書丟失 where 圖書 ID=39。 ShowData strSql1, [10] ... SQL+VB圖書信息管理 系統(tǒng) 論文 If Trim((, 0)) = 借出 Then MsgBox 此書籍庫存量為 0 不可借！ , vbOKOnly + vbInformation, 信息 Exit Sub End If = 2 = 2 strSql2 = select * from 圖書罰款 where 圖書 ID=39。 ShowData strSql1, If (, 0) = 借書編號(hào) Then MsgBox 您未借閱此圖書！不能續(xù)借！ , vbOKOnly + vbInformation, 信息 = 2 = 2 (1).Text = 總共有 0 條記錄 Exit Sub End If strSql1 = select 狀態(tài) from 圖書信息 where 圖書 ID=39。 條記錄 strSql1 = select * from 圖書借閱 where 圖書 ID=39。 + Trim() + 39。 + Trim() + 39。 ShowData sql,
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1