[工學(xué)]b結(jié)課論文-閱讀頁
2025-02-02 14:23本頁面
【正文】 End If If Trim() = Then MsgBox 借書證號(hào)不能為空, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 身份證號(hào)不能為空, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 限借數(shù)量不能為空, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 借書期限不能為空, vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 讀者信息 where 讀者編號(hào) =39。 amp。 sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (8) = Trim() (9) = Trim() (10) = Trim() (11) = Trim() (12) = Trim() (13) = Trim() (15) = Trim() (14) = Trim() MsgBox 添加讀者信息成功！, vbOKOnly, Else MsgBox 讀者編號(hào)重復(fù)！, vbOKOnly + vbExclamation, = Exit Sub End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim rsType As New Dim rsSet As New Dim rsSexy As New Dim sql As StringDim sql1 As StringDim sql2 As StringDim nstr As StringSet conn = New nstr = Provider=。Persist Security Info=False nstrsql = select * from 性別sql1 = select * from 讀者類別sql2 = select * from 登錄 sql, conn, adOpenKeyset, adLockPessimisticDo While Not (1) Loop sql1, conn, adOpenKeyset, adLockPessimisticDo While Not (0) Loop sql2, conn, adOpenKeyset, adLockPessimisticDo While Not (1) LoopEnd Sub查詢圖書信息模塊查詢圖書信息功能可以通過查詢圖書館的書名、編號(hào)、圖書類別、作者或出版社來查詢需要的圖書，具體窗口如下圖所示：輸入要查詢的圖書書名、編號(hào)、出版社、類別或作者，點(diǎn)擊“查詢”按鈕，如果圖書館有這本書的信息，則會(huì)在窗口下方顯示出來，如下圖所示：如果想借查詢出來的書，則點(diǎn)擊主窗口的“借書”按鈕，如下圖所示：點(diǎn)擊“借這本書”按鈕后彈出借書窗口，如下圖所示：然后借書人員就可以把自己的編號(hào)，借書證號(hào)，讀者姓名正確輸入，點(diǎn)擊“確定”借閱成功，如下圖所示：如果借書人員有超期未歸的書，系統(tǒng)將會(huì)給出提示，提示如下圖所示：查詢圖書代碼Dim kc As IntegerDim rsUser As Dim t As IntegerPrivate Sub Command1_Click()Dim rsFindBook As New Dim sql As String If = vbChecked Then sql = 書名=39。 Trim( amp。 39。 amp。 ) amp。 End If If = vbChecked Then sql = 類別=39。 Trim( amp。 39。 amp。 ) amp。 End If If = vbChecked Then sql = 出版社=39。 Trim( amp。 39。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rsFindBook End SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = (0).CellValue()End SubPrivate Sub Command2_Click() = False = False = False kc = (9).CellValue() If Trim(book_num) = Then MsgBox 請(qǐng)選擇要借閱的圖書！, vbOKOnly + vbExclamation Exit Sub End If If kc 1 Then MsgBox 警告：此書已被借完！, vbOKOnly + vbExclamation Exit Sub End If Unload MeEnd SubPrivate Sub Command3_Click()End SubPrivate Sub Form_Load()Dim nstr As StringDim sql As StringSet conn = New Set rsUser = New nstr = Provider=。Persist Security Info=False nstr sql = select 類別名稱 from 圖書類別 sql, conn, adOpenStatic, adLockPessimistic Do Until (類別名稱) amp。是39。否39。 amp。 39。Data Source=。 amp。 39。 amp。 39。 amp。 39。 amp。 39。Data Source=。系統(tǒng)開發(fā)的過程是一個(gè)鞏固以前所學(xué)的計(jì)算機(jī)知識(shí)。不僅弄清了以前對(duì)系統(tǒng)開發(fā)的一些模糊的認(rèn)識(shí)，而且培養(yǎng)了嚴(yán)謹(jǐn)?shù)墓ぷ髯黠L(fēng)，為今后的工作崗位上用好管好計(jì)算機(jī)打下了堅(jiān)實(shí)的基礎(chǔ)。希望老師多提寶貴意
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1