sqlvb圖書(shū)管理系統(tǒng)(數(shù)據(jù)庫(kù)源代碼論文)-課程設(shè)計(jì)-預(yù)覽頁(yè)
【正文】 ng) As Long Dim n As New Dim cmd As New On Error GoTo lab strn = n = adCmdText = sql Update = Err Exit Function lab: If = 1 Then End If MsgBox Update = Err End Function Public Sub PanDuan() Dim sql As String, sql1 As String, strSql1 As String Dim strSql2 As String, strSql3 As String, strSql4 As String If And And _ And And And Then If = 借出此書(shū) Then If MsgBox(是否借出此書(shū) ?, vbOKCancel + vbQuestion, 詢(xún)問(wèn) ) = vbOK Then sql = select * from 圖書(shū)借閱 where 借書(shū)證號(hào) =39。 ShowData sql, (1).Text = 總共有 amp。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + + 39。 條記錄 strSql1 = select * from 圖書(shū)借閱 where 圖書(shū) ID=39。 ShowData strSql1, If (, 0) = 借書(shū)編號(hào) Then MsgBox 您未借閱此圖書(shū)！ , vbOKOnly + vbInformation, 信息 = 2 = 2 (1).Text = 總共有 0 條記錄 Exit Sub Else 1 End If End If End If If = 續(xù)借此書(shū) Then If MsgBox(是否續(xù)借此書(shū) ?, vbOKCancel + vbQuestion, 詢(xún)問(wèn) ) = vbOK Then sql = select * from 圖書(shū)借閱 where 借書(shū)證號(hào) =39。 ShowData sql, (1).Text = 總共有 amp。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。database=tushu End Sub 圖書(shū)征訂設(shè)置界面代碼設(shè)計(jì) Private Sub Form_Load() Dim sql As String sql = select * from 圖書(shū)征訂 ShowData sql, (0) = flexAlignCenterCenter (1) = 1000 (2) = 1500 (3) = 1500 (10) = 2500 (1).Text = 總共有 amp。 條記錄 Case 2 With Frm_zdxz .Caption = 圖書(shū)征訂修改 . = (, 0) . = (, 1) . = (, 2) . = (, 3) . = (, 4) . = (, 5) . = (, 6) . = (, 7) . = (, 8) . = (, 9) . = (, 10) .Show 1 End With Case 3 If MsgBox(確定要?jiǎng)h除嗎 ?, vbYesNo + vbQuestion, 提示 ) = vbYes Then sql = delete from 圖書(shū)征訂 where 征訂編號(hào) =39。 rtn = Update(sql) If rtn = 0 Then sql = select * from 圖書(shū)征訂 ShowData sql, MsgBox 刪除成功 !, vbOKOnly + vbInformation, 提示 (1).Text = 總共有 amp。 + Trim() + 39。 _ + Trim() + 39。 + Trim() + 39。 _ + Trim() + 39。 + Trim() + 39。 _ + Trim() + 39。 + Trim() + 39。 _ + Trim() + 39。 + Trim() + 39。 _ + Trim() + 39。 + Trim() + 39。 + Trim() _ + 39。 + Trim() _ + 39。 + Trim() + 39。 _ + Trim() + 39。 _ + Trim() + 39。 _ + Trim() + 39。 _ amp。,是否驗(yàn)收 =39。,驗(yàn)收日期 =39。 39。 _ + Trim() + 39。 _ + Trim() + 39。 _ + (, 0) _ + 39。% + Trim() + %39。% + Trim() + %39。% + Trim() + %39。Call PanDuan [10] ... SQL+VB圖書(shū)管理 系統(tǒng) (數(shù)據(jù)庫(kù) +源代碼 +論文 ) = = = Else End If Exit Sub End If Select Case Case 讀者姓名 sql = select * from 讀者信息 where 讀者姓名 like 39。 Case 借書(shū)證號(hào) sql = select * from 讀者信息 where 借書(shū)證號(hào) like 39。 Case 讀者類(lèi)別 sql = select * from 讀者信息 where 讀者類(lèi)別 like 39。 End Select ShowData sql, If = 1 Then MsgBox 對(duì)不起！沒(méi)有找到符合條件的記錄！請(qǐng)重新輸入 查詢(xún) 內(nèi)容！ , vbOKCancel + vbExclamation, 提示 = Exit Sub End If 1 If And And Then 39。 條記錄 = 7155 = 8685 = = = Date = = year(Date) = month(Date) = day(Date) sql1 = select 可借書(shū)天數(shù) ,讀者類(lèi)別 from 讀者類(lèi)別 where 讀者類(lèi)別 in(select 讀者類(lèi)別 from 讀者信息 where 借書(shū)證號(hào) =39。) ShowData sql1, sql2 = select * from 圖書(shū)類(lèi)型 where 圖書(shū)類(lèi)型 in(select 圖書(shū)類(lèi)型 from 圖書(shū)信息 where 圖書(shū) ID=39。) [11] [12] [13] [14] [15] [16]
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1