【正文】 Exit SubEnd If If = True Then 39。選擇戶型結(jié)構(gòu)作為查詢條件 sql = select * from 戶型資料表 where Hst_type = 39。 amp。 Trim() amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic畢業(yè)設(shè)計（論文）17 setgrid setgridhead displaygrid Exit Sub End If Exit Subfinderror: MsgBox End Sub（四）收款管理窗體模塊的實現(xiàn)本窗體主要用來對是對展會展位租金的收取進(jìn)行統(tǒng)計，其中收款資料包括：交款日期，收款編號，付費方式等信息收費資料進(jìn)行登記，可以進(jìn)行添加，打印等操作。窗體樣式：圖 4 收款管理窗體界面代碼如下：Private Sub cmdsave_Click()Dim i As IntegerIf Trim() = Then MsgBox 展位編號不能為空！, vbOKOnly + vbExclamation Exit SubEnd If = CStr(CCur(Trim())) = ChineseFormat(CCur(Trim()))畢業(yè)設(shè)計（論文）18(0) = Val(Trim())(1) = Val(Trim())(2) = Trim()(3) = Date(4) = CCur(Trim())(5) = Trim()(6) = Trim()(7) = Trim()MsgBox 保存成功！, vbOKOnly + vbExclamationExit SubEnd SubPrivate Sub cmdprint_Click() Dim X% X% = BitBlt(, 0, 0, , , _ , 0, 0, SRCCOPY) = , 0, 0End SubPrivate Sub cmdexit_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql As StringDim i As IntegerOn Error GoTo loaderrorsql = select * from 收款登記表If 0 Then = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = i = = Year(Date) 39。Date 取得當(dāng)前系統(tǒng)日期 = Month(Date) 39。Month 函數(shù)取得日期的月數(shù)部分 = Day(Date) = Format(i + 1, 000000) 39。系統(tǒng)中現(xiàn)有記錄條數(shù)加 1 (現(xiàn)金) (刷卡) (銀行票據(jù)) = 0 sql = select * from 合同資料表畢業(yè)設(shè)計（論文）19 If 0 Then = adUseClient sql, conn, adOpenKeyset, adLockPessimistic If 0 Then Do While Not (Trim((0))) Loop = 0 End If Exit Subloaderror: MsgBox End Sub（五）收費查詢窗體模塊的實現(xiàn)本窗體主要用來對收費資料進(jìn)行查詢，包括以收費單號，展會編號，交款人以及交款日期進(jìn)行查詢。：窗體樣式：圖 5 收費查詢窗體界面 代碼如下：Private Sub cmdfind_Click()Dim sql As StringOn Error GoTo loaderrorIf = True Then畢業(yè)設(shè)計（論文）20 sql = select * from 收費信息表 where fee_ID = amp。 CInt() = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit SubEnd IfEnd IfIf = True Then sql = select * from 收費信息表 where fee_jkr = 39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit SubEnd IfIf = True Then sql = select * from 收費信息表 where Fee_date between amp。 _ amp。 and amp。 amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit SubEnd IfExit Subloaderror: MsgBox End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 收費信息表 = adUseClient sql, conn, adOpenKeyset, adLockPessimisticsetgridsetgridhead畢業(yè)設(shè)計（論文）21displaygridExit Subloaderror: MsgBox End Sub總結(jié)在此篇畢業(yè)設(shè)計論文中我詳細(xì)講述了該展會管理系統(tǒng)的系統(tǒng)設(shè)計部分，包括功能模塊設(shè)計、數(shù)據(jù)庫設(shè)計等。系統(tǒng)設(shè)計為整個程序構(gòu)建了骨架。各個功能模塊實現(xiàn)各個細(xì)節(jié)部分。其功能基本符合用戶需求，能夠完成在展會的存儲和成績的查詢,并提供部分系統(tǒng)維護(hù)功能。對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。通過這次畢業(yè)設(shè)計，我大致了解了在進(jìn)行軟件開發(fā)工作時的基本過程，并且從中獲得了許多從課堂上學(xué)不到的知識和有意義的收獲。 我在這次設(shè)計的過程中不僅了解了軟件的編寫程序的過程，更體會到軟件工程的重要性。一個軟件成敗在于需求分析和總體設(shè)計，而編寫程序只是整個過程中一個相對次要的環(huán)節(jié)。盡管本系統(tǒng)存在著不足，但實現(xiàn)了最重要的功能就是可以對展會進(jìn)行管理，這個對于一個展會系統(tǒng)是十分重要的。該系統(tǒng)是根據(jù)展會管理的特點制作的信息系統(tǒng)，為展會人員提供方便。通過開發(fā)這個系統(tǒng)，我掌握了開發(fā)系統(tǒng)的基本過程，了解了 VB 語言的基本知識，鞏固了我對 Visual Basic 的學(xué)習(xí)，但在這次畢業(yè)設(shè)計中的最大收獲并不是這些，而是學(xué)會了設(shè)計系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。參考文獻(xiàn)[1] Basic 程序設(shè)計. 中央電大出版社,2022[2] 王珊. 數(shù)據(jù)庫系統(tǒng)概論. 高等教育出版社，2022[3] 龔沛曾，陸慰民，楊志強 . Vsual Basic 程序設(shè)計教程 .高等教育出版社出版 ，2022[4] 劉新民，蔡瓊， Basic 程序設(shè)計. 清華大學(xué)出版社出版,2022 [5]盧毅. Vsual Basic ,2022 [6]薩師煊. 數(shù)據(jù)庫原理概論（第三版）. 高等教育出版社, 2022[7] . 高等教育出版社 ,2022 [8]李淑華. VB 程序設(shè)計及應(yīng)用. 高等教育出版社, 2022致謝在畢業(yè)之際,首先要感謝我的母校給了我這次很好的機會，使得我所學(xué)的能夠在實踐中得到檢驗和提升，對以后能在工作中墊定堅實的基礎(chǔ)。其次要向我的導(dǎo)師劉瀟老師，表示衷心的感謝! 本設(shè)計是在劉老師的親切關(guān)懷和悉心指導(dǎo)下完成的。從課題的選擇到論文的最終完成，劉老師都始終給予我細(xì)心的指導(dǎo)和不懈的支持。在此向劉老師致以誠摯的謝意和崇高的敬意。同時在此，我還要感謝在一起愉快的度過畢業(yè)論文的同一小組的同學(xué)，正是由于你們畢業(yè)設(shè)計（論文）22的幫助和支持，我才能克服一個一個的困難和疑惑，直至畢業(yè)論文的順利完成。特別感謝我的室友們，在系統(tǒng)開發(fā)過程中她們給我很大的幫助，幫助我解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，這里并表示感謝。最后，向這些給予我?guī)椭睦蠋熗瑢W(xué)致以衷心的謝意。 指導(dǎo)老師： 劉瀟