醫(yī)院收費管理系統(tǒng)畢業(yè)設(shè)計說明書

1、<p><b>　　畢業(yè)設(shè)計(論文)</b></p><p>　　(DELPHI)數(shù)據(jù)庫管理系統(tǒng)</p><p><b>　　目 錄</b></p><p><b>　　第一部分 引言</b></p><p>　　------------------------

2、------------------任務(wù)或問題：</p><p>　　------------------------------------------實際背景：</p><p>　　------------------------------------------我的工作</p><p>　　----------------------------------

3、--------特色（創(chuàng)新）</p><p>　　第二部分 畢業(yè)設(shè)計課題</p><p>　　------------------------------------------設(shè)計課題</p><p>　　------------------------------------------設(shè)計時間</p><p>　　-----------

4、-------------------------------設(shè)計人員及任務(wù)</p><p>　　------------------------------------------指導(dǎo)老師</p><p>　　------------------------------------------設(shè)計內(nèi)容</p><p>　　第三部分 系統(tǒng)方案論證</p>

5、<p>　　3.1------------------------------------------軟件定義</p><p>　　3.2---------------------------------------------------------體系結(jié)構(gòu)規(guī)劃</p><p>　　第四部分 畢業(yè)設(shè)計內(nèi)容</p><p>　　4.1---------

6、----------------------------------功能模塊分析</p><p>　　4.2-------------------------------------------模塊1功能實現(xiàn)</p><p>　　4.3-------------------------------------------模塊2功能實現(xiàn)</p><p>　　4.4--

7、-----------------------------------------模塊3功能實現(xiàn)</p><p>　　4.5-------------------------------------------模塊4功能實現(xiàn)</p><p>　　4.6-------------------------------------------模塊5功能實現(xiàn)</p><p>

8、;　　4.7-------------------------------------------數(shù)據(jù)庫分析</p><p>　　4.8-------------------------------------------系統(tǒng)界面實現(xiàn)</p><p>　　第五部分 畢業(yè)設(shè)計心得體會</p><p><b>　　第六部分 附錄</b></p

9、><p>　　6.1-------------------------------------------代碼部分</p><p><b>　　參考文獻</b></p><p><b>　　摘要</b></p><p>　　本次畢業(yè)設(shè)計任務(wù)是通過開發(fā)一個數(shù)據(jù)庫校醫(yī)院門診收費管理系統(tǒng)，學(xué)習(xí)用delphi開

10、發(fā)分布式多層數(shù)據(jù)庫系統(tǒng)。采用Delphi7.0和MS Server2000等軟件為開發(fā)工具；通過對計算機硬件和軟件解決方案的論證；對應(yīng)用領(lǐng)域進行調(diào)查分析；參考各種資料和進行數(shù)據(jù)庫編程實踐。在我指導(dǎo)老師的幫助下，已經(jīng)基本上成功地實現(xiàn)了設(shè)計任務(wù)書的要求。使得設(shè)計的數(shù)據(jù)庫系統(tǒng)能夠?qū)崿F(xiàn)一般數(shù)據(jù)庫的管理。我們研究了數(shù)據(jù)庫的查詢優(yōu)化問題。</p><p><b>　　第一部分 引 言</b></

11、p><p><b>　　1.1任務(wù)或問題：</b></p><p>　　開發(fā)一個醫(yī)院門診收費管理系統(tǒng)，可以實現(xiàn)動態(tài)的連接應(yīng)用程序服務(wù)器，只要對配置文件進行配置，就可以像網(wǎng)上鄰居一樣選擇所要連接的應(yīng)用程序服務(wù)器。并能實現(xiàn)門診收費,劃價;藥品管理,住院管理;</p><p>　　醫(yī)務(wù)人員管理及各種查詢,報表等功能。</p><p&g

12、t;<b>　　1.2實際背景：</b></p><p>　　隨著社會發(fā)展，人類的生產(chǎn)、生活越來越離不開信息。誰擁有了更多更有效的信息，誰就將在競爭中處于有利地位。信息產(chǎn)業(yè)正在成為一個國家的支柱。數(shù)據(jù)作為信息的載體，其管理工具數(shù)據(jù)庫對于信息技術(shù)的重要性，正日益得到人們的重視。只有擁有了先進的數(shù)據(jù)庫技術(shù)，才能有效地管理好浩如煙海的數(shù)據(jù)，并從中提取出對自己有用的信息來加以利用。</p>

13、;<p>　　90年代，人們開發(fā)MIS系統(tǒng)大都采用客戶機/服務(wù)器結(jié)構(gòu)，客戶機/服務(wù)器結(jié)構(gòu)既是硬件結(jié)構(gòu)又是軟件結(jié)構(gòu)。即數(shù)據(jù)放在服務(wù)器上，程序在客戶機上。進行數(shù)據(jù)訪問時，由客戶機提出請求（一般是SQL語句），服務(wù)器執(zhí)行并給出結(jié)果?？蛻魴C/服務(wù)器對于優(yōu)化了網(wǎng)絡(luò)，提高了系統(tǒng)的利用率?？蛻魴C/服務(wù)器體系結(jié)構(gòu)的發(fā)展經(jīng)歷了從二級體系結(jié)構(gòu)模式到三級體系結(jié)構(gòu)模式。</p><p>　　我校醫(yī)院目前仍然是人工手動計算,

14、整理,查詢醫(yī)院門診,藥房,病房等各項工作,執(zhí)行效率非常低,不方便,給醫(yī)務(wù)人員帶來了不少麻煩;現(xiàn)在已是21世紀,為了跟上時代的發(fā)展,實現(xiàn)信息網(wǎng)絡(luò)化,有我建議,石家莊職業(yè)技術(shù)學(xué)院校醫(yī)院院長( ) 決定并批準開發(fā)此項系統(tǒng).</p><p>　　在校學(xué)習(xí)期間,我們電子與信息技術(shù)專業(yè)沒有開過(DELPHI 程序設(shè)計課程,SQL SERVER 數(shù)據(jù)庫)等相關(guān)技術(shù)性學(xué)科,所以我是在學(xué)習(xí)階段邊學(xué)習(xí)邊開發(fā).(有難度).<

15、;/p><p><b>　　1.3我的工作</b></p><p>　　設(shè)計系統(tǒng)框架，設(shè)計數(shù)據(jù)庫，編寫代碼，測試數(shù)據(jù)等。</p><p>　　對整個軟件進行全面分析,制作,完成等.</p><p><b>　　1.4特色（創(chuàng)新）</b></p><p>　　數(shù)據(jù)庫連接不需要手動連

16、接,采用智能連接方式。</p><p>　　第二部分 畢業(yè)設(shè)計課題</p><p><b>　　設(shè)計課題</b></p><p>　　石家莊職業(yè)技術(shù)學(xué)院校醫(yī)院門診收費管理系統(tǒng).</p><p><b>　　設(shè)計時間</b></p><p>　　二○○五年5月至二○○五年5月底

17、</p><p><b>　　設(shè)計人員及任務(wù)</b></p><p>　　莫建坡-------整個軟件:分析,制作及完成.</p><p><b>　　指導(dǎo)老師</b></p><p><b>　　吳健老師</b></p><p><b>　　

18、設(shè)計內(nèi)容</b></p><p>　　利用Delphi7.0和MS Server2000為主要開發(fā)工具，以Windows server2000為開發(fā)平臺。設(shè)計出醫(yī)院門診收費管理系統(tǒng)?？梢詫崿F(xiàn)數(shù)據(jù)庫連接不需要手動連接,采用智能連接方式; 醫(yī)院門診收費管理系統(tǒng)</p><p>　　應(yīng)實現(xiàn): 門診收費,劃價;藥品管理,住院管理; 醫(yī)務(wù)人員管理及各種查詢,報表等功能。</p>

19、;<p>　　第三部分 系統(tǒng)方案論證</p><p><b>　　3.1軟件定義 </b></p><p>　　數(shù)據(jù)庫設(shè)計所要的解決的問題是：對于一個給定的應(yīng)用領(lǐng)域，設(shè)計優(yōu)化的數(shù)據(jù)庫邏輯和物理結(jié)構(gòu)，使之滿足用戶的信息管理要求和數(shù)據(jù)操作要求，有效地支持各種應(yīng)用系統(tǒng)的開發(fā)和運行。數(shù)據(jù)庫設(shè)計的目標(biāo)是為用戶和各種應(yīng)用系統(tǒng)提供一個高效的運行環(huán)境。而數(shù)據(jù)庫的設(shè)計可

20、以視為如下的優(yōu)化問題。</p><p>　　計算機的軟硬件環(huán)境；</p><p>　　數(shù)據(jù)庫管理系統(tǒng)的能力；</p><p>　　用戶的操作要求與信息要求；</p><p>　　完整性和安全性約束。</p><p>　　3.2 體系結(jié)構(gòu)規(guī)劃</p><p>　　本次設(shè)計的系統(tǒng)采用″客戶/服務(wù)器″

21、體系，為了便于理解，我們先從二層″客戶/服務(wù)器″體系結(jié)構(gòu)來闡述：</p><p>　　客戶/服務(wù)器是在網(wǎng)絡(luò)基礎(chǔ)上，以數(shù)據(jù)庫管理為后援，以計算機為網(wǎng)上工作站的一種系統(tǒng)結(jié)構(gòu)。該結(jié)構(gòu)的關(guān)鍵在把網(wǎng)絡(luò)環(huán)境上的數(shù)據(jù)庫存取和應(yīng)用程序一分為二，分別由網(wǎng)上的數(shù)據(jù)庫服務(wù)器和網(wǎng)上客戶來執(zhí)行。雖然本系統(tǒng)客戶/服務(wù)器是建立在LAN的基礎(chǔ)上，但它比以往的文件服務(wù)系統(tǒng)有了很大的改進。首先，它消除了不必要的網(wǎng)絡(luò)傳輸負擔(dān)；其次，它可以使作為數(shù)據(jù)庫

22、服務(wù)器的計算機被高度優(yōu)化，以適應(yīng)數(shù)據(jù)處理的需要?？蛻?服務(wù)器已經(jīng)能夠應(yīng)用于復(fù)雜的網(wǎng)絡(luò)上，并使之能夠更有效地進行選擇、檢索、索引排序等數(shù)據(jù)處理。作為一種高級的分布式計算機環(huán)境、客戶/服務(wù)器有足夠的能力把處理后的結(jié)果（不是整個文件）通過網(wǎng)絡(luò)傳輸出去，并根據(jù)用戶需求靈活地配置各種大、中、小型計算機系統(tǒng)。</p><p><b>　　3.3 系統(tǒng)設(shè)計</b></p><p>

23、<b>　　數(shù)據(jù)流圖</b></p><p>　　管理要求 查詢要求</p><p>　　管理結(jié)果 查詢結(jié)果</p><p><b>　　（頂層數(shù)據(jù)流圖）</b></p><p><b>

24、　　數(shù)據(jù)庫設(shè)計過程</b></p><p>　　數(shù)據(jù)庫的設(shè)計過程如下圖所示。在數(shù)據(jù)庫設(shè)計過程中，需求分析和概念設(shè)計可以獨立于任何數(shù)據(jù)庫管理系統(tǒng)進行。邏輯設(shè)計和物理設(shè)計與具體的數(shù)據(jù)庫管理系統(tǒng)密切相關(guān)。由于需求分析比較重要。我們在設(shè)計的時候，花了比較多的時間。在獲得這些資料之后，進行分析。從中提取有用的部分。分析各種用戶的權(quán)限。</p><p><b>　　需求分析說明書

25、</b></p><p><b>　　概念數(shù)據(jù)庫模式</b></p><p>　　獨立于數(shù)據(jù) （高級數(shù)據(jù)模型）</p><p><b>　　庫管理系統(tǒng)</b></p><p><b>　　與數(shù)據(jù)庫管</b></p>&

26、lt;p><b>　　理系統(tǒng)相關(guān)</b></p><p><b>　　邏輯數(shù)據(jù)庫模式</b></p><p><b>　?。ㄌ囟〝?shù)據(jù)模型）</b></p><p><b>　　物理數(shù)據(jù)庫模式</b></p><p>　　（特定的物理存儲結(jié)構(gòu)和存取方式

27、）</p><p><b>　　圖：數(shù)據(jù)庫設(shè)計過程</b></p><p><b>　　系統(tǒng)模塊圖:</b></p><p>　　第四部分 畢業(yè)設(shè)計內(nèi)容</p><p>　　4.1-------------------------------------------功能模塊分析</p>

28、<p>　　門診收費管理模塊圖:</p><p><b>　　藥品管理模塊圖:</b></p><p><b>　　住院管理模塊圖:</b></p><p>　　醫(yī)務(wù)人員管理模塊圖:</p><p>　　輔助資料管理模塊圖:</p><p><b>　　

29、系統(tǒng)設(shè)置模塊圖:</b></p><p><b>　　帳目管理模塊:</b></p><p>　　4.2-------------------------------------------模塊1功能實現(xiàn)</p><p><b>　　門診收費管理:</b></p><p>　　門診收費管

30、理主要完成:病人掛號,藥品收費,劃價,等功能管理,并且能夠?qū)λ幏克幤愤M行動態(tài)的調(diào)整,</p><p><b>　　所使用的數(shù)據(jù)表:</b></p><p><b>　　掛號表:</b></p><p>　　3掛號編號int40</p><p>　　1病人姓名char200</p

31、><p>　　1病人班級char301</p><p>　　1掛號日期datetime80</p><p>　　1掛號科室char200</p><p>　　1掛號類型char200</p><p>　　1掛號金額money80</p><p><b&g

32、t;　　門診收費明細表:</b></p><p>　　2編號int40</p><p>　　0掛號編號int40</p><p>　　0收費名稱char250</p><p>　　0計量單位char100</p><p>　　0數(shù)量int40</p>&

33、lt;p>　　0收費單價money80</p><p>　　0收費金額money80</p><p>　　1藥品種類char101</p><p><b>　　門診收費結(jié)算表:</b></p><p>　　2編號int40</p><p>　　0掛號編號i

34、nt40</p><p>　　0患者姓名char200</p><p>　　0結(jié)算日期datetime80</p><p>　　0西藥費money81</p><p>　　0中藥費money81</p><p>　　0中成藥費money81</p><p&

35、gt;　　0手術(shù)費money81</p><p>　　0輸液費money81</p><p>　　0檢查費money81</p><p>　　0治療費money81</p><p>　　0化驗費money81</p><p>　　0拍片費money81</p>

36、<p>　　0其它費money81</p><p>　　0主治醫(yī)生char201</p><p>　　1總費用額money81</p><p><b>　　掛號功能界面:</b></p><p>　　門診收費，劃價管理功能界面:</p><p><b&g

37、t;　　門診流程圖:</b></p><p>　　4.3-------------------------------------------模塊2功能實現(xiàn)</p><p>　　藥品管理主要完成:藥品的入庫,出庫,庫存統(tǒng)計,藥品價格管理:</p><p><b>　　所使用的數(shù)據(jù)表:</b></p><p>

38、<b>　　藥品入庫總表:</b></p><p>　　2入庫總表編號int40</p><p>　　0入庫操作員char200</p><p>　　0入庫日期datetime80</p><p>　　1入庫備注text161</p><p><b>　　

39、藥品入庫明細表:</b></p><p>　　2入庫明細編號int40</p><p>　　0入庫總表編號int40</p><p>　　0藥品名稱char300</p><p>　　0藥品種類char100</p><p>　　0計量單位char100</p&

40、gt;<p>　　0藥品出廠日期datetime81</p><p>　　0藥品過期日期datetime81</p><p>　　0進貨日期datetime81</p><p>　　0進貨公司int41</p><p>　　0藥品單價money80</p><p>

41、　　0藥品數(shù)量int40</p><p>　　1藥品總金額money80</p><p><b>　　藥品出庫表:</b></p><p>　　2編號int40</p><p>　　0出庫操作員char200</p><p>　　0出庫日期datetime8

42、0</p><p>　　0出庫藥品名char250</p><p>　　0出庫藥品種類char101</p><p>　　0出庫價格money80</p><p>　　0出庫數(shù)量int40</p><p>　　1備注text161</p><p><

43、b>　　藥商表:</b></p><p>　　2藥商編號int40</p><p>　　1藥商公司名char300</p><p><b>　　藥品庫存表:</b></p><p>　　2編號int40</p><p>　　0藥品名稱char251

44、</p><p>　　0藥品種類char101</p><p>　　0生產(chǎn)日期datetime81</p><p>　　0過期日期datetime81</p><p>　　0計量單位char101</p><p>　　0藥品進價money81</p><p&g

45、t;　　0藥品售價money81</p><p>　　0藥品數(shù)量int41</p><p>　　1備注text161</p><p><b>　　藥品入庫功能界面:</b></p><p><b>　　藥品填寫單界面:</b></p><p><

46、b>　　藥品出庫功能界面:</b></p><p><b>　　藥品管理流程圖:</b></p><p>　　4.4-------------------------------------------模塊3功能實現(xiàn)</p><p>　　住院管理功能實現(xiàn):住院預(yù)交款,住院收費,醫(yī)藥管理,住院結(jié)算管理;</p>&

47、lt;p><b>　　所用的數(shù)據(jù)表:</b></p><p><b>　　預(yù)交款信息表:</b></p><p>　　2編號int40</p><p>　　0交款姓名char201</p><p>　　0預(yù)交金額money80</p><p>　

48、　0交款次數(shù)int40</p><p>　　0交款日期datetime80</p><p>　　1病房號int40</p><p><b>　　住院收費明細表:</b></p><p>　　2編號int40</p><p>　　0病房號int40</p

49、><p>　　0收費名稱char300</p><p>　　0種類char100</p><p>　　0數(shù)量int40</p><p>　　0單價money80</p><p>　　1金額money81</p><p><b>　　住院收費結(jié)算表:&

50、lt;/b></p><p>　　2編號int40</p><p>　　0病房號int40</p><p>　　0病人姓名char200</p><p>　　0收費日期datetime80</p><p>　　0主治醫(yī)生char200</p><p>

51、;　　0藥費money81</p><p>　　0手術(shù)費money81</p><p>　　0病房費money81</p><p>　　0其它費money81</p><p>　　1總金額money81</p><p><b>　　出院結(jié)算信息表:</b>&

52、lt;/p><p>　　2編號int40</p><p>　　0病房號int40</p><p>　　0出院日期datetime80</p><p>　　0住院總金額money80</p><p>　　1找還金額money81</p><p>　　預(yù)交款信息功

53、能界面:</p><p>　　住院收費,劃價，醫(yī)藥管理功能界面:</p><p><b>　　出院管理功能界面:</b></p><p>　　4.5-------------------------------------------模塊4功能實現(xiàn)</p><p>　　醫(yī)務(wù)人員管理功能實現(xiàn):醫(yī)務(wù)人員注冊,修改,維護,值班

54、維護及各科室部門維護等</p><p><b>　　所用到的數(shù)據(jù)表:</b></p><p><b>　　醫(yī)務(wù)人員信息表:</b></p><p>　　2編號int40</p><p>　　0姓名char200</p><p>　　0部門科室char20

55、0</p><p>　　0職務(wù)char300</p><p>　　0聯(lián)系電話char151</p><p>　　0星期1bit10</p><p>　　0星期2bit10</p><p>　　0星期3bit10</p><p>　　0星期4bit1

56、0</p><p>　　0星期5bit10</p><p>　　0星期6bit10</p><p>　　1星期7bit10</p><p><b>　　醫(yī)生表:</b></p><p>　　2編號int40</p><p>　　0醫(yī)生姓名

57、char200</p><p>　　1醫(yī)生職務(wù)char250</p><p><b>　　工作休息代碼表:</b></p><p>　　2編號int40</p><p>　　1休息值char100</p><p><b>　　科室表:</b>&l

58、t;/p><p>　　2科室號int40</p><p>　　1科室名char300</p><p><b>　　職務(wù)表:</b></p><p>　　2編號int40</p><p>　　1職務(wù)名稱char200</p><p>　　醫(yī)務(wù)人員管

59、理功能界面:</p><p>　　值班人員管理功能界面:</p><p><b>　　科室維護功能界面:</b></p><p><b>　　部門維護功能界面:</b></p><p>　　4.6-------------------------------------------模塊5功能實現(xiàn)&l

60、t;/p><p>　　院長查詢管理:藥品價格整體調(diào)價控制,單個藥品調(diào)價控制,用戶注冊管理等功能;</p><p>　　藥品價格調(diào)價控制管理界面:</p><p><b>　　用戶注冊界面:</b></p><p>　　4.7-------------------------------------------數(shù)據(jù)庫</

61、p><p>　　數(shù)據(jù)庫所用到的數(shù)據(jù)表:</p><p>　　CREATE TABLE [住院收費明細表] (</p><p>　　CREATE TABLE [住院收費結(jié)算表] (</p><p>　　CREATE TABLE [出院結(jié)算信息表] (</p><p>　　CREATE TABLE [醫(yī)務(wù)人員信息表] (<

62、;/p><p>　　CREATE TABLE [醫(yī)生表] (</p><p>　　CREATE TABLE [工作休息代碼表] (</p><p>　　CREATE TABLE [當(dāng)日進帳表] (</p><p>　　CREATE TABLE [掛號類型] (</p><p>　　CREATE TABLE [掛號表] (&

63、lt;/p><p>　　CREATE TABLE [病房狀態(tài)表] (</p><p>　　CREATE TABLE [登陸表] (</p><p>　　CREATE TABLE [科室表] (</p><p>　　CREATE TABLE [職務(wù)表] (</p><p>　　CREATE TABLE [藥品入庫總表] (&

64、lt;/p><p>　　CREATE TABLE [藥品入庫明細表] (</p><p>　　CREATE TABLE [藥品公司表] (</p><p>　　CREATE TABLE [藥品出庫表] (</p><p>　　CREATE TABLE [藥品庫存表] (</p><p>　　CREATE TABLE [門診

65、收費明細表] (</p><p>　　CREATE TABLE [門診收費結(jié)算表] (</p><p>　　CREATE TABLE [預(yù)交款信息表] (</p><p>　　能夠?qū)?shù)據(jù)庫進行備份，還原操作等功能;</p><p>　　4.8-------------------------------------------系統(tǒng)界面實現(xiàn)&l

66、t;/p><p>　　系統(tǒng)界面主要是對各功能界面實現(xiàn)中轉(zhuǎn),間接管理;</p><p><b>　　系統(tǒng)功能界面:</b></p><p>　　根據(jù)用戶需求:增加了一個計算器,和簡單記話本;</p><p><b>　　用戶登陸界面:</b></p><p>　　第五部分　畢業(yè)設(shè)計

67、心得體會及結(jié)論</p><p>　　在老師的指導(dǎo)下。本次畢業(yè)設(shè)計，就要畫上一個句號了?？墒?，對我來說，這次設(shè)計的本身所產(chǎn)生的影響，還遠遠沒有結(jié)束，我從本次畢業(yè)設(shè)計中學(xué)到了許多課本上沒有的知識。從設(shè)計任務(wù)書的下達到今天基本實現(xiàn)任務(wù)書中的設(shè)計要求，時間已整整過去了1個月。在這1個月中。通過自己的學(xué)習(xí)和努力；通過各位老師的指導(dǎo)和教育，使我不僅僅在知識水平和解決實際問題的能力上有了很大的提高。還從思想的深處體會到，要把自

68、己的所學(xué)變成現(xiàn)實時所將面對的種種難題。</p><p>　　由于我平時的課程理論知識學(xué)的還可以，我總是認為自己的知識水平已經(jīng)能處理許多的現(xiàn)實問題了。而當(dāng)自己真正的深入到設(shè)計實踐當(dāng)中,深入到問題當(dāng)中時。我竟然發(fā)現(xiàn)自己無從下手，我開始懷疑我是否真正的學(xué)到了知識。也只有到了那個時候，我才真正體會到學(xué)會運用自己的能力與知識是何等的重要，知識是在課堂上，老師教授的，在書本中學(xué)到的，實踐則是要自己動手，自己去做才能掌握。&l

69、t;/p><p>　　在老師們的關(guān)心和幫助下，我漸漸的開始了設(shè)計。根據(jù)老師的建議，我找來了數(shù)據(jù)庫設(shè)計與建設(shè)的相關(guān)書籍和資料，從最基本的問題入手開始一個個的解決我心中的疑惑。 這是一個漫長的學(xué)習(xí)過程。隨著時間的推移，我開始慢慢的掌握了設(shè)計時所需要的知識。我也終于明白了大學(xué)三年學(xué)習(xí)的意義和作用。扎實的基本功和良好的學(xué)習(xí)習(xí)慣，能使自己在學(xué)習(xí)新知識有更深刻的認識力和更快的領(lǐng)會力。</p><p>　　

70、同時老師對畢業(yè)設(shè)計的重視也是我能完成設(shè)計的一個重要條件。為了保證我們畢業(yè)設(shè)計的正常進行，學(xué)院抽調(diào)了優(yōu)秀的老師指導(dǎo)我們進行畢業(yè)設(shè)計，提供良好的設(shè)備給我們，在軟硬件上支持我們進行畢業(yè)設(shè)計，并且不時地詢問我們畢業(yè)設(shè)計的進展情況。為我們這次設(shè)計的正常開展提供了必要的物質(zhì)基礎(chǔ)。</p><p>　　關(guān)于本次設(shè)計的命題，我的設(shè)計只能提供其基本的功能。還有許多的設(shè)想由于時間和自身和因素?zé)o法得以實現(xiàn)，這不能不說是本次設(shè)計的遺憾之

71、處。不過，至少它已經(jīng)啟發(fā)了自己的思維，提高了我的動手能力，這是我在課本中學(xué)不到的。它為我們在以后的工作崗位上發(fā)揮自己的才能奠定了堅實的基礎(chǔ)。</p><p><b>　　第六部分　附錄</b></p><p>　　6.1-------------------------------------------代碼部分</p><p><b&g

72、t;　　系統(tǒng)界面代碼:</b></p><p>　　unit main;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p>　　Windows, Messages, SysUtils, Variants, Classes

73、, Graphics, Controls, Forms,</p><p>　　Dialogs, ExtCtrls, ImgList, Menus, ComCtrls, ToolWin, jpeg, StdCtrls, DB,</p><p><b>　　ADODB;</b></p><p><b>　　type</b>&l

74、t;/p><p>　　Tmain1 = class(TForm)</p><p>　　Panel1: TPanel;</p><p>　　PageControl2: TPageControl;</p><p>　　TabSheet5: TTabSheet;</p><p>　　StaticText5: TStaticTex

75、t;</p><p>　　GroupBox1: TGroupBox;</p><p>　　label_gh: TLabel;</p><p>　　Label_mzbagl: TLabel;</p><p>　　Label_cxhbb: TLabel;</p><p>　　GroupBox2: TGroupBox;<

76、;/p><p>　　Label1: TLabel;</p><p>　　Label2: TLabel;</p><p>　　Label3: TLabel;</p><p>　　b_go2: TButton;</p><p>　　GroupBox3: TGroupBox;</p><p>　　Rich

77、Edit1: TRichEdit;</p><p>　　TabSheet6: TTabSheet;</p><p>　　TabSheet7: TTabSheet;</p><p>　　TabSheet9: TTabSheet;</p><p>　　TabSheet10: TTabSheet;</p><p>　　Pan

78、el2: TPanel;</p><p>　　PageControl1: TPageControl;</p><p>　　TabSheet1: TTabSheet;</p><p>　　Image1: TImage;</p><p>　　TabSheet2: TTabSheet;</p><p>　　TabSheet3

79、: TTabSheet;</p><p>　　StatusBar1: TStatusBar;</p><p>　　ToolBar1: TToolBar;</p><p>　　ToolButton1: TToolButton;</p><p>　　ToolButton2: TToolButton;</p><p>　　T

80、oolButton7: TToolButton;</p><p>　　ToolButton8: TToolButton;</p><p>　　ToolButton6: TToolButton;</p><p>　　ToolButton9: TToolButton;</p><p>　　ToolButton5: TToolButton;<

81、/p><p>　　ToolButton10: TToolButton;</p><p>　　ToolButton4: TToolButton;</p><p>　　ToolButton3: TToolButton;</p><p>　　MainMenu1: TMainMenu;</p><p>　　N11: TMenuIt

82、em;</p><p>　　N1: TMenuItem;</p><p>　　N2: TMenuItem;</p><p>　　N3: TMenuItem;</p><p>　　N4: TMenuItem;</p><p>　　N21: TMenuItem;</p><p>　　N5: TMen

83、uItem;</p><p>　　N6: TMenuItem;</p><p>　　N7: TMenuItem;</p><p>　　N27: TMenuItem;</p><p>　　objectN17TMenuItem1: TMenuItem;</p><p>　　N28: TMenuItem;</p>

84、<p>　　N29: TMenuItem;</p><p>　　N31: TMenuItem;</p><p>　　N8: TMenuItem;</p><p>　　N9: TMenuItem;</p><p>　　N10: TMenuItem;</p><p>　　N12: TMenuItem;<

85、/p><p>　　N41: TMenuItem;</p><p>　　N51: TMenuItem;</p><p>　　N13: TMenuItem;</p><p>　　N14: TMenuItem;</p><p>　　N15: TMenuItem;</p><p>　　N52: TMenuI

86、tem;</p><p>　　N16: TMenuItem;</p><p>　　N61: TMenuItem;</p><p>　　N71: TMenuItem;</p><p>　　N20: TMenuItem;</p><p>　　N22: TMenuItem;</p><p>　　N23

87、: TMenuItem;</p><p>　　N24: TMenuItem;</p><p>　　N26: TMenuItem;</p><p>　　N30: TMenuItem;</p><p>　　N72: TMenuItem;</p><p>　　N25: TMenuItem;</p><p&

88、gt;　　ImageList1: TImageList;</p><p>　　Timer1: TTimer;</p><p>　　b_go1: TButton;</p><p>　　GroupBox4: TGroupBox;</p><p>　　GroupBox5: TGroupBox;</p><p>　　Group

89、Box6: TGroupBox;</p><p>　　Image2: TImage;</p><p>　　Image3: TImage;</p><p>　　Memo1: TMemo;</p><p>　　GroupBox7: TGroupBox;</p><p>　　GroupBox8: TGroupBox;<

90、/p><p>　　GroupBox9: TGroupBox;</p><p>　　Label4: TLabel;</p><p>　　Label5: TLabel;</p><p>　　Image4: TImage;</p><p>　　Image5: TImage;</p><p>　　Group

91、Box10: TGroupBox;</p><p>　　GroupBox11: TGroupBox;</p><p>　　GroupBox12: TGroupBox;</p><p>　　Image6: TImage;</p><p>　　Image7: TImage;</p><p>　　Image8: TImage

92、;</p><p>　　ToolButton11: TToolButton;</p><p>　　ADOQuery1: TADOQuery;</p><p>　　procedure FormClose(Sender: TObject; var Action: TCloseAction);</p><p>　　procedure b_go1Cl

93、ick(Sender: TObject);</p><p>　　procedure b_go2Click(Sender: TObject);</p><p>　　procedure FormShow(Sender: TObject);</p><p>　　procedure Timer1Timer(Sender: TObject);</p><p

94、>　　procedure jishibenclick(sender:tobject);</p><p>　　procedure calculateclick(sender:tobject);</p><p>　　procedure yaopinglclick(sender:tobject);</p><p>　　procedure Image2Click(Se

95、nder: TObject);</p><p>　　procedure menzhenglclick(sender:tobject);</p><p>　　procedure Image3Click(Sender: TObject);</p><p>　　procedure ToolButton9Click(Sender: TObject);</p>

96、<p>　　procedure Image4Click(Sender: TObject);</p><p>　　procedure Image5Click(Sender: TObject);</p><p>　　procedure Label5Click(Sender: TObject);</p><p>　　procedure ywryzbglclick

97、(sender:tobject);</p><p>　　procedure ToolButton8Click(Sender: TObject);</p><p>　　procedure Image6Click(Sender: TObject);</p><p>　　procedure Image7Click(Sender: TObject);</p>

98、<p>　　procedure Image8Click(Sender: TObject);</p><p>　　procedure tuichuclick(sender:tobject);</p><p>　　procedure N20Click(Sender: TObject);</p><p>　　procedure N22Click(Sender:

99、TObject);</p><p>　　procedure ToolButton11Click(Sender: TObject);</p><p>　　procedure N16Click(Sender: TObject);</p><p>　　procedure ToolButton3Click(Sender: TObject);</p><p

100、>　　procedure N23Click(Sender: TObject);</p><p>　　procedure N26Click(Sender: TObject);</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p>&l

101、t;b>　　public</b></p><p>　　{ Public declarations }</p><p><b>　　end;</b></p><p><b>　　var</b></p><p>　　main1: Tmain1;</p><p>

102、　　implementation</p><p>　　{$R *.dfm} uses mzgh,mzshg,login,book,calculate1,yaorukugl,yaochukugldan,</p><p>　　ywrydj,ksgl11,zwgl11,zbgl11,zyxkgl11,zyglzong11,cygl11,yzgl11,mimagai11,yztjgl11,<

103、;/p><p>　　jinzhanggl11,dmshuju11,connect;</p><p>　　procedure Tmain1.FormClose(Sender: TObject; var Action: TCloseAction);</p><p><b>　　begin</b></p><p>　　applic

104、ation.Terminate;</p><p><b>　　end;</b></p><p>　　procedure Tmain1.b_go1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　mzghd:=tmzghd.Create

105、(application);</p><p>　　mzghd.Show;</p><p><b>　　end;</b></p><p>　　procedure Tmain1.b_go2Click(Sender: TObject);</p><p><b>　　begin</b></p>

106、<p>　　mzshgf:=tmzshgf.Create(application);</p><p>　　mzshgf.Show;</p><p><b>　　end;</b></p><p>　　procedure Tmain1.FormShow(Sender: TObject);</p><p><

107、b>　　begin</b></p><p>　　statusbar1.Panels[0].Text:='µ±Ç°²Ù×÷Ô±:';</p><p>　　statusbar1.Panels[2].Text:=FormatDateTime('"

108、ϵͳʱ¼ä£º"yyyy-mm-dd" "hh:nn:ss" "mmmm" "dddd', now);</p><p>　　statusbar1.Panels[1].Text:=' '+login.Form

109、1.DBEdit1.Text;</p><p>　　statusbar1.Panels[3].Text:='Èí¼þ¿ª·¢ÕߣºÄª½¨ÆÂ';</p><p>　　timer1.Enable

110、d:=true;</p><p>　　tabsheet5.Visible:=true;</p><p>　　tabsheet6.Visible:=false;</p><p>　　tabsheet7.Visible:=false;</p><p>　　tabsheet9.Visible:=false;</p><p>

111、　　tabsheet10.Visible:=false;</p><p>　　tabsheet5.Caption:='ÃÅÕï¹ÜÀíÇø';</p><p>　　pagecontrol2.Refresh;</p><p><b>　　end

112、;</b></p><p>　　procedure Tmain1.Timer1Timer(Sender: TObject);</p><p><b>　　begin</b></p><p>　　statusbar1.Panels[2].Text:=FormatDateTime('"ϵÍ

113、;³Ê±¼ä£º"yyyy-mm-dd" "hh:nn:ss" "mmmm" "dddd', now);</p><p><b>　　end;</b></p><p>　　procedure tmain1.jishi

114、benclick(sender:tobject);</p><p><b>　　begin</b></p><p>　　book.jishiben:=book.Tjishiben.Create(application);</p><p>　　if book.jishiben.ShowModal=mrok then</p>&l

115、t;p><b>　　begin</b></p><p>　　book.jishiben.Memo1.Lines.SaveToFile('love.txt');</p><p>　　book.jishiben.Free;</p><p>　　toolbutton5.Down:=false;</p><p&

116、gt;<b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure tmain1.calculateclick(sender:tobject);</p><p><b>　　begin</b></p><p>　　calcu

117、late1.calculate:=calculate1.Tcalculate.Create(application);</p><p>　　calculate1.calculate.Show;</p><p><b>　　end;</b></p><p>　　procedure tmain1.yaopinglclick(sender:tobje

118、ct);</p><p><b>　　begin</b></p><p>　　if toolbutton7.Down then</p><p><b>　　begin</b></p><p>　　tabsheet6.Visible:=true;</p><p>　　tabsh

119、eet5.Visible:=false;</p><p>　　tabsheet7.Visible:=false;</p><p>　　tabsheet9.Visible:=false;</p><p>　　tabsheet10.Visible:=false;</p><p>　　tabsheet5.Caption:='Ò&#

120、169;Æ·¹ÜÀíÇø';</p><p>　　pagecontrol2.Refresh;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　pro

121、cedure Tmain1.Image2Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　yaorukugl.rukuf:=yaorukugl.Trukuf.Create(application);</p><p>　　yaorukugl.rukuf.Show;</p>

122、;<p>　　yaorukugl.flag:=true;</p><p><b>　　end;</b></p><p>　　procedure tmain1.menzhenglclick(sender:tobject);</p><p><b>　　begin</b></p><p>

123、　　if toolbutton2.Down then</p><p><b>　　begin</b></p><p>　　tabsheet5.Visible:=true;</p><p>　　tabsheet6.Visible:=false;</p><p>　　tabsheet7.Visible:=false;<

124、/p><p>　　tabsheet9.Visible:=false;</p><p>　　tabsheet10.Visible:=false;</p><p>　　tabsheet5.Caption:='ÃÅÕï¹ÜÀíÇø';</p>&l

125、t;p>　　pagecontrol2.Refresh;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure Tmain1.Image3Click(Sender: TObject);</p><p><b>

126、;　　begin</b></p><p>　　yaochukugldan.yaochukugl:=yaochukugldan.Tyaochukugl.Create(application);</p><p>　　yaochukugldan.yaochukugl.Show;</p><p><b>　　end;</b></p&g

127、t;<p>　　procedure Tmain1.ToolButton9Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if toolbutton9.Down then</p><p><b>　　begin</b></p>&

128、lt;p>　　tabsheet9.Visible:=true;</p><p>　　tabsheet6.Visible:=false;</p><p>　　tabsheet7.Visible:=false;</p><p>　　tabsheet5.Visible:=false;</p><p>　　tabsheet10.Visible:

129、=false;</p><p>　　tabsheet5.Caption:='Ò½ÎñÈËÔ±¹ÜÀíÇø';</p><p>　　pagecontrol2.Refresh;</p><p><b>　　

130、end;</b></p><p><b>　　end;</b></p><p>　　procedure Tmain1.Image4Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　ywrydj.register1:=ywr

131、ydj.Tregister1.Create(application);</p><p>　　ywrydj.register1.Show;</p><p><b>　　end;</b></p><p>　　procedure Tmain1.Image5Click(Sender: TObject);</p><p><

132、b>　　begin</b></p><p>　　ksgl11.keshigldd:=ksgl11.Tkeshigldd.Create(application);</p><p>　　ksgl11.keshigldd.Show;</p><p><b>　　end;</b></p><p>　　proce