(精品)畢業(yè)精品基于CS模式的高校學(xué)校管理系統(tǒng)(2013年優(yōu)秀畢業(yè)設(shè)計(jì))

基于C/S模式的高校學(xué)生管理子系統(tǒng)及教務(wù)管理子系統(tǒng)（學(xué)校管理系統(tǒng)中的兩個(gè)子系統(tǒng)） 題 目：基于C/S模式的高校學(xué)生管理子系統(tǒng)及教務(wù)管理子系統(tǒng)設(shè)計(jì)者：平 臺(tái)：Delphi 6.0 數(shù)據(jù)庫：Delphi自身帶的interbase 6.0、SQL Explorer學(xué) 號(hào)：班 級(jí)：學(xué) 校：專 業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)（開放本科）日 期：目 錄：第一章 引言 （頁碼3）本課題的研究意義；本論文的目的、內(nèi)容及作者的主要貢獻(xiàn)；第二章 研究現(xiàn)狀及設(shè)計(jì)目標(biāo)：(頁碼3頁碼4)相近研究課題的特點(diǎn)及優(yōu)缺點(diǎn)分析；現(xiàn)行研究存在的問題及解決方法；本課題要達(dá)到的設(shè)計(jì)目標(biāo)；第三章 實(shí)際中要解決的幾個(gè)問題：(頁碼4頁碼11)研究設(shè)計(jì)中要解決的問題；具體實(shí)現(xiàn)中采用的關(guān)鍵技術(shù)及復(fù)雜性分析；第四章 系統(tǒng)結(jié)構(gòu)與模型：（頁碼11-頁碼12）設(shè)計(jì)實(shí)現(xiàn)的策略和算法描述；編程模型及數(shù)據(jù)結(jié)構(gòu)；第五章 系統(tǒng)實(shí)現(xiàn)技術(shù)：（頁碼12）分模塊地描述系統(tǒng)各部分的實(shí)現(xiàn)方法；程序流程；第六章 性能測(cè)試與分析：（頁碼13）測(cè)試實(shí)例（測(cè)試集）的研究與選擇；測(cè)試環(huán)境與測(cè)試條件；實(shí)例測(cè)試（表格與曲線）；性能分析；第七章 結(jié)束語及參考文獻(xiàn)：（頁碼13）摘要（Abstract）：隨著信息技術(shù)的發(fā)展，高校學(xué)生管理工作以及教務(wù)管理工作正在以校園網(wǎng)為平臺(tái)、采用計(jì)算機(jī)和數(shù)據(jù)庫等現(xiàn)代化技術(shù)不斷提高管理水平。研究基于/的高校學(xué)生管理子系統(tǒng)的學(xué)籍管理、學(xué)生相關(guān)管理、學(xué)生信息查詢和統(tǒng)計(jì)等功能以及基于C/S的高校教務(wù)科管理子系統(tǒng)的教師申請(qǐng)課程、登記成績(jī)；教務(wù)科通過申請(qǐng)新課；學(xué)生查詢成績(jī)等功能。關(guān) 鍵 詞(keywords)：/；interbase；delphi 6.0；學(xué)生管理；教務(wù)管理；數(shù)據(jù)庫；第一章 引 言：本課題研究的意義：/(客戶機(jī)/服務(wù)器)，簡(jiǎn)稱/。/模式是20世紀(jì)80年代出現(xiàn)并至今作為主流應(yīng)用的一種開發(fā)模式，所謂的 模式實(shí)際上是一種“邏輯”概念，即將整個(gè)系統(tǒng)在邏輯上劃分成前端客戶進(jìn)程和后臺(tái)服務(wù)器進(jìn)程，兩者通過網(wǎng)絡(luò)連接。前端的客戶應(yīng)用程序主要是顯示界面、與用戶進(jìn)行交互，而后臺(tái)的服務(wù)器進(jìn)程主要是負(fù)責(zé)進(jìn)行數(shù)據(jù)處理，將處理后的結(jié)果返回給用戶，而且服務(wù)器所進(jìn)行的工作對(duì)客戶應(yīng)用程序來說是完全透明的，在局域網(wǎng)絡(luò)上傳輸?shù)氖钦Z句和處理后的結(jié)果。這種模式的優(yōu)點(diǎn)主要體現(xiàn)在以下幾點(diǎn)：(1)交互性好，速度快，適合于系統(tǒng)中大量數(shù)據(jù)的輸入輸出操作；(2)能夠提供數(shù)據(jù)和服務(wù)的無縫集成。通過 結(jié)構(gòu)的(數(shù)據(jù)庫管理系統(tǒng)),易于實(shí)現(xiàn)一個(gè)系統(tǒng)中原有數(shù)據(jù)與應(yīng)用程序的集成；(3)良好的開放性和易擴(kuò)充性，客戶端及其功能的添加、刪除和更新都不會(huì)對(duì)整個(gè)系統(tǒng)產(chǎn)生影響。本論文研究的目的：在畢業(yè)設(shè)計(jì)中，已經(jīng)實(shí)現(xiàn)了一個(gè)基于C/S模式的高校學(xué)生信息管理子系統(tǒng)及教務(wù)管理子系統(tǒng)，所以在本論文中詳細(xì)闡明了兩個(gè)子系統(tǒng)各自所實(shí)現(xiàn)的各項(xiàng)功能，意在說明在當(dāng)今信息社會(huì)中，高校的管理工作應(yīng)向計(jì)算機(jī)系統(tǒng)化轉(zhuǎn)變，才能省去大量的手工勞動(dòng)，提高工作效率。第二章 研究現(xiàn)狀及設(shè)計(jì)目標(biāo)：相近研究課題的特點(diǎn)及優(yōu)缺點(diǎn)分析：據(jù)我在實(shí)際生活及internet網(wǎng)絡(luò)上觀察，如今大部分學(xué)校的學(xué)生信息管理以及教務(wù)管理都是由教務(wù)科的干事手工操作，不僅費(fèi)時(shí)費(fèi)力，還不利于資料的處理增刪，查詢等也很麻煩。此種作法工作效率低，易出錯(cuò)，又浪費(fèi)了人力資源。就拿我來說，在益陽教育學(xué)院就是在教務(wù)科工作，絕大多數(shù)的學(xué)生的資料管理以及教務(wù)成績(jī)管理查詢都是由我手工完成，不是由計(jì)算機(jī)來處理操作。很久以來我就想開發(fā)一套教學(xué)管理自動(dòng)化軟件，這樣才能做到事半功倍，利于學(xué)校的工作流程。這次畢業(yè)設(shè)計(jì)的研究課題的特點(diǎn)是我在教務(wù)科的日常工作中積累不少經(jīng)驗(yàn)而做成的，并不是閉門造車，能夠解決實(shí)際工作中產(chǎn)生的各類問題。這兩個(gè)子系統(tǒng)就是按照我平時(shí)在工作中的流程設(shè)計(jì)而成的。就拿學(xué)生信息管理子系統(tǒng)來說，從一個(gè)學(xué)生的基本資料輸入進(jìn)數(shù)據(jù)庫-他（她）的獎(jiǎng)勵(lì)經(jīng)歷-他（她）的處罰經(jīng)歷-他（她）的轉(zhuǎn)學(xué)或復(fù)學(xué)、休學(xué)等情況-學(xué)生的個(gè)人信息查詢修改等，整個(gè)過程可以說是一氣呵成，聯(lián)系緊密，如果一個(gè)沒有從事過此類工作的同學(xué)是不可能把工作經(jīng)驗(yàn)融入到系統(tǒng)設(shè)計(jì)中并做出整個(gè)系統(tǒng)來的。當(dāng)然做為一個(gè)開放教育本科的學(xué)生，接受教育培訓(xùn)的機(jī)會(huì)不是很多，大部分靠自我摸索，所以我認(rèn)為這個(gè)系統(tǒng)肯定存在著不足之處，比如說在教務(wù)管理子系統(tǒng)中有些功能就只能等到期末時(shí)才能看到最終效果，這肯定是不對(duì)的，有待于以后改進(jìn)。本課題要達(dá)到的設(shè)計(jì)目標(biāo)：能夠?qū)崿F(xiàn)學(xué)生信息管理子系統(tǒng)的大部分管理功能（增加新生；學(xué)生的轉(zhuǎn)學(xué)、復(fù)學(xué)、休學(xué)；獎(jiǎng)勵(lì)情況；處罰情況；學(xué)生個(gè)人信息查詢修改）；能夠?qū)崿F(xiàn)教務(wù)管理子系統(tǒng)的大部分管理功能（本子系統(tǒng)通過密碼確認(rèn)后，可進(jìn)入不同管理頁面，分為教務(wù)科，教師，學(xué)生三個(gè)不同管理頁面，其中教務(wù)科管理頁面可以通過教師提交的申請(qǐng)新課、申請(qǐng)刪除舊課、申請(qǐng)修改舊課資料的要求，并分配教室和上課時(shí)間等課程資源，能夠?qū)崿F(xiàn)選課結(jié)果查詢管理，以及期末成績(jī)單的管理；教師管理頁面可以申請(qǐng)?jiān)鲩_新的課程、刪除舊的課程、修改已有的課程信息等；同時(shí)在界面初始化時(shí)，可列出可選的課程列表，單擊課程列表時(shí)，顯示相應(yīng)課程的學(xué)生名單和成績(jī)單輸入表來；學(xué)生管理頁面可以進(jìn)行選課操作、查詢自己所選課程的成績(jī)及這門課程的最高分、平均分、最低分等成績(jī)相關(guān)信息。）第三章 實(shí)際中要解決的幾個(gè)問題：教學(xué)管理子系統(tǒng)要解決的是1、是數(shù)據(jù)庫設(shè)計(jì)問題，因后臺(tái)數(shù)據(jù)庫是Delphi 6.0自身所攜帶的interbase 6.0，前臺(tái)的軟件設(shè)計(jì)平臺(tái)與后臺(tái)數(shù)據(jù)庫的聯(lián)結(jié)相對(duì)而言比較緊密，在設(shè)計(jì)中我先構(gòu)思出兩個(gè)子系統(tǒng)的數(shù)據(jù)流程圖，再根據(jù)圖構(gòu)思出大概的實(shí)體-關(guān)系模型。成 績(jī)學(xué)生選課教務(wù)科批準(zhǔn)每學(xué)期時(shí)間和教室安排課程基本信息修改申 請(qǐng)各課期末成績(jī)課程清單選課結(jié)果課程設(shè)置信 息課程基本信 息成績(jī)單課程學(xué)生名單學(xué)生課表課程刪除申請(qǐng)課程增加申請(qǐng)第一步：先構(gòu)思它的數(shù)據(jù)流程圖：第二步：根據(jù)上列的數(shù)據(jù)流程圖列出數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)，這是數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)的基礎(chǔ)。學(xué) 生教 師M:nNnNMMNNNNNnn 選 課N:1N:1 講 課 學(xué)生成績(jī)1:N成績(jī)單課 程 課程成績(jī) 第三步：便可以構(gòu)造后臺(tái)數(shù)據(jù)庫的數(shù)據(jù)表了：根據(jù)上面所設(shè)計(jì)出來的E-R圖，可以知道要有3個(gè)基本信息表：教師信息、學(xué)生信息、課程信息。其中，教師信息和學(xué)生信息在實(shí)際系統(tǒng)中是從其它信息管理系統(tǒng)的數(shù)據(jù)表中直接讀取。學(xué)生的選課信息需要用1個(gè)表來單獨(dú)保存。由于每學(xué)期期末前都要進(jìn)行選課。因此選課結(jié)束后要將這個(gè)表的內(nèi)容及時(shí)保存到成績(jī)單數(shù)據(jù)表中。同時(shí)如上所述，使用本子系統(tǒng)的不僅是教務(wù)科的管理干事和教師，還要每個(gè)學(xué)生都能登錄到選課系統(tǒng)進(jìn)行課程的選擇及成績(jī)的查詢。因此，需要對(duì)不同的登錄人員進(jìn)行密碼的認(rèn)證。所以需要八個(gè)數(shù)據(jù)表：用戶密碼表、成績(jī)信息表、教師個(gè)人信息表、學(xué)生個(gè)人信息表、課程信息表、課程狀態(tài)代碼表、選課結(jié)果信息表、計(jì)數(shù)信息表等八個(gè)數(shù)據(jù)表。在計(jì)數(shù)信息表中，F(xiàn)代表成績(jī)記錄編號(hào)；K代表課程編號(hào)；X代表選課編號(hào)；在課程狀態(tài)代碼表中，0代表增加新課；1代表申請(qǐng)刪除舊課；2代表申請(qǐng)修改課程信息；3代表可選（激活）；4代表等待課程安排；5代表課程已被刪除；6代表教務(wù)科拒絕老師的申請(qǐng)；2、是前臺(tái)設(shè)計(jì)平臺(tái)，它是對(duì)后臺(tái)數(shù)據(jù)庫的數(shù)據(jù)表進(jìn)行操作（下為教師管理界面）（圖1）學(xué)生管理界面：分為選課操作子界面及查詢成績(jī)子界面。（圖2）教務(wù)管理界面：分成審批設(shè)置、分配課程資源、查詢管理選課結(jié)果、期末成績(jī)表四個(gè)子界面。（圖3）上面三個(gè)管理界面右邊的是后臺(tái)數(shù)據(jù)庫，通過Delphi 6.0的控件Database、Table、Query、DataSource實(shí)現(xiàn)與后臺(tái)數(shù)據(jù)庫的數(shù)據(jù)表的連接，通過界面控制實(shí)現(xiàn)對(duì)數(shù)據(jù)庫中的數(shù)據(jù)表的增、刪、修改等操作來達(dá)到管理的目的。學(xué)生信息管理子系統(tǒng)要解決的也是1、后臺(tái)數(shù)據(jù)庫:先要構(gòu)思出整個(gè)的數(shù)據(jù)流程圖，再根據(jù)數(shù)據(jù)流程圖來進(jìn)行E-R圖的設(shè)計(jì)，在此基礎(chǔ)上最后進(jìn)行實(shí)質(zhì)性的工作：數(shù)據(jù)庫中數(shù)據(jù)表的字段的設(shè)計(jì)，才能在前臺(tái)軟件設(shè)計(jì)中依照Delphi 6.0中的數(shù)據(jù)表控件Database、Table、Query、DataSource對(duì)后臺(tái)數(shù)據(jù)庫中的數(shù)據(jù)表進(jìn)行操作，最終實(shí)現(xiàn)功能。數(shù)據(jù)流程圖如下：轉(zhuǎn)系、休學(xué)、復(fù)學(xué)、退學(xué)、畢業(yè)學(xué)生統(tǒng)計(jì)記 錄處分記錄獎(jiǎng)勵(lì)記錄學(xué)籍變更記錄獎(jiǎng)學(xué)金評(píng)定解除處分處 罰教務(wù)處學(xué)生個(gè)人信息入取名單 個(gè)人信息根據(jù)數(shù)據(jù)流程圖，可以知道學(xué)生信息管理子系統(tǒng)所需的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：學(xué)生：學(xué)號(hào)、姓名、性別、生日、籍貫、所在院系、所在班級(jí)處罰記錄：記錄號(hào)、級(jí)別、處罰對(duì)象、記錄時(shí)間、詳細(xì)描述、是否生效獎(jiǎng)勵(lì)記錄：記錄號(hào)、級(jí)別，處罰對(duì)象、記錄時(shí)間、詳細(xì)描述學(xué)籍變更記錄：記錄號(hào)、變更情況、記錄對(duì)象、記錄時(shí)間、詳細(xì)描述而外部數(shù)據(jù)支持：班級(jí)：班級(jí)編號(hào)、班級(jí)名稱、所屬院系院系：代碼、名稱E-R(實(shí)體-關(guān)系模型)：是數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)常用的方法。班級(jí)1：N院系1:N1:N處分記錄學(xué)籍變更記錄1:N1:N1：N1:N獎(jiǎng)勵(lì)記錄學(xué)生根據(jù)上列的E-R圖，可以基本設(shè)計(jì)出數(shù)據(jù)庫中的十個(gè)數(shù)據(jù)表：學(xué)生個(gè)人信息表、學(xué)籍變更信息表、獎(jiǎng)勵(lì)信息表、處罰記錄信息表、院系信息表、班級(jí)信息表、學(xué)籍變動(dòng)代碼表、獎(jiǎng)勵(lì)等級(jí)代碼表、處罰等級(jí)代碼表、計(jì)數(shù)保存表。在這十個(gè)數(shù)據(jù)表中學(xué)籍變更代碼表中：0代表轉(zhuǎn)系、1代表休學(xué)、2代表復(fù)學(xué)、3代表退學(xué)、4代表畢業(yè)。獎(jiǎng)勵(lì)級(jí)別代碼表中：0代表校特等獎(jiǎng)學(xué)金、1代表校一等獎(jiǎng)獎(jiǎng)學(xué)金、2代表校二等獎(jiǎng)獎(jiǎng)學(xué)金、3代表校三等獎(jiǎng)獎(jiǎng)學(xué)金、4代表系一等獎(jiǎng)獎(jiǎng)學(xué)金、5代表系二等獎(jiǎng)獎(jiǎng)學(xué)金、6代表系三等獎(jiǎng)獎(jiǎng)學(xué)金。處罰級(jí)別代碼中：0代表警告、1代表嚴(yán)重警告、2代表記過、3代表記大過、4代表開除。2、前臺(tái)管理界面：新生入數(shù)據(jù)庫的子界面，可以增加新生、刪除學(xué)生記錄、修改學(xué)生記錄。教師信息數(shù)據(jù)分配教師號(hào)招聘新教師崗位調(diào)整人事變動(dòng)記錄人事科個(gè)人信息查詢教師辭職根據(jù)數(shù)據(jù)流程圖，列出數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：?jiǎn)T工信息：人事變動(dòng)：部門設(shè)置：N:1E-R(實(shí)體圖)：是數(shù)據(jù)邏輯結(jié)構(gòu)設(shè)計(jì)的基礎(chǔ)。N:1系 別教 師人事變動(dòng)記錄 變動(dòng)時(shí)間1:1再根據(jù)實(shí)體圖，設(shè)計(jì)出數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)：?jiǎn)T工個(gè)人信息表、人事變動(dòng)記錄表、受教育程序表、職務(wù)代碼表、人事變動(dòng)代碼表、計(jì)數(shù)器表、部門信息表等七個(gè)表?？记诠芾碜酉到y(tǒng)：月度員工考勤統(tǒng)計(jì)表教師出勤記錄記錄出勤時(shí) 間數(shù)據(jù)流圖：教師得出各種統(tǒng)計(jì)數(shù)據(jù)表來請(qǐng)假、值班、出差記錄 請(qǐng)假、值班、出差 請(qǐng)假、 值班、出差考勤科管理人員上下班時(shí)間安排考勤員人事科審批根據(jù)數(shù)據(jù)流圖：知道子系統(tǒng)需要以下數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：出勤記錄：請(qǐng)假記錄：加班記錄：出差記錄：月度考勤統(tǒng)計(jì)：人員信息：部門設(shè)置：得出E-R圖來：教 師N:1N:1N:1N:1N:1加班記錄請(qǐng)假記錄月度考勤統(tǒng) 計(jì)出勤記錄出差記錄根據(jù)E-R圖：知道系統(tǒng)需要以下五個(gè)數(shù)據(jù)表：出勤記錄表；出差記錄表；加班記錄表；請(qǐng)假記錄表；月度考勤統(tǒng)計(jì)表；其中計(jì)數(shù)器表中的N為班次安排編號(hào)，A為出勤記錄編號(hào)，O為加班記錄編號(hào)，L為請(qǐng)假記錄編號(hào)，E為出差記錄編號(hào)，S為考勤統(tǒng)計(jì)編號(hào)；第五章 系統(tǒng)實(shí)現(xiàn)技術(shù)：分模塊地描述系統(tǒng)各部分的實(shí)現(xiàn)方法：主界面：unit student;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, DBTables, StdCtrls, Menus;type TForm2 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N7: TMenuItem; N5: TMenuItem; N8: TMenuItem; N6: TMenuItem; N9: TMenuItem; GroupBox1: TGroupBox; Label2: TLabel; Edit1: TEdit; StatusBar1: TStatusBar; Label1: TLabel; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; Label3: TLabel; Label4: TLabel; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure N10Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end;var Form2: TForm2; info:string;implementationuses teach, stinfo, teacher, use, copyrights, teacherlogin, studentlogin, jiaowuke, jiaowu, studentsys, studentsystem, jiaohelp, renhelp, kaoqi, kaohelp;$R *.dfmprocedure TForm2.N2Click(Sender: TObject);begin if form2.Edit1.Text = then showmessage(請(qǐng)先輸入學(xué)校名稱) else begin form2.Hide ; form7.show; end;end;procedure TForm2.N3Click(Sender: TObject);begin if form2.Edit1.Text = then showmessage(請(qǐng)先輸入學(xué)校名稱) else begin form2.Hide ; form3.show; end;end;procedure TForm2.N4Click(Sender: TObject);begin if form2.Edit1.Text = then showmessage(請(qǐng)先輸入學(xué)校名稱) else begin form2.hide; form4.show; end; end;procedure TForm2.N8Click(Sender: TObject);begin if form2.Edit1.Text = then showmessage(請(qǐng)先輸入學(xué)校名稱) else form5.show;end;procedure TForm2.N9Click(Sender: TObject);begin if form2.Edit1.Text = then showmessage(請(qǐng)先輸入學(xué)校名稱) else form6.show;end;procedure TForm2.Edit1Change(Sender: TObject);begin info:=form2.Edit1.Text ; form2.Caption :=info+ 學(xué)校管理系統(tǒng); form7.Caption :=info+學(xué)校學(xué)生個(gè)人情況管理系統(tǒng); form3.caption :=info+學(xué)校教學(xué)管理系統(tǒng)進(jìn)入頁面; form4.Caption :=info+學(xué)校教師人事管理系統(tǒng); form6.Caption:=此管理應(yīng)用系統(tǒng)版權(quán)說明; form5.Caption:=info+學(xué)校學(xué)生個(gè)人情況系統(tǒng)使用幫助; form8.caption:=info+教師課程管理應(yīng)用系統(tǒng)登錄 ; form9.caption:=info+學(xué)生選課管理應(yīng)用系統(tǒng)登錄; form10.caption:=info+教務(wù)科課程調(diào)度應(yīng)用系統(tǒng)登錄; form11.caption:=info+教務(wù)科課程調(diào)度應(yīng)用系統(tǒng); form12.caption:=info+教師課程管理應(yīng)用系統(tǒng); form13.caption:=info+學(xué)生選課管理應(yīng)用系統(tǒng); form15.caption:=info+學(xué)校教務(wù)科管理系統(tǒng)使用幫助; form16.caption:=info+學(xué)校人事管理系統(tǒng)使用幫助; form22.caption:=info+學(xué)校教師考勤管理系統(tǒng); form23.caption:=info+學(xué)校教師考勤管理系統(tǒng)使用幫助;end;procedure TForm2.N10Click(Sender: TObject);begin if form2.Edit1.Text = then showmessage(請(qǐng)先輸入學(xué)校名稱) else form15.show;end;procedure TForm2.N11Click(Sender: TObject);begin if form2.Edit1.Text = then showmessage(請(qǐng)先輸入學(xué)校名稱) else form16.show;end;procedure TForm2.N7Click(Sender: TObject);begin if form2.Edit1.Text = then showmessage(請(qǐng)先輸入學(xué)校名稱) else form22.show;end;procedure TForm2.N13Click(Sender: TObject);begin if form2.Edit1.Text = then showmessage(請(qǐng)先輸入學(xué)校名稱) else form23.show; end;procedure TForm2.N12Click(Sender: TObject);begin close;end;procedure TForm2.FormCreate(Sender: TObject);beginend;end.1. 學(xué)生學(xué)籍管理子系統(tǒng)：進(jìn)入學(xué)生學(xué)籍信管理系統(tǒng)之后，就可以出現(xiàn)一個(gè)界面：學(xué)生情況變動(dòng)表中提交模塊：if T_stud_info_1.RecordCount 0 then /判斷輸入的學(xué)號(hào)是否存在begin T_counter_c.Open;/如果存在，開始追加記錄counter:=T_counter)cCOUNTER_VALUE; /獲取記錄值Inc(counter); /增加記錄值T_counter_c.Edit; /編緝記錄值T_counter_cCOUNTER_VALUE:=counter;/寫入增加記錄值到學(xué)籍變動(dòng)表T_counter_c.Post;/提交T_counter_c.Open; /打開學(xué)籍變動(dòng)表學(xué)籍管理子系統(tǒng)的源代碼如下：unit stinfo;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask, Buttons;type TForm7 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet4: TTabSheet; TabSheet5: TTabSheet; Database1: TDatabase; T_student: TTable; DS_student: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Label1: TLabel; T_stud_info_1: TTable; DS_stud_info_1: TDataSource; DS_class_info_1: TDataSource; DS_depart_info_1: TDataSource; T_class_info_1: TTable; T_depart_info_1: TTable; T_counter_c: TTable; T_change: TTable; i_stud_id_1: TMaskEdit; GroupBox1: TGroupBox; Label2: TLabel; Label3: TLabel; Label4: TLabel; DBText1: TDBText; DBText2: TDBText; DBText3: TDBText; i_change: TRadioGroup; i_descrip_1: TMemo; Label5: TLabel; Button1: TButton; Button2: TButton; SpeedButton2: TSpeedButton; Label6: TLabel; i_stud_id_4: TMaskEdit; Label7: TLabel; i_stud_id_2: TMaskEdit; GroupBox2: TGroupBox; Label8: TLabel; Label9: TLabel; Label10: TLabel; DBText4: TDBText; DBText5: TDBText; DBText6: TDBText; i_reward_level: TRadioGroup; Label11: TLabel; i_descrip_2: TMemo; Button3: TButton; Button4: TButton; Label12: TLabel; i_stud_id_3: TMaskEdit; GroupBox3: TGroupBox; Label13: TLabel; Label14: TLabel; Label15: TLabel; DBText7: TDBText; DBText8: TDBText; DBText9: TDBText; i_punish_level: TRadioGroup; Label16: TLabel; i_descrip_3: TMemo; Button5: TButton; Button6: TButton; T_counter_r: TTable; T_counter_p: TTable; T_punish: TTable; T_reward: TTable; T_stud_info_2: TTable; DS_stud_info_2: TDataSource; T_class_info_2: TTable; DS_class_info_2: TDataSource; T_depart_info_2: TTable; DS_depart_info_2: TDataSource; T_stud_info_3: TTable; DS_stud_info_3: TDataSource; DS_class_info_3: TDataSource; DS_depart_info_3: TDataSource; T_class_info_3: TTable; T_depart_info_3: TTable; GroupBox4: TGroupBox; Label17: TLabel; Label18: TLabel; DBRadioGroup1: TDBRadioGroup; DBEdit1: TDBEdit; Label19: TLabel; Label20: TLabel; DBEdit2: TDBEdit; DBEdit3: TDBEdit; Label21: TLabel; Label22: TLabel; DBLookupComboBox1: TDBLookupComboBox; DBLookupComboBox2: TDBLookupComboBox; Button7: TButton; Button8: TButton; Label23: TLabel; DBGrid2: TDBGrid; Label24: TLabel; DBGrid3: TDBGrid; Label25: TLabel; DBGrid4: TDBGrid; GroupBox5: TGroupBox; GroupBox6: TGroupBox; GroupBox7: TGroupBox; Label26: TLabel; DBLookupComboBox3: TDBLookupComboBox; Label27: TLabel; DBMemo1: TDBMemo; Button9: TButton; Button10: TButton; Label28: TLabel; DBLookupComboBox4: TDBLookupComboBox; Label29: TLabel; DBMemo2: TDBMemo; Button11: TButton; Button12: TButton; Label30: TLabel; DBLookupComboBox5: TDBLookupComboBox; Label31: TLabel; DBRadioGroup2: TDBRadioGroup; DBMemo3: TDBMemo; Button13: TButton; Button14: TButton; T_stud_info_4: TTable; DS_stud_info_4: TDataSource; T_class_info_4: TTable; DS_class_info_4: TDataSource; T_depart_info_4: TTable; DS_depart_info_4: TDataSource; T_change_4: TTable; DS_change_4: TDataSource; T_change_code_4: TTable; DS_change_code_4: TDataSource; T_reward_4: TTable; DS_reward_4: TDataSource; T_reward_level_4: TTable; DS_reward_level_4: TDataSource; T_punish_4: TTable; DS_punish_4: TDataSource; T_punish_level_4: TTable; DS_punish_level_4: TDataSource; SpeedButton3: TSpeedButton; StatusBar1: TStatusBar; procedure FormCreate(Sender: TObject); procedure i_stud_id_1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure i_stud_id_2Change(Sender: TObject); procedure i_stud_id_3Change(Sender: TObject); procedure i_stud_id_4Change(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); private Private declarations public Public declarations end;var Form7: TForm7;implementationuses student, ipthelp;$R *.dfmprocedure TForm7.FormCreate(Sender: TObject);begin T_student.Open ; DBGrid1.Columns 0.Width :=64; DBGrid1.Columns 1.Width :=64; DBGrid1.Columns 2.Width :=64; DBGrid1.Columns 3.Width :=64; DBGrid1.Columns 4.Width :=64; DBGrid1.Columns 5.Width :=64; DBGrid1.Columns 6.Width :=100;end;procedure TForm7.i_stud_id_1Change(Sender: TObject);begin T_stud_info_1.Filter :=ID=+i_stud_id_1.Text+; T_stud_info_1.Filtered :=true; T_stud_info_1.Open ; T_class_info_1.Open; T_depart_info_1.Open;end;procedure TForm7.Button1Click(Sender: TObject);begin i_stud_id_1.Text:=; /學(xué)號(hào)輸入框清空 i_change.ItemIndex :=0; /學(xué)籍變更復(fù)位到”轉(zhuǎn)系“ i_descrip_1.Clear ; /描述框清空end;procedure TForm7.Button2Click(Sender: TObject);var counter:smallint;begin T_stud_info_1.Open; if T_stud_info_1.RecordCount 0 then /判斷輸入的學(xué)號(hào)是否存在 begin T_counter_c.Open; /如果存在，開始追加記錄 counter:=T_counter_cCOUNTER_VALUE; Inc(counter); T_counter_c.Edit ; T_counter_cCOUNTER_VALUE:=counter; T_counter_c.Post; T_change.Open; T_change.appendrecord(counter,i_stud_id_1.Text,i_change.itemindex,now,i_descrip_1.Text); button1click(nil); end else Application.messagebox(請(qǐng)確認(rèn)輸入的學(xué)號(hào)是否正確,錯(cuò)誤,MB_OK);end;procedure TForm7.SpeedButton2Click(Sender: TObject);begin form7.Hide; form2.show;end;procedure TForm7.SpeedButton1Click(Sender: TObject);begin form1.show;end;procedure TForm7.Button5Click(Sender: TObject);var counter:smallint;begin T_stud_info_3.Open; if T_stud_info_3.RecordCount0 then /確認(rèn)學(xué)號(hào)是否存在 begin T_counter_p.Open; counter:=T_counter_pCOUNTER_VALUE; Inc(counter); /累加處罰記錄計(jì)數(shù)器 T_counter_p.Edit; T_counter_pCOUNTER_VALUE:=counter; T_counter_p.Post; /修改計(jì)數(shù)器值 T_punish.Open; /打開處罰數(shù)據(jù)表 T_punish.AppendRecord(counter, i_stud_id_3.text, i_punish_level.ItemIndex, Now, True, i_descrip_3.text);/添加數(shù)據(jù)到處罰數(shù)據(jù)表 Button6Click(nil); end else Application.MessageBox(請(qǐng)確認(rèn)輸入的學(xué)號(hào)是否正確！, 錯(cuò)誤, MB_OK);end;procedure TForm7.Button6Click(Sender: TObject);begin i_stud_id_3.Text:=; i_punish_level.ItemIndex:=0; i_descrip_3.Clear; end;procedure TForm7.Button3Click(Sender: TObject);varcounter:smallint;begin T_stud_info_2.Open; if T_stud_info_2.RecordCount0 then /確認(rèn)學(xué)號(hào)是否存在 begin T_counter_r.Open; counter:=T_counter_rCOUNTER_VALUE; Inc(counter); /累加獎(jiǎng)勵(lì)記錄計(jì)數(shù)器 T_counter_r.Edit; T_counter_rCOUNTER_VALUE:=counter; T_counter_r.Post; T_reward.Open; T_reward.AppendRecord(counter, i_stud_id_2.text, i_reward_level.ItemIndex, Now, i_descrip_2.text); Button4Click(nil); end else Application.MessageBox(請(qǐng)確認(rèn)輸入的學(xué)號(hào)是否正確！, 錯(cuò)誤, MB_OK);end;procedure TForm7.Button4Click(Sender: TObject);begin i_stud_id_2.Text:=; i_reward_level.ItemIndex:=0; i_descrip_2.Clear;end;procedure TForm7.i_stud_id_2Change(Sender: TObject);begin T_stud_info_2.Filter :=ID=+i_stud_id_2.Text+; T_stud_info_2.Filtered :=