【正文】 31 參考文獻(xiàn) [1] 徐超 .《 Delphi高級應(yīng)用開發(fā)》 [M].徐州工業(yè)職業(yè)技術(shù)學(xué)院印刷， [2] 李存斌 .《 Delphi程序設(shè)計及其應(yīng)用開發(fā)》 [M].中國水利水電出版社 . [3] 潘明惠 .《信息化工程原理與應(yīng)用》 [M].清華大學(xué)出版社 . [4]吳柏林 .《信息技術(shù)及其應(yīng)用》 [M].復(fù)旦大學(xué)出版社 . [5]萬新恒 .《信息化校園 .大學(xué)的革命》 [M].北京大學(xué)出版社 . [6] 飛思科技 .《 Delphi數(shù)據(jù)庫開發(fā)》 [M]電子工業(yè)出版社 . [7] 丁寶康 .《數(shù)據(jù)庫原理》 [M].電子工業(yè)出版社 . [8]飛思科技 .《 Delphi開發(fā)者手冊》 [M].電子工業(yè)出版社 . [9]李丹等編著 .《 SQL Server 2020數(shù)據(jù)庫與開發(fā)實用教程》 [J].機(jī)械工業(yè)出版社 . [10]米旭 .《軟件工程》 [J].大連理工大學(xué)出版社 . 。和他們愉快的合作使得該項目成功的完成。 我首先要感謝徐超老師，在設(shè)計期間，徐超老師經(jīng)常在百忙之中抽出時間來指導(dǎo)我的畢業(yè)設(shè)計，剛開始做畢業(yè)設(shè)計時，對畢業(yè)設(shè)計的認(rèn)識簡直是一無所知，徐超老師每個星期都專門抽出時間來給我們輔導(dǎo)，才漸漸有了思路，在收集資料方面，徐老師也時常發(fā)送一些重要的資 料給我們參考。 30 致謝 在畢業(yè)設(shè)計完成之際，我的心情萬分激動。 在這個方案中，對工作量統(tǒng)計計算的功能感到很頭痛，經(jīng)常以運行試驗就會提示有錯誤，最后反復(fù)推敲，最后發(fā)現(xiàn)是數(shù)據(jù)庫連接中出 了問題， 錯誤的根源僅僅是一個關(guān)鍵字的選擇上。 結(jié)論 經(jīng)過這一個月的畢業(yè)設(shè)計 ， 在小組成員的共同努力和指導(dǎo)老師的幫助下， 終于完成了教師工作量統(tǒng)計系統(tǒng) 。 圖 410 數(shù)據(jù)庫導(dǎo)入到 Excel表格 窗體主要組件屬性見表 423 所示： 表 423 數(shù)據(jù)導(dǎo)出 Excel表格窗體主要組件屬性設(shè)置 組件 屬性值 Form1 Name=frm_OutputExcel Caption=“數(shù)據(jù)庫導(dǎo)出到 Excel表格” Button1 Caption=“ 添加所有表” Button2 Caption=“導(dǎo)出為 Excel表格 ” Button2 Caption=“制作空 Excel表格 ” 29 第 5 章 結(jié)論與展望 測試是對一個系統(tǒng)的最后檢驗 .只有在它符合結(jié)果才能正式的應(yīng)用 .測試的過程一般要有測試的環(huán)境，科學(xué)的測試過程，準(zhǔn)確的測試結(jié)果。用戶需要經(jīng)常對數(shù)據(jù)進(jìn)行備份，從而保證系統(tǒng)數(shù)據(jù)安全，其界面如圖 49 所示 ,包含一個 TLabel 組件、一個 TMemo組件、二個 TButton 組件，保存為“ ”。 圖 47 工作量分析窗體設(shè)計 窗體的主要組件屬性設(shè)置見表 420所示： 表 420 工作量分析窗體組件屬性設(shè)置 組件 屬性值 Form1 Name=frm_analyse Caption=“工作量分析” ListView1 ViewStyle=vsReport Button1 Caption= “執(zhí)行分析” Button2 Caption=“教研室比較分析” 26 Button3 Caption=“教研室各個教師分析” 工作量匯總窗體設(shè)計 工作量匯總時用來對教師工作量進(jìn)行匯總， 其界面如圖 48 所示 ,包含一個TGroupBox 組件、一個 TComboBox 組件、一個 TStringGrid 組件、一個 TStatusBar組件、四個 TButton 等組件，保存為“ ”。 end。 :=39。系統(tǒng)提示 39。工作量計算成功！ 39。 end。 end。,0+64)。,39。 end else begin 25 (39。 then begin [14,j]:=FloatToStr(GetValues(8,j)*GetValues(10,j)*GetValues(11,j)*GetValues(12,j)*GetValues(13,j))。 for i:=9 to do begin for j:=1 to do begin if [i,j] 39。 begin :=39。 Result:=number。39。 var number:Double。 var i,j:Word。 end。 end。 end。,0+64)。,39。 end else begin (39。 end。 [8,j]:=[8].Value。 [6,j]:=[5].Value。 [4,j]:=[3].Value。 [2,j]:=[4].Value。 :=+。 。 count:=1。 end。 end。39。 var kc,kr:Integer。 end。 if RecordCount 0 then Result:=True else Result:=False。+QuotedStr(s2)。+QuotedStr(s1)+39。 CommandText:=39。 function QueryTeacherCourses(s1,s2:string):Boolean。 23 end。+QuotedStr(s)。 CommandText:=39。 procedure QueryTeacher(s:string)。 22 圖 46 教師工作量計算 教師工作量計算組件屬性設(shè) 置如表 419所示： 表 419教師工作量計算組件屬性 組件 屬性值 Form1 Name=frm_Account Caption=“教師工作量計算” ComboBox1 Style=csDropDownList ComboBox2 Style=csDropDownList Enabled=Flase ComboBox3 Style=csDropDownList Enabled=Flase StringGrid1 ColCount=15 Color=clTeal RowCount=2 Button4 Caption=“保存” Enable=Flase 教師基本信息和教師授課信息信息顯示程序代碼： procedure 。在使用該模塊的時候，只需要選擇相應(yīng)的條件就可以，無需輸入相關(guān)數(shù)據(jù)，即可完成教師工作量的計算。 end。,0+64)。,39。 except (39。系統(tǒng)提示 39。系數(shù)修改成功！ 39。 begin try (0)。 計算系數(shù)設(shè)置 的窗體設(shè)計界面如圖 45所示： 包含四個控件 TGroupBox組件、二個 TButton 組件、八個 TLabel 組件，保存為 “ ”。 16 圖 43 主窗體 主窗體的主 要組件屬性見表 414 所示： 表 414 主窗體組件屬性設(shè)置 組件 屬性值 Form1 Name=frm_Main Caption=“教師工作量統(tǒng)計系統(tǒng) ” Timer1 Interval=1000 Enable=True 教師授課信息 窗體 設(shè)計 教師授課信息 模塊 是對教師信息進(jìn)行管理，其中包括添加、查詢、修改功能，其界面如 圖 44 所示 ,包括一個 TPageContro1 組件、一個 TDBGrid 組件、一個TSplitter、七個 TButton 等組件，保存為“ ”。用戶登錄窗體的設(shè)計如圖 42所示， 包含三個 TEdit組件和兩個 TButton 組件，保存為“ ” 。 根據(jù)系統(tǒng)的功能模塊結(jié)構(gòu)圖和系統(tǒng)的基本流程，設(shè)計了如下的數(shù)據(jù)表： (1)教務(wù)處用戶信息表： 用來存儲用戶信息 表 41 教務(wù)處用戶信息表 字段名 數(shù)據(jù)類型 長度 主鍵是 /否 用戶名 char 20 是 密碼 char 20 否 權(quán)限 char 10 否 (2)教師信息表： 存放教師基本信息； 表 42 教師信息表 字段名 數(shù)據(jù)類型 長度 主鍵是 /否 教師號 Int 20 是 姓名 Nchar 20 否 11 密碼 char 20 否 性別 char 2 否 職稱 char 10 否 系部 char 10 否 所屬部門 Varchar 30 否 (3)系部信息表： 存儲學(xué)校系部的基本信息； 表 43 系部信息表 字段名 數(shù)據(jù)類型 長度 主鍵是 /否 ID(自動編號 ) Int 8 是 系部名稱 Nchar 20 否 系部主任 Nchar 20 否 系部電話 Int 12 否 (4)班級信息表： 存放班級基本信息； 表 44 班級信息表 字段名 數(shù)據(jù)類型 長度 主鍵是 /否 ID(自動編號 ) Int 8 是 班級名稱 Nchar 20 否 人數(shù) Tntr 20 否 班主任 Nchar 12 否 聯(lián)系方式 Int 20 否 系部名稱 Nchar 20 否 (5)課程信息表： 存放教師所教課程信息； 12 表 45 課程信息表 字段名 數(shù)據(jù)類型 長度 主鍵是 /否 課程名稱 Nchar 8 是 新課標(biāo)記 Text 20 否 系部名稱 Nchar 20 否 實踐類別 VNchar 12 否 (6)專業(yè)信息表： 存儲系部內(nèi)的專業(yè)信息； 表 46 專業(yè)信息表 字段名 數(shù)據(jù)類型 長度 主鍵是 /否 專業(yè) 名稱 Nchar 12 否 系部名稱 Nchar 12 否 (7)教研室信息表：教研室名稱、所屬系部 表 47 教研室信息表 字段名 數(shù)據(jù)類型 長度 主鍵是 /否 教研室名稱 Nchar 20 否 所屬系部 Nchar 20 否 (8)教師授課信息表： 存儲教師所帶課程信息，為計算工作做準(zhǔn)備； 表 48 教師授課信息表 字段名 數(shù)據(jù)類型 長度 主鍵是 /否 ID Int 8 是 教師姓名 Nchar 8 否 班級名稱 Nchar 8 否 課程名稱 Nchar 10 否 13 標(biāo)志 Text 50 否 主輔帶 Varchar 20 否 周數(shù) Int 8 否 學(xué)時 Int 8 否 學(xué)期 Nchar 8 否 年度 Int 8 否 (9)教師工作量信息表： 用來存儲計算單個結(jié)果的表，方便統(tǒng)計總工作量和查詢； 表 49 教師工作量信息表 字段名 數(shù)據(jù)類型 長度 主鍵是 /否 ID 教師號 Int 8 是 教師姓名 Nchar 8 否 系部名稱 Nchar 10 否 課程類別 Varcha