【導(dǎo)讀】式也面臨著挑戰(zhàn)。教師工作量統(tǒng)計(jì)系統(tǒng)的產(chǎn)生就是為了實(shí)現(xiàn)教師工作量統(tǒng)計(jì)的辦。管理的質(zhì)量與效率。本系統(tǒng)是專門針對學(xué)校的教師工作量統(tǒng)計(jì)人員構(gòu)建的一個(gè)實(shí)。同客戶進(jìn)行交流，了解需求，書寫需要分析報(bào)告。作所取得的成果，內(nèi)容真實(shí)可靠，不存在抄襲、造假等學(xué)術(shù)不端行為。經(jīng)注明引用的內(nèi)容外，本論文不含其他個(gè)人或集體已經(jīng)發(fā)表或撰寫過的研究成果。對本文的研究做出重要貢獻(xiàn)的個(gè)人和集體，均已在文中以明確方式標(biāo)明。等學(xué)術(shù)不端行為。隨著時(shí)代信息化的加快，人們越來越向信息化、數(shù)字化發(fā)展。如何消除因時(shí)間緊所產(chǎn)生的統(tǒng)計(jì)?，F(xiàn)了對教師工作量的計(jì)算工作。

　　

【正文】 e。 CommandText:=39。select * from tTeacherInfo where XB_Name=39。+QuotedStr(s)。 Open。 23 end。 end。 function QueryTeacherCourses(s1,s2:string):Boolean。 begin with do begin Close。 CommandText:=39。select * from tTeacherCourseInfo where TeacherName=39。+QuotedStr(s1)+39。 and Term=39。+QuotedStr(s2)。 Open。 if RecordCount 0 then Result:=True else Result:=False。 end。 end。 procedure ClearRecord。 var kc,kr:Integer。 begin for kr:=1 to do begin for kc:=1 to do begin [kc,kr]:=39。39。 end。 end。 :=2。 end。 begin ClearRecord。 count:=1。 QueryTeacher(Trim())。 。 for i:=0 to do begin if QueryTeacherCourses(Trim([1].Value),Trim()) then begin 。 :=+。 for j:=count to do begin [1,j]:=[1].Value。 [2,j]:=[4].Value。 [3,j]:=[6].Value。 [4,j]:=[3].Value。 24 [5,j]:=[4].Value。 [6,j]:=[5].Value。 [7,j]:=[7].Value。 [8,j]:=[8].Value。 。 end。 count:=。 end else begin (39。該系部有老師沒有授課？ 39。,39。系統(tǒng)提示 39。,0+64)。 Exit。 end。 。 end。 :=。 end。 工作量計(jì)算 代碼 ： procedure (Sender: TObject)。 var i,j:Word。 function GetValues(i,j:Integer):Double。 var number:Double。 begin if [i,j] 39。39。 then number:=StrToFloat([i,j]) else number:=。 Result:=number。 end。 begin :=39。正在進(jìn)行教師工作量計(jì)算，請稍等 ...39。 for i:=9 to do begin for j:=1 to do begin if [i,j] 39。39。 then begin [14,j]:=FloatToStr(GetValues(8,j)*GetValues(10,j)*GetValues(11,j)*GetValues(12,j)*GetValues(13,j))。 :=True。 end else begin 25 (39。請計(jì)算所有的系數(shù)！ 39。,39。系統(tǒng)提示 39。,0+64)。 Exit。 end。 end。 end。 (39。工作量計(jì)算成功！ 39。,39。系統(tǒng)提示 39。,0+64)。 :=39。教師工作量計(jì)算成功，請保存教師工作量信息！ 39。 end。 工作量分析窗體設(shè)計(jì) 工作量分析窗體是用來分析教師工作量的，提供了多種方式的分析，并且使用圖表的形式來進(jìn)行表示，其界面設(shè) 計(jì)如圖 47 所示，包含四個(gè) TGroupBox組件、兩個(gè) TComboBox 組件、一個(gè) TListview 組件、一個(gè) TDBChar 組件、三個(gè)TButton 等組件，保存為“ unt_analyse”。 圖 47 工作量分析窗體設(shè)計(jì) 窗體的主要組件屬性設(shè)置見表 420所示： 表 420 工作量分析窗體組件屬性設(shè)置 組件 屬性值 Form1 Name=frm_analyse Caption=“工作量分析” ListView1 ViewStyle=vsReport Button1 Caption= “執(zhí)行分析” Button2 Caption=“教研室比較分析” 26 Button3 Caption=“教研室各個(gè)教師分析” 工作量匯總窗體設(shè)計(jì) 工作量匯總時(shí)用來對教師工作量進(jìn)行匯總， 其界面如圖 48 所示 ,包含一個(gè)TGroupBox 組件、一個(gè) TComboBox 組件、一個(gè) TStringGrid 組件、一個(gè) TStatusBar組件、四個(gè) TButton 等組件，保存為“ ”。 圖 48 工作量匯總窗體 窗體的主要組件屬性見表 421所示： 表 421 工作 量匯總窗體組件屬性設(shè)置 組件 屬性值 Form1 Name=frm_Start Caption=“教師工作量匯總” StringGrid1 Align=alClient Color=clTeal RowCount=5 StringGrid2 Align=alClient Color=clTeal RowCount=2 Button1 Caption= “工作量匯總” Button2 Caption= “保存” Button3 Caption= “導(dǎo)入 Excel” 27 Button4 Caption= “打印” Button5 Caption= “退出” 數(shù)據(jù)備份 窗體設(shè)計(jì) 數(shù)據(jù)備份是用來 保證系數(shù)數(shù)據(jù)安全性。用戶需要經(jīng)常對數(shù)據(jù)進(jìn)行備份，從而保證系統(tǒng)數(shù)據(jù)安全，其界面如圖 49 所示 ,包含一個(gè) TLabel 組件、一個(gè) TMemo組件、二個(gè) TButton 組件，保存為“ ”。 圖 49 數(shù)據(jù)備份窗體 窗體的 主要組件屬性見表 422所示： 表 422 數(shù)據(jù)備份窗體組件屬性設(shè)置 組件 屬性值 Form1 Name=frm_backkup Caption=“數(shù)據(jù)備份” Label1 Caption=“請單擊按鈕進(jìn)行備份” Memo1 ReadOnly=True Button1 Caption=“備份” Button2 Caption=“退出” 28 導(dǎo)入 Excel 窗體設(shè)計(jì) 導(dǎo)入 Excel窗體可以對數(shù)據(jù)庫中的數(shù)據(jù)導(dǎo)入到 Excel表格中，其界面如 410所示 ，包含一個(gè) TExcelApplication、一個(gè) TExcelWorkbook、 一 TExcelWorksheet、四個(gè) TButton 組件和一個(gè) TStringGrid 組件，保存為“ ”。 圖 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é)論與展望 測試是對一個(gè)系統(tǒng)的最后檢驗(yàn) .只有在它符合結(jié)果才能正式的應(yīng)用 .測試的過程一般要有測試的環(huán)境，科學(xué)的測試過程，準(zhǔn)確的測試結(jié)果。 測試 系統(tǒng)軟件： Windows XP 數(shù)據(jù)庫管理系統(tǒng)： MS SQL Server 2020 硬件要求： Pentium Ⅲ 450 以上 ,258M RAM, 14G HD 本系統(tǒng)的測試過程分了三個(gè)步驟： 1．模塊測試：測試了每個(gè)模塊的程序； 2．組裝測試：測試了模塊的接口； 3．確認(rèn)測試： 測試了整個(gè)系統(tǒng)的功能和 性能 ； 經(jīng)過三個(gè)步驟的測試，也進(jìn)行了詳細(xì)的修改，最系統(tǒng)未發(fā)生錯(cuò)誤，接口正常，功能和性能均能滿足系統(tǒng)應(yīng)有的功能。 結(jié)論 經(jīng)過這一個(gè)月的畢業(yè)設(shè)計(jì) ， 在小組成員的共同努力和指導(dǎo)老師的幫助下， 終于完成了教師工作量統(tǒng)計(jì)系統(tǒng) 。 由于開始沒有設(shè)計(jì)經(jīng)驗(yàn)，空有很多設(shè)計(jì)思想，卻不知道應(yīng)該選擇哪個(gè)，經(jīng)過徐超老師的指導(dǎo)，我的設(shè)計(jì)漸漸有了頭緒，通過在網(wǎng)絡(luò)、圖書館查找資料，逐漸確立相同方案。 在這個(gè)方案中，對工作量統(tǒng)計(jì)計(jì)算的功能感到很頭痛，經(jīng)常以運(yùn)行試驗(yàn)就會(huì)提示有錯(cuò)誤，最后反復(fù)推敲，最后發(fā)現(xiàn)是數(shù)據(jù)庫連接中出 了問題， 錯(cuò)誤的根源僅僅是一個(gè)關(guān)鍵字的選擇上。 在功能上，基本上滿足了系統(tǒng)的預(yù)期要求，但是由于本身能力有限，有些模塊還是不能夠做的很完美，希望在今后的學(xué)習(xí)工作中能夠把他做的更好。 30 致謝 在畢業(yè)設(shè)計(jì)完成之際，我的心情萬分激動(dòng)。從系統(tǒng)設(shè)計(jì)和論文的編寫，我得到了許多的熱情幫助。 我首先要感謝徐超老師，在設(shè)計(jì)期間，徐超老師經(jīng)常在百忙之中抽出時(shí)間來指導(dǎo)我的畢業(yè)設(shè)計(jì)，剛開始做畢業(yè)設(shè)計(jì)時(shí)，對畢業(yè)設(shè)計(jì)的認(rèn)識簡直是一無所知，徐超老師每個(gè)星期都專門抽出時(shí)間來給我們輔導(dǎo)，才漸漸有了思路，在收集資料方面，徐老師也時(shí)常發(fā)送一些重要的資 料給我們參考。 其次，要感謝和我一起研究畢業(yè)設(shè)計(jì)項(xiàng)目的小組成員，我們在一起非常融洽地合作了一個(gè)多月的時(shí)間，在一起發(fā)現(xiàn)問題、分析問題和解決問題，大家良好的團(tuán)隊(duì)精神使得該項(xiàng)目在眾多困難下能夠順利進(jìn)行。和他們愉快的合作使得該項(xiàng)目成功的完成。 最后還要 感謝三年來所有教育過我的老師，為我們打下了堅(jiān)實(shí)的基礎(chǔ)；感謝所有的同學(xué)們，正因?yàn)橛心銈兊墓膭?lì)，我的大學(xué)生活才能夠充滿激情和活力。 31 參考文獻(xiàn) [1] 徐超 .《 Delphi高級應(yīng)用開發(fā)》 [M].徐州工業(yè)職業(yè)技術(shù)學(xué)院印刷， [2] 李存斌 .《 Delphi程序設(shè)計(jì)及其應(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ā)實(shí)用教程》 [J].機(jī)械工業(yè)出版社 . [10]米旭 .《軟件工程》 [J].大連理工大學(xué)出版社 .