1、<p><b>　　目 錄</b></p><p><b>　　摘 要 I</b></p><p>　　ABSTRACTII</p><p><b>　　1.緒 論1</b></p><p>　　1.1系統(tǒng)研究的目的和意義1</p><

2、;p>　　1.2國內外發(fā)展概況及存在問題1</p><p>　　1.3本文研究的內容及目標2</p><p><b>　　2.系統(tǒng)概述4</b></p><p>　　2.1系統(tǒng)及需求分析4</p><p>　　2.1.1系統(tǒng)需求4</p><p>　　2.1.2可行性分

3、析4</p><p>　　2.2系統(tǒng)設計的背景4</p><p>　　2.3系統(tǒng)的功能簡介4</p><p>　　2.3.1學生信息管理模塊5</p><p>　　2.3.2學生成績管理模塊5</p><p>　　2.3.3學籍變動模塊5</p><p>　　2.3.4基

4、本信息模塊5</p><p>　　2.4系統(tǒng)開發(fā)的目標5</p><p><b>　　3.系統(tǒng)分析6</b></p><p>　　3.1數(shù)據(jù)流程分析6</p><p>　　3.2數(shù)據(jù)存儲分析6</p><p>　　3.2.1概念模型6</p><p>　

5、　3.2.2系統(tǒng)E-R圖的設計7</p><p>　　3.3系統(tǒng)流程分析7</p><p><b>　　4.系統(tǒng)設計9</b></p><p>　　4.1軟件模塊結構設計9</p><p>　　4.1.1系統(tǒng)方案確定9</p><p>　　4.1.2軟件結構設計9</p

6、><p>　　4.2數(shù)據(jù)庫設計9</p><p>　　4.2.1本系統(tǒng)中所涉及到的主要實體共有六個數(shù)據(jù)表10</p><p>　　4.2.2各表的物理結構10</p><p>　　5.系統(tǒng)的實現(xiàn)12</p><p>　　5.1系統(tǒng)登陸界面12</p><p>　　5.2系統(tǒng)主界

7、面12</p><p>　　5.3用戶管理模塊13</p><p>　　5.4學生學籍變動模塊13</p><p>　　5.5學生信息管理模塊14</p><p>　　5.6成績管理模塊15</p><p><b>　　6.結論16</b></p><p&

8、gt;<b>　　參考文獻17</b></p><p><b>　　附 錄18</b></p><p><b>　　答 謝27</b></p><p>　　教務管理系統(tǒng)的開發(fā)與研究</p><p>　　摘 要 隨著信息技術在管理上越來越深入而廣泛的應用，教務管理

9、系統(tǒng)的實施在技術上也逐步成熟。教務管理系統(tǒng)是一個不斷發(fā)展的學科,貫穿著整個教育管理體系。</p><p>　　本文介紹了在DELPHI環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應用開發(fā)”的策略開發(fā)一個教務管理系統(tǒng)的過程。通過分析學校的教務管理體系，創(chuàng)建了一套行之有效的計算機管理的方案。文章介紹了教務管理系統(tǒng)的系統(tǒng)分析部分，包括系統(tǒng)需求分析、可行性分析、數(shù)據(jù)流程分析以及系統(tǒng)流程分析等；系統(tǒng)設計部分主要介紹了軟件模塊

10、設計和數(shù)據(jù)庫設計等；系統(tǒng)實現(xiàn)部分簡單介紹了幾個主要模塊用法。本系統(tǒng)界面友好，操作簡單，比較實用。</p><p>　　關鍵詞 信息管理系統(tǒng)，教務管理系統(tǒng)，信息查詢，DELPHI應用 </p><p><b>　　ABSTRACT</b></p><p>　　With more and more widespread and profound

11、 application of information technology in management, the implement of management information system has become mature in technology step by step. Managing information system is a subject. Enterprise needs existence and

12、development, so enterprise activities means tightening up the enterprise management and strengthening effective management of any resource internal the enterprise。</p><p>　　This article introduces the detail

13、ed process of exploring a management information system under the environment of delphi, utilizing “Top-Bottom” overall plan and a strategy according to “Bottom-Top” application and exploitation. That is to establish a s

14、et of effective scheme for student management by computer, through analyzing disadvantages of student management by human resources. This article emphasizes on three sections. The system analysis section of student manag

15、ement information includes</p><p>　　Key Words: MIS、Student managementsystem、Delphi</p><p><b>　　緒 論</b></p><p>　　系統(tǒng)研究的目的和意義</p><p>　　21世紀初期，既是我國經(jīng)濟快速、健康發(fā)展的重要

16、時期，也是我國高等教育快速、健康發(fā)展的關鍵時期，高等學校必須與時俱進，更新觀念，創(chuàng)新制度，深化改革，努力提高人才培養(yǎng)質量，這不僅是新時期經(jīng)濟社會發(fā)展的客觀要求，更是高等學校改革與發(fā)展的必然選擇。隨著計算機技術的飛速發(fā)展，計算機在日常管理應用中迅速普及，利用計算機進行教務管理勢在必行。因此開發(fā)一個能滿足學校日常信息統(tǒng)計分析工作的教務管理系統(tǒng)對學校各項工作的開展有著重要的意義。</p><p>　　開發(fā)出一個操作簡便

17、，界面友好，靈活實用，能被人普遍接受，安全可靠，容易操作的教務管理系統(tǒng)，能夠提高學校對學生信息的統(tǒng)計分析效率，減輕教務管理人員對信息管理和統(tǒng)計的負擔，提高學校對信息的規(guī)范化管理。教務管理系統(tǒng)能夠及時對信息進行收集整理，使學校相關部門及時獲取可靠的信息，便于管理。</p><p>　　國內外發(fā)展概況及存在問題</p><p>　　隨著以計算機,多媒體,通訊,網(wǎng)絡,人工智能等為代表的信息收集,

18、處理,加工,傳輸?shù)燃夹g的飛速發(fā)展,信息技術不斷滲透到社會生活的各個領域和各個方面,在全球范圍內掀起了一場改變世界面貌的信息革命浪潮,它不斷改變著人們的生產(chǎn)方式,生活方式以及思維方式,使人類跨入了一個嶄新的時代——信息化時代。</p><p>　　開發(fā)教務管理系統(tǒng)就是緊跟信息時代的步伐,也是推動管理信息化的具體措施。</p><p><b>　　(1)國外研究現(xiàn)狀</b>

19、;</p><p>　　國外從20世紀70年代就有人研究管理問題.直到20世紀90年代關于管理問題的研究仍然十分活躍。</p><p>　　管理信息系統(tǒng)(MIS)的概念起源很早。在國外，早在20世紀30年代，柏德就強調了決策在組織管理中的作用。50年代，西蒙提出了管理依賴于信息和決策的概念。同一時代維納發(fā)表了控制論與管理，他把管理過程當成一個控制過程。50年代計算機已用于會計工作，1958

20、年蓋爾寫道：管理將以較低的成本得到及時準確的信息，做到較好的控制。"這時數(shù)據(jù)處理一詞已經(jīng)出現(xiàn)。 管理信息系統(tǒng)(MIS)已經(jīng)逐步成為一個獨立的學科分支，它繼承了其他眾多學科的理論、方法與應用技術，它與信息科學、系統(tǒng)科學、控制理論、運籌學、會計學、統(tǒng)計學、經(jīng)濟學、管理科學、計算機科學有著十分密切的聯(lián)系。</p><p><b>　　(2)國內研究現(xiàn)狀</b></p>&l

21、t;p>　　我國從20世紀80年代初期開始管理問題的研究。</p><p>　　國內許多企業(yè)開發(fā)過與管理相關的系統(tǒng),但大多是根據(jù)本企業(yè)的特點而設計的。只有少數(shù)系統(tǒng)考慮到了管理的通用性。</p><p>　　隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮著重要的作用。作為計算機應用的一部分，使用計算機對信息進行管理，具有高速度

22、、高效率、高質量的優(yōu)勢。</p><p>　　程序設計人員運用編程語言及數(shù)據(jù)庫，針對信息管理的具體情況，進行分析，設計出一個專屬的信息管理系統(tǒng)，這將是開發(fā)信息管理系統(tǒng)的方向。教務管理系統(tǒng)是一個比較穩(wěn)定的系統(tǒng)，很大程度上具有一定的優(yōu)勢，比如說：系統(tǒng)運行安全可靠，穩(wěn)定性好；系統(tǒng)的可管理性好；系統(tǒng)輸入界面友好，操作簡便易行，盡量減少用戶的輸入工作量；能實現(xiàn)多種查詢，允許進行模糊查詢；數(shù)據(jù)具有規(guī)范性，整體性，方便數(shù)據(jù)之間

23、的比較分析?？墒?，任何東西都不是完美的，它也存在很多缺點：網(wǎng)絡功能欠缺。本系統(tǒng)沒有建立網(wǎng)絡連接，只能單機運行，無法實現(xiàn)資源共享。容錯性不高，系統(tǒng)的抗錯，容錯性不高。如必須使用規(guī)范查詢語言，否則系統(tǒng)無法辨識執(zhí)行。 有很多地方還設計的不夠詳細，且系統(tǒng)分析報告中提及的一些功能在此未能實現(xiàn)。</p><p>　　本文研究的內容及目標</p><p>　　課題主要研究的內容如下：</p>

24、<p>　　本系統(tǒng)的使用者：教務處管理人員、任課教師和學生，研究內容涉及到以下幾方面：</p><p>　?。?）教務處管理人員可以以管理員的身份登陸，進入管理模塊，可以進行學生信息的錄入和查詢，學生成績的錄入查詢，學籍的變動以及班級的設定和查詢等功能最后是退出系統(tǒng)等操作。 </p><p>　　（2）管理員可以設定教師用戶，授予相應的權限，對學生信息，學生成績以及班級進行管

25、理。</p><p>　　（3）學生可以用直接進入，只可以查詢相應的信息而不能對相關信息進行編輯。</p><p>　　本系統(tǒng)的目標就是從操作簡單、界面友好、靈活、實用、安全的要求出發(fā)，完成操作的全過程，為使用者提供最大的方便，最大程度提高工作效率。</p><p><b>　　系統(tǒng)概述</b></p><p>　　本教

26、務管理系統(tǒng)可以說是一個綜合性的學校學生管理系統(tǒng)，它具有學生學籍管理、學生成績管理、學生信息管理等多種功能，因而具有較強的實用性。</p><p><b>　　系統(tǒng)及需求分析</b></p><p><b>　　系統(tǒng)需求</b></p><p>　　通過調查,系統(tǒng)需要達到以下要求:</p><p>　

27、　由于該系統(tǒng)的使用對象多,要求有較好的權限管理; </p><p>　　原始數(shù)據(jù)修改簡單方便,支持多條件修改</p><p>　　方便的數(shù)據(jù)查詢，支持多條件查詢;</p><p>　　在相應的權限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；</p><p><b>　　可行性分析</b></p><p>

28、　　由于本系統(tǒng)管理的對象單一,都是在校學生，且每個數(shù)據(jù)內容具有較強的關聯(lián)性，涉及的計算過程不是很復雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學校用于學生管理的微機都是PIII以上的機器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運行的要求。在技術難度方面，由于有指導老師的指導和查閱相關參考文獻，因此完全可以實現(xiàn)。</p><p>　　本系統(tǒng)的設計是在WindowsXP中文版操作系統(tǒng)環(huán)境下，使用DELPHI開發(fā)成功的。目前，數(shù)據(jù)

29、庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應考慮數(shù)據(jù)庫應用的特點及適用范圍。</p><p><b>　　系統(tǒng)設計的背景</b></p><p>　　每個學校都需要進行信息的統(tǒng)計分析工作，而這些工作都必須在很短時間內完成。大量的數(shù)據(jù)的統(tǒng)計分析工作如果只靠人工來完成，費時費力，還容易出錯。隨著計算機技術的飛速發(fā)展，計算機在日常管理應用中迅速普

30、及，利用計算機進行管理勢在必行。因此需開發(fā)出一個能滿足學校進行信息的錄入，統(tǒng)計，查詢和打印等需求的、功能完善、安全可靠、迅速簡便的管理信息系統(tǒng)是非常有必要的。</p><p><b>　　系統(tǒng)的功能簡介</b></p><p>　　本系統(tǒng)主要可以實現(xiàn)以下的管理功能：學生信息管理、學生成績管理、學籍變動、班級信息等等。</p><p><b

31、>　　學生信息管理模塊</b></p><p>　　該模塊的功能是對學生的基本信息的錄入和查詢，和后面的成績管理，學籍變動有很好的聯(lián)系。</p><p><b>　　學生成績管理模塊</b></p><p>　　該模塊對各學生的成績錄入以及查詢的設置，可以給學生添加以及修改學生成績，分為成績錄入和成績查詢等模塊。</p&

32、gt;<p><b>　　學籍變動模塊</b></p><p>　　該模塊對學生退學休學復學轉學以及調班的信息進行設置，并可在其中填寫原因，該模塊包括退學|休學和轉學|調班兩個模塊。</p><p><b>　　基本信息模塊</b></p><p>　　該模塊是對班級的添加和設置以及對課程的添加和設置，自行添

33、加相應的課程和班級，把軟件進行了人性化的設計。</p><p><b>　　系統(tǒng)開發(fā)的目標</b></p><p>　　本系統(tǒng)是管理學校學生信息的一個綜合性的系統(tǒng)，本系統(tǒng)的設計目標將最終定位于完成以上所述的系統(tǒng)主要業(yè)務的基本模型上。擬建系統(tǒng)實現(xiàn)以下具體要求：</p><p><b>　　提高信息處理速度。</b></

34、p><p>　　集中處理，提高管理效率。</p><p>　　減輕教務管理人員的勞動強度、提高管理水平。</p><p><b>　　系統(tǒng)分析</b></p><p><b>　　數(shù)據(jù)流程分析</b></p><p>　　下面是教務管理系統(tǒng)的數(shù)據(jù)流圖，如圖3.1.1所示。<

35、/p><p>　　圖3.1.1教務管理系統(tǒng)據(jù)流程圖</p><p>　　數(shù)據(jù)存儲分析：實體聯(lián)系圖(E-R圖)</p><p><b>　　概念模型</b></p><p>　　E-R模型是指直接從現(xiàn)實世界中抽象出實體類型及實體間聯(lián)系，是一種描述靜態(tài)數(shù)據(jù)結構的概念模型。它的主要成分是實體、聯(lián)系和屬性?？衫肊-R模型進行數(shù)據(jù)庫

36、概念設計。E-R圖是直觀表示概念模型的工具。在圖中有四個基本成分，如圖3.2.1：</p><p>　　矩形框：表示實體類型(考慮問題的對象)。</p><p>　　菱形框：表示聯(lián)系類型(實體間的聯(lián)系)。</p><p>　　橢圓型框：表示實體類型和聯(lián)系類型的屬性。</p><p>　　直線：聯(lián)系類型與設計的實體類型之間以直線連接，并在直線上

37、部標上聯(lián)系種類(1:1，1:N，M:N)。</p><p>　　具體圖示如圖3.2.1所示。</p><p>　　實體 屬性 聯(lián)系</p><p>　　圖3.2.1實體E-R圖符號表示</p><p><b>　　系統(tǒng)E-R圖的設計</b></p>

38、<p>　　本系統(tǒng)中所規(guī)劃的主要實體有：學生基本信息實體、學注冊實體、班級信息實體、課程信息實體、成績信息實體等，下面以學生注冊實體為例是實體E-R圖，如圖3.2.2所示。</p><p>　　圖3.2.2學生注冊實體E-R圖</p><p><b>　　系統(tǒng)流程分析</b></p><p>　　所謂系統(tǒng)流程分析，就是用戶使用系統(tǒng)

39、時的工作過程。不同用戶有著不同的工作流程和使用權限。登陸是判斷是否是合法的用戶，在數(shù)據(jù)庫設計中用戶的登陸名是固定的，如果要添加用戶則在用戶管理里面添加相應的用戶信息。</p><p>　　流程圖使用的符號如圖3.3.1所示。</p><p>　　開始/結束 數(shù)據(jù)流動 判斷 功能描述 輸入</p><p><b>　　及方

40、向</b></p><p>　　圖3.3.1流程圖使用符號</p><p>　　本系統(tǒng)的系統(tǒng)流程分析如圖3.3.2所示。</p><p><b>　　N</b></p><p><b>　　Y </b></p><p>　　圖3.3.2 系統(tǒng)流程分析圖</p

41、><p><b>　　系統(tǒng)設計</b></p><p><b>　　軟件模塊結構設計</b></p><p><b>　　系統(tǒng)方案確定</b></p><p>　　通過對系統(tǒng)的調研與分析，系統(tǒng)主要應完成的功能有：系統(tǒng)管理、學生信息管理、學生成績管理、學籍變動、班級信息等。</

42、p><p><b>　　軟件結構設計</b></p><p>　　本系統(tǒng)在執(zhí)行時，先根據(jù)不同的操作人員的需要進入相應的模塊，然后可以輸入數(shù)據(jù)或者進行其它的查詢或瀏覽等操作；總體來說，本系統(tǒng)屬于一個MIS系統(tǒng)。系統(tǒng)的功能層次圖如圖4.1.1所示。</p><p>　　圖4.1.1功能層次圖</p><p><b>　

43、　數(shù)據(jù)庫設計</b></p><p>　　數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫，這是微軟集成到Office中的一個桌面數(shù)據(jù)庫，能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用Access作為后臺數(shù)據(jù)庫。使用Access的好處還在于，如果你的系統(tǒng)擴展到Client/Server模式的時候，可以使用Microsoft的數(shù)

44、據(jù)庫服務器軟件SQL Server，此時，程序只需要簡單的修改一下鏈接就可以，這樣，為程序的平滑擴展提供了非常有利的條件。</p><p>　　本系統(tǒng)中所涉及到的主要實體共有六個數(shù)據(jù)表</p><p>　　cj表：{學號，姓名，班級，課程，成績，考試類型，學期}</p><p>　　class表：{班級編號，班級名稱 }</p><p>　　

45、classkecheng表：{課程編號，課程名稱}</p><p>　　xueji表：{學號，姓名，原班級，狀態(tài)，轉學學校，現(xiàn)在班級，變動原因}</p><p>　　xinxi表：{學號，姓名，性別，班級，民族，政治面貌，家庭成分，籍貫，家長姓名，家長工作單位，當前狀態(tài)，入學時間，出生日期，聯(lián)系電話，家庭住址，履歷，備注}</p><p>　　zhuce表：{學號，

46、姓名，年齡，班級，團員，學期，注冊時間，備注}</p><p><b>　　各表的物理結構</b></p><p>　　各表的物理結構如下圖所示。</p><p>　　表4.2.1 Cj表</p><p>　　表4.2.2 Class表</p><p>　　表4.2.3 classkecheng表

47、</p><p>　　表4.2.4 xueji表</p><p>　　表4.2.5 xinxi表</p><p>　　表4.2.6 zhuce表</p><p><b>　　系統(tǒng)的實現(xiàn)</b></p><p>　　本部分主要內容為本系統(tǒng)的運行界面以及主要界面展示。</p><p

48、><b>　　系統(tǒng)登陸界面</b></p><p>　　本界面的主要功能是為了對系統(tǒng)進行安全性管理(見圖5.1.1)，本系統(tǒng)的用戶名和密碼保存在表中，本系統(tǒng)根據(jù)不同的用戶而設置了不同的權限，可以用admin為用戶名和密碼來登陸本系統(tǒng)。</p><p>　　圖5.1.1 系統(tǒng)登錄界面</p><p><b>　　系統(tǒng)主界面<

49、/b></p><p>　　本模塊是本系統(tǒng)的應用界面(見圖5.2.2)，在本界面上集成了本系統(tǒng)的所有功能，使用TOOLBAR組件，簡便快捷。</p><p>　　圖5.2.2 系統(tǒng)主界面</p><p><b>　　用戶管理模塊</b></p><p>　　本模塊是本系統(tǒng)的安全性設置模塊(見圖5.3.3)，根據(jù)學校

50、不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實行了分級管理，對用戶的權限和類別進行了分類管理。</p><p>　　圖5.3.3 用戶管理模塊</p><p><b>　　學生學籍變動模塊</b></p><p>　　本模塊主要設置學生學籍的變動(見圖5.4.4)，以及記錄相關信息等內容。可以根據(jù)條件查詢相應信息等功能。</p>

51、;<p>　　圖5.4.4 學生學籍變動模塊</p><p><b>　　學生信息管理模塊</b></p><p>　　本模塊只要錄入修改相應的學生信息(見圖5.5.5)，根據(jù)條件查詢需要的學生信息，界面清楚，便于操作。</p><p>　　圖5.5.5 學生學籍變動模塊</p><p><b>

52、　　成績管理模塊</b></p><p>　　本模塊主要是錄入和修改學生的成績(見圖5.6.6)，根據(jù)條件查詢需要的學生成績，界面清楚，便于操作。</p><p>　　圖5.6.6 學生學籍變動模塊</p><p><b>　　結論</b></p><p>　　在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在

53、知識、經(jīng)驗方面都存在著不足。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。因為對管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。在本次開發(fā)過程由于硬件的限制，未能實現(xiàn)網(wǎng)絡功能，因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數(shù)據(jù)損失。</p><p>　　在在找資料的過程也找了很多關于http://www.bylw120.com的相關資料，上面參考了很多的資料。盡

54、管本管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是本管理系統(tǒng)所必需的。相信本管理系統(tǒng)是一套學校在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項本過程，了解了的基本知識鞏固了我對delphi的學習，但在這次畢業(yè)設計中的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設計系統(tǒng)的思維方法，以及與同學們之間相互幫助的精神。</p><p&g

55、t;<b>　　參考文獻</b></p><p>　　[1] 周佩德，《數(shù)據(jù)庫原理及應用》，出版社：電子工業(yè)出版社，2000年3月，起止頁碼（第105頁～第300頁）</p><p>　　[2] 王要武，《管理系統(tǒng)》，出版社：電子工業(yè)出版社，2001年，起止頁碼（第54頁～第205頁）</p><p>　　[3] 李紅等，《管理信息系統(tǒng)開發(fā)與應

56、用》，出版社：電子工業(yè)出版社，2003年，起止頁碼（第70頁～第275頁）</p><p>　　[4] 周之英，《現(xiàn)代軟件工程》，出版社：科學出版社，1999年，起止頁碼（第79頁～第200頁）</p><p>　　[5] 張曜等，《Delphi函數(shù)實用手冊》，出版社：冶金工業(yè)出版社，2002年12月，起止頁碼（第37頁～第219頁）</p><p>　　[6] 陳

57、寬達，《Delphi深度歷險》，出版社：科學出版社，2001年7月，起止頁碼（第19頁～第199頁）</p><p>　　[7] 李存斌 汪兵，《Delphi深度編程及其項目應用開發(fā)》，出版社：水利水電出版社，2002年11月，起止頁碼（第27頁～第257頁）</p><p>　　[8] 付軍，《Delphi7實例編程100例》，出版社：中國鐵道出版社，2005年7月，起止頁碼（第30頁～

58、第157頁）</p><p>　　[9] 楊長春，《Delphi編程設計教程》，出版社：清華大學出版社，2005年，起止頁碼（第50頁～第180頁）</p><p>　　[10] 康祥順，《Delphi案例開發(fā)集錦》，出版社：電子工業(yè)出版社，2005年，起止頁碼（第78頁～第176頁）</p><p>　　[11] 羅小平，《Delphi精要》，出版社：電子工業(yè)出版

59、社，2004，起止頁碼（第45頁～第126頁）</p><p>　　[12] 李目海，《Delphi應用程序設計》，出版社：電子科技大學出版社，2005年8月，起止頁碼（第1頁～第200頁）</p><p><b>　　附 錄</b></p><p>　　主要編碼過程如下所示：</p><p>　　unit Arch

60、ive;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p>　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p>　

61、　Dialogs, Buttons, ComCtrls, ToolWin, Menus, ImgList,</p><p>　　ExtCtrls, StdCtrls, DBTables, jpeg;</p><p><b>　　type</b></p><p>　　TMainFrm = class(TForm)</p><

62、p>　　MainMenu1: TMainMenu;</p><p>　　N1: TMenuItem;</p><p>　　NSet: TMenuItem;</p><p>　　N3: TMenuItem;</p><p>　　NPasswd: TMenuItem;</p><p>　　N7: TMenuItem;

63、</p><p>　　NClose: TMenuItem;</p><p>　　N9: TMenuItem;</p><p>　　NstdArc: TMenuItem;</p><p>　　Nstdetail: TMenuItem;</p><p>　　StatusBar1: TStatusBar;</p>

64、<p>　　ImageList1: TImageList;</p><p>　　Image1: TImage;</p><p>　　N2: TMenuItem;</p><p>　　N4: TMenuItem;</p><p>　　Nscore: TMenuItem;</p><p>　　N6: TMen

65、uItem;</p><p>　　N8: TMenuItem;</p><p>　　NUserAdmin: TMenuItem;</p><p>　　Nreg: TMenuItem;</p><p>　　N16: TMenuItem;</p><p>　　N17: TMenuItem;</p><p

66、>　　N18: TMenuItem;</p><p>　　N19: TMenuItem;</p><p>　　N20: TMenuItem;</p><p>　　N21: TMenuItem;</p><p>　　N22: TMenuItem;</p><p>　　N23: TMenuItem;</p>

67、;<p>　　Timer1: TTimer;</p><p>　　N10: TMenuItem;</p><p>　　N12: TMenuItem;</p><p>　　ToolBar1: TToolBar;</p><p>　　SbtnSet: TSpeedButton;</p><p>　　ToolB

68、utton5: TToolButton;</p><p>　　SpeedButton3: TSpeedButton;</p><p>　　SpeedButton9: TSpeedButton;</p><p>　　ToolButton1: TToolButton;</p><p>　　Sbtninfo: TSpeedButton;</p

69、><p>　　ToolButton9: TToolButton;</p><p>　　SpeedButton1: TSpeedButton;</p><p>　　ToolButton2: TToolButton;</p><p>　　SpeedButton2: TSpeedButton;</p><p>　　ToolBut

70、ton3: TToolButton;</p><p>　　SpeedButton5: TSpeedButton;</p><p>　　ToolButton4: TToolButton;</p><p>　　SpeedButton6: TSpeedButton;</p><p>　　ToolButton8: TToolButton;</p

71、><p>　　SpeedButton7: TSpeedButton;</p><p>　　ToolButton6: TToolButton;</p><p>　　SpeedButton8: TSpeedButton;</p><p>　　ToolButton7: TToolButton;</p><p>　　SpeedBu

72、tton4: TSpeedButton;</p><p>　　procedure NCloseClick(Sender: TObject);</p><p>　　procedure NSetClick(Sender: TObject);</p><p>　　procedure FormCreate(Sender: TObject);</p><p

73、>　　procedure Timer1Timer(Sender: TObject);</p><p>　　procedure FormShow(Sender: TObject);</p><p>　　procedure NUserAdminClick(Sender: TObject);</p><p>　　procedure NPasswdClick(Send

74、er: TObject);</p><p>　　procedure N18Click(Sender: TObject);</p><p>　　procedure N19Click(Sender: TObject);</p><p>　　procedure NstdArcClick(Sender: TObject);</p><p>　　pro

75、cedure FormClose(Sender: TObject; var Action: TCloseAction);</p><p>　　procedure NregClick(Sender: TObject);</p><p>　　procedure N16Click(Sender: TObject);</p><p>　　procedure N17Click

76、(Sender: TObject);</p><p>　　procedure NscoreClick(Sender: TObject);</p><p>　　procedure N12Click(Sender: TObject);</p><p>　　procedure N20Click(Sender: TObject);</p><p>　

77、　procedure N21Click(Sender: TObject);</p><p>　　procedure NreglogClick(Sender: TObject);</p><p>　　procedure N6Click(Sender: TObject);</p><p>　　procedure SpeedButton8Click(Sender: TOb

78、ject);</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p>　　// fuID :String;</p><p>　　procedure SYSLog;</p><p>　　Function re

79、gLog:boolean;</p><p><b>　　public</b></p><p>　　procedure addlogin;</p><p>　　{ Public declarations }</p><p>　　// property _uID :String read fuID Write fuID;&

80、lt;/p><p><b>　　end;</b></p><p><b>　　var</b></p><p>　　MainFrm: TMainFrm;</p><p>　　implementation</p><p>　　uses maind, //數(shù)據(jù)模塊</p>

81、<p>　　frmset,//設置學校</p><p>　　UTIL, //公共程序</p><p>　　cLogin,//登錄界面</p><p>　　FUser,//用戶管理</p><p>　　cpasswd,// set password</p><p>　　cFcalss,// class in

82、fo</p><p>　　cLesson,//lesson info</p><p>　　uReg,//register student info</p><p>　　uStatus,//change student status;</p><p>　　uscore,//score input</p><p>　　ua

83、bout,//aboutbox</p><p><b>　　ubackup,</b></p><p><b>　　ustore,</b></p><p>　　csys,//register info</p><p><b>　　UREGINFO,</b></p>

84、<p><b>　　stdArc;</b></p><p>　　{$R *.dfm}</p><p>　　procedure TMainFrm.NCloseClick(Sender: TObject);</p><p><b>　　begin</b></p><p>　　//addlogi

85、n;</p><p>　　Application.Terminate;</p><p><b>　　end;</b></p><p>　　procedure TMainFrm.NSetClick(Sender: TObject);</p><p><b>　　var</b></p>&

86、lt;p>　　syssetFrm:TsyssetFrm;</p><p>　　School,FileName:string;</p><p><b>　　begin</b></p><p>　　if MaindFrm.CheckPermission(UserID,'set')=False then exit;</p&

87、gt;<p>　　syssetFrm := TsyssetFrm.Create(application);</p><p><b>　　try</b></p><p>　　syssetFrm.ShowModal;</p><p><b>　　finally</b></p><p>　　

88、syssetfrm.Free;</p><p><b>　　end;</b></p><p>　　FileName := ExtractFilePath(Application.ExeName)+</p><p>　　'\INI\set.ini';</p><p>　　school := INI_Load

89、_Str2(FileName,'SET','Name','');</p><p>　　Caption :='教務管理系統(tǒng) || 使用單位：'+school;</p><p><b>　　end;</b></p><p>　　procedure TMainFrm.FormCreate

90、(Sender: TObject);</p><p><b>　　begin</b></p><p>　　IF IsCPUID_Available = FALSE THEN</p><p><b>　　BEGIN</b></p><p>　　SHOWMESSAGE('對不起, 此軟件不適用于

91、您的計算機!');</p><p><b>　　CLOSE;</b></p><p><b>　　EXIT;</b></p><p><b>　　END;</b></p><p>　　IF RegKeyCheck('\Software\Intel soft

92、9;)= FALSE THEN</p><p><b>　　begin</b></p><p>　　RegCreate('\Software\Intel soft');</p><p><b>　　end;</b></p><p>　　// SYSLog;</p>&l

93、t;p>　　Timer1.Enabled := true;</p><p>　　//if TEST_OpenFile(FileName) then</p><p>　　statusBar1.Panels.Items[3].Text := '計算機種類：'+GetCPUVendor;</p><p><b>　　end;</b&g

94、t;</p><p>　　procedure TMainFrm.SYSLog;</p><p><b>　　begin</b></p><p>　　if not Assigned(MainDFrm) then</p><p>　　Application.CreateForm(TMainDFrm, MainDFrm);&l

95、t;/p><p>　　if not Assigned(FrmLogin) then</p><p>　　Application.CreateForm(TFrmLogin, FrmLogin);</p><p>　　// FrmLogin := TFrmLogin.create(Application);</p><p><b>　　

96、try</b></p><p>　　FrmLogin.ShowModal;</p><p>　　// fuID := UserID;</p><p><b>　　finally</b></p><p>　　FrmLogin.free;</p><p><b>　　end;

97、</b></p><p><b>　　end;</b></p><p>　　procedure TMainFrm.Timer1Timer(Sender: TObject);</p><p><b>　　begin</b></p><p>　　StatusBar1.Panels[1].Te

98、xt :='系統(tǒng)時間： ' +TimetoStr(Now);</p><p>　　StatusBar1.Panels[2].text :='使用時間：'+TimeGetStamp(LogTime);</p><p><b>　　end;</b></p><p>　　procedure TMainFrm.FormS

99、how(Sender: TObject);</p><p><b>　　begin</b></p><p><b>　　SYSLog;</b></p><p><b>　　RegLog;</b></p><p>　　if UserID = '' then<

100、/p><p><b>　　begin</b></p><p>　　StatusBar1.Panels[0].Text := '目前沒有用戶登錄,無法使用本程序';</p><p><b>　　end else</b></p><p>　　StatusBar1.Panels[0].Text

101、 := '使用者:'+UserID+ '| '+UserName+</p><p>　　' 登錄時間：'+ DatetoStr(Date)+' '+LogTime;</p><p><b>　　end;</b></p><p>　　procedure TMainFrm.NUserA

102、dminClick(Sender: TObject);</p><p>　　var FrmUser:TFrmUser;</p><p><b>　　begin</b></p><p>　　if MaindFrm.CheckPermission(UserID,'userada')=False then exit;</p>

103、;<p>　　FrmUser := TFrmUser.Create(Application);</p><p><b>　　try</b></p><p>　　FrmUser.ShowModal;</p><p><b>　　finally</b></p><p>　　FrmUser.

104、Release;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure TMainFrm.NPasswdClick(Sender: TObject);</p><p><b>　　var</b><

105、;/p><p>　　frmpasswd:Tfrmpasswd;</p><p><b>　　begin</b></p><p>　　if MaindFrm.CheckPermission(UserID,'edtpass')=False then exit;</p><p>　　frmpasswd := Tfr

106、mpasswd.Create(application);</p><p><b>　　try</b></p><p>　　frmpasswd.ShowModal;</p><p><b>　　finally</b></p><p>　　frmpasswd.Free;</p><p

107、><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure TMainFrm.N18Click(Sender: TObject);</p><p><b>　　var</b></p><p>　　FrmClass:

108、 TFrmClass;</p><p><b>　　begin</b></p><p>　　if MaindFrm.CheckPermission(UserID,'classada')=False then exit;</p><p>　　FrmClass := TFrmClass.Create(Application);<

109、;/p><p><b>　　try</b></p><p>　　FrmClass.ShowModal;</p><p><b>　　finally</b></p><p>　　FrmClass.Free;</p><p><b>　　end;</b><

110、/p><p><b>　　end;</b></p><p>　　procedure TMainFrm.addlogin;</p><p><b>　　var</b></p><p>　　QLeft:TQuery;</p><p>　　Str:string;</p>

111、<p><b>　　begin</b></p><p>　　Str :=maindFrm.FeedUuser(UserID);</p><p>　　if Str<> '' then</p><p><b>　　begin</b></p><p>　　QLeft

112、 := TQuery.Create(Application.Owner);</p><p><b>　　try</b></p><p>　　QLeft.DatabaseName := 'main';</p><p>　　QLeft.SQL.Clear;</p><p>　　QLeft.SQL.Add(&#

113、39;insert into Loginfo (uID,uUser,LogDate,LogTime,LeftTime)');</p><p>　　QLeft.SQL.Add('values(' );</p><p>　　QLeft.SQL.Add(''''+UserID+''',');</p>

114、;<p>　　QLeft.SQL.Add(''''+Str +''',');</p><p>　　QLeft.SQL.Add(''''+DatetoStr(Date)+''',');</p><p>　　QLeft.Sql.Add(''

115、;''+LogTime+''',');</p><p>　　Qleft.sql.Add(''''+TimetoStr(Time)+''')');</p><p>　　QLeft.Close;</p><p>　　QLeft.ExecSQL;</p&g

116、t;<p><b>　　finally</b></p><p>　　QLeft.Free;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p&

117、gt;<p>　　procedure TMainFrm.N19Click(Sender: TObject);</p><p><b>　　var</b></p><p>　　FrmLession: TFrmLession;</p><p><b>　　begin</b></p><p>

118、;　　if MaindFrm.CheckPermission(UserID,'lessada')=False then exit;</p><p>　　FrmLession := TFrmLession.Create(Application);</p><p><b>　　try</b></p><p>　　FrmLession

119、.Show;</p><p>　　// finally</p><p><b>　　except</b></p><p>　　FrmLession.Free;</p><p><b>　　end;</b></p><p><b>　　end;</b>&

120、lt;/p><p>　　procedure TMainFrm.NstdArcClick(Sender: TObject);</p><p><b>　　var</b></p><p>　　Frmbasic:TFrmbasic;</p><p><b>　　begin</b></p><

121、;p>　　if (sender = Nstdetail) then</p><p>　　tabstatus := 1</p><p><b>　　else</b></p><p>　　tabstatus := 0;</p><p>　　if MaindFrm.CheckPermission(UserID,'

122、stdb001')=False then exit;</p><p>　　Frmbasic := TFrmbasic.Create(Application);</p><p><b>　　try</b></p><p>　　Frmbasic.showmodal;</p><p><b>　　finall

123、y</b></p><p>　　Frmbasic.Free;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure TMainFrm.FormClose(Sender: TObject; var Action:

124、 TCloseAction);</p><p><b>　　begin</b></p><p><b>　　addlogin;</b></p><p>　　Action := caFree;</p><p><b>　　end;</b></p><p>

125、　　procedure TMainFrm.NregClick(Sender: TObject);</p><p><b>　　var</b></p><p>　　FrmReg: TFrmReg;</p><p><b>　　begin</b></p><p>　　if MaindFrm.CheckP

126、ermission(UserID,'reg001')=False then exit;</p><p>　　FrmReg := TFrmReg.Create(Application);</p><p><b>　　try</b></p><p>　　FrmReg.ShowModal;</p><p>&l

127、t;b>　　finally</b></p><p>　　FrmReg.Free;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure TMainFrm.N16Click(Sender: TObject)

128、;</p><p><b>　　var</b></p><p>　　FrmStatus: TFrmStatus;</p><p><b>　　begin</b></p><p>　　Tabstatus:= 0;</p><p>　　if MaindFrm.CheckPermi

129、ssion(UserID,'status001')=False then exit;</p><p>　　FrmStatus:= TFrmStatus.Create(Application);</p><p><b>　　try</b></p><p>　　FrmStatus.ShowModal;</p><