無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 本文配套程序下載地址 ： 無憂無慮畢設(shè)網(wǎng) ()-大學(xué)生畢業(yè)設(shè)計站 ,免費畢業(yè)設(shè)計論文 ,無憂無慮畢設(shè)網(wǎng) 大學(xué)生畢業(yè)設(shè)計 ,出售各類畢業(yè)設(shè)計源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費視頻教程 ,我們將竭誠為您服務(wù)！ 基于 C/S 模式的高校 學(xué)生管理子系統(tǒng) 及教務(wù)管理子系統(tǒng) （學(xué)校管理系統(tǒng)中的兩個子系統(tǒng)） 題 目：基于 C/S模式的高校學(xué)生管理子系統(tǒng)及教務(wù)管理子系統(tǒng) 設(shè)計者：曹 力 平 臺： Delphi 6.0 數(shù)據(jù)庫： Delphi自身帶的 interbase 6.0、 SQL Explorer 學(xué) 號： 班 級： 02 級春班 學(xué) 校：益陽廣播電視大學(xué) 專 業(yè)：計算機科學(xué)與技術(shù)（開放本科） 日 期： 2004年 3月 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 目 錄： 第一章 引言 （頁碼 3） 本課題的研究意義；本論文的目的、內(nèi)容及作者的主要貢獻； 第二章 研究現(xiàn)狀及設(shè)計目標(biāo)： (頁碼 3 頁碼 4) 相近研究課題的特點及優(yōu)缺點分析；現(xiàn)行研究存在的問題及解決方法；本課題要達到的設(shè)計目標(biāo)； 第三章 實際中要解決的幾個問題： (頁碼 4 頁碼 11) 研究設(shè)計中要解決的問題；具體實現(xiàn)中采用的關(guān)鍵技術(shù)及復(fù)雜性分析； 第四章 系統(tǒng)結(jié)構(gòu)與模型：（頁碼 11-頁碼 12） 設(shè)計實現(xiàn)的策略和算法描述；編程模型及數(shù)據(jù)結(jié)構(gòu)； 第五章 系統(tǒng)實現(xiàn)技術(shù)：（頁碼 12） 分模塊地描述系統(tǒng)各部分的實現(xiàn)方法；程序流程； 第六章 性能測試與分析：（頁碼 13） 測試實例（測試集）的研究與選擇；測試環(huán)境與測試條件；實例測試（表格與曲線）；性能分析； 第七章 結(jié)束語及參考文獻：（頁碼 13） 摘 要（ Abstract） ： 隨著信息技術(shù)的發(fā)展，高校學(xué)生管理工作以及教務(wù)管理工作正在以校園網(wǎng)為平臺、采用計算機和數(shù)據(jù)庫等現(xiàn)代化技術(shù)不斷提高管理水平。研究基于 /的高校學(xué)生管理子系統(tǒng)的學(xué)籍管理、學(xué)生相關(guān)管理、學(xué)生信息查詢 和統(tǒng)計等功能以及基于 C/S的高校教務(wù)科管理子系統(tǒng)的教師申請課程、登記成績；教務(wù)科通過申請新課；學(xué)生查詢成績無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 等功能。 關(guān) 鍵 詞 (keywords)： /； interbase； delphi 6.0；學(xué)生管理；教務(wù)管理；數(shù)據(jù)庫； 第一章 引 言： 本課題研究的意義： / (客戶機 /服務(wù)器 )，簡稱 /。 /模式是 20 世紀(jì) 80 年代出現(xiàn)并至今作為主流應(yīng)用的一種開發(fā)模式，所謂的 模式實際上是一種“邏輯”概念，即將整個系統(tǒng)在邏輯上劃分成前端客戶進程和后臺服務(wù)器進程，兩者通過 網(wǎng)絡(luò)連接。前端的客戶應(yīng)用程序主要是顯示界面、與用戶進行交互，而后臺的服務(wù)器進程主要是負(fù)責(zé)進行數(shù)據(jù)處理，將處理后的結(jié)果返回給用戶，而且服務(wù)器所進行的工作對客戶應(yīng)用程序來說是完全透明的，在局域網(wǎng)絡(luò)上傳輸?shù)氖钦Z句和處理后的結(jié)果。這種模式的優(yōu)點主要體現(xiàn)在以下幾點： (1)交互性好，速度快，適合于系統(tǒng)中大量數(shù)據(jù)的輸入輸出操作； (2)能夠提供數(shù)據(jù)和服務(wù)的無縫集成。通過 結(jié)構(gòu)的 (數(shù)據(jù)庫管理系統(tǒng) ),易于實現(xiàn)一個系統(tǒng)中原有數(shù)據(jù)與應(yīng)用程序的集成； (3)良好的開放性和易擴充性，客戶端及其功能的添加、刪除和更新都 不會對整個系統(tǒng)產(chǎn)生影響。 本論文研究的目的：在畢業(yè)設(shè)計中，已經(jīng)實現(xiàn)了一個基于 C/S模式的高校學(xué)生信息管理子系統(tǒng)及教務(wù)管理子系統(tǒng)，所以在本論文中詳細(xì)闡明了兩個子系統(tǒng)各自所實現(xiàn)的各項功能，意在說明在當(dāng)今信息社會中，高校的管理工作應(yīng)向計算機系統(tǒng)化轉(zhuǎn)變，才能省去大量的手工勞動，提高工作效率。 第二章 研究現(xiàn)狀及設(shè)計目標(biāo)： 相近研究課題的特點及優(yōu)缺點分析：據(jù)我在實際生活及 internet網(wǎng)絡(luò)上觀察，如今大部分學(xué)校的學(xué)生信息管理以及教務(wù)管理都是由教務(wù)科的干事手工操作，不僅費時費力，還不利于資料的處理增刪，查詢等也很麻煩。此種作 法工作效率低，易出錯，又浪費了人力資源。就拿我來說，在益陽教育學(xué)院就是在教務(wù)科工作，絕大多數(shù)的學(xué)生的資料管理以及教務(wù)成績無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 管理查詢都是由我手工完成，不是由計算機來處理操作。很久以來我就想開發(fā)一套教學(xué)管理自動化軟件，這樣才能做到事半功倍，利于學(xué)校的工作流程。這次畢業(yè)設(shè)計的研究課題的特點是我在教務(wù)科的日常工作中積累不少經(jīng)驗而做成的，并不是閉門造車，能夠解決實際工作中產(chǎn)生的各類問題。這兩個子系統(tǒng)就是按照我平時在工作中的流程設(shè)計而成的。就拿學(xué)生信息管理子系統(tǒng)來說，從一個學(xué)生的基本資料輸入進數(shù)據(jù)庫 -他（她）的獎勵經(jīng)歷 -他（她）的處罰經(jīng)歷 -他（她）的轉(zhuǎn)學(xué)或復(fù)學(xué)、休學(xué)等情況 -學(xué)生的個人信息查詢修改等，整個過程可以說是一氣呵成，聯(lián)系緊密，如果一個沒有從事過此類工作的同學(xué)是不可能把工作經(jīng)驗融入到系統(tǒng)設(shè)計中并做出整個系統(tǒng)來的。當(dāng)然做為一個開放教育本科的學(xué)生，接受教育培訓(xùn)的機會不是很多，大部分靠自我摸索，所以我認(rèn)為這個系統(tǒng)肯定存在著不足之處，比如說在教務(wù)管理子系統(tǒng)中有些功能就只能等到期末時才能看到最終效果，這肯定是不對的，有待于以后改進。 本課題要達到的設(shè)計目標(biāo)：能夠?qū)崿F(xiàn)學(xué)生信息管理子系統(tǒng)的大部分管理功能（增加新生；學(xué)生的轉(zhuǎn) 學(xué)、復(fù)學(xué)、休學(xué)；獎勵情況；處罰情況；學(xué)生個人信息查詢修改）；能夠?qū)崿F(xiàn)教務(wù)管理子系統(tǒng)的大部分管理功能（本子系統(tǒng)通過密碼確認(rèn)后，可進入不同管理頁面，分為教務(wù)科，教師，學(xué)生三個不同管理頁面，其中教務(wù)科管理頁面可以通過教師提交的申請新課、申請刪除舊課、申請修改舊課資料的要求，并分配教室和上課時間等課程資源，能夠?qū)崿F(xiàn)選課結(jié)果查詢管理，以及期末成績單的管理；教師管理頁面可以申請增開新的課程、刪除舊的課程、修改已有的課程信息等；同時在界面初始化時，可列出可選的課程列表，單擊課程列表時，顯示相應(yīng)課程的學(xué)生名單和成績單輸入表 來；學(xué)生管理頁面可以進行選課操作、查詢自己所選課程的成績及這門課程的最高分、平均分、最低分等成績相關(guān)信息。） 第三章 實際中要解決的幾個問題： 教學(xué)管理子系統(tǒng)要解決的是 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 1、是數(shù)據(jù)庫設(shè)計問題，因后臺數(shù)據(jù)庫是 Delphi 6.0自身所攜帶的 interbase 6.0，前臺的軟件設(shè)計平臺與后臺數(shù)據(jù)庫的聯(lián)結(jié)相對而言比較緊密，在設(shè)計中我先構(gòu)思出兩個子系統(tǒng)的數(shù)據(jù)流程圖，再根據(jù)圖構(gòu)思出大概的實體 -關(guān)系模型。 第一步：先構(gòu)思它的數(shù)據(jù)流程圖： 第二步：根據(jù)上列的數(shù)據(jù)流程圖列出數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計，這是數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計的基礎(chǔ)。 選 課 講 課 學(xué)生成績 課程增 加申請 課程基本 信 息 課程基本信息修改申 請 課程刪 除申請 教務(wù)科批準(zhǔn) 課程設(shè)置 信 息 每 學(xué) 期時 間 和教 室 安排 學(xué)生課表 選課結(jié)果 課程學(xué) 生名單 各課期末成績 成 績 成績單 課程 清單 學(xué)生選課 教 師 學(xué) 生 N:1 N:1 M:nNnNMMNNNNNnn 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 課程成績 第三步：便可以構(gòu)造后臺數(shù)據(jù)庫的數(shù)據(jù)表了：根據(jù)上面所設(shè)計出來的 E-R圖，可以知道要有3個基本信息表：教師信息、學(xué)生信息、課程信息。其中，教師信息和學(xué)生信息在實際系統(tǒng)中是從其它信息管理系統(tǒng)的數(shù)據(jù)表中直接讀取。學(xué)生的選課信息需要用 1個表來單獨保存。由于每學(xué)期期末前都要進行選課。因此選課結(jié)束后要將這個表的內(nèi)容及時保存到成績單數(shù)據(jù)表中。同時如上所述，使用本子系統(tǒng)的不僅是教務(wù)科的管理干事和教師，還要每個學(xué)生都能登錄到選課系統(tǒng)進行課程的選擇及成績的查詢。因此，需要對不同的登錄人員進行密碼的認(rèn)證。所以需要八個數(shù)據(jù)表：用戶密碼表、成績信息表、教師個人信息表、學(xué)生個人信息表、課程信息表 、課程狀態(tài)代碼表、選課結(jié)果信息表、計數(shù)信息表等八個數(shù)據(jù)表。在計數(shù)信息表中， F代表成績記錄編號； K代表課程編號； X代表選課編號；在課程狀態(tài)代碼表中， 0代表增加新課； 1 代表申請刪除舊課； 2代表申請修改課程信息； 3 代表可選（激活）； 4 代表等待課程安排； 5代表課程已被刪除； 6代表教務(wù)科拒絕老師的申請； 2、是前臺設(shè)計平臺，它是對后臺數(shù)據(jù)庫的數(shù)據(jù)表進行操作（下為教師管理界面） 課 程 成績單 1:N 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： （圖 1） 學(xué)生管理界面：分為選課操作子界面及查詢成績子界面。 （圖 2） 教務(wù)管理界面：分成審批設(shè)置、分配課程資源、查詢管理選課結(jié)果、期末成 績表四個子界面。 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： （圖 3） 上面三個管理界面右邊的是后臺數(shù)據(jù)庫，通過 Delphi 6.0的控件 Database、 Table、 Query、DataSource 實現(xiàn)與后臺數(shù)據(jù)庫的數(shù)據(jù)表的連接，通過界面控制實現(xiàn)對數(shù)據(jù)庫中的數(shù)據(jù)表的增、刪、修改等操作來達到管理的目的。 學(xué)生信息管理子系統(tǒng)要解決的也是 1、后臺數(shù)據(jù)庫 :先要構(gòu)思出整個的數(shù)據(jù)流程圖，再根據(jù)數(shù)據(jù)流程圖來進行 E-R圖的設(shè)計，在此基礎(chǔ)上最后進行實質(zhì)性的工作：數(shù)據(jù)庫中數(shù)據(jù)表的字段的設(shè)計，才能在前臺軟件設(shè)計中依照 Delphi 6.0中的數(shù)據(jù)表控件 Database、 Table、 Query、DataSource對后臺數(shù)據(jù)庫中的數(shù)據(jù)表進行操作，最終實現(xiàn)功能。 數(shù)據(jù)流程圖如下： 個人信息 入取 名單 學(xué)生個 人信息 教務(wù)處 轉(zhuǎn)系、休學(xué)、復(fù)學(xué)、退學(xué)、畢業(yè) 獎學(xué)金評定 學(xué) 籍 變更記錄 獎勵 記錄 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 根據(jù)數(shù)據(jù)流程圖，可以知道學(xué)生信息管理子系統(tǒng)所需的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)： 學(xué)生：學(xué)號、姓名、性別、生日、籍貫、所在院系、所在班級 處罰記錄：記錄號、級別、處罰對象、記錄時間、詳細(xì)描述、是否生效 獎勵記錄：記錄號、級別，處罰對象、記錄時間、詳細(xì)描述 學(xué)籍變更記錄：記錄號、 變更情況、記錄對象、記錄時間、詳細(xì)描述 而外部數(shù)據(jù)支持：班級：班級編號、班級名稱、所屬院系 院系：代碼、名稱 E-R(實體 -關(guān)系模型 )：是數(shù)據(jù)庫結(jié)構(gòu)設(shè)計常用的方法。 院系 班級 1： N 1:N 1:N 1:N 學(xué)生 1： N 1:N 1:N 學(xué)籍變更記錄 獎勵記錄 處分記錄 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 根據(jù)上列的 E-R圖，可以基本設(shè)計出數(shù)據(jù)庫中的十個數(shù)據(jù)表： 學(xué)生個人信息表、學(xué)籍變更信息表、獎勵信息表、處罰記錄信息表、院系信息表、班級信息表、學(xué)籍變動代碼表、獎勵等級代碼表、處罰等級代碼表、計數(shù)保存表。在這十個數(shù)據(jù)表中 學(xué)籍變更代碼表中： 0 代表轉(zhuǎn)系、 1代表休學(xué)、 2代 表復(fù)學(xué)、 3代表退學(xué)、 4代表畢業(yè)。 獎勵級別代碼表中： 0 代表校特等獎學(xué)金、 1代表校一等獎獎學(xué)金、 2代表校二等獎獎學(xué)金、3代表校三等獎獎學(xué)金、 4代表系一等獎獎學(xué)金、 5代表系二等獎獎學(xué)金、 6代表系三等獎獎學(xué)金。處罰級別代碼中： 0代表警告、 1代表嚴(yán)重警告、 2代表記過、 3代表記大過、 4代表 開除。 2、前臺管理界面：新生入數(shù)據(jù)庫的子界面，可以增加新生、刪除學(xué)生記錄、修改學(xué)生記錄。 人事科 招聘 新教師 分配教師號 教師信 息數(shù)據(jù) 崗位調(diào)整 人事變 動記錄 教師辭職 個人信息查詢 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 根據(jù)數(shù)據(jù)流程圖，列出數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)： 員工信息： 人事變動： 部門設(shè) 置： E-R(實體圖 )：是數(shù)據(jù)邏輯結(jié)構(gòu)設(shè)計的基礎(chǔ)。 再根據(jù)實體圖，設(shè)計出數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計： 員工個人信息表、人事變動記錄表、受教育程序表、職務(wù)代碼表、人事變動代碼表、計數(shù)器表、部門信息表等七個表。 考勤管理子系統(tǒng)： 數(shù)據(jù)流圖： 請假、值班、出差 請假、 值班、出差 人事變動記錄 教 師 系 別 N:1 N:1 1:1 變動時間 教師 記錄出勤 時 間 教師 出勤 記錄 人事科審批 考勤員 請假、值班、出差 記錄 上 下 班時 間 安排 月 度 員工 考 勤統(tǒng)計表 得出各種統(tǒng)計數(shù)據(jù)表來 考勤科管理人員 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 根據(jù)數(shù)據(jù)流圖：知道子系統(tǒng)需要以下數(shù)據(jù)項和數(shù)據(jù) 結(jié)構(gòu)： 出勤記錄：請假記錄：加班記錄：出差記錄：月度考勤統(tǒng)計：人員信息：部門設(shè)置： 得出 E-R圖來： 根據(jù) E-R圖：知道系統(tǒng)需要以下五個數(shù)據(jù)表： 出勤記錄表；出差記錄表；加班記錄表；請假記錄表；月度考勤統(tǒng)計表；其中計數(shù)器表中的N為班次安排編號， A為出勤記錄編號， O為加班記錄編號， L為請假記錄編號， E為出差記錄編號， S為考勤統(tǒng)計編號； 第五章 系統(tǒng)實現(xiàn)技術(shù)： 分模塊地描述系統(tǒng)各部分的實現(xiàn)方法： 主界面： unit student； 教 師 出勤記錄 N:1 出差記錄 N:1 月度考勤 統(tǒng) 計 N:1 請假記錄 N:1 加班記錄 N:1 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： interface uses 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： end； var Form2: TForm2； info:string； implementation uses teach, stinfo, teacher, use, copyrights, teacherlogin, studentlogin, jiaowuke, jiaowu, studentsys, studentsystem, jiaohelp, renhelp, kaoqi, kaohelp； $R *.dfm procedure TForm2.N2Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(請先輸入學(xué)校名稱 ) else begin form2.Hide ； form7.show； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： end； procedure TForm2.N3Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(請先輸入學(xué)校名稱 ) else begin form2.Hide ； form3.show； end； end； procedure TForm2.N4Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(請先輸入學(xué)校名稱 ) else begin form2.hide； form4.show； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： end； procedure TForm2.N8Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(請先輸入學(xué)校名稱 ) else form5.show； end； procedure TForm2.N9Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(請先輸入學(xué)校名稱 ) else form6.show； end； procedure TForm2.Edit1Change(Sender: TObject)； begin info:=form2.Edit1.Text ； form2.Caption :=info+ 學(xué)校管理系 統(tǒng) ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： form7.Caption :=info+學(xué)校學(xué)生個人情況管理系統(tǒng) ； form3.caption :=info+學(xué)校教學(xué)管理系統(tǒng)進入頁面 ； form4.Caption :=info+學(xué)校教師人事管理系統(tǒng) ； form6.Caption:=此管理應(yīng)用系統(tǒng)版權(quán)說明 ； form5.Caption:=info+學(xué)校學(xué)生個人情況系統(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(請先輸入學(xué)校名稱 ) else 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： form15.show； end； procedure TForm2.N11Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(請先輸入學(xué)校名稱 ) else form16.show； end； procedure TForm2.N7Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(請先輸入學(xué)校名稱 ) else form22.show； end； procedure TForm2.N13Click(Sender: TObject)； begin 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： if form2.Edit1.Text = then showmessage(請先輸入學(xué)校名稱 ) else form23.show； end； procedure TForm2.N12Click(Sender: TObject)； begin close； end； procedure TForm2.FormCreate(Sender: TObject)； begin end； end. 1. 學(xué)生學(xué)籍管理子系統(tǒng)：進入學(xué)生學(xué)籍信管理系統(tǒng)之后，就可以出現(xiàn)一個界面： 學(xué)生情況變動表中提交模塊： if T_stud_info_1.RecordCount 0 then /判斷輸入的學(xué)號是否存在 begin T_counter_c.Open； /如果存在，開始追加記錄 counter:=T_counter)cCOUNTER_VALUE； /獲取記錄值 Inc(counter)； /增加記錄值 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： T_counter_c.Edit； /編緝記錄值 T_counter_cCOUNTER_VALUE:=counter；/寫入增加記錄值到學(xué)籍變動表 T_counter_c.Post； /提交 T_counter_c.Open； /打開學(xué)籍變動表 學(xué)籍管理子系統(tǒng)的源代碼如下： unit stinfo； interface uses 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure Button14Click(Sender: TObject)； private Private declarations public Public declarations end； var Form7: TForm7； implementation uses student, ipthelp； $R *.dfm procedure TForm7.FormCreate(Sender: TObject)； begin T_student.Open ； DBGrid1.Columns 0.Width :=64； DBGrid1.Columns 1.Width :=64； DBGrid1.Columns 2.Width :=64； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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é)號輸入框清空 i_change.ItemIndex :=0； /學(xué)籍變更復(fù)位到”轉(zhuǎn)系“ i_descrip_1.Clear ； /描述框清空 end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure TForm7.Button2Click(Sender: TObject)； var counter:smallint； begin T_stud_info_1.Open； if T_stud_info_1.RecordCount 0 then /判斷輸 入的學(xué)號是否存在 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(請確認(rèn)輸入的學(xué)號是否正確 ,錯誤 ,MB_OK)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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é)號是否存在 begin T_counter_p.Open； counter:=T_counter_pCOUNTER_VALUE； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： Inc(counter)； /累加處罰記錄計數(shù)器 T_counter_p.Edit； T_counter_pCOUNTER_VALUE:=counter； T_counter_p.Post； /修改計數(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(請確認(rèn)輸入的學(xué)號是否正確！ , 錯誤 , 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)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： var counter:smallint； begin T_stud_info_2.Open； if T_stud_info_2.RecordCount0 then /確認(rèn)學(xué)號是否存在 begin T_counter_r.Open； counter:=T_counter_rCOUNTER_VALUE； Inc(counter)； /累加獎勵記錄計數(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(請確認(rèn)輸入的學(xué)號是否正確！ , 錯誤 , MB_OK)； end； procedure TForm7.Button4Click(Sender: TObject)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 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 :=true； T_stud_info_2.Open ； T_class_info_2.Open； T_depart_info_2.Open； end； procedure TForm7.i_stud_id_3Change(Sender: TObject)； begin T_stud_info_3.Filter :=ID=+i_stud_id_3.Text+； T_stud_info_3.Filtered :=true； T_stud_info_3.Open ； T_class_info_3.Open； T_depart_info_3.Open； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： end； procedure TForm7.i_stud_id_4Change(Sender: TObject)； begin T_stud_info_4.Filter:=ID=+i_stud_id_4.Text+； T_stud_info_4.Filtered:=True； T_stud_info_4.Open； T_class_info_4.Open； T_depart_info_4.Open； T_change_4.Open； T_change_code_4.Open； T_reward_4.Open； T_reward_level_4.Open； T_punish_4.Open； T_punish_level_4.Open； end； procedure TForm7.Button7Click(Sender: TObject)； begin T_stud_info_4.Post； /在學(xué)生信息查詢修改確認(rèn)對學(xué)生信息的修改 end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure TForm7.Button8Click(Sender: TObject)； begin T_stud_info_4.Cancel； end； procedure TForm7.Button9Click(Sender: TObject)； begin T_change_4.Post； /在學(xué)生信息查詢修改子界面中確認(rèn)對學(xué)生變更情況的修改 end； procedure TForm7.Button10Click(Sender: TObject)； begin T_change_4.Cancel； end； procedure TForm7.Button11Click(Sender: TObject)； begin T_reward_4.Post； /在學(xué)生信息查詢修改子界面中確認(rèn)對學(xué)生獎勵情況的修改 end； procedure TForm7.Button12Click(Sender: TObject)； begin T_reward_4.Cancel； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure TForm7.Button13Click(Sender: TObject)； begin T_punish_4.Post； /在學(xué)生信息查詢修改子界面中確認(rèn)對學(xué)生懲罰情況的修改 end； procedure TForm7.Button14Click(Sender: TObject)； begin T_punish.Cancel； end； end. 2教務(wù)排課管理子系統(tǒng)： 教師管理子界面：根據(jù)提交申請的不同，分成三種情況區(qū)別對待： 源代碼如下： unit studentsys； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ComCtrls, DB, DBTables, StdCtrls, Grids, DBGrids, Spin, ExtCtrls, DBCtrls, Mask； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： type TForm12 = class(TForm) SpeedButton1: TSpeedButton； PageControl1: TPageControl； TabSheet1: TTabSheet； TabSheet2: TTabSheet； T_course_1: TTable； DS_course_1: TDataSource； T_counter_K: TTable； Label1: TLabel； Label2: TLabel； Label3: TLabel； i_name_1: TEdit； i_credit_hour_1: TSpinEdit； i_period_1: TSpinEdit； Label4: TLabel； i_intro_1: TMemo； Label5: TLabel； o_course_1: TDBGrid； B_submit: TButton； B_reset: TButton； T_teacher_info: TTable； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： Q_students: TQuery； DS_student_info: TDataSource； T_students: TTable； B_print_list: TButton； Label6: TLabel； Label7: TLabel； Label8: TLabel； o_course_2: TDBGrid； o_student_list: TDBGrid； i_score: TDBGrid； DS_students: TDataSource； T_course_2: TTable； i_state_1: TDBRadioGroup； Label9: TLabel； i_teacher: TDBEdit； Label10: TLabel； procedure SpeedButton1Click(Sender: TObject)； procedure FormShow(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure B_resetClick(Sender: TObject)； procedure i_state_1Click(Sender: TObject)； procedure o_course_1CellClick(Column: TColumn)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure B_submitClick(Sender: TObject)； procedure B_print_listClick(Sender: TObject)； procedure o_course_2CellClick(Column: TColumn)； procedure TabSheet2Show(Sender: TObject)； procedure Button1Click(Sender: TObject)； private Private declarations public Public declarations end； var Form12: TForm12； implementation uses student, teach, teacherlogin； $R *.dfm procedure TForm12.SpeedButton1Click(Sender: TObject)； begin 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： form12.Hide； form3.show； end； procedure TForm12.FormShow(Sender: TObject)； begin T_teacher_info.Filter:=ID=+Form8.i_user.Text+； T_teacher_info.Filtered:=True； T_teacher_info.Open； Form12.Caption:=課程管理系統(tǒng) 用戶： +T_teacher_infoNAME； end； procedure TForm12.FormClose(Sender: TObject； var Action: TCloseAction)； begin Application.Terminate； end； procedure TForm12.B_resetClick(Sender: TObject)； begin i_state_1.ItemIndex:=0； /申請初始化到增開新課 i_state_1Click(nil)； /調(diào)用申請修改程序 i_name_1.Text:=； /清除課程名 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： i_credit_hour_1.Text:=0； /初始化學(xué)分 i_period_1.Text:=0； /初始化學(xué)時 i_intro_1.Lines.Clear； /清除課程簡介 end； procedure TForm12.i_state_1Click(Sender: TObject)； begin if i_state_1.ItemIndex0 then /如果不是新開課程，則顯示列表 begin T_course_1.Filter:=TEACHER=+Form8.i_user.Text+ AND STATE5 AND STATE1； T_course_1.Filtered:=True； /獲取當(dāng)前教師所開的課程 T_course_1.Open； /不包括已刪除和申請刪除的課程 o_course_1.Enabled:=True； /激活已開課程列表 o_course_1CellClick(nil)； /顯示當(dāng)前課程信息 end else begin T_course_1.Close； /如果是新開課程 ，關(guān)閉已開課程數(shù)據(jù)表 o_course_1.Enabled:=False； /取消課程列表顯示 end； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure TForm12.o_course_1CellClick(Column: TColumn)； /如果是刪除或修改舊的課程，在單擊課程列表時，將在輸入框中顯示課程的詳細(xì)信息。 begin if T_course_1.Active then /判斷課程信息表是否激活 begin i_name_1.Text:=T_course_1NAME； /提取課程名稱 i_credit_hour_1.value:=T_course_1CREDIT_HOUR； /提取課程學(xué)分 i_period_1.Value :=T_course_1PERIOD； /提取課程學(xué)分 i_intro_1.Lines.Clear； /清除課程簡介 i_intro_1.Lines.Add(T_course_1INTRO)； /提取課程簡介 end； end； procedure TForm12.B_submitClick(Sender: TObject)； /表單的提交 var counter:integer； course_id:string； begin case i_state_1.ItemIndex of /根據(jù)不同申請，分別處理 0: /如果增加新課 begin 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： /獲取課程計數(shù) T_counter_K.Open； /打開計數(shù)器表 counter:=T_counter_KCOUNTER_VALUE； inc(counter)； T_counter_K.Edit； T_counter_KCOUNTER_VALUE:=counter； T_counter_K.Post； T_counter_K.Close； /合成課程編號 course_id:=0000+IntToStr(counter)； /將計數(shù)值轉(zhuǎn)換為字符串 / course_id:=copy(course_id,length(course_id)-6,6)； /將截取固定長度字符串 label10.caption:=course_id； course_id:=FormatDateTime(yyyy,now)+course_id； /添加年份信息 /添加課程信息 T_course_1.Filtered:=False； T_course_1.Open； T_course_1.AppendRecord(course_id,i_name_1.Text,i_teacher.text,i_credit_hour_1.value,i_period_1.value, , , i_intro_1.Lines,0)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： end； 1: /申請刪除 begin T_course_1.Filtered:=False； /取消過濾 T_course_1.Edit； /進行修改 T_course_1STATE:=1； /改變課程狀態(tài) T_course_1.Post； /提交修改 end； 2: /申請修改 begin T_course_1.Filtered:=False； /取消過濾 T_course_1.Edit； T_course_1NAME:=i_name_1.Text； T_course_1CREDIT_HOUR:=i_credit_hou