[工學(xué)]b結(jié)課論文-資料下載頁
2025-01-18 14:23本頁面
【正文】 出=39。是39。 End If If = True Then sql = select * from 書籍信息 where 是否被借出=39。否39。 End If If = True Then sql = select * from 借閱信息 where 讀者姓名=39。 amp。 amp。 39。 End If = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_findEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim nstr As StringSet conn = New nstr = Provider=。Data Source=。Persist Security Info=False nstrEnd Sub還書信息模塊借書人員如要還書，則在借書證號(hào)、讀者編號(hào)、讀者姓名處輸入自己信息后，點(diǎn)擊“查詢”顯示所借的書籍信息，如下圖所示選擇要還的書籍后點(diǎn)擊“還書”按鈕，如下圖所示：系統(tǒng)提示將給出提示，如下圖所示：選擇“是”按鈕，系統(tǒng)則提示還書成功，如下圖所示：還書代碼Option ExplicitDim findform As BooleanPrivate Sub Combo1_Click() = = End SubPrivate Sub Combo2_Click() = = End SubPrivate Sub Combo5_click() = = End SubPrivate Sub Command1_Click()Dim rs_reader As New Dim sql As Stringfindform = Truesql = select * from 借閱信息 where 讀者姓名=39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimisticSet = rs_reader = False = False = FalseEnd SubPrivate Sub Command3_Click()Dim book_num As StringDim reader_num As StringDim answer As StringDim asw As StringDim rs_back As New Dim rs_borrowbook As New Dim rs_book As New Dim rs_fk As New Dim sql As String, rq As String, hsrq As StringDim sj As LongDim sql1 As String, sql2 As StringDim ts As Integer, sm As StringDim readname As StringOn Error GoTo delerrorbook_num = (3).CellValue()reader_num = (1).CellValue()readname = Trim()answer = MsgBox(確定要還這本書嗎？, vbYesNo, )If answer = vbYes Then sql = select * from 借閱信息 where 書籍編號(hào)=39。 amp。 book_num amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic sql = select * from 書籍信息 where 書籍編號(hào)=39。 amp。 book_num amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (9) = (9) + 1 sql = select * from 讀者信息 where 讀者編號(hào)=39。 amp。 reader_num amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (8) = (8) 1 If findform = True Then Command1_Click End If MsgBox 還書成功！, vbOKOnly + vbExclamation, = FalseElse Exit SubEnd Ifdelerror:If 0 Then MsgBox End IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim rs_reader As New Dim sql As StringDim nstr As StringSet conn = New nstr = Provider=。Data Source=。Persist Security Info=False nstr sql = select * from 借閱信息 = adUseClient sql, conn, adOpenKeyset, adLockPessimisticIf Not Then Do While Not (1) (2) (7) LoopEnd IfEnd Sub結(jié)束語通過進(jìn)行圖書管理系統(tǒng)的開發(fā)，進(jìn)一步明確了研制一個(gè)管理信息系統(tǒng)的方法和思路，將系統(tǒng)開發(fā)的各階段的基本活動(dòng)貫穿起來，使我更加形象、具體的了解了管理信息系統(tǒng)。系統(tǒng)開發(fā)的過程是一個(gè)鞏固以前所學(xué)的計(jì)算機(jī)知識(shí)。我從這一階段工作中收益非淺，通過這段時(shí)間的結(jié)課設(shè)計(jì)，我能融會(huì)貫通這一學(xué)期所學(xué)的專業(yè)基礎(chǔ)知識(shí)和專業(yè)理論知識(shí)，對(duì)當(dāng)前計(jì)算機(jī)軟、硬件技術(shù)的發(fā)展有了進(jìn)一步地了解和認(rèn)識(shí)，培養(yǎng)了我綜合運(yùn)用專業(yè)知識(shí)分析問題、解決問題的能力及運(yùn)用工具軟件的能力。不僅弄清了以前對(duì)系統(tǒng)開發(fā)的一些模糊的認(rèn)識(shí)，而且培養(yǎng)了嚴(yán)謹(jǐn)?shù)墓ぷ髯黠L(fēng)，為今后的工作崗位上用好管好計(jì)算機(jī)打下了堅(jiān)實(shí)的基礎(chǔ)。本程序由于調(diào)研時(shí)間短，編寫時(shí)間緊，程序本身還存在一些缺陷和不足，還有許多沒考慮全面的地方。希望老師多提寶貴意見。參考文獻(xiàn)【1】 吳昌平，潘春燕Visual Basic程序設(shè)計(jì)（第二版） 【2】 毛一心，Visual Basic 應(yīng)用及實(shí)例集錦【3】 張婷，Visual Basic 課程設(shè)計(jì)案例精
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1