[畢業(yè)論文]教務管理系統(tǒng)的開發(fā)與研究

1、棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 目目 錄錄摘 要 .iabstract .ii1.緒 論 .11.1系統(tǒng)研究的目的和意義 .11.2國內外發(fā)展概況及存在問題 .11.3本文研究的內容及目標 .22. 系統(tǒng)概述.42.1系統(tǒng)及需求分析 .42.1.1系統(tǒng)需求.42.1.2可行性分析.42.2系統(tǒng)設計的背景 .42.3系統(tǒng)的功能簡介 .42.3.1學生信息管理模塊.52.3.2學生成績管理模塊.52.3.3學籍變動模塊.52.3.4基本信息模塊.52.4系統(tǒng)開發(fā)的目標 .53. 系統(tǒng)分析.63.1數(shù)據(jù)流程分析 .63.2數(shù)據(jù)存儲分析 .63.2.1 概念模型 .63.2

2、.2 系統(tǒng) e-r 圖的設計 .73.3系統(tǒng)流程分析 .74. 系統(tǒng)設計.94.1軟件模塊結構設計 .94.1.1系統(tǒng)方案確定.94.1.2軟件結構設計.94.2數(shù)據(jù)庫設計 .94.2.1本系統(tǒng)中所涉及到的主要實體共有六個數(shù)據(jù)表.104.2.2各表的物理結構.105. 系統(tǒng)的實現(xiàn).125.1系統(tǒng)登陸界面 .125.2系統(tǒng)主界面 .125.3用戶管理模塊 .135.4學生學籍變動模塊 .135.5學生信息管理模塊 .145.6成績管理模塊 .15棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 6. 結論.16參考文獻 .17附 錄 .18答 謝 .27棗莊學院學士學位論文棗莊學院學士

3、學位論文作者作者 張義張義 i 共共 27 頁頁教務管理系統(tǒng)的開發(fā)與研究專業(yè)：計算機科學與技術 姓名：張義 指導教師：姜振鳳摘 要 隨著信息技術在管理上越來越深入而廣泛的應用，教務管理系統(tǒng)的實施在技術上也逐步成熟。教務管理系統(tǒng)是一個不斷發(fā)展的學科,貫穿著整個教育管理體系。 本文介紹了在 delphi 環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應用開發(fā)”的策略開發(fā)一個教務管理系統(tǒng)的過程。通過分析學校的教務管理體系，創(chuàng)建了一套行之有效的計算機管理的方案。文章介紹了教務管理系統(tǒng)的系統(tǒng)分析部分，包括系統(tǒng)需求分析、可行性分析、數(shù)據(jù)流程分析以及系統(tǒng)流程分析等；系統(tǒng)設計部分主要介紹了軟件模塊設計和數(shù)據(jù)庫設計

4、等；系統(tǒng)實現(xiàn)部分簡單介紹了幾個主要模塊用法。本系統(tǒng)界面友好，操作簡單，比較實用。關鍵詞 信息管理系統(tǒng)，教務管理系統(tǒng)，信息查詢，delphi 應用 棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 ii 共共 27 頁頁abstractwith more and more widespread and profound application of information technology in management, the implement of management information system has become mature in technology ste

5、p by step. managing information system is a subject. enterprise needs existence and development, so enterprise activities means tightening up the enterprise management and strengthening effective management of any resource internal the enterprise。this article introduces the detailed process of explo

6、ring 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 set of effective scheme for student management by computer, through analyzing disadvantages of stude

7、nt management by human resources. this article emphasizes on three sections. the system analysis section of student management information includes feasible analysis, management function analysis. the system design section mainly focuses on system function design and data base design and data number

8、 design. and the system realization section has provided several major function , together with the main windows and programs.key words: mis、student managementsystem、delphi棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 iii 共共 27 頁頁棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 1 頁頁 共共 27 頁頁1. 緒 論1.1 系統(tǒng)研究的目的和意義21 世紀初期，既是我國經濟快速、健康發(fā)

9、展的重要時期，也是我國高等教育快速、健康發(fā)展的關鍵時期，高等學校必須與時俱進，更新觀念，創(chuàng)新制度，深化改革，努力提高人才培養(yǎng)質量，這不僅是新時期經濟社會發(fā)展的客觀要求，更是高等學校改革與發(fā)展的必然選擇。隨著計算機技術的飛速發(fā)展，計算機在日常管理應用中迅速普及，利用計算機進行教務管理勢在必行。因此開發(fā)一個能滿足學校日常信息統(tǒng)計分析工作的教務管理系統(tǒng)對學校各項工作的開展有著重要的意義。開發(fā)出一個操作簡便，界面友好，靈活實用，能被人普遍接受，安全可靠，容易操作的教務管理系統(tǒng)，能夠提高學校對學生信息的統(tǒng)計分析效率，減輕教務管理人員對信息管理和統(tǒng)計的負擔，提高學校對信息的規(guī)范化管理。教務管理系統(tǒng)能夠及時

10、對信息進行收集整理，使學校相關部門及時獲取可靠的信息，便于管理。1.2 國內外發(fā)展概況及存在問題隨著以計算機,多媒體,通訊,網絡,人工智能等為代表的信息收集,處理,加工,傳輸?shù)燃夹g的飛速發(fā)展,信息技術不斷滲透到社會生活的各個領域和各個方面,在全球范圍內掀起了一場改變世界面貌的信息革命浪潮,它不斷改變著人們的生產方式,生活方式以及思維方式,使人類跨入了一個嶄新的時代信息化時代。開發(fā)教務管理系統(tǒng)就是緊跟信息時代的步伐,也是推動管理信息化的具體措施。(1)國外研究現(xiàn)狀國外從 20 世紀 70 年代就有人研究管理問題.直到 20 世紀 90 年代關于管理問題的研究仍然十分活躍。管理信息系統(tǒng)(mis)的

11、概念起源很早。在國外，早在 20 世紀 30 年代，柏德就強調了決策在組織管理中的作用。50 年代，西蒙提出了管理依賴于信息和決策的概念。同一時代維納發(fā)表了控制論與管理，他把管理過程當成一個控制過程。50 年代計算機已用于會計工作，1958 年蓋爾寫道：管理將以較低的成本得到及時準確的信息，做到較好的控制。這時數(shù)據(jù)處理一詞已經出現(xiàn)。 管理信息系統(tǒng)(mis)已經逐步成為一個獨立的學科分支，它繼承了棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 2 頁頁 共共 27 頁頁其他眾多學科的理論、方法與應用技術，它與信息科學、系統(tǒng)科學、控制理論、運籌學、會計學、統(tǒng)計學、經濟學、管理科學

12、、計算機科學有著十分密切的聯(lián)系。(2)國內研究現(xiàn)狀我國從 20 世紀 80 年代初期開始管理問題的研究。國內許多企業(yè)開發(fā)過與管理相關的系統(tǒng),但大多是根據(jù)本企業(yè)的特點而設計的。只有少數(shù)系統(tǒng)考慮到了管理的通用性。隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮著重要的作用。作為計算機應用的一部分，使用計算機對信息進行管理，具有高速度、高效率、高質量的優(yōu)勢。 程序設計人員運用編程語言及數(shù)據(jù)庫，針對信息管理的具體情況，進行分析，設計出一個專屬的信息管理系統(tǒng)，這將是開發(fā)信息管理系統(tǒng)的方向。教務管理系統(tǒng)是一個比較穩(wěn)定的系統(tǒng)，很大程度上具有一定的優(yōu)勢

13、，比如說：系統(tǒng)運行安全可靠，穩(wěn)定性好；系統(tǒng)的可管理性好；系統(tǒng)輸入界面友好，操作簡便易行，盡量減少用戶的輸入工作量；能實現(xiàn)多種查詢，允許進行模糊查詢；數(shù)據(jù)具有規(guī)范性，整體性，方便數(shù)據(jù)之間的比較分析?？墒?，任何東西都不是完美的，它也存在很多缺點：網絡功能欠缺。本系統(tǒng)沒有建立網絡連接，只能單機運行，無法實現(xiàn)資源共享。容錯性不高，系統(tǒng)的抗錯，容錯性不高。如必須使用規(guī)范查詢語言，否則系統(tǒng)無法辨識執(zhí)行。 有很多地方還設計的不夠詳細，且系統(tǒng)分析報告中提及的一些功能在此未能實現(xiàn)。1.3 本文研究的內容及目標課題主要研究的內容如下： 本系統(tǒng)的使用者：教務處管理人員、任課教師和學生，研究內容涉及到以下幾方面：（1

14、）教務處管理人員可以以管理員的身份登陸，進入管理模塊，可以進行學生信息的錄入和查詢，學生成績的錄入查詢，學籍的變動以及班級的設定和查詢等功能最后是退出系統(tǒng)等操作。 （2）管理員可以設定教師用戶，授予相應的權限，對學生信息，學生成績以及班級進行管理。棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 3 頁頁 共共 27 頁頁（3）學生可以用直接進入，只可以查詢相應的信息而不能對相關信息進行編輯。本系統(tǒng)的目標就是從操作簡單、界面友好、靈活、實用、安全的要求出發(fā)，完成操作的全過程，為使用者提供最大的方便，最大程度提高工作效率。棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義

15、 第第 4 頁頁 共共 27 頁頁2. 系統(tǒng)概述本教務管理系統(tǒng)可以說是一個綜合性的學校學生管理系統(tǒng)，它具有學生學籍管理、學生成績管理、學生信息管理等多種功能，因而具有較強的實用性。2.1 系統(tǒng)及需求分析2.1.1 系統(tǒng)需求通過調查,系統(tǒng)需要達到以下要求:(1) 由于該系統(tǒng)的使用對象多,要求有較好的權限管理; (2) 原始數(shù)據(jù)修改簡單方便,支持多條件修改(3) 方便的數(shù)據(jù)查詢，支持多條件查詢;(4) 在相應的權限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；可行性分析由于本系統(tǒng)管理的對象單一,都是在校學生，且每個數(shù)據(jù)內容具有較強的關聯(lián)性，涉及的計算過程不是很復雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學校用于

16、學生管理的微機都是 piii 以上的機器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運行的要求。在技術難度方面，由于有指導老師的指導和查閱相關參考文獻，因此完全可以實現(xiàn)。 本系統(tǒng)的設計是在 windowsxp 中文版操作系統(tǒng)環(huán)境下，使用 delphi 開發(fā)成功的。目前，數(shù)據(jù)庫產品較多，每種產品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應考慮數(shù)據(jù)庫應用的特點及適用范圍。2.2 系統(tǒng)設計的背景 每個學校都需要進行信息的統(tǒng)計分析工作，而這些工作都必須在很短時間內完成。大量的數(shù)據(jù)的統(tǒng)計分析工作如果只靠人工來完成，費時費力，還容易出錯。隨著計算機技術的飛速發(fā)展，計算機在日常管理應用中迅速普及，利用計算機進

17、行管理勢在必行。因此需開發(fā)出一個能滿足學校進行信息的錄入，統(tǒng)計，查詢和打印等需求的、功能完善、安全可靠、迅速簡便的管理信息系統(tǒng)是非常有必要的。2.3 系統(tǒng)的功能簡介棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 5 頁頁 共共 27 頁頁 本系統(tǒng)主要可以實現(xiàn)以下的管理功能：學生信息管理、學生成績管理、學籍變動、班級信息等等。2.3.1 學生信息管理模塊該模塊的功能是對學生的基本信息的錄入和查詢，和后面的成績管理，學籍變動有很好的聯(lián)系。2.3.2 學生成績管理模塊該模塊對各學生的成績錄入以及查詢的設置，可以給學生添加以及修改學生成績，分為成績錄入和成績查詢等模塊。2.3.3 學

18、籍變動模塊該模塊對學生退學休學復學轉學以及調班的信息進行設置，并可在其中填寫原因，該模塊包括退學|休學和轉學|調班兩個模塊。2.3.4 基本信息模塊該模塊是對班級的添加和設置以及對課程的添加和設置，自行添加相應的課程和班級，把軟件進行了人性化的設計。2.4 系統(tǒng)開發(fā)的目標本系統(tǒng)是管理學校學生信息的一個綜合性的系統(tǒng)，本系統(tǒng)的設計目標將最終定位于完成以上所述的系統(tǒng)主要業(yè)務的基本模型上。擬建系統(tǒng)實現(xiàn)以下具體要求：(1)提高信息處理速度。(2)集中處理，提高管理效率。(3)減輕教務管理人員的勞動強度、提高管理水平。棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 6 頁頁 共共 27

19、頁頁3. 系統(tǒng)分析數(shù)據(jù)流程分析下面是教務管理系統(tǒng)的數(shù)據(jù)流圖，如圖 3.1.1 所示。圖 3.1.1 教務管理系統(tǒng)據(jù)流程圖數(shù)據(jù)存儲分析：實體聯(lián)系圖(e-r 圖)3.2.1 概念模型 e-r 模型是指直接從現(xiàn)實世界中抽象出實體類型及實體間聯(lián)系，是一種描述靜態(tài)數(shù)據(jù)結構的概念模型。它的主要成分是實體、聯(lián)系和屬性?？衫胑-r 模型進行數(shù)據(jù)庫概念設計。e-r 圖是直觀表示概念模型的工具。在圖中有四個基本成分，如圖 3.2.1：(1) 矩形框：表示實體類型(考慮問題的對象)。(2) 菱形框：表示聯(lián)系類型(實體間的聯(lián)系)。(3) 橢圓型框：表示實體類型和聯(lián)系類型的屬性。(4) 直線：聯(lián)系類型與設計的實體類型

20、之間以直線連接，并在直線上部標上聯(lián)系種類(1:1，1:n，m:n)。棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 7 頁頁 共共 27 頁頁具體圖示如圖 3.2.1 所示。 實體 屬性 聯(lián)系圖 3.2.1 實體 e-r 圖符號表示3.2.2 系統(tǒng) e-r 圖的設計本系統(tǒng)中所規(guī)劃的主要實體有：學生基本信息實體、學注冊實體、班級信息實體、課程信息實體、成績信息實體等，下面以學生注冊實體為例是實體 e-r 圖，如圖 3.2.2 所示。圖 3.2.2 學生注冊實體 e-r 圖3.3 系統(tǒng)流程分析所謂系統(tǒng)流程分析，就是用戶使用系統(tǒng)時的工作過程。不同用戶有著不同的工作流程和使用權限。登

21、陸是判斷是否是合法的用戶，在數(shù)據(jù)庫設計中用戶的登陸名是固定的，如果要添加用戶則在用戶管理里面添加相應的用戶信息。 流程圖使用的符號如圖 3.3.1 所示。開始/結束 數(shù)據(jù)流動 判斷 功能描述 輸入及方向圖 3.3.1 流程圖使用符號學生注冊實體學號姓名團員年齡班級學期注冊時間棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 8 頁頁 共共 27 頁頁本系統(tǒng)的系統(tǒng)流程分析如圖 3.3.2 所示。 n y 圖 3.3.2 系統(tǒng)流程分析圖開始身份驗證進入教務管理系統(tǒng)主界面輸入用戶名和密碼退出系統(tǒng)棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 9 頁頁 共共 27 頁

22、頁4. 系統(tǒng)設計4.1軟件模塊結構設計4.1.1 系統(tǒng)方案確定通過對系統(tǒng)的調研與分析，系統(tǒng)主要應完成的功能有：系統(tǒng)管理、學生信息管理、學生成績管理、學籍變動、班級信息等。軟件結構設計本系統(tǒng)在執(zhí)行時，先根據(jù)不同的操作人員的需要進入相應的模塊，然后可以輸入數(shù)據(jù)或者進行其它的查詢或瀏覽等操作；總體來說，本系統(tǒng)屬于一個 mis 系統(tǒng)。系統(tǒng)的功能層次圖如圖 4.1.1 所示。圖 4.1.1 功能層次圖4.2 數(shù)據(jù)庫設計數(shù)據(jù)庫采用了 microsoft 推出的 access 數(shù)據(jù)庫，這是微軟集成到office 中的一個桌面數(shù)據(jù)庫，能夠快速方便的和 office 的其他套件綜合使棗莊學院學士學位論文棗莊學院

23、學士學位論文作者作者 張義張義 第第 10 頁頁 共共 27 頁頁用。由于 access 具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用 access 作為后臺數(shù)據(jù)庫。使用 access 的好處還在于，如果你的系統(tǒng)擴展到 client/server 模式的時候，可以使用 microsoft 的數(shù)據(jù)庫服務器軟件sql server，此時，程序只需要簡單的修改一下鏈接就可以，這樣，為程序的平滑擴展提供了非常有利的條件。4.2.1 本系統(tǒng)中所涉及到的主要實體共有六個數(shù)據(jù)表cj 表：學號，姓名，班級，課程，成績，考試類型，學期class 表：班級編號，班級名稱 classkecheng 表：課程

24、編號，課程名稱xueji 表：學號，姓名，原班級，狀態(tài)，轉學學校，現(xiàn)在班級，變動原因xinxi 表：學號，姓名，性別，班級，民族，政治面貌，家庭成分，籍貫，家長姓名，家長工作單位，當前狀態(tài)，入學時間，出生日期，聯(lián)系電話，家庭住址，履歷，備注zhuce 表：學號，姓名，年齡，班級，團員，學期，注冊時間，備注4.2.2 各表的物理結構各表的物理結構如下圖所示。表 4.2.1 cj 表字段名稱類型寬度小數(shù)位學號文本10姓名文本50課程文本20分數(shù)單精度型數(shù)字自動班級文本15考試類型文本20學期文本15表 4.2.2 class 表字段名稱類型寬度小數(shù)位班級編號文本15班級名稱文本20棗莊學院學士學位

25、論文棗莊學院學士學位論文作者作者 張義張義 第第 11 頁頁 共共 27 頁頁 表 4.2.3 classkecheng 表字段名稱類型寬度小數(shù)位課程編號文本16課程名稱文本20表 4.2.4 xueji 表字段名稱類型寬度小數(shù)位學號文本10姓名文本50原班級文本15狀態(tài)文本20轉學學校文本50現(xiàn)在班級文本15變動原因文本備注表 4.2.5 xinxi 表字段名稱類型寬度小數(shù)位學號文本10姓名文本15性別文本4班級文本15民族文本6政治面貌文本10家庭成分文本10籍貫文本備注家長姓名文本10家長工作單位文本備注當前狀態(tài)文本10入學時間文本10出生日期文本10聯(lián)系電話文本10家庭住址文本備注備注

26、文本備注表 4.2.6 zhuce 表字段名稱類型寬度小數(shù)位學號文本10姓名文本50班級文本15年齡文本10團員文本10注冊時間文本20備注文本備注學期文本20棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 12 頁頁 共共 27 頁頁5. 系統(tǒng)的實現(xiàn)本部分主要內容為本系統(tǒng)的運行界面以及主要界面展示。5.1 系統(tǒng)登陸界面本界面的主要功能是為了對系統(tǒng)進行安全性管理(見圖 5.1.1)，本系統(tǒng)的用戶名和密碼保存在表中，本系統(tǒng)根據(jù)不同的用戶而設置了不同的權限，可以用 admin 為用戶名和密碼來登陸本系統(tǒng)。圖 5.1.1 系統(tǒng)登錄界面5.2 系統(tǒng)主界面本模塊是本系統(tǒng)的應用界面(見圖

27、 5.2.2)，在本界面上集成了本系統(tǒng)的所有功能，使用 toolbar 組件，簡便快捷。圖 5.2.2 系統(tǒng)主界面棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 13 頁頁 共共 27 頁頁5.3用戶管理模塊本模塊是本系統(tǒng)的安全性設置模塊(見圖 5.3.3)，根據(jù)學校不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實行了分級管理，對用戶的權限和類別進行了分類管理。圖 5.3.3 用戶管理模塊5.4 學生學籍變動模塊本模塊主要設置學生學籍的變動(見圖 5.4.4)，以及記錄相關信息等內容。可以根據(jù)條件查詢相應信息等功能。棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張

28、義 第第 14 頁頁 共共 27 頁頁圖 5.4.4 學生學籍變動模塊5.5 學生信息管理模塊本模塊只要錄入修改相應的學生信息(見圖 5.5.5)，根據(jù)條件查詢需要的學生信息，界面清楚，便于操作。圖 5.5.5 學生學籍變動模塊棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 15 頁頁 共共 27 頁頁5.6 成績管理模塊本模塊主要是錄入和修改學生的成績(見圖 5.6.6)，根據(jù)條件查詢需要的學生成績，界面清楚，便于操作。圖 5.6.6 學生學籍變動模塊棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 16 頁頁 共共 27 頁頁6. 結論在本系統(tǒng)的開發(fā)過程中

29、，由于本人是初次開發(fā)軟件，在知識、經驗方面都存在著不足。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。因為對管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。在本次開發(fā)過程由于硬件的限制，未能實現(xiàn)網絡功能，因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數(shù)據(jù)損失。盡管本管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是本管理系統(tǒng)所必需的。相信本管理系統(tǒng)是一套學校在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項本過程，了解了的基本知識鞏固了我對 delphi 的學習，但

30、在這次畢業(yè)設計中的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設計系統(tǒng)的思維方法，以及與同學們之間相互幫助的精神。棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 17 頁頁 共共 27 頁頁參考文獻參考文獻1 周佩德， 數(shù)據(jù)庫原理及應用 ，出版社：電子工業(yè)出版社，2000 年 3 月，起止頁碼（第 105 頁第 300 頁）2 王要武， 管理系統(tǒng) ，出版社：電子工業(yè)出版社，2001 年，起止頁碼（第 54 頁第205 頁）3 李紅等， 管理信息系統(tǒng)開發(fā)與應用 ，出版社：電子工業(yè)出版社，2003 年，起止頁碼（第 70 頁第 275 頁）4 周之英， 現(xiàn)代軟件工程 ，出版

31、社：科學出版社，1999 年，起止頁碼（第 79 頁第200 頁）5 張曜等， delphi 函數(shù)實用手冊 ，出版社：冶金工業(yè)出版社，2002 年 12 月，起止頁碼（第 37 頁第 219 頁）6 陳寬達， delphi 深度歷險 ，出版社：科學出版社，2001 年 7 月，起止頁碼（第 19頁第 199 頁）7 李存斌 汪兵， delphi 深度編程及其項目應用開發(fā) ，出版社：水利水電出版社，2002 年 11 月，起止頁碼（第 27 頁第 257 頁）8 付軍， delphi7 實例編程 100 例 ，出版社：中國鐵道出版社，2005 年 7 月，起止頁碼（第 30 頁第 157 頁）9

32、 楊長春， delphi 編程設計教程 ，出版社：清華大學出版社，2005 年，起止頁碼（第 50 頁第 180 頁）10 康祥順， delphi 案例開發(fā)集錦 ，出版社：電子工業(yè)出版社，2005 年，起止頁碼（第 78 頁第 176 頁）11 羅小平， delphi 精要 ，出版社：電子工業(yè)出版社，2004，起止頁碼（第 45 頁第 126 頁）12 李目海， delphi 應用程序設計 ，出版社：電子科技大學出版社，2005 年 8 月，起止頁碼（第 1 頁第 200 頁）棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 18 頁頁 共共 27 頁頁附 錄主要編碼過程如下所

33、示：unit archive;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, buttons, comctrls, toolwin, menus, imglist, extctrls, stdctrls, dbtables, jpeg;type tmainfrm = class(tform) mainmenu1: tmainmenu; n1: tmenuitem; nset: tmenuitem; n3: tmenuitem; npasswd: t

34、menuitem; n7: tmenuitem; nclose: tmenuitem; n9: tmenuitem; nstdarc: tmenuitem; nstdetail: tmenuitem; statusbar1: tstatusbar; imagelist1: timagelist; image1: timage; n2: tmenuitem; n4: tmenuitem; nscore: tmenuitem; n6: tmenuitem; n8: tmenuitem; nuseradmin: tmenuitem; nreg: tmenuitem; n16: tmenuitem;

35、n17: tmenuitem; n18: tmenuitem; n19: tmenuitem; n20: tmenuitem; n21: tmenuitem; n22: tmenuitem; n23: tmenuitem; timer1: ttimer; n10: tmenuitem; n12: tmenuitem; toolbar1: ttoolbar; sbtnset: tspeedbutton; toolbutton5: ttoolbutton; speedbutton3: tspeedbutton; speedbutton9: tspeedbutton; toolbutton1: tt

36、oolbutton; sbtninfo: tspeedbutton; toolbutton9: ttoolbutton;棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 19 頁頁 共共 27 頁頁 speedbutton1: tspeedbutton; toolbutton2: ttoolbutton; speedbutton2: tspeedbutton; toolbutton3: ttoolbutton; speedbutton5: tspeedbutton; toolbutton4: ttoolbutton; speedbutton6: tspeedbutton; to

37、olbutton8: ttoolbutton; speedbutton7: tspeedbutton; toolbutton6: ttoolbutton; speedbutton8: tspeedbutton; toolbutton7: ttoolbutton; speedbutton4: tspeedbutton; procedure ncloseclick(sender: tobject); procedure nsetclick(sender: tobject); procedure formcreate(sender: tobject); procedure timer1timer(s

38、ender: tobject); procedure formshow(sender: tobject); procedure nuseradminclick(sender: tobject); procedure npasswdclick(sender: tobject); procedure n18click(sender: tobject); procedure n19click(sender: tobject); procedure nstdarcclick(sender: tobject); procedure formclose(sender: tobject; var actio

39、n: tcloseaction); procedure nregclick(sender: tobject); procedure n16click(sender: tobject); procedure n17click(sender: tobject); procedure nscoreclick(sender: tobject); procedure n12click(sender: tobject); procedure n20click(sender: tobject); procedure n21click(sender: tobject); procedure nreglogcl

40、ick(sender: tobject); procedure n6click(sender: tobject); procedure speedbutton8click(sender: tobject); private private declarations / fuid :string; procedure syslog; function reglog:boolean; public procedure addlogin; public declarations / property _uid :string read fuid write fuid; end;var mainfrm

41、: tmainfrm;implementationuses maind, /數(shù)據(jù)模塊 frmset,/設置學校棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 20 頁頁 共共 27 頁頁 util, /公共程序 clogin,/登錄界面 fuser,/用戶管理 cpasswd,/ set password cfcalss,/ class info clesson,/lesson info ureg,/register student info ustatus,/change student status; uscore,/score input uabout,/aboutbo

42、x ubackup, ustore, csys,/register info ureginfo, stdarc;$r *.dfmprocedure tmainfrm.ncloseclick(sender: tobject);begin/addlogin;application.terminate;end;procedure tmainfrm.nsetclick(sender: tobject);var syssetfrm:tsyssetfrm; school,filename:string; begin if maindfrm.checkpermission(userid,set)=false

43、 then exit; syssetfrm := tsyssetfrm.create(application); try syssetfrm.showmodal; finally syssetfrm.free; end;filename := extractfilepath(application.exename)+ iniset.ini;school := ini_load_str2(filename,set,name,);caption :=教務管理系統(tǒng) | 使用單位：+school;end;procedure tmainfrm.formcreate(sender: tobject);be

44、gin if iscpuid_available = false then begin showmessage(對不起, 此軟件不適用于您的計算機!); close; exit; end;if regkeycheck(softwareintel soft)= false then棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 21 頁頁 共共 27 頁頁beginregcreate(softwareintel soft);end;/ syslog; timer1.enabled := true;/if test_openfile(filename) thenstatusbar

45、1.panels.items3.text := 計算機種類：+getcpuvendor;end;procedure tmainfrm.syslog;begin if not assigned(maindfrm) then application.createform(tmaindfrm, maindfrm); if not assigned(frmlogin) then application.createform(tfrmlogin, frmlogin); / frmlogin := tfrmlogin.create(application); try frmlogin.showmodal;

46、/ fuid := userid; finally frmlogin.free; end;end;procedure tmainfrm.timer1timer(sender: tobject);beginstatusbar1.panels1.text :=系統(tǒng)時間： +timetostr(now);statusbar1.panels2.text :=使用時間：+timegetstamp(logtime);end;procedure tmainfrm.formshow(sender: tobject);beginsyslog;reglog;if userid = thenbeginstatusb

47、ar1.panels0.text := 目前沒有用戶登錄,無法使用本程序;end elsestatusbar1.panels0.text := 使用者:+userid+ | +username+ 登錄時間：+ datetostr(date)+ +logtime;end;procedure tmainfrm.nuseradminclick(sender: tobject);var frmuser:tfrmuser;begin if maindfrm.checkpermission(userid,userada)=false then exit; frmuser := tfrmuser.creat

48、e(application); try棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 22 頁頁 共共 27 頁頁 frmuser.showmodal; finally frmuser.release; end;end;procedure tmainfrm.npasswdclick(sender: tobject);var frmpasswd:tfrmpasswd;begin if maindfrm.checkpermission(userid,edtpass)=false then exit; frmpasswd := tfrmpasswd.create(applicati

49、on); try frmpasswd.showmodal; finally frmpasswd.free; end;end;procedure tmainfrm.n18click(sender: tobject);var frmclass: tfrmclass;begin if maindfrm.checkpermission(userid,classada)=false then exit; frmclass := tfrmclass.create(application); try frmclass.showmodal; finally frmclass.free; end;end;pro

50、cedure tmainfrm.addlogin;var qleft:tquery; str:string;beginstr :=maindfrm.feeduuser(userid);if str then begin qleft := tquery.create(application.owner); try qleft.databasename := main; qleft.sql.clear; qleft.sql.add(insert into loginfo (uid,uuser,logdate,logtime,lefttime); qleft.sql.add(values( ); q

51、left.sql.add(+userid+,); qleft.sql.add(+str +,); qleft.sql.add(+datetostr(date)+,); qleft.sql.add(+logtime+,); qleft.sql.add(+timetostr(time)+);棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 23 頁頁 共共 27 頁頁 qleft.close; qleft.execsql; finally qleft.free; end; end;end;procedure tmainfrm.n19click(sender: tobject);va

52、r frmlession: tfrmlession;begin if maindfrm.checkpermission(userid,lessada)=false then exit; frmlession := tfrmlession.create(application); try frmlession.show;/ finally except frmlession.free; end;end;procedure tmainfrm.nstdarcclick(sender: tobject);var frmbasic:tfrmbasic;begin if (sender = nstdeta

53、il) then tabstatus := 1 else tabstatus := 0; if maindfrm.checkpermission(userid,stdb001)=false then exit; frmbasic := tfrmbasic.create(application); try frmbasic.showmodal; finally frmbasic.free; end;end;procedure tmainfrm.formclose(sender: tobject; var action: tcloseaction);beginaddlogin;action :=

54、cafree;end;procedure tmainfrm.nregclick(sender: tobject);var frmreg: tfrmreg;beginif maindfrm.checkpermission(userid,reg001)=false then exit; frmreg := tfrmreg.create(application);棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 24 頁頁 共共 27 頁頁 try frmreg.showmodal; finally frmreg.free; end;end;procedure tmainfrm.n1

55、6click(sender: tobject);var frmstatus: tfrmstatus;begin tabstatus:= 0; if maindfrm.checkpermission(userid,status001)=false then exit; frmstatus:= tfrmstatus.create(application); try frmstatus.showmodal; finally frmstatus.free; end;end;procedure tmainfrm.n17click(sender: tobject);var frmstatus: tfrms

56、tatus;begin tabstatus:= 1; if maindfrm.checkpermission(userid,status001)=false then exit; frmstatus:= tfrmstatus.create(application); try frmstatus.showmodal; finally frmstatus.free; end;end;procedure tmainfrm.nscoreclick(sender: tobject);var frmscore: tfrmscore;begin if maindfrm.checkpermission(use

57、rid,mark001)=false then exit; frmscore := tfrmscore.create(application); try frmscore.showmodal; finally frmscore.free; end;end;procedure tmainfrm.n12click(sender: tobject);var棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 25 頁頁 共共 27 頁頁 about: tabout;begin about :=tabout.create(application); try about.showmodal;

58、 finally about.free; end;end;procedure tmainfrm.n20click(sender: tobject);var frmbackup: tfrmbackup;begin frmbackup := tfrmbackup.create(application); try frmbackup.showmodal; finally frmbackup.free; end;end;procedure tmainfrm.n21click(sender: tobject);var frmstore: tfrmstore;begin frmstore := tfrms

59、tore.create(application); try frmstore.showmodal; finally frmstore.free; end;end;procedure tmainfrm.nreglogclick(sender: tobject);beginif reglog then showmessage(謝謝合作！ +#10#13+若想了解更多, 請聯(lián)系 zhangyi_！);end;function tmainfrm.reglog:boolean;var sysreg: tsysreg; userday:extended; filename:string;beginfile

60、name := extractfilepath(application.exename)+ iniset.ini;school := ini_load_str2(filename,set,name,);caption :=教務管理系統(tǒng) v1.0+ | 使用單位：+school; if regreturnstr(softwareintel soft,sf_id) regnumber(getcpuid4) then棗莊學院學士學位論文棗莊學院學士學位論文作者作者 張義張義 第第 26 頁頁 共共 27 頁頁 begin result := false; caption := caption+ ;