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

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

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

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

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

5、理中的一些管理工作。</p><p>　　關(guān)鍵詞：學校綜合管理，信息化，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;　　第一章 學校綜合管理信息系統(tǒng)簡介- 1 -</p><p>　　1.1 系統(tǒng)概述- 1 -</p><p>　　1.2 系統(tǒng)開發(fā)工具系- 1 -</p><p>　　第二章 學校綜合管理信息系統(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>　　第三章 學校綜合管理系統(tǒng)設(shè)計- 11 -</p><p>　　3．1 系統(tǒng)設(shè)計概述- 11 -</p><p>　　3．2 系統(tǒng)數(shù)據(jù)庫設(shè)計- 11 -</p><p>　　3.3 系統(tǒng)功

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

37、<p>　　數(shù)據(jù)流圖的基本圖形元素有4種：</p><p>　　外部實體 數(shù)據(jù)流 數(shù)據(jù)存儲 數(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 學?；拘畔?shù)據(jù)流圖</p><p>　　圖2-4 學生信息數(shù)據(jù)流圖</p><p>　　圖2-5 學生繳費信息數(shù)據(jù)流圖</p><p>　　圖2-6 教職工信息數(shù)據(jù)流圖</p><p>　　圖2-7 儀器設(shè)置信息數(shù)據(jù)流圖</p><p>　　第三章 學校綜合管理系統(tǒng)設(shè)計<

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

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

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

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

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

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

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

46、lt;/p><p>　　圖3-5 儀器設(shè)備基本信息E-R圖</p><p>　　成績信息表包括自動編號，學號，姓名，班級，課程名稱，成績等信息。其E-R圖如下：</p><p>　　圖3-6 成績基本信息E-R圖</p><p>　　繳費信息表包括自動編號，學號，姓名，班級，課程名稱，成績等信息。其E-R圖如下：</p>&l

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

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

49、>　　圖3-11 專業(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 學生基本信息表結(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 成績信息表結(jié)構(gòu)</p><p>　　表3-7 費用信息表結(jié)構(gòu)</p><p>　　表3-8 工資信息表結(jié)構(gòu)</p><p>　　表3-9 考勤信息表結(jié)構(gòu)</p><p>　　表3-1

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

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

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

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

55、系統(tǒng)資源的使用，只有經(jīng)過身份確認的用戶才可以訪問。本模塊，通過輸入用戶名，密碼驗證用戶身份，如果驗證成功則進入系統(tǒng)，否則出錯提示框提示重新輸入信息。用戶名和密碼輸入正確都點回車鍵可以進入系統(tǒng)。如輸入錯誤次數(shù)超過三次，自動退出登錄界面。 系統(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 (′密碼正確，即將進系統(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 (′錯誤的用戶名或密碼′)；</p><p>　　If (count=3) then</p><p><b>　　Close;</b></p><p>　　E

60、nd ; end;</p><p><b>　　回車鍵起作用代碼：</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)主界面的實現(xiàn)</p><p>　　用戶登陸到系統(tǒng)以后則進入相應(yīng)的主頁面，

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

63、除一條記錄，點擊修改按鈕，可以修改的學生信息表，點擊確定按鈕保存修改后的信息，點取消按鈕取消意見。</p><p><b>　　學生信息界面如下：</b></p><p>　　圖4-3 學生信息界面</p><p>　　4.3.2 學生基本信息界面主要代碼</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 (′是否確定要刪除記錄′，′確認刪除′</p><p>　　MB＿yesno+MB＿iconquestion)<>idno) then {打開確認窗口}</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 學生信息查詢功能的實現(xiàn)</p>

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

72、　4.4.2 學生信息查詢界面主要代碼</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=′學號′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、 (′訪問數(shù)據(jù)庫出錯！′)；</p><p>　　exit;end;end;end;</p><p>　　4.5 學生成績查詢功能的實現(xiàn)</p><p>　　4.5.1 成績查詢界面的功能描述</p><p>　　功能描述：輸入某個學生的學號，姓名，班級，科目可以查詢出該學生的成績。</p><p>　　成績

88、查詢界面如下： </p><p>　　圖4-5 成績查詢界面</p><p>　　4.5.2 成績查詢界面主要代碼</p><p>　　開始查詢按鈕的代碼如下：</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(＇您沒有輸入查詢條件！請輸入查詢條件?。?，提示＇,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(沒有符合條件人記錄！請重新輸入?。?，信息＇,mb_ok+mb_iconinformation);</p><p><

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

100、述：本見面可以實現(xiàn)教職工考勤記錄的添加，點擊保存按鈕考勤記錄添加成功，點擊刪除清楚添加的考勤記錄。</p><p><b>　　考勤記錄見面如下：</b></p><p>　　圖4-6 考勤記錄界面</p><p>　　4.6.2 考勤記錄見面的主要代碼</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 繳費統(tǒng)計系統(tǒng)的實現(xiàn)</p><p>　　4.7.1 繳費統(tǒng)計系統(tǒng)的功能描

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

113、gt;　　4.7.2 繳費統(tǒng)計界面的主要代碼</p><p>　　開始統(tǒng)計按鈕代碼如下：</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(＇請輸入查詢條件＇，＇提醒＇，</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(＇沒有符合條件的記錄＇，＇信息＇，</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 月度工資錄入和計算功能的實

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