基于delphi的教務管理系統畢業(yè)論文

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數：32 大?。?46.50KB 人氣指數：12 舉報 版權申訴

已閱讀1頁，還剩31頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　目錄　　摘要 I　　ABSTRACTII　　1.緒論1　　1.1系統研究的目的和意義1<

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

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

4、本信息模塊5　　2.4系統開發(fā)的目標5　　3.系統分析6　　3.1數據流程分析6　　3.2數據存儲分析6　　3.2.1概念模型6

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

6、>　　4.2數據庫設計9　　4.2.1本系統中所涉及到的主要實體共有六個數據表10　　4.2.2各表的物理結構10　　5.系統的實現12　　5.1系統登陸界面12　　5.2系統主界

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

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

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

10、設計和數據庫設計等；系統實現部分簡單介紹了幾個主要模塊用法。本系統界面友好，操作簡單，比較實用。　　關鍵詞信息管理系統，教務管理系統，信息查詢，DELPHI應用 　　ABSTRACT　　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。　　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　　Key Words: MIS、Student managementsystem、Delphi　　緒論　　系統研究的目的和意義　　21世紀初期，既是我國經濟快速、健康發(fā)展的重要

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

35、/p>　　圖3.1.1教務管理系統據流程圖　　數據存儲分析：實體聯系圖(E-R圖)　　概念模型　　E-R模型是指直接從現實世界中抽象出實體類型及實體間聯系，是一種描述靜態(tài)數據結構的概念模型。它的主要成分是實體、聯系和屬性。可利用E-R模型進行數據庫

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

37、部標上聯系種類(1:1，1:N，M:N)。　　具體圖示如圖3.2.1所示。　　實體屬性聯系　　圖3.2.1實體E-R圖符號表示　　系統E-R圖的設計

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

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

40、向　　圖3.3.1流程圖使用符號　　本系統的系統流程分析如圖3.3.2所示。　　N　　Y 　　圖3.3.2 系統流程分析圖</p

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

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

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

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

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

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

47、　　表4.2.4 xueji表　　表4.2.5 xinxi表　　表4.2.6 zhuce表　　系統的實現　　本部分主要內容為本系統的運行界面以及主要界面展示。<p

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

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

50、不同部門以及不同使用人員對本系統的要求和需要，從而實行了分級管理，對用戶的權限和類別進行了分類管理。　　圖5.3.3 用戶管理模塊　　學生學籍變動模塊　　本模塊主要設置學生學籍的變動(見圖5.4.4)，以及記錄相關信息等內容?？梢愿鶕l件查詢相應信息等功能。

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

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

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

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

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

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

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

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

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

60、ive;　　interface　　uses　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

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

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

63、　　NClose: TMenuItem;　　N9: TMenuItem;　　NstdArc: TMenuItem;　　Nstdetail: TMenuItem;　　StatusBar1: TStatusBar;

64、　　ImageList1: TImageList;　　Image1: TImage;　　N2: TMenuItem;　　N4: TMenuItem;　　Nscore: TMenuItem;　　N6: TMen

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

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

67、;　　Timer1: TTimer;　　N10: TMenuItem;　　N12: TMenuItem;　　ToolBar1: TToolBar;　　SbtnSet: TSpeedButton;　　ToolB

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

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

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

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

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

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

74、er: TObject);　　procedure N18Click(Sender: TObject);　　procedure N19Click(Sender: TObject);　　procedure NstdArcClick(Sender: TObject);　　pro

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

76、(Sender: TObject);　　procedure NscoreClick(Sender: TObject);　　procedure N12Click(Sender: TObject);　　procedure N20Click(Sender: TObject);

77、　procedure N21Click(Sender: TObject);　　procedure NreglogClick(Sender: TObject);　　procedure N6Click(Sender: TObject);　　procedure SpeedButton8Click(Sender: TOb

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

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

80、lt;/p>　　end;　　var　　MainFrm: TMainFrm;　　implementation　　uses maind, //數據模塊

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

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

83、bout,//aboutbox　　ubackup,　　ustore,　　csys,//register info　　UREGINFO,

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

85、n;　　Application.Terminate;　　end;　　procedure TMainFrm.NSetClick(Sender: TObject);　　var&

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

87、gt;　　syssetFrm := TsyssetFrm.Create(application);　　try　　syssetFrm.ShowModal;　　finally

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

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

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

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

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

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

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

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

96、try　　FrmLogin.ShowModal;　　// fuID := UserID;　　finally　　FrmLogin.free;　　end;

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

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

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

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

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

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

103、;　　FrmUser := TFrmUser.Create(Application);　　try　　FrmUser.ShowModal;　　finally　　FrmUser.

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

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

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

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

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

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

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

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

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

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

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

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

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

117、gt;　　procedure TMainFrm.N19Click(Sender: TObject);　　var　　FrmLession: TFrmLession;　　begin

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

119、.Show;　　// finally　　except　　FrmLession.Free;　　end;　　end;&

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

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

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

123、y　　Frmbasic.Free;　　end;　　end;　　procedure TMainFrm.FormClose(Sender: TObject; var Action:

124、 TCloseAction);　　begin　　addlogin;　　Action := caFree;　　end;

125、　　procedure TMainFrm.NregClick(Sender: TObject);　　var　　FrmReg: TFrmReg;　　begin　　if MaindFrm.CheckP

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

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

128、;　　var　　FrmStatus: TFrmStatus;　　begin　　Tabstatus:= 0;　　if MaindFrm.CheckPermi

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

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
6. 下載文件中如有侵權或不適當內容，請與我們聯系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

基于delphi的教務管理系統畢業(yè)論文

文檔簡介

溫馨提示

最新文檔

評論

基于delphi的教務管理系統畢業(yè)論文

文檔簡介

溫馨提示

最新文檔

評論

免費下載