無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 本文配套程序下載地址 ： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ()-大學(xué)生畢業(yè)設(shè)計(jì)站 ,免費(fèi)畢業(yè)設(shè)計(jì)論文 ,無(wú)憂無(wú)慮畢設(shè)網(wǎng) 大學(xué)生畢業(yè)設(shè)計(jì) ,出售各類畢業(yè)設(shè)計(jì)源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費(fèi)視頻教程 ,我們將竭誠(chéng)為您服務(wù)！ 畢業(yè)論文任務(wù)書 2002 級(jí) 計(jì)算機(jī)應(yīng)用與維護(hù) 專業(yè) 一 班 姓名 馮國(guó)華 學(xué)號(hào) 200225 一、論文題目： 考勤管理系統(tǒng)應(yīng)用程序 二、論文具體要求： 1、能實(shí)際應(yīng)用。 2、設(shè)置系統(tǒng)封面、系統(tǒng)口令、完成系統(tǒng)初始化。 3、創(chuàng)建數(shù)據(jù)庫(kù)。 4、在實(shí)現(xiàn)輸入、修改、顯示、查詢等功能基礎(chǔ)上擴(kuò)充。 5、控件 結(jié)構(gòu)圖和程序流程圖。 6、完成設(shè)計(jì)說(shuō)明書。 三、起止日期： 自 2005 年 05 月 10 日至 2005 年 05 月 日 四、指導(dǎo)教師： 姓名： 任成剛 職稱： 計(jì)算機(jī)系教師 胡國(guó)紅 職稱： 計(jì)算機(jī)系教師 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 陳慶剛 職稱： 計(jì)算機(jī)系教師 兗州礦區(qū)職工大學(xué) 2005 年 06 月 日 目 錄 一、 前 言 二、 考勤管理系統(tǒng)功能分析 三、 模塊圖及流程圖 1. 模塊圖 2. 流程圖 四、 程序源代碼及部分程序界面 1. 程序源代碼 2.部分程序界面 五、 附 錄 1. 開發(fā)人員分工名單 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 2. 系統(tǒng)開發(fā)參考文獻(xiàn) 六、 結(jié)束語(yǔ) 一 、前 言 無(wú)論一種開發(fā)工具多么美妙，都需要在實(shí)踐中不斷理解和掌 握它！我們剖析數(shù)據(jù)庫(kù)開發(fā)案例，由淺入深步入 DELPHI 數(shù)據(jù)庫(kù) 系統(tǒng)開發(fā)世界！沒有必要詳細(xì)研究 DELPHI 的發(fā)展歷史，我們目 睹的是其作為偉大開發(fā)工具的事實(shí)。由 BORLAND 公司出品的DELPHI 是一種典型的面向?qū)ο蟮摹⒂糜?RAP 開發(fā)的可視化編程語(yǔ)言。它繼承了 OOP（ Orient Object Pascal）語(yǔ)言中優(yōu)越的全功能平臺(tái)，以及編程效率高、代碼質(zhì)量好等優(yōu)點(diǎn)，并解決了諸如 Visual Basic等可視化程序設(shè)計(jì)語(yǔ)言中的代碼執(zhí)行效率低下等問題 。我們用DELPHI 開發(fā)的考勤信息管理系統(tǒng)，涉及文件的操作和管理，數(shù)據(jù)庫(kù)的基本查詢和操作以及 DBChart 和 PageControl 組件的使用。 企業(yè)員工的考勤的工作不僅工做量大，而且時(shí)效性強(qiáng)。過去，企業(yè)多采用簽到和報(bào)表式進(jìn)行管理效率和透明度較差，隨著數(shù)據(jù)技術(shù)的無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 發(fā)展以及企業(yè)信息化建設(shè)的進(jìn)行，使用計(jì)算機(jī)管理企業(yè)考勤工作以成為大勢(shì)所趨。 基于此，按照軟件工程的思想，對(duì)考勤信息管理系統(tǒng)進(jìn)行功能分析： 實(shí)現(xiàn)系統(tǒng)登陸功能（密碼修改功能），并限制不同用戶（包括普通工人、人事部門人員、財(cái)務(wù)部人員以及管理員）登陸所查看的信息 ； 輸入員工基本信息，包括姓名、性別、所屬部門等； 瀏覽和修改員工基本信息； 輸入出勤信息； 輸入基本工資和獎(jiǎng)金信息并計(jì)算實(shí)際工資； 瀏覽和修改員工的出勤情況，可同時(shí)查看該員工基本信息； 瀏覽和修改員工的工資情況，可同時(shí)查看該員工基本信息； 按實(shí)際工資情況查詢員工； 按實(shí)際出勤情況查詢員工； 按姓名信息查詢員工； 附加功能： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 密碼修改功能； 幫助說(shuō)明。 由于時(shí)間倉(cāng)促，加上開發(fā)人員水平有限，雖然工作認(rèn)真，但此系統(tǒng)難免有很多疏漏之處，敬請(qǐng)各位老師和同學(xué)批評(píng)指正。 二、考勤管理系統(tǒng)功能分析 本程序設(shè)計(jì)的是一個(gè) 公司員工每天的考勤管理程序，經(jīng)過簡(jiǎn)單擴(kuò)充成為一個(gè)完整的考勤管理系統(tǒng)。下面來(lái)說(shuō)一下本程序的各個(gè)模塊的功能及數(shù)據(jù)庫(kù)的結(jié)構(gòu)。 一、本程序由登錄界面、員工信息、出勤信息、員工工資、相關(guān)查詢、密碼修改、幫助說(shuō)明及退出系統(tǒng)五部分組成。 登錄界面：登錄界面產(chǎn)生一個(gè)用戶的下拉列表（系統(tǒng)管理員、財(cái)務(wù)部門、人事部門及普通用戶），用戶可選擇相應(yīng)的用戶名稱，輸入對(duì)應(yīng)的密碼進(jìn)入，選擇“取消”終止程序運(yùn)行。防止用戶以外的人看到密碼，密碼輸入框內(nèi)的密碼用“”屏蔽。 員工信息：本界面可實(shí)現(xiàn)員工相關(guān)信息的修改與添加。 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 出勤信息：本界面可實(shí) 現(xiàn)員工出勤信息的輸入，可參看缺勤情況示意圖。 員工工資：本界面可實(shí)現(xiàn)員工基本工資與實(shí)際工資的輸入與修改。 相關(guān)查詢：可由員工實(shí)際工資差位來(lái)查看詳細(xì)工資情況（編號(hào)、月份、工資、獎(jiǎng)金、實(shí)際工資），由出勤天數(shù)查看詳細(xì)出勤情況（編號(hào)、月份、出勤、遲到、早退、請(qǐng)假、曠工、實(shí)際出勤），由員工姓名查看員工詳細(xì)情況（編號(hào)、姓名、編碼、性別、部門、職稱、住址、工資）。 密碼修改：通過閱讀密碼修改設(shè)置信息和舊密碼進(jìn)行密碼修改并顯示用戶身份。 幫助說(shuō)明：本界面顯示本系統(tǒng)所有應(yīng)用信息，可打印本系統(tǒng)相關(guān)應(yīng)用信息。 退出系統(tǒng)：本界面顯 示系統(tǒng)信息（應(yīng)用操作系統(tǒng)）、程序作者（管理系統(tǒng)的作者）。 二、數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì) 本程序用到了三個(gè)數(shù)據(jù)表，一個(gè)是員工基本信息表，一個(gè)是出勤信息表，一個(gè)是工資表，全部存在 Paradox 數(shù)據(jù)庫(kù)中，下面是個(gè)數(shù)據(jù)無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 庫(kù)表的數(shù)據(jù)結(jié)構(gòu)： （一） 員工基本信息表 字段名 字段類型 字段大小 編號(hào)（ bianhao） 文本 6 姓名 (xingming) 文本 10 姓名編碼 (xingmingbianma) 文本 5 性別（ xingbie） 文本 2 部門 (bumen) 文本 12 職稱 (zhicheng) 文本 12 住址 (zhuzhi) 文本 40 基本工資 (jibengongzi) 數(shù)字 （二）出勤情況表 字段名 字段類型 字段大小 員工編號(hào) (yuangongbianhao) 文本 6 月份 (yuefen) 文本 6 應(yīng)出勤 (yingchuqin) 數(shù)字 遲到 (chidao) 數(shù)字 早退 (zaotui) 數(shù)字 請(qǐng)假 數(shù)字 曠工 數(shù)字 實(shí)際出勤 數(shù)字 （三）工資表 字段名 字段類型 字段大小 員工編號(hào) (yuangongbianhao) 文本 6 月份 (yuefen) 文本 6 基本工資 (jibengongzi) 數(shù)字 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 獎(jiǎng)金 (jiangjin) 數(shù)字 實(shí)際工資（ shijigongzi） 數(shù)字 三、模塊圖及流程圖 考勤系統(tǒng)主模塊圖： 退員 工 信 息 出勤信息 員工工資 相關(guān)查詢 密碼修改 幫助說(shuō)明 退出系統(tǒng) 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 主程序流程圖： N Y 用戶 身份驗(yàn)證 主界面 系統(tǒng)退出 信息 員工信息添加修改 考勤管理系統(tǒng) 輸入記錄 刪除添加 輸入刪除 員工信息 實(shí)際工資 輸入數(shù)據(jù) 刪除記錄 舊密碼 新密碼 驗(yàn)證碼 工資查詢 出勤查詢 姓名查詢 說(shuō)明目錄 功能特色 打印本頁(yè) 程序作者 退出系統(tǒng) 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 用戶登錄流程圖 N 選擇用戶 開 始 輸入密碼是否正確 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 員工信息流程圖 Y 結(jié) 束 進(jìn)入主界面 Y 輸入內(nèi)容 判斷是否添加 開 始 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： N 員工出勤流程圖 開 始 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Y N 員工工資流程圖 N 輸入內(nèi)容 顯示結(jié)果 繼續(xù)添加 結(jié) 束 確認(rèn)添加 是否齊全？ 開 始 輸入數(shù)據(jù) 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Y Y 相關(guān)查詢流程圖 顯示實(shí)際工資 顯 示 是否輸入數(shù)據(jù)？ N 是否刪除記錄 ? 是否顯示該員工記錄 ? 顯示原有記錄 N N Y Y 結(jié) 束 開 始 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 密碼修改流程圖 N 存 在？ 顯 示 Y 結(jié) 束 開 始 輸入數(shù)據(jù) 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： N Y N Y 四、程序源代碼及部分模塊界面 1 系統(tǒng)登錄模塊 本窗口共添加了 3 個(gè) Label 組件， 1 個(gè) ComboBox 組件， 1 個(gè)輸入新密碼 驗(yàn)證新密碼 修改成功 結(jié) 束 輸入密碼是否正確 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Edit 組件， 1 個(gè) Bevel 組件， 1 個(gè) Image 組件， 2 個(gè) BitBtn 組件和 1 個(gè) GroupBox 組件，并安排布局如下圖。 完成了登錄窗體的設(shè)計(jì)之后，需要進(jìn)行事件的分析和處理。首先對(duì)主頁(yè)中的 Label3的 OnClick和 OnMouseDown事件添加以下的代碼，功能是當(dāng)用戶將鼠標(biāo)移動(dòng)到該組件上時(shí)，出現(xiàn)超鏈接的效果，同時(shí)啟動(dòng)郵件收發(fā)程序向指定的電子郵件地址發(fā)信息。 procedure TPassworddlg.Label4Click(Sender: TObject)； begin ShellExecute(handle,nil,pchar(mailto:),nil,nil,sw_shownormal)； end； procedure TPassworddlg.FormMouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin Label4.Font.Color :=clmaroon； end； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 接下來(lái)在系統(tǒng)登錄窗體的 OnCreate 事件中進(jìn)行 INI 配置文件的設(shè)置與初始化。在事件的右邊窗格中雙擊鼠標(biāo)，即可打空的事件處理句柄，用戶可在此進(jìn)行編輯。程序代碼如下。 procedure TPassworddlg.FormCreate(Sender: TObject)； var datafile:file； NumRead,NumWrite,ii:integer； siz:longint； FileOk:boolean； buf:string60； begin FileOk:=true； assignfile(datafile,sys.ini)； if fileexists(sys.ini)=false then fileok:=false else begin reset(datafile)； siz:=filesize(datafile)； if siz10 then combobox1.Items.Add(buf)； blockread(datafile,buf,12,numread)； until(numread=0)； closefile(datafile)； end； 在多數(shù)的情況下，用戶希望輸入密碼后直接按 Enter 鍵就完成登錄過程，進(jìn)入系統(tǒng)主界面。此時(shí)，可在登錄窗體的 OnKeyPress事件中添加以下代碼。 procedure TPassworddlg.FormKeyPress(Sender: TObject； var Key: Char)； begin if key=#13 then begin perform(WM_NEXTDLGCTL,0,0)； END； end； 在系統(tǒng)登錄窗口要進(jìn)行密碼的驗(yàn)證，若輸入 3次不正確，將禁止用戶繼續(xù)登錄，并退出 應(yīng)用程序。代碼如下： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： procedure TmainForm.FormActivate(Sender: TObject)； var cmptimes,bn:integer； ss1,ss2:string200； begin cmptimes:=1； if passwordin=false then begin passwordin:=true； repeat bn:=passworddlg.showmodal； if bn=mrok then begin ss1:=bobox1.text； ss2:=passworddlg.password.text； if cmppassword(ss1,ss2) then cmptimes:=100 else begin cmptimes:=cmptimes+1； if cmptimes3 then close else messagedlg(密碼錯(cuò)誤，請(qǐng)重新輸入，一共三次機(jī)會(huì)！ ,mtwarning,mbok,0)； end； end else bn=mrcancel begin cmptimes:=100； close； end； until(cmptimes3)； if passworddlg.ComboBox1.Text=system then begin 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： mainform.UpdateActions； PageControl1.ActivePage:=tabsheet1； DBNavigator1.Visible:=true； end else if passworddlg.ComboBox1.text=renshi then begin mainform.UpdateActions； PageControl1.ActivePage:=tabsheet1； DBNavigator1.Visible:=true； tabsheet3.TabVisible:=false； end else if passworddlg.ComboBox1.text=caiwu then begin mainform.UpdateActions； PageControl1.ActivePage:=tabsheet3； tabsheet1.TabVisible:=false； tabsheet2.TabVisible:=false； end else if passworddlg.ComboBox1.text=guest then begin mainform.UpdateActions； PageControl1.ActivePage:=tabsheet1； DBGrid1.Align:=alclient； DBGrid1.ShowHint:=True； DBGrid1.Hint:=您只有瀏覽的權(quán)利！ ； DBGrid1.ReadOnly:=True； dbgrid2.ReadOnly:=true； bitbtn1.Visible:=false； bitbtn4.Enabled:=false； bitbtn2.Enabled:=false； tabsheet3.TabVisible:=false； tabsheet5.TabVisible:=false； end； end； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： end； 應(yīng)該注意的是 TabSheet 組件有一個(gè) TabVaisible 屬性，該屬性用來(lái)定義該 TabSheet 組件是否在 PageControl 組件中可視，通過給該屬性賦值，可限制某些用戶對(duì)某些信息的瀏覽和修改。系統(tǒng)登錄窗口將在主窗體激活前顯示。 還要在主窗體的 private處添加定義如下： private passwordin:boolean； truesalary:real； function cmppassword(s1:string； s2:string):boolean； Private declarations 此處定義的 password 函數(shù)用來(lái)比較密碼，代碼如下： function tmainform.cmppassword(s1:string；s2:string):boolean； var datafile:file； rt:boolean； numread:integer； buf1,buf2:string30； begin rt:=false； assignfile(datafile,system.ini)； reset(datafile,1)； repeat blockread(datafile,buf1,12,numread)； blockread(datafile,buf2,12,numread)； if (s1=buf1) and (s2=buf2) then begin username:=s1； userpass:=s2； result:=true； exit； end； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： until(numread=0)； closefile(datafile)； cmppassword:=rt； end； 就此完成了登錄窗體。 2 員工信息模塊 本模塊的作用是輸入和瀏覽員工的基本信息，而對(duì)于人事部門的用戶及管理遠(yuǎn)登陸還要考慮可 以更改員工的基本信息。 本模塊可以分為兩部分，使用 Bevel組件分開，在系統(tǒng)登陸窗體設(shè)計(jì)中曾使用過這個(gè)組件。事實(shí)上， Bevel 組件是一個(gè)修飾組件，允許用戶在窗體中顯示線、框和框架，常用于分割顯示不同應(yīng)用組件?？稍O(shè)置組件為凹下和凸起狀態(tài)。 Bevel 組件有倆個(gè)最重要的屬性 Shape 屬性和 Style 屬性。 Shape 屬性該屬性定義 B evel 組件在窗體中顯示的形狀。 Style 該屬性確定 Bevel 組件的顯示形狀是凹下還是凸起，若其值為 bsLowered,則為凹下狀態(tài)；若值為 bsRasised,則 Bevel 組件呈凸起 狀態(tài)。在 Bevel2 中添加八個(gè) Label組件，六個(gè) Edit 組件和兩個(gè) ComboBox 組件。完成設(shè)置后，再添加一個(gè) BitBtn 組件 BitBtn1,并設(shè)置 Kind 屬性為 bkOK， camption 屬性為“輸入記錄”。在員工信息模塊的右半部分添加一個(gè) DBGrid 組件，一個(gè) DataSourcu 組件，一個(gè) Table 組件和一個(gè) DBNavigator 組件。 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 不是任何一個(gè)用戶登陸后都可以對(duì)員工基本信息進(jìn)行修改的，因此將Dbnavigator組件的 Visible屬性設(shè)置為 False,而對(duì) system和 renshi兩個(gè)用戶，則在 程序運(yùn)行時(shí)，將 Visible 屬性設(shè)置為 True. 根據(jù)需要，有時(shí)要在數(shù)據(jù)表內(nèi)增加一些自定義的字段，常常是根據(jù)表中其他字段動(dòng)態(tài)地計(jì)算出來(lái)的，這些字段可稱為計(jì)算字段。計(jì)算字段是在程序設(shè)計(jì)中常用的一個(gè)手段，它在程序運(yùn)行時(shí)生成，在程序結(jié)束時(shí)消失，不會(huì)在數(shù)據(jù)表中占用空間。 最后指出的是，員工編號(hào)一般是數(shù)字字符，必須要強(qiáng)制用戶輸入數(shù)字字符而不能輸入其他字符。 Style 屬性確定了下圖 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 輸入編號(hào)，姓名，性別，職稱等如下圖運(yùn)行。 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 添加一個(gè) BitBtn 組件， Caption 屬性為 “輸入記錄”，代碼如下 : if (combobox1.text=) or (edit1.text=) or (edit2.text=) or (edit3.text=) or(edit4.text=) or (edit5.text=) or (combobox2.text=) then begin MessageDlg(資料輸入不全 !, mtWarning, mbOk, 0)； exit； end； table1.active:=true； with table1 do begin append； FieldValuesbianhao := trim(edit1.text)； FieldValuesxingming := trim(edit2.text)； FieldValuessex := trim(combobox1.text)； fieldvaluesbianma:=trim(edit16.Text)； FieldValueszhicheng := trim(edit3.text)； FieldValuesbumen :=trim(combobox2.text)； FieldValueszhuzhi :=trim(edit4.text)； FieldValuesgongzi :=strtofloat(trim(edit5.text)； Post； end； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： combobox1.text:=男 ； combobox2.text:=車間辦公室 ； edit1.Text:=； edit2.Text:=； edit3.Text:=； edit4.Text:=； edit5.Text:=； edit16.Text:=； end； 連接數(shù)據(jù)庫(kù)得到如圖 : 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Field 組件有稱為字段組件或字段對(duì)象，它對(duì)應(yīng)著數(shù)據(jù)表的字段。它是在打開數(shù)據(jù)表時(shí)動(dòng)態(tài)產(chǎn)生的，并在數(shù)據(jù)表關(guān)閉時(shí)自動(dòng)消失。改組件為字段對(duì)象封裝了一些行為，常常用于改變數(shù)據(jù)表中的字段值、轉(zhuǎn)換字段類型、驗(yàn)證用戶輸入值、定義字段如何顯示和編輯、通過在OnCalcFields 事件響應(yīng)過程中編寫代碼、計(jì)算字段以及查詢字 段。 通過字段編輯器可以建立永久性的 Field列表 Dellphi應(yīng)用程序使用這些永久性的字段會(huì)加入到程序庫(kù)單元的 Tform 類型定義中，即使數(shù)據(jù)表中的基本結(jié)構(gòu)發(fā)生了變化。這些字段也一直保留如果原來(lái)的程序?qū)ο蟛淮嬖诹?，那就?Delphi 應(yīng)用程序在運(yùn)行的過程中給出了錯(cuò)誤信息。 在 Table 組件中 ,Delphi 提供了 FieldByName 方法，可以通過字段名訪問字段對(duì)象，從而更加方便。 永久對(duì)象的訪問比動(dòng)態(tài)的簡(jiǎn)單。 用戶通過 Field對(duì)象的 Value 進(jìn)行 從字段對(duì)象中讀取字段值給變量賦值必須保證其數(shù)據(jù)類型相匹配，否則會(huì)出錯(cuò) guest 用戶只是作為普通員工的登錄。對(duì)于員工基本信息數(shù)據(jù)庫(kù)只有瀏覽的權(quán)利，沒有修改，移動(dòng)的權(quán)利 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 首先選中 DBGridl組件，然后選擇 Edit Bring to Front 菜單命令，將該組件設(shè)置前，然后在主窗體中添加代碼。 執(zhí)行程序，這時(shí)以 guest用戶身份登錄，則只有 DBGrid 組件存在，而且起數(shù)據(jù)是只讀的。 運(yùn)行如窗口所示 3 出勤信息模塊 出勤信息模塊的作用是輸入、瀏覽以及修改員工的出勤信息，并對(duì)不同身份登陸的用戶提供功能限制。本頁(yè)使用 DbChart組 件用來(lái)演示員工的缺勤情況，還可實(shí)現(xiàn)與“員工基本信息表”的表間聯(lián)系。本模塊主要用到DBChart組件，它來(lái)源于 Tchart,并繼承了 Tchart 所有的功能。 Tchart 是TeeChart 庫(kù)中最重要的一個(gè)組件，該組件從 Tpanel 類中繼承了所有的屬無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 性和方法。 DBChart組件不能直接顯示各種圖表，而要依靠它的子成員Series 來(lái)實(shí)現(xiàn)圖表的繪制。 DBChart 組件的屬性、子屬性繁多復(fù)雜，對(duì)屬性的設(shè)置可以通過 EditDBChart 對(duì)話框來(lái)實(shí)現(xiàn)。在“出勤信息” TabSheet上添加一個(gè) DBChart 組件，一個(gè) DBGrid 組件，一個(gè) bevel組件。 很多時(shí)候，用戶需要在了解某位員工出勤情況的時(shí)候，能夠隨時(shí)查看該員工的基本信息。對(duì)于“員工信息”按及到主從表的問題。鈕的 OnClick事件的處理，涉 若在程序設(shè)計(jì)期就想實(shí)現(xiàn)這種關(guān)聯(lián)，用戶可在設(shè)置 MasterSource屬性后，單擊 MasterFields 屬性右邊的“ ”按鈕，打開：“ Fiedl Link Decigner” 對(duì)話框，在 Detail Fields 和 Master Fields列表中建立關(guān)聯(lián)的字段，單擊“ Add”按鈕，則在 Joined Fields 列表框中就會(huì)出現(xiàn)建 立關(guān)聯(lián)的字段 由于保證各個(gè) Tabsheet 的獨(dú)立性，因此最好在代碼中實(shí)現(xiàn)這種主從表關(guān)系，即設(shè)置 MasterSource 和 MasterFields屬性。 設(shè)置一個(gè)出勤信息按鈕而對(duì)于 Guest用戶該按鈕是不可用的。單擊該按鈕可輸入某位員工的的出勤信息，輸入完畢后，在 DBGrid2中將顯示添加的記錄。單擊工具欄上的 New Form 按鈕新建“輸入出勤信息”無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 窗體。 打開 DBChart 的 3種方法 1 雙擊 DBChart 組件 2 單擊 SeriesList 屬性右邊的“ ”按鈕 3 右鍵單擊 DBChart組件，彈出的快捷鍵中選擇“ Edit Chart” 。 DBChart的屬性設(shè)置如圖所示 DBChart運(yùn)行后如下圖： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： AnimatedZoom 屬性：是一個(gè)布爾值，為 True，則 DBChart 組件可以動(dòng)態(tài)的大與縮小。 AnimatedZoomSteps屬性：確定 Zoom 的部數(shù)。是動(dòng)畫屬性。 SeriesList屬性： DBChar 組件只提供了一個(gè)放置圖層表的位置，而本身并不能顯示圖表，必須在組件中添加。 Title屬性：用來(lái)確定 DBChar組件中的標(biāo)題文本。 Legend 屬性：定義圖表的比例 設(shè) 置完 DBChart后，連接數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)如圖所示 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 出勤信息模塊記錄了，公司員工出勤，請(qǐng)假，曠工，遲到與工資之間的聯(lián)系，它取決于你的工資還有獎(jiǎng)金。讓管理人員很方便的來(lái)管理好公司員工的出勤情況！能更好的讓員工們自覺的上班下班！ 員工出勤信息模塊運(yùn)行如下圖： “輸入出勤信息”代碼如下： procedure TmainForm.BitBtn4Click(Sender: TObject)； var rn:integer； begin formchuqin.showmodal； if rn=mrok then dbgrid2.SetFocus； table2.close； table2.Open； end； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： “刪除信息記錄”代碼如下： procedure TmainForm.BitBtn2Click(Sender: TObject)； var bn:integer； begin bn:=messagedlg(真的要?jiǎng)h除？ ,mtconfirmation,mbOK,mbcancel,0)； if bn=mrok then table2.Delete； end； “員工信息”代 碼如下： procedure TmainForm.BitBtn3Click(Sender: TObject)； begin table1.Open； table1.MasterSource:=datasource2； table1.MasterFields:=bianhao； pagecontrol1.ActivePage:=tabsheet1； bitbtn12.Visible:=true； bitbtn12.BringToFront； bitbtn12.SetFocus； dbgrid1.Align:=alclient； dbgrid1.ReadOnly:=true； end； 在輸入出勤記錄中添加一個(gè)信息錄入，如下圖： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 在添加按鈕的 OnClick 事件中添加如下所示代碼。 procedure TFormchuqin.BitBtn1Click(Sender: TObject)； begin if edit1.text= then begin MessageDlg(資料輸入不全 !, mtWarning, mbOk, 0)； exit； end； table1.Open； with table1 do begin append； fieldbyname(bianhao).value:=trim(edit1.text)； fieldbyname(yuefen).value:=trim(2001+combobox1.text)； fieldbyname(ychuqin).value:=strtoint(trim(edit4.Text)； fieldbyname(chidao).value:=strtoint(trim(edit2.text)； fieldbyname(zaotui).value:=strtoint(trim(edit3.Text)； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： fieldbyname(qingjia).value:=strtoint(trim(edit5.Text)； fieldbyname(kuanggong).value:=strtoint(trim(edit6.Text)； post； end； end； 4 員工工資模塊 在窗體中添加 1 個(gè) Panel 組件， 1 個(gè) Bevel 組件， 1 個(gè)RadioGroup組件， 1個(gè) ComboBox組件， 1個(gè) Table組件， 1個(gè) DataSource組件。 4 個(gè) object BitBtn8: TbitBtn 按鈕（實(shí)際工資、輸入數(shù)據(jù)、刪除記錄、員工信息）， 4 個(gè) Edit 按鈕（編號(hào)、基本工資、獎(jiǎng)金、和實(shí)際工資的輸入）和 5 個(gè) Label 組件（編號(hào)、月份、基本工資、獎(jiǎng)金、和實(shí)際工資）。并設(shè)計(jì)它們的屬性。完成設(shè)計(jì)后，設(shè)計(jì)的窗體如下圖所示： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： RadioGroup 組件是一個(gè)代表 RadioButton 的組，它將幾個(gè)RadioButton 組合在一起，按鈕之間在選擇上是相互排斥的，當(dāng) 選擇其中一個(gè) RadioButton 時(shí)，其他按鈕的選擇狀態(tài)即被清除。運(yùn)用該組件，在多選一的事務(wù)處理中，是相當(dāng)有意義的。該組件的繼承關(guān)系為：TobjoGroup-Tpersistent-Tcomponent-Tcontrol-TwinControl-TcustomControl-TcustomGroupBox-Tcustom-RadioGroup,它有幾個(gè)重要的屬性： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Columns 屬性：該屬性定義組中的列數(shù)，其值可以從 1 到 16，系統(tǒng)默認(rèn)值為 1。 Items 屬性：該屬性定義各個(gè) RadioButton 的標(biāo) 題，可以在程序設(shè)計(jì)時(shí)編輯。 ItemIndex 屬性：該屬性表示用戶選擇了哪一個(gè) RadioButton。它是一個(gè)索引值，第一個(gè)按鈕的索引值為 0，第二個(gè)為 1，依次類推。若返回值為 -1，表示用戶沒有選擇按鈕。 事件分析處理 工資的計(jì)算分為兩部分：一部分是員工的基本工資，另一部分是員工的獎(jiǎng)金，與員工出勤之間有較大關(guān)系。假定最后的實(shí)際工資計(jì)算公式為：實(shí)際工資 =基本工資 +獎(jiǎng)金調(diào)整系數(shù)（出勤）。在“實(shí)際工資”按鈕的 OnClick 事件中添加如下的代碼： procedure TmainForm.BitBtn5Click(Sender: TObject)； begin if (combobox3.text=) or (edit6.text=) or (edit7.text=) or (edit8.text=) then begin MessageDlg(資料輸入不全 !, mtWarning, mbOk, 0)； exit； end； bitbtn6.Enabled:=true； /激活 輸入數(shù)據(jù) 按鈕 if radiogroup1.ItemIndex=0 then truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.3； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： if radiogroup1.itemindex=1 then truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.8； if radiogroup1.itemindex=2 then truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.0； if radiogroup1.itemindex=3 then truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.2； edit9.text:=； edit9.text:=floattostr(truesalary)； showmessage(該員工本月的實(shí)際工資為 +floattostr(truesalary)； end； 其中的 truesalary 變量已在單元文件的 private 部分定義，程序在執(zhí)行時(shí)，將 顯示本月該員工的實(shí)際工資，同時(shí)將該實(shí)際工資值添加到“實(shí)際工資”編輯框中。另外，“輸入數(shù)據(jù)”按鈕的設(shè)計(jì)狀態(tài)為不激活，在單擊“實(shí)際工資”按鈕后，則激活該按鈕，以便在右邊的DBGrid 組件中輸入員工的工資數(shù)據(jù)，故加入了“ bitbtn6.Enabled：=True；”這行代碼。事件的執(zhí)行結(jié)果如下： 其次，在“輸入數(shù)據(jù)”按鈕的 OnClick 事件中添加如下的代碼，其目的是將用戶輸入的數(shù)據(jù)添加到數(shù)據(jù)表中，同時(shí)在 DBGrid 組件中顯示出來(lái)。 procedure TmainForm.BitBtn6Click(Sender: TObject)； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： begin if (combobox3.text=) or (edit6.text=) or (edit7.text=) or (edit8.text=) then begin MessageDlg(資料輸入不全 !, mtWarning, mbOk, 0)； exit； end； table3.active:=true； /打開表 with table3 do begin append； /在末尾添加空記錄 FieldValuesbianhao := trim(edit6.text)； FieldValuesyuefen := trim(2001+combobox3.text)； FieldValuesjiangjin :=strtofloat(trim(edit8.text)； FieldValuesgongzi :=strtofloat(trim(edit7.text)； FieldValuessgongzi:=strtofloat(trim(edit9.Text)； Post； end； combobox3.text:=； /以下清空用戶輸入信息 edit6.Text:=； edit7.Text:=； edit8.Text:=； edit9.Text:=； bitbtn6.Enabled:=false； /使 輸入數(shù)據(jù) 按鈕處于不活動(dòng)狀態(tài) end； 第三，在“刪除記錄”按鈕的 OnClick 事件中添 加如下的代碼，目的是使有權(quán)限的用戶（ system 和 caiwu）刪除員工的工資信息記錄，用戶單擊該按鈕，則執(zhí)行結(jié)果如下圖： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： procedure TmainForm.BitBtn7Click(Sender: TObject)； var bn:integer； begin bn:=messagedlg(真的要?jiǎng)h除嗎？ ,mtconfirmation,mbOK,mbcancel,0)； if bn=mrok then table3.Delete； /刪除記錄 end； 最后，與“出勤信息”頁(yè)相似，對(duì)于指定編號(hào)的用戶可以查看其對(duì)應(yīng)的員工信息，只需在“員工信息”按鈕的 OnClick事件中添加如下的代碼： procedure TmainForm.BitBtn8Click(Sender: TObject)； begin table1.Open； table1.MasterSource:=datasource3； table1.MasterFields:=bianhao； /設(shè)置主從表 pagecontrol1.ActivePage:=tabsheet1； /切換到員工信息頁(yè) bitbtn13.Visible:=true； /使 返回 按鈕可見 bitbtn13.BringToFront； bitbtn13.SetFocus； dbgrid1.Align:=alclient； dbgrid1.ReadOnly:=true； end； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 5 相關(guān)查詢模塊 本頁(yè)可實(shí)現(xiàn)員工工資和出勤查詢，還可以依據(jù)員工姓名編碼查詢?cè)搯T工的基本信息。 (關(guān)于工資、出勤、姓名 )的流程圖。本頁(yè)在TabSheet4 上添加 3個(gè) GroupBox組件， 3 個(gè) BitBtn組件 ， 3個(gè) DBGrid組件， 3 個(gè) Query組件， 3 個(gè) DataSouree 組件， 4個(gè) UpDown 組件和 7個(gè) Label組件。添加組件后如下圖： 本頁(yè)的事件處理是 3 個(gè)位圖按鈕的 OnClick事件，單擊這些按鈕完成各自的查詢功能。在工資查詢部分的位圖按鈕的 OnClick事件添無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 加以下代碼： procedure TmainForm.BitBtn11Click(Sender: TObject)； begin with query2 do begin close； /關(guān)閉 Query SQL.clear； /清空 SQL 屬性 sql.Add(select * from salary where sgongzi between :p1 and :p2)； /添加 SQL語(yǔ)句 params0.AsInteger:=strtoint(trim(edit13.Text)； params1.Asinteger:=strtoint(trim(edit14.Text)； /SQL 參數(shù)傳遞 prepare； /準(zhǔn)備查詢 open； /開始查詢 end； edit13.Text:=； /清空編輯框內(nèi)容 edit14.Text:=； end； 其次，在 Query組件的 SQL 屬性中添加了查詢語(yǔ)句： select*from salary where sgongzi between:p1 and :p2,其中查詢變量 p1 和 p2由用戶在兩個(gè)編輯框中輸入的內(nèi)容賦值，最后查詢結(jié)果通過 DBGrid組件顯示。 在出勤查詢部分的位圖按鈕的 OnClick 事件中添加以下代碼： procedure TmainForm.BitBtn10Click(Sender: TObject)； begin with query3 do begin close； /關(guān)閉 Query sql.Clear； /清空 SQL 屬性 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： sql.Add(select * from onduty where (ychuqin-chidao*0.5-zaotui*0.5-qingjia*0.3-kuanggong) between :p1 and :p2)； /添加 SQL 語(yǔ)句 query3.params0.AsInteger:=strtoint(trim(edit11.Text)； query3.params1.Asinteger:=strtoint(trim(edit12.Text)； /SQL 參數(shù)傳遞 query3.Active:=true； /開始查詢 end； end； 最后在“開始查詢”按鈕的 OnClick事件中添加以下代碼，通過姓名編碼查找某位員 工的基本信息。 procedure TmainForm.BitBtn9Click(Sender: TObject)； begin with query1 do begin close； /關(guān)閉 Query sql.Clear； /清空 SQL 屬性 sql.Add(select * from information.db)； /添加 SQL 語(yǔ)句 sql.Add( where Bianma=:p1)； parambyname(p1).asstring:=trim(edit15.Text)； /SQL 參數(shù)傳遞 prepare； /準(zhǔn)備查詢 open； /開始查詢 end； edit15.Text:=； end；edit15.Text:=； end； 輸入代碼之后，單擊工具欄上的“ Run”快捷鍵或按 F9 鍵，用戶登錄之后切換到“相關(guān)查詢”頁(yè)，輸入一定的查詢條件，就可獲得如下圖所顯示結(jié)果。 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 6 密碼修改模塊 本模塊的設(shè)計(jì)使用了 Delphi 的 Cabvas 類，用于滾動(dòng)顯示“密碼使用須知”，增加程序的易用性。 （ 1） .實(shí)現(xiàn)滾動(dòng)文字 基本思路：選擇一個(gè)有 Tcavas 類的組件，如 Image，然后用某種顏色填充畫布，接著使用其他顏色顯示固定尺寸的字符串，同時(shí)使用 Timer組件控制不斷地改變字符串的位置。由于原 來(lái)位置的字符串不能自動(dòng)消失，所以需要用顏色覆蓋多余部分，這樣即可實(shí)現(xiàn)平滑的文字滾動(dòng)無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 效果。 Ststem 頁(yè)的 Timer 組件是一個(gè)定時(shí)器組件，如果用戶指定了一定的時(shí)間間隔，應(yīng)用系統(tǒng)每閣一定的時(shí)間就觸發(fā)一次 OnTimer 事件，通過編寫 OnTimer 事件句柄，就可以實(shí)現(xiàn)定時(shí)處理某些動(dòng)作。該組件的繼承關(guān)系為： TObject-Tpersistent-Tcomponent。 Timer 組件有兩個(gè)重要的屬性 Enabled 和 Interval。 Enabled 屬性：該屬性是個(gè)布爾值量，用于激活定時(shí)器。若其值為True，則定時(shí)器每閣 一定的時(shí)間間隔，就觸發(fā)一次 OnTimer 事件。 Interval 屬性：該屬性用于定義時(shí)間間隔，以毫秒為單位，默認(rèn)值為 1000。若該屬性為 0，則表示禁止定時(shí)器。 在 TabSheet5 中添加 1 個(gè) GroupBox 組件， 1 個(gè) Image 組件， 1 個(gè)Timer 組件和 2 個(gè) Label 組件。其中的 Label 組件用于顯示登錄的用戶名。 添加組件之后的才窗體如下圖： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 在 TabSheet5 的 OnShow 事件中添加如下代碼： procedure TmainForm.TabSheet5Show(Sender: TObject)； begin timer1.Enabled:=true； timer1.Interval:=50； image1.BringToFront； x:=image1.Height+20； if username=system then label25.Caption:=系統(tǒng)管理員 ； if username=renshi then label25.Caption:=人事部門員工 ； if username=caiwu then label25.Caption:=財(cái)務(wù)部門員工 ； tabsheet5.Repai