畢業(yè)設(shè)計(jì)--學(xué)校綜合管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

1、<p><b>　　畢業(yè)論文</b></p><p>　　學(xué)校綜合管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　學(xué)生姓名： </p><p>　　專(zhuān)業(yè)名稱(chēng)： 計(jì)算機(jī)信息管理 </p><p>　　分 校： </p><p&

2、gt;　　學(xué) 號(hào)： </p><p>　　完成日期： </p><p><b>　　摘 要</b></p><p>　　隨著社會(huì)的不斷發(fā)展，隨著計(jì)算機(jī)應(yīng)用技術(shù)和網(wǎng)絡(luò)技術(shù)的不斷發(fā)展，信息技術(shù)的應(yīng)用已滲透到社會(huì)的各個(gè)領(lǐng)域，幾乎任何事情都可以利用計(jì)算來(lái)解決，而且更加方便、快捷。在現(xiàn)

3、代化教育技術(shù)模式下，計(jì)算機(jī)以廣泛應(yīng)用于教學(xué)管理，給傳統(tǒng)的教學(xué)方式帶來(lái)了重大改革。</p><p>　　現(xiàn)在我們也把這一技術(shù)引入校園，利用它來(lái)為我們學(xué)校服務(wù)，利用它來(lái)對(duì)我們學(xué)校進(jìn)行管理，從而大大減少了學(xué)校的開(kāi)支同時(shí)也減少了許多不必要的麻煩，使學(xué)校的管理信息化。本文在研究目前國(guó)內(nèi)外學(xué)校管理情況的基礎(chǔ)上，從學(xué)校的實(shí)際需求出發(fā)，基于ACCESS數(shù)據(jù)庫(kù)管理系統(tǒng)，用DELPHI 7作為開(kāi)發(fā)工具設(shè)計(jì)并實(shí)現(xiàn)了一個(gè)功能較完善的學(xué)校

4、綜合管理系統(tǒng)。通過(guò)對(duì)系統(tǒng)進(jìn)行一系列的需求分析、系統(tǒng)設(shè)計(jì)、編碼、測(cè)試等工作，使系統(tǒng)實(shí)現(xiàn)了信息瀏覽、信息管理、信息統(tǒng)計(jì)等多種功能。系統(tǒng)包括學(xué)?；拘畔⒐芾?、學(xué)生信息管理、成績(jī)管理、教職工管理、教職工工資管理、學(xué)生繳費(fèi)系統(tǒng)、儀器設(shè)備管理、系統(tǒng)管理等八個(gè)功能模。本文重點(diǎn)對(duì)系統(tǒng)設(shè)計(jì)過(guò)程作了相應(yīng)描述，同時(shí)也對(duì)系統(tǒng)需求改進(jìn)的地方作了總結(jié)。</p><p>　　本系統(tǒng)經(jīng)過(guò)測(cè)試，運(yùn)行效果穩(wěn)定，操作方便、快捷。同時(shí)能較好地解決學(xué)校管

5、理中的一些管理工作。</p><p>　　關(guān)鍵詞：學(xué)校綜合管理，信息化，DELPHI</p><p><b>　　Abstract</b></p><p>　　With the rapid development of society, and the computer application technology and network te

6、chnology’s rapid development, the information technology application has penetrated nearly every aspect of modem life. Nearly no matter what happens, we happens, we were allowed to solve by using the computer, moreover ,

7、 it makes people more convenient to do everything. Under the model of modern education, computer has become a common tool in school management, which brings a great evolution to the teach</p><p>　　Now we als

8、o directed the technology to the campus, used it to serve to our school, and used it to carry on the management to the school, thus greatly reduced the school expenditure, at the same time reduced many nonessential troub

9、les, caused the school the management information. The discourse according to the practical demand of some school, which is on the base of the situation of the domestic and international school management at present and

10、the access data base management system, using Delp</p><p>　　Though the description about the disadvantage of the system, is steady. It is easy to operate and the speed is fast. At the same time, it is can so

11、lve some of the assignment management in the school management.</p><p>　　Keywords ：Comprehensive management of the school; information; Delphi</p><p><b>　　目 錄</b></p><p&g

12、t;　　第一章 學(xué)校綜合管理信息系統(tǒng)簡(jiǎn)介- 1 -</p><p>　　1.1 系統(tǒng)概述- 1 -</p><p>　　1.2 系統(tǒng)開(kāi)發(fā)工具系- 1 -</p><p>　　第二章 學(xué)校綜合管理信息系統(tǒng)分析- 3 -</p><p>　　2.1 系統(tǒng)可行性分析- 3 -</p><p>　　2.2

13、 系統(tǒng)需求分析- 3 -</p><p>　　2.3 數(shù)據(jù)和數(shù)據(jù)流程分析- 5 -</p><p>　　第三章 學(xué)校綜合管理系統(tǒng)設(shè)計(jì)- 11 -</p><p>　　3．1 系統(tǒng)設(shè)計(jì)概述- 11 -</p><p>　　3．2 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)- 11 -</p><p>　　3.3 系統(tǒng)功

14、能結(jié)構(gòu)設(shè)計(jì)- 23 -</p><p>　　第四章 學(xué)校綜合管理信息系統(tǒng)的實(shí)現(xiàn)- 25 -</p><p>　　4.1 系統(tǒng)登錄功能的實(shí)現(xiàn)- 25 -</p><p>　　4.2 系統(tǒng)主界面的實(shí)現(xiàn)- 27 -</p><p>　　4.3 學(xué)生基本信息管理功能的實(shí)現(xiàn)- 28 -</p><p>　　4

15、.4 學(xué)生信息查詢功能的實(shí)現(xiàn)- 30 -</p><p>　　4.5 學(xué)生成績(jī)查詢功能的實(shí)現(xiàn)- 33 -</p><p>　　4.6 考勤記錄功能的實(shí)現(xiàn)- 36 -</p><p>　　4.7 繳費(fèi)統(tǒng)計(jì)系統(tǒng)的實(shí)現(xiàn)- 38 -</p><p>　　4.8 月度工資錄入和計(jì)算功能的實(shí)現(xiàn)- 40 -</p>

16、<p>　　4.9 儀器設(shè)備基本信息管理功能的實(shí)現(xiàn)- 42 -</p><p>　　第五章 系統(tǒng)的測(cè)試與運(yùn)行- 45 -</p><p>　　5.1 系統(tǒng)測(cè)試的目的和原則- 45 -</p><p>　　5.2 系統(tǒng)測(cè)試對(duì)象- 45 -</p><p>　　5.3 測(cè)試結(jié)果- 45 -</p&

17、gt;<p>　　結(jié) 論- 47 -</p><p>　　參考文獻(xiàn)- 48 -</p><p>　　致 謝- 49 -</p><p>　　第一章 學(xué)校綜合管理信息系統(tǒng)簡(jiǎn)介</p><p>　　1.1 系統(tǒng)概述</p><p>　　1.1.1 系統(tǒng)的一般描述</p><

18、;p>　　該系統(tǒng)是根據(jù)學(xué)校在教育管理過(guò)程中的實(shí)際需求，設(shè)計(jì)，開(kāi)發(fā)的一套功能較完善，界面簡(jiǎn)單，易于操作的教育管理軟件。主要是為提高學(xué)校管理的效率，促進(jìn)學(xué)校全面展開(kāi)信息化教學(xué)。借助計(jì)算機(jī)管理人員可以很好的對(duì)教師，學(xué)生及教學(xué)資源等的管理，減少學(xué)校開(kāi)銷(xiāo)，方便數(shù)據(jù)整理和維護(hù)。</p><p><b>　　系統(tǒng)運(yùn)行環(huán)境</b></p><p>　　為了保證系統(tǒng)運(yùn)行的效率和可

19、靠性，本系統(tǒng)有以下的環(huán)境要求：</p><p>　?。?）基本配置：PII以上機(jī)型，內(nèi)存128M以上。</p><p>　?。?）Windows me∕Windows 2000∕Windows XP∕Windows NT均可。</p><p>　?。?）采用支持VGA或更高分辨的顯示器，要求屏幕設(shè)置為真彩色16位或更高設(shè)置，并使用1024×768的分辨率。

20、</p><p>　　1.2 系統(tǒng)開(kāi)發(fā)工具系</p><p>　　本系統(tǒng)采用Delphi 作為開(kāi)發(fā)工具，用Access 2003 數(shù)據(jù)庫(kù)管理系統(tǒng)創(chuàng)建數(shù)據(jù)庫(kù)和管理數(shù)據(jù)。</p><p>　　Delphi 是Borland 公司開(kāi)發(fā)的一種基于客戶/ 服務(wù)器體系的Windows 快速應(yīng)用開(kāi)發(fā)工具 ( RAD, Rapid Application Development

21、 )。自從推出之日起，就一直受到廣大編程人員的青睞。它是一種面向?qū)ο蟮目梢曅?，又結(jié)合Object Pascal 語(yǔ)言的編程技巧，可以開(kāi)發(fā)出功能強(qiáng)大的Windows 應(yīng)用程序和數(shù)據(jù)庫(kù)應(yīng)用程序。</p><p>　　是全新的可視化編程環(huán)境，為我們提供了一種方便，快捷的Windows應(yīng)用程序開(kāi)發(fā)工具。它使用了Microsoft Windows 圖形用戶界而的許多先進(jìn)特性和設(shè)計(jì)思想，采用了彈性可重復(fù)利用的完整的面向?qū)ο?/p>

22、程序語(yǔ)言（Object—Oriented Language），當(dāng)今世界上最快的編輯器，最為領(lǐng)先的數(shù)據(jù)庫(kù)技術(shù)。對(duì)于廣大的程序開(kāi)發(fā)人員來(lái)講，使用Delphi開(kāi)發(fā)應(yīng)用軟件，無(wú)疑會(huì)大大地提高編程效率，而且隨著應(yīng)用的深入，您將會(huì)發(fā)現(xiàn)編程不再是枯燥無(wú)味的工作——Delphi 的每一個(gè)設(shè)計(jì)細(xì)節(jié)，都有將會(huì)帶給您一份欣喜。</p><p>　　Delphi 7.0 繼承了以前版本的優(yōu)點(diǎn)，并且增添了許多新的功能，比如在 ADO，數(shù)據(jù)

23、模塊設(shè)計(jì)，IBX，MIDAS，CORBA，程序調(diào)試，VCL，窗體框架和桌面定義等方面都增強(qiáng)了許多，可以大大提高軟件系統(tǒng)的設(shè)計(jì)，管理和開(kāi)發(fā)的速度。它集中了Visual C++ 和 Visual Basic 兩者的優(yōu)點(diǎn)：學(xué)習(xí)過(guò)程中很容易上手，而且功能也非常強(qiáng)大，尤其在界面設(shè)計(jì)，數(shù)據(jù)庫(kù)編程和網(wǎng)絡(luò)編程等方面更具獨(dú)到之處，是其他開(kāi)發(fā)工具無(wú)法比擬的。 </p><p>　　Access 2003 提供一組功能強(qiáng)大的工具，這些

24、工具提供的功能相當(dāng)完善，能夠滿足專(zhuān)業(yè)開(kāi)發(fā)人員的需要，而且對(duì)于新用戶來(lái)說(shuō)，還十分易于上手?，F(xiàn)在，你組織中的每個(gè)成員都可以創(chuàng)建或使用功能強(qiáng)大的數(shù)據(jù)庫(kù)解決方案，這種數(shù)據(jù)庫(kù)解決方案使他們能夠比以前更輕松地組織，訪問(wèn)和共享信息。</p><p>　　Access 2003 支持各種數(shù)據(jù)格式，其中包括可擴(kuò)展標(biāo)記語(yǔ)言（XML），OLE，開(kāi)放式數(shù)據(jù)庫(kù)連接 (ODBC) 以及Microsoft Windows Share Poi

25、nt 服務(wù)。能夠鏈接表，以便您可以在Access 2003 窗體，報(bào)表和數(shù)據(jù)訪問(wèn)面內(nèi)一次訪問(wèn)多個(gè)數(shù)據(jù)庫(kù)中的數(shù)據(jù)。而且還能鏈接其他Access 數(shù)據(jù)庫(kù)，Microsoft Excel 電子表格，ODBC 數(shù)據(jù)源，Microsoft SQL Server 數(shù)據(jù)庫(kù)以及其他數(shù)據(jù)源中的表。Access 2003 將基于Microsoft SQL Server 的數(shù)據(jù)合并到了Access 解決方案中。因此使用“存儲(chǔ)過(guò)程設(shè)計(jì)器”創(chuàng)建和修改存儲(chǔ)在SQL

26、 Server 中的簡(jiǎn)單存儲(chǔ)過(guò)程，而不必學(xué)習(xí)Transact SQL。Access 2003 支持Microsoft Windows XP 的主題功能，從而為窗體提供一致的設(shè)計(jì)風(fēng)格。更改表中的字段屬性后，有控件綁定到該屬性的所有窗體或報(bào)表都可以被自動(dòng)更新。在Access 2003中，現(xiàn)在可以將正在使用的數(shù)據(jù)庫(kù)的副本保存到其他位置。它對(duì)在早期版本的Access中保存和打開(kāi)的窗體和報(bào)</p><p>　　第二章 學(xué)

27、校綜合管理信息系統(tǒng)分析</p><p>　　2.1 系統(tǒng)可行性分析</p><p>　　可行性分析的意思是根據(jù)系統(tǒng)的環(huán)境，資源等條件，判斷所提出的信息系統(tǒng)項(xiàng)目是否有必要，有可能開(kāi)始進(jìn)行。當(dāng)然，做出這一判斷是以目標(biāo)的明確與定量代為前提的，沒(méi)有明確的可以定量檢查的目標(biāo)，是無(wú)法進(jìn)行可行性分析的。所謂可行性應(yīng)該包括必要性和可能性兩個(gè)方面。沒(méi)有必要性的項(xiàng)目是不應(yīng)該開(kāi)始進(jìn)行的。一般地，軟件領(lǐng)域的可行

28、性分析主要考慮三個(gè)因素：經(jīng)濟(jì)，技術(shù)和社會(huì)環(huán)境。</p><p>　　2.1.1 技術(shù)方面的可行性</p><p>　　學(xué)校綜合管理系統(tǒng)已經(jīng)具備了完備，成熟的理論和體系結(jié)構(gòu)，主要問(wèn)題在于系統(tǒng)的客觀性與真實(shí)性。本系統(tǒng)用ACCESS數(shù)據(jù)庫(kù)，因此需要連接數(shù)據(jù)庫(kù)，通過(guò)ODBC數(shù)據(jù)源進(jìn)行連接后，系統(tǒng)可以正常運(yùn)行，結(jié)合進(jìn)行開(kāi)發(fā)的技術(shù)日趨成熟，DELPHI功能非常強(qiáng)大，尤其在界面設(shè)計(jì)，數(shù)據(jù)庫(kù)編程和網(wǎng)絡(luò)編

29、程等方面更具獨(dú)到之處，是其他開(kāi)發(fā)工具無(wú)法比擬的。</p><p>　　本系統(tǒng)的關(guān)鍵技術(shù)在于怎么用DILPHI做出一個(gè)完善的系統(tǒng)，使系統(tǒng)更客觀，更簡(jiǎn)單。并且將所有的數(shù)據(jù)信息都入數(shù)據(jù)庫(kù)中進(jìn)行存儲(chǔ)，這些數(shù)據(jù)信息的調(diào)用可由程序來(lái)完成，也可出DELPHI控制完成。</p><p>　　2.1.2 社會(huì)因素的可行性</p><p>　　使用本系統(tǒng)的一般操作人員要求有一定的計(jì)

30、算機(jī)基礎(chǔ)。系統(tǒng)管理員要求具有PASCAL語(yǔ)言方面的專(zhuān)業(yè)知識(shí)，而且要熟悉DELPHI系統(tǒng)開(kāi)發(fā)工具。在使用人員和系統(tǒng)管理員經(jīng)過(guò)培訓(xùn)后都可以熟練使用，因此在社會(huì)因此在社會(huì)因素方面該系統(tǒng)是可行的。</p><p>　　2.1.3 經(jīng)濟(jì)方面的可行性</p><p>　　由于該系統(tǒng)開(kāi)發(fā)周期較短，操作簡(jiǎn)便易行，所以從項(xiàng)目開(kāi)發(fā)的投入金額，使用的費(fèi)用，收益，投資回報(bào)周期等方面來(lái)看，本系統(tǒng)都是可行的。&l

31、t;/p><p>　　2.2 系統(tǒng)需求分析</p><p>　　2.2.1 系統(tǒng)功能需求</p><p>　　系統(tǒng)功能需求分析的基本任務(wù)是對(duì)目標(biāo)系統(tǒng)提出完整，準(zhǔn)確，清晰，具體的要求。需求分析的結(jié)果是系統(tǒng)開(kāi)發(fā)的基礎(chǔ)。通過(guò)對(duì)很多學(xué)校綜合管理系統(tǒng)的瀏覽和研究，并對(duì)他們從功能，流程等多方面進(jìn)行調(diào)研和考察，初步分析得出本人所設(shè)計(jì)系統(tǒng)需要實(shí)現(xiàn)的幾個(gè)功能，其中最主要的功能

32、有用戶登錄，學(xué)校基本信息管理，學(xué)生信息管理，成績(jī)管理，教職工信息管理，工資管理，學(xué)生繳費(fèi)登記，儀器設(shè)備管理以及整個(gè)系統(tǒng)的管理功能。</p><p>　　用戶需要輸入自己的用戶名和密碼進(jìn)行登錄，然后用戶進(jìn)入系統(tǒng)界面，能過(guò)點(diǎn)擊主菜單中的下拉菜單進(jìn)行信息的瀏覽與管理操作。使得整個(gè)學(xué)校管理過(guò)程變得方便快捷。</p><p>　　系統(tǒng)在完成這些需求的過(guò)程中要準(zhǔn)確，清晰的提供給用戶所需要的信息。系統(tǒng)也

33、要有著其獨(dú)特的完整性和具體性，除了能夠提供給用戶基本的操作外，還要使用戶覺(jué)得整個(gè)系統(tǒng)貼近生活，感覺(jué)人性化。</p><p>　　2.2.2 系統(tǒng)性能需求</p><p>　　實(shí)用性：有效進(jìn)行學(xué)校管理，盡量最大限度降低管理員日常管理工作量，提高教學(xué)質(zhì)量和效率，優(yōu)化資源，實(shí)現(xiàn)效益最大化。</p><p>　　操作簡(jiǎn)單：本系統(tǒng)應(yīng)該適用于不同水平的使用者，同時(shí)系統(tǒng)不應(yīng)太

34、復(fù)雜和煩瑣，因此要求系統(tǒng)的操作盡可能簡(jiǎn)單易行。</p><p>　　適應(yīng)性：應(yīng)該能廣泛應(yīng)用于不同類(lèi)型的學(xué)校使系統(tǒng)在不同的硬件環(huán)境下都能得以應(yīng)用。</p><p>　　代碼可讀性好：文中的代碼將盡可能簡(jiǎn)潔，易懂。</p><p>　　2.2.3 系統(tǒng)技術(shù)需求</p><p>　　數(shù)據(jù)庫(kù)技術(shù)：數(shù)據(jù)庫(kù)要有較強(qiáng)的可靠性，安全性和可維護(hù)性。在設(shè)計(jì)時(shí)

35、要避免冗余問(wèn)題和不一致的問(wèn)題。用戶每注冊(cè)一個(gè)新的用戶名后要相應(yīng)的在數(shù)據(jù)庫(kù)相對(duì)應(yīng)的表中生成一條記錄，便于查詢，基本存在于的數(shù)據(jù)庫(kù)相應(yīng)表中。這些數(shù)據(jù)庫(kù)信息都要能夠根據(jù)需要快速準(zhǔn)確的顯示出來(lái)，并且保證數(shù)據(jù)的安全性，即輸入到數(shù)據(jù)庫(kù)中的數(shù)據(jù)在輸出顯示時(shí)，必須對(duì)應(yīng)顯示原有的數(shù)據(jù)。此外還要在每次更新或者刪除時(shí)，都必須將數(shù)據(jù)庫(kù)中所有出現(xiàn)與它相關(guān)的地方做出改變，并且在設(shè)計(jì)數(shù)據(jù)庫(kù)時(shí)，需要考慮的修改，最好在盡量少的操作步驟中完成。</p>&l

36、t;p>　　系統(tǒng)安全技術(shù)：由于本系統(tǒng)的登陸界面中，需要用戶輸入用戶名和用戶密碼，是用戶的唯一識(shí)別方式，不能存在安全上的隱患。</p><p>　　2.3 數(shù)據(jù)和數(shù)據(jù)流程分析</p><p>　　數(shù)據(jù)流圖（DFD，data flow diagram）是描述數(shù)據(jù)處理過(guò)程的有力工具。數(shù)據(jù)流圖從數(shù)據(jù)傳遞和加工的角度，以圖形的方式刻畫(huà)數(shù)據(jù)流從輸入到輸出的移動(dòng)變換過(guò)程。</p>

37、<p>　　數(shù)據(jù)流圖的基本圖形元素有4種：</p><p>　　外部實(shí)體 數(shù)據(jù)流 數(shù)據(jù)存儲(chǔ) 數(shù)據(jù)處理</p><p>　　圖2-1數(shù)據(jù)流圖的基本圖形元素</p><p>　　本系統(tǒng)相關(guān)數(shù)據(jù)流圖如下：</p><p>　　圖2-2 系統(tǒng)數(shù)據(jù)流圖</p>

38、<p>　　圖2-3 學(xué)校基本信息數(shù)據(jù)流圖</p><p>　　圖2-4 學(xué)生信息數(shù)據(jù)流圖</p><p>　　圖2-5 學(xué)生繳費(fèi)信息數(shù)據(jù)流圖</p><p>　　圖2-6 教職工信息數(shù)據(jù)流圖</p><p>　　圖2-7 儀器設(shè)置信息數(shù)據(jù)流圖</p><p>　　第三章 學(xué)校綜合管理系統(tǒng)設(shè)計(jì)<

39、;/p><p>　　3．1 系統(tǒng)設(shè)計(jì)概述</p><p>　　系統(tǒng)設(shè)計(jì)的任務(wù)是：在系統(tǒng)分析提出的邏輯模型的基礎(chǔ)上科學(xué)合理地進(jìn)行物理模型設(shè)計(jì)。系統(tǒng)設(shè)計(jì)的主要工作有：（1）總體設(shè)計(jì)，包括系統(tǒng)技術(shù)構(gòu)架，軟件結(jié)構(gòu)設(shè)計(jì)和系統(tǒng)流程設(shè)計(jì)；（2）數(shù)據(jù)庫(kù)設(shè)計(jì)；（3）代碼設(shè)計(jì)；（4）輸入/輸出設(shè)計(jì)。</p><p>　　從系統(tǒng)分析的邏輯模型設(shè)計(jì)到系統(tǒng)設(shè)計(jì)的物理模型設(shè)計(jì)是一個(gè)由抽象到具體的

40、過(guò)程。經(jīng)過(guò)系統(tǒng)設(shè)計(jì)，設(shè)計(jì)人員應(yīng)能為程序開(kāi)發(fā)人員提供完整，清楚的設(shè)計(jì)文檔，并對(duì)設(shè)計(jì)規(guī)范中不清楚的地方做出解釋。</p><p>　　系統(tǒng)設(shè)計(jì)的原則包括：</p><p>　?。?）系統(tǒng)性。系統(tǒng)是作為統(tǒng)一整體而存在的，因此在系統(tǒng)設(shè)計(jì)中，要從整個(gè)系統(tǒng)的角度進(jìn)行考慮：系統(tǒng)的代碼要統(tǒng)一，設(shè)計(jì)規(guī)范要標(biāo)準(zhǔn)，傳遞語(yǔ)言要盡可能要一致，對(duì)系統(tǒng)的數(shù)據(jù)采集要做到數(shù)出一處，全局共享，使一次輸入得到多次利用。<

41、/p><p>　　（2）靈活性。為保持系統(tǒng)的長(zhǎng)久生命，要求系統(tǒng)具有很強(qiáng)的環(huán)境適應(yīng)性。為此，系統(tǒng)應(yīng)具有較好的開(kāi)放性和結(jié)構(gòu)的可變性。在系統(tǒng)設(shè)計(jì)中，應(yīng)盡量采用模快化結(jié)構(gòu)，提高各模塊的獨(dú)立性，盡可能減少模塊間的數(shù)據(jù)耦合，使各子系統(tǒng)間的數(shù)據(jù)依賴減至最低限度。</p><p>　?。?）可靠性?？煽啃允侵赶到y(tǒng)抵御外界干擾的能力及受外界干擾時(shí)的恢復(fù)能力。一個(gè)成功的管理信息系統(tǒng)必須具有較高的可靠性。</

42、p><p>　?。?）經(jīng)濟(jì)性。經(jīng)濟(jì)性指在滿足系統(tǒng)需求的前提下盡可能地減少系統(tǒng)的開(kāi)銷(xiāo)。一方面，在硬件投資上不能盲目追求技術(shù)上的先進(jìn)，而應(yīng)以滿足應(yīng)用需要為前提；另一方面，系統(tǒng)設(shè)計(jì)中應(yīng)盡量避免不必要的復(fù)雜化，各模塊應(yīng)盡量簡(jiǎn)潔，以便縮短處理流程，減少處理費(fèi)用。</p><p>　　3．2 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)</p><p>　　本系統(tǒng)所采用的關(guān)系數(shù)據(jù)庫(kù)具有結(jié)構(gòu)清晰，構(gòu)成簡(jiǎn)單，功能

43、強(qiáng)大，檢索迅速，維護(hù)方便的特點(diǎn)。根據(jù)對(duì)系統(tǒng)的分析確定數(shù)據(jù)庫(kù)中需要的表，確定該表中需要的字段，明確每條記錄中有唯一值的字段，確定表之間的關(guān)系，輸入數(shù)據(jù)并創(chuàng)建其他數(shù)據(jù)對(duì)象。</p><p>　　初步構(gòu)想數(shù)據(jù)庫(kù)的幾個(gè)主要表有授權(quán)用戶，學(xué)生基本信息，學(xué)院信息，專(zhuān)業(yè)信息，教師基本信息，課程基本信息，成績(jī)信息表，繳費(fèi)信息表，儀器設(shè)備信息，教職工工資表，教職工考勤記錄表等。</p><p>　　授權(quán)用戶

44、數(shù)據(jù)庫(kù)表包括用戶名和用戶密碼。其E-R圖如下：</p><p>　　圖3-1 授權(quán)用戶E-R圖</p><p>　　學(xué)生基本信息用于存儲(chǔ)學(xué)生的基本信息包括學(xué)生的學(xué)號(hào)，姓名，性別，所屬院系，專(zhuān)業(yè)等。其E-R圖如下：</p><p>　　圖3-2 學(xué)生基本信息E-R圖</p><p>　　教師基本信息包括教師編號(hào)，教師名稱(chēng)，所屬院系等。其E-

45、R圖如下：</p><p>　　圖3-3 教師基本信息E-R圖</p><p>　　課程基本信息包括課程編號(hào)，課程名稱(chēng)，任課教師編號(hào)，學(xué)分。其E-R圖如下：</p><p>　　圖3-4 課程基本信息E-R圖</p><p>　　儀器設(shè)備信息表包括儀器編號(hào)，儀器名稱(chēng)，型號(hào)，價(jià)格，所屬實(shí)驗(yàn)，啟用日期，分類(lèi)碼，狀況，備注等信息。其E-R圖如下：&

46、lt;/p><p>　　圖3-5 儀器設(shè)備基本信息E-R圖</p><p>　　成績(jī)信息表包括自動(dòng)編號(hào)，學(xué)號(hào)，姓名，班級(jí)，課程名稱(chēng)，成績(jī)等信息。其E-R圖如下：</p><p>　　圖3-6 成績(jī)基本信息E-R圖</p><p>　　繳費(fèi)信息表包括自動(dòng)編號(hào)，學(xué)號(hào)，姓名，班級(jí)，課程名稱(chēng)，成績(jī)等信息。其E-R圖如下：</p>&l

47、t;p>　　圖3-7 繳費(fèi)信息E-R圖</p><p>　　教職工工資表包括員工編號(hào)，基本工資，職位工資，級(jí)別工資，工齡工資，崗位工資，其它等信息。其E-R圖如下：</p><p>　　圖3-8 工資信息E-R圖</p><p>　　教職工考勤記錄表包括教職工編號(hào)，自動(dòng)編號(hào)，考勤日期，出勤，遲到，早退，曠課，休假，請(qǐng)假，出差等信息。其E-R圖如下：</p

48、><p>　　圖3-9考勤信息E-R圖</p><p>　　學(xué)院信息表包括學(xué)院號(hào)，學(xué)院名稱(chēng)，系教師人數(shù)，系學(xué)生人數(shù)。系主任，備注等信息。其E-R圖如下：</p><p>　　圖3-10 學(xué)院信息E-R圖</p><p>　　專(zhuān)業(yè)信息表包括專(zhuān)業(yè)號(hào)，專(zhuān)業(yè)名稱(chēng)，所屬學(xué)院號(hào)，所屬學(xué)院名稱(chēng)，專(zhuān)業(yè)簡(jiǎn)介等信息。其E-R圖如下：</p><p

49、>　　圖3-11 專(zhuān)業(yè)信息E-R圖</p><p>　　圖3-12 系統(tǒng)E-R圖</p><p>　　其主要的數(shù)據(jù)表結(jié)構(gòu)如下：</p><p>　　表3-1 授權(quán)用戶表結(jié)構(gòu)</p><p>　　表3-2 學(xué)生基本信息表結(jié)構(gòu)</p><p>　　表3-3 教師基本信息表結(jié)構(gòu)</p><p>

50、　　表3-4 課程基本信息表結(jié)構(gòu)</p><p>　　表3-5 儀器設(shè)備信息表結(jié)構(gòu)</p><p>　　表3-6 成績(jī)信息表結(jié)構(gòu)</p><p>　　表3-7 費(fèi)用信息表結(jié)構(gòu)</p><p>　　表3-8 工資信息表結(jié)構(gòu)</p><p>　　表3-9 考勤信息表結(jié)構(gòu)</p><p>　　表3-1

51、0 學(xué)院信息表結(jié)構(gòu)</p><p>　　表3-11專(zhuān)業(yè)信息表結(jié)構(gòu)</p><p>　　3.3 系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)</p><p>　　我設(shè)計(jì)的學(xué)校綜合管理系統(tǒng)所要實(shí)現(xiàn)的功能有：</p><p>　　（1）基本信息管理：此模塊可以實(shí)現(xiàn)對(duì)學(xué)?；拘畔⒌木S護(hù)。</p><p>　?。?）學(xué)生管理：用戶可以對(duì)學(xué)生的信息以及課

52、程信息進(jìn)行添加，刪除，修改，和查詢等。</p><p>　?。?）成績(jī)管理：在此功能中用戶可以根據(jù)需要對(duì)學(xué)生成績(jī)信息進(jìn)行錄入，查詢，統(tǒng)計(jì)等功能。</p><p>　?。?）教職工信息管理：此模塊可以實(shí)現(xiàn)對(duì)教職工信息的添加，修改，刪除等功能，可以實(shí)現(xiàn)對(duì)教職工考勤記錄的添加和統(tǒng)計(jì)。</p><p>　?。?）學(xué)生繳費(fèi)系統(tǒng)：可以實(shí)現(xiàn)學(xué)生繳費(fèi)注冊(cè)，統(tǒng)計(jì)，和瀏覽等功能。<

53、;/p><p>　?。?）工資管理：可以實(shí)現(xiàn)教職工工資的錄入，計(jì)算，工資津貼統(tǒng)計(jì)和查詢功能。</p><p>　　（7）儀器設(shè)備管理：可以實(shí)現(xiàn)儀器設(shè)備信息和儀器設(shè)備借用信息錄入，修改，查詢，儀器設(shè)備和實(shí)驗(yàn)代碼維護(hù)，借用人信息添加和查詢。</p><p>　?。?）系統(tǒng)管理：包括用戶密碼修改和系統(tǒng)退出。</p><p>　　根據(jù)系統(tǒng)設(shè)計(jì)思想和系統(tǒng)分

54、析，構(gòu)想的整個(gè)系統(tǒng)結(jié)構(gòu)圖如圖4-1所示：</p><p>　　圖3-13 系統(tǒng)功能結(jié)構(gòu)圖</p><p>　　第四章 學(xué)校綜合管理信息系統(tǒng)的實(shí)現(xiàn)</p><p>　　4.1 系統(tǒng)登錄功能的實(shí)現(xiàn)</p><p>　　4.1.1 用戶登錄界面的功能描述</p><p>　　功能描述：本模塊主要實(shí)現(xiàn)用戶的登錄。為了限制該

55、系統(tǒng)資源的使用，只有經(jīng)過(guò)身份確認(rèn)的用戶才可以訪問(wèn)。本模塊，通過(guò)輸入用戶名，密碼驗(yàn)證用戶身份，如果驗(yàn)證成功則進(jìn)入系統(tǒng)，否則出錯(cuò)提示框提示重新輸入信息。用戶名和密碼輸入正確都點(diǎn)回車(chē)鍵可以進(jìn)入系統(tǒng)。如輸入錯(cuò)誤次數(shù)超過(guò)三次，自動(dòng)退出登錄界面。 系統(tǒng)登錄界面如下：</p><p><b>　　確定按鍵代碼</b></p><p>　　圖4-1 系統(tǒng)登錄界面</p>

56、<p>　　4.1.2 登錄界面部分代碼</p><p>　　Procedure TloginDlg.BitBtn 1Click (Sender: TObject);</p><p>　　Var results:Variant;</p><p><b>　　Begin</b></p><p>　　Count:

57、=count+1;</p><p>　　Results:=adotablel.Lookup(′username′,editl.text,′password′);</p><p>　　If results=edit2.Text then begin</p><p>　　Showmessage (′密碼正確，即將進(jìn)系統(tǒng)′)；</p><p>　　

58、Yhm;=editl.text;</p><p>　　Logindlg,Hide;</p><p>　　Application.CreateForm(tmainform. mainform);</p><p>　　Mainform.ShowModal;</p><p>　　Mainform. Free;</p><p>

59、;<b>　　End </b></p><p>　　Else begin</p><p>　　Showmessage (′錯(cuò)誤的用戶名或密碼′)；</p><p>　　If (count=3) then</p><p><b>　　Close;</b></p><p>　　E

60、nd ; end;</p><p><b>　　回車(chē)鍵起作用代碼：</b></p><p>　　Procedure TloginDlg.Edit2KeyPress(Sender:TObject: var Key: Char);</p><p><b>　　Begin</b></p><p>　　If

61、(key=#13)then</p><p>　　Bitbtnl.click</p><p><b>　　Else</b></p><p><b>　　End;</b></p><p>　　4.2 系統(tǒng)主界面的實(shí)現(xiàn)</p><p>　　用戶登陸到系統(tǒng)以后則進(jìn)入相應(yīng)的主頁(yè)面，

62、通過(guò)點(diǎn)按相應(yīng)的菜單進(jìn)入不同的界面。</p><p>　　表4-1 系統(tǒng)主菜單結(jié)構(gòu)</p><p>　　4.3 學(xué)生基本信息管理功能的實(shí)現(xiàn)</p><p>　　4.3.1 學(xué)生基本信息界面的功能描述</p><p>　　功能描述：本窗體主要實(shí)現(xiàn)學(xué)生信息的添加，刪除，修改等功能，點(diǎn)按添加按鈕增加一條記錄，按刪除按鈕，跳出確認(rèn)窗口，點(diǎn)擊確定刪

63、除一條記錄，點(diǎn)擊修改按鈕，可以修改的學(xué)生信息表，點(diǎn)擊確定按鈕保存修改后的信息，點(diǎn)取消按鈕取消意見(jiàn)。</p><p><b>　　學(xué)生信息界面如下：</b></p><p>　　圖4-3 學(xué)生信息界面</p><p>　　4.3.2 學(xué)生基本信息界面主要代碼</p><p><b>　　添加按鈕代碼：<

64、/b></p><p>　　procedure Txuesheng.Button 1 Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　table 1. Insert;</p><p>　　DBEditl.setfocus;</p>&

65、lt;p><b>　　end;</b></p><p><b>　　刪除按鈕代碼：</b></p><p>　　procedure txuesheng.Button2Click(Sender;TObject);</p><p><b>　　begin</b></p><p&g

66、t;　　if (application.messageBox (′是否確定要?jiǎng)h除記錄′，′確認(rèn)刪除′</p><p>　　MB＿yesno+MB＿iconquestion)<>idno) then {打開(kāi)確認(rèn)窗口}</p><p>　　if(table 1.RecordCuount﹥0)then//如果表中有刪除記錄則刪除</p><p>　　table

67、.Delete;</p><p><b>　　end;</b></p><p><b>　　編輯按鈕代碼：</b></p><p>　　procedure Txuesheng.Button3Click(Sender:TObject)</p><p><b>　　begin</b>

68、;</p><p>　　if (table 1. state= dsedit)then </p><p><b>　　begin</b></p><p>　　tablel.enit;</p><p>　　dbeditl.setfocus;</p><p>　　dbeditl.selectall;&

69、lt;/p><p><b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　確定按鈕代碼：</b></p><p>　　procedure TXuesheng, Button4Click (Sender:TObject);</p

70、><p><b>　　begin</b></p><p>　　if(table1.modified)then</p><p>　　table1.Post;</p><p><b>　　end;</b></p><p>　　4.4 學(xué)生信息查詢功能的實(shí)現(xiàn)</p>

71、<p>　　學(xué)生信息查詢界面的功能描述</p><p>　　功能描述：本模塊主要實(shí)現(xiàn)學(xué)生信息的查詢功能，可以按學(xué)生的學(xué)號(hào)和姓名進(jìn)行查詢，也可能性按某個(gè)學(xué)生的系，民族，性別，省份，專(zhuān)業(yè)信息進(jìn)行條件查詢，查詢結(jié)果顯示在列表中。</p><p>　　學(xué)生信息查詢界面如下：</p><p>　　圖4-4 學(xué)生信息界面查詢</p><p>　

72、　4.4.2 學(xué)生信息查詢界面主要代碼</p><p>　　選擇查詢方式查找按鈕代碼：</p><p>　　procedure Txscx,Button1Clicik(Sender;TObject);</p><p>　　var sqlstr:string;</p><p><b>　　begin</b></p

73、><p>　　if combobox1.text=′選擇′then exit</p><p>　　if combobox1.text=′學(xué)號(hào)′then </p><p>　　sqlstr:= ′select*from xuesheng where</p><p>　　xh:= ′+quotedstr(editl.Text);</p>

74、<p>　　if combobox1.text=′姓名′then</p><p>　　sqlstr:= ′select*from xuesheng where</p><p>　　xm=′+quotedstr(edit1.Text);</p><p>　　query1 .close;</p><p>　　query1.sql.cl

75、ear;</p><p>　　query1.sql.add(sqlstr);</p><p><b>　　Try</b></p><p>　　query1.prepare;</p><p>　　query1,ExecSQL;</p><p>　　query1.open;</p>&l

76、t;p><b>　　except</b></p><p>　　query1.Close;</p><p>　　exit;end;end;</p><p>　　條件查詢查找按鈕代碼：</p><p>　　procedure Txscx.Buton2Click(Sender:TObject);</p>&

77、lt;p>　　var x, b, j, m, a, sqlstr:string;</p><p><b>　　begin</b></p><p>　　if combobox2.text=′選擇′then</p><p>　　x:=＂else x:= ′xy=′+quotedstr(combobox2.Text);</p>&

78、lt;p>　　if combobox3.text=′選擇′then</p><p>　　b:= ＂else x:= ′xb=′+quotedstr(combobox3.Text);</p><p>　　if combobox4.text=′選擇′then</p><p>　　m:= ＂ else m:= ′mz=′+quotedstr(combobox4.Te

79、xt);</p><p>　　if combobox5.text=′選擇′then</p><p>　　j:= ＂ else j:= ′jg=′+quotedstr(combobox5.Text);</p><p>　　if combobox6.text=′選擇′then</p><p>　　z:= ＂ else z:= ′zy=′+quot

80、edstr(combobox6.Text);</p><p>　　with query1 do begin</p><p>　　close;sql.clear;</p><p>　　sqlstr:= ′select*from xuesheng′;</p><p>　　if x＜＞＂then begin</p><p>

81、　　sqlstr:=sqlstr+′where′+x;</p><p>　　if b＜＞＂then sqlstr:=sqlstr+′and′+b;</p><p>　　if m＜＞＂then sqlstr:=sqlstr+′and′+m;</p><p>　　if j＜＞＂then sqlstr:=sqlstr+′and′+j;</p><

82、p>　　if z＜＞＂then sqlstr:=sqlstr+′and′+z;</p><p>　　end else begin</p><p>　　if b＜＞＂then begin</p><p>　　sqlstr:=sqlstr+′where′+b;</p><p>　　if m＜＞＂then sqlstr:=sqlstr+′

83、and′+m;</p><p>　　if j＜＞＂then sqlstr:=sqlstr+′and′+j;</p><p>　　if z＜＞＂then sqlstr:=sqlstr+′and′+z;</p><p>　　end else begin</p><p>　　if m＜＞＂then begin</p><p&

84、gt;　　sqlstr:=sqlstr+′where′+m;</p><p>　　if j＜＞＂then sqlstr:=sqlstr+′and′+j;</p><p>　　if z＜＞＂then sqlstr:=sqlstr+′and′+z;</p><p>　　end else begin</p><p>　　if j＜＞＂then

85、begin</p><p>　　sqlstr:=sqlstr+′where′+j;</p><p>　　if z＜＞＂then sqlstr:=sqlstr+′and′+z;</p><p>　　end else begin</p><p>　　if z＜＞＂then </p><p>　　sqlstr:=sqlst

86、r+′where′+z;</p><p>　　end;end;end;end;</p><p>　　sql.text:=sqlstr;</p><p><b>　　try</b></p><p><b>　　preqare;</b></p><p>　　showmessage

87、 (′訪問(wèn)數(shù)據(jù)庫(kù)出錯(cuò)！′)；</p><p>　　exit;end;end;end;</p><p>　　4.5 學(xué)生成績(jī)查詢功能的實(shí)現(xiàn)</p><p>　　4.5.1 成績(jī)查詢界面的功能描述</p><p>　　功能描述：輸入某個(gè)學(xué)生的學(xué)號(hào)，姓名，班級(jí)，科目可以查詢出該學(xué)生的成績(jī)。</p><p>　　成績(jī)

88、查詢界面如下： </p><p>　　圖4-5 成績(jī)查詢界面</p><p>　　4.5.2 成績(jī)查詢界面主要代碼</p><p>　　開(kāi)始查詢按鈕的代碼如下：</p><p>　　procedure Tcjcx.Button1Click(Sender: TObject);</p><p>　　var sqlst

89、r, strl, str2, str3, str4:string;</p><p>　　s1, s2, s3, s4:string;</p><p><b>　　begin</b></p><p>　　s1:=＂; s2:= ＂;s3:= ＂; s4:= ＂;</p><p>　　query1.Close;</p&

90、gt;<p>　　sqlstr:=＂;</p><p>　　strl:=combobox1.Text:</p><p>　　str2:=combobox2.Text:</p><p>　　str3:=combobox3.Text:</p><p>　　str4:=combobox4.Text:</p><p&

91、gt;　　if(str1+str2+str3+str4)=＂then begin</p><p>　　application.MessageBox(＇您沒(méi)有輸入查詢條件！請(qǐng)輸入查詢條件?。ⅲ崾荆?mb_ok+mb_inconwarning);</p><p><b>　　exit;end;</b></p><p>　　if strl＜＞＂th

92、en begin</p><p>　　sqlstr:= ＇and xh=＇+＂＂+strl+＂＂;</p><p>　　if str1＜＞s1 then begin</p><p>　　combobox1.Addltem(strl, cjcx);</p><p><b>　　s1:=str1;</b></p>

93、<p><b>　　end;end;</b></p><p>　　if str2＜＞＂ then begin</p><p>　　sqlstr:=sqlstr+＇and bj=＇+＂＂+str2+＂＂;</p><p>　　if str2＜＞s2 then begin</p><p>　　combobox2

94、. Addltem(str2, cjcx);</p><p><b>　　s2:=str2;</b></p><p><b>　　end;end;</b></p><p>　　if str3＜＞＂ then begin</p><p>　　sqlstr:=sqlstr+＇and xm=＇+＂＂+st

95、r3+＂＂;</p><p>　　if str3＜＞s3 then begin</p><p>　　combobox3. Addltem(str3, cjcx);</p><p><b>　　s3:=str3;</b></p><p><b>　　end;end;</b></p>&l

96、t;p>　　if str4＜＞＂ then begin</p><p>　　sqlstr:=sqlstr+＇and kcm=＇+＂＂+str4+＂＂;</p><p>　　if str4＜＞s4 then begin</p><p>　　combobox4. Addltem(str4, cjcx);</p><p><b>　

97、　s4:=str4;</b></p><p><b>　　end;end;</b></p><p>　　query1.SQL.Clear,</p><p>　　query1.sql.Add(＇select*from chengji where 1=1＇</p><p><b>　　+sqlstr);

98、</b></p><p>　　query1.Open;</p><p>　　if query1.RecordCount=0 then begin</p><p>　　application.MessageBox(沒(méi)有符合條件人記錄！請(qǐng)重新輸入?。В畔ⅲ?mb_ok+mb_iconinformation);</p><p><

99、;b>　　exit;</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　4.6 考勤記錄功能的實(shí)現(xiàn)</p><p>　　4.6.1 考勤記錄界面的功能描述</p><p>　　功能描

100、述：本見(jiàn)面可以實(shí)現(xiàn)教職工考勤記錄的添加，點(diǎn)擊保存按鈕考勤記錄添加成功，點(diǎn)擊刪除清楚添加的考勤記錄。</p><p><b>　　考勤記錄見(jiàn)面如下：</b></p><p>　　圖4-6 考勤記錄界面</p><p>　　4.6.2 考勤記錄見(jiàn)面的主要代碼</p><p>　　保存按鈕的代碼如下：</p>&

101、lt;p>　　procedure Tkaoqin.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if not fmodified then exit;</p><p>　　with query2 do </p><p><b&

102、gt;　　begin</b></p><p><b>　　close;</b></p><p>　　sql.text:= ＇select*from kaoqinjilu where bh=＇+quotedstr(fcurrbh)+ ＇</p><p>　　and kqrq=#＇+datetostr(datetimepickerl.d

103、ate)= ＇#＇;</p><p><b>　　Open;</b></p><p>　　if recordcount=0 then</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　s

104、ql.text:= ＇insert into kaoqinjilu(bh,kqrq,cq,cd,zt,kk,xj,qj,cc,</p><p>　　jbsj) ＇+values(＇+quotedstr(fcurrbh)+ ＇,#＇datetostr(Data Timepoclerl</p><p>　　.Data)+ ＇#,＇+booltostr(checkbox1.Checked)+ ＇

105、,＇+booltostr(checkbox2.</p><p>　　Checked)+ ＇,＇+booltostr(checkbox3.Checked)+ ＇,＇+bppltostr(checkbox4</p><p>　　Checked) +＇,＇+booltostr(checkbox5.Checked)+ ＇,＇+bppltostr(checkbox6</p><p

106、>　　Checked) +＇,＇+booltostr(checkbox7.Checked)+ ＇,＇+editl.text+ ＇</p><p><b>　　) ＇;</b></p><p><b>　　execsql;</b></p><p><b>　　end</b></p>

107、<p>　　else if recordcount=1 then</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Text:= ＇update kaoqinjilu set cq=＇+</p><p>　　bo

108、oltostr(checkbox1.Checked)+ ＇,cd=+booltostr(checkbox2. Checked</p><p>　　)+ ＇,zt= ＇+ booltostr(checkbox3. Checked)+ ＇,kk= ＇+</p><p>　　booltostr(checkbox4. Checked)+ ＇,xj= ＇+ booltostr(checkbox

109、5. Checked</p><p>　　)+ ＇,qj= ＇+</p><p>　　booltostr(checkbox6. Checked)+ ＇,cc=＇+</p><p>　　booltostr(checkbox7. Checked)+ ＇,jbsj=＇+editl.text+＇where</p><p>　　bh=＇+quoted

110、str(fcurrbh)+ ＇and kqrq=#＇+dateostr(datetimepicker1.</p><p>　　Date)+ ＇#＇;</p><p><b>　　execsql;</b></p><p><b>　　end;</b></p><p><b>　　close;

111、</b></p><p><b>　　end;</b></p><p>　　fmodifien:=false:</p><p><b>　　end;</b></p><p>　　4.7 繳費(fèi)統(tǒng)計(jì)系統(tǒng)的實(shí)現(xiàn)</p><p>　　4.7.1 繳費(fèi)統(tǒng)計(jì)系統(tǒng)的功能描

112、述</p><p>　　功能描述：本模塊主要實(shí)現(xiàn)學(xué)生繳費(fèi)信息的統(tǒng)計(jì)功能。向查詢條件中輸入查詢條件（從左邊進(jìn)行選擇），點(diǎn)擊開(kāi)始統(tǒng)計(jì)按鈕對(duì)繳費(fèi)情況進(jìn)行統(tǒng)計(jì)，結(jié)果顯示在統(tǒng)計(jì)結(jié)果中：查詢條件為空時(shí)提示輸入查詢條件；如果沒(méi)有記錄提示沒(méi)有符合條件的記錄。</p><p>　　繳費(fèi)統(tǒng)計(jì)系統(tǒng)界面如下：</p><p>　　圖4-7 繳費(fèi)統(tǒng)計(jì)界面</p><p&

113、gt;　　4.7.2 繳費(fèi)統(tǒng)計(jì)界面的主要代碼</p><p>　　開(kāi)始統(tǒng)計(jì)按鈕代碼如下：</p><p>　　procedure Tjfj.ButtonlClick(Sender:TObject);</p><p>　　var sum1:real;</p><p>　　s, s1, s2, s3:string;</p><

114、;p>　　boodmark1:tbookmark;</p><p><b>　　begin</b></p><p>　　if memo1.Text=＂then begin</p><p>　　application.MessageBox(＇請(qǐng)輸入查詢條件＇，＇提醒＇，</p><p>　　mb_ok+mb_icon

115、warning);</p><p><b>　　end</b></p><p>　　else begin</p><p><b>　　sum1:=0;</b></p><p>　　s1:=combobox1.test;</p><p>　　s2:=combobox2.test

116、;</p><p>　　s3:=dblookupcombobox1.Text+dblookupcombobox2.text+dblookupcombobox3.Text+dblookupcombobox4.text;</p><p>　　bookmark1:=query1.GetBookmark;</p><p>　　query1.Close;</p>

117、<p>　　query1.SQL.Add(＇where＇+memol.Text);</p><p>　　query1.Open;</p><p>　　if query1.RecordCount=0 then begin</p><p>　　application.MessageBox(＇沒(méi)有符合條件的記錄＇，＇信息＇，</p><p&

118、gt;　　mb_ok+mb_iconinformation);</p><p><b>　　end</b></p><p>　　else begin</p><p>　　query1.DisableControls;</p><p>　　query1.First;</p><p>　　while

119、not query1.Eof do</p><p><b>　　begin</b></p><p>　　sum1:=sum1+query1.FieldValues[＇yjf＇];</p><p>　　query1.Newt;</p><p><b>　　end;</b></p><

120、;p>　　query1.GotoBookmark(bookmark1);</p><p>　　query1.FreeBookmark(bookmark1);</p><p><b>　　end;</b></p><p>　　str(sum1:8:2,s);</p><p>　　4.8 月度工資錄入和計(jì)算功能的實(shí)

121、現(xiàn)</p><p>　　4.8.1 月度工資錄入和計(jì)算界面功能描述</p><p>　　功能描述：本模塊主要實(shí)現(xiàn)員工預(yù)算內(nèi)工資，月算內(nèi)補(bǔ)貼，扣除部分的錄入和本月度工資員工工資的計(jì)算。輸入預(yù)算內(nèi)工資時(shí)先點(diǎn)取消按鈕清零，輸入員工編號(hào)和其他值后點(diǎn)擊確定按鈕，如果記錄已存在或編號(hào)不存在則提示重新輸入，否則進(jìn)入預(yù)算內(nèi)補(bǔ)貼的界面，輸入完畢點(diǎn)擊確定扣除部分界面，都輸入完畢后進(jìn)入員工月度工資表界面可以