【正文】 Legend 屬性：定義圖表的比例 設(shè)置完 DBChart 后，連接數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)如圖所示 出勤信息模塊記錄了，公司員工出勤，請(qǐng)假，曠工，遲到與工資之間的聯(lián)系，它取決于你的工資還有獎(jiǎng)金。 begin 。資料 輸入不全 !39。).value:=strtoint(trim())。 4． 員工工 資模塊 在窗體中添加 1 個(gè) Panel 組件， 1 個(gè) Bevel 組件， 1 個(gè)RadioGroup 組件， 1 個(gè) ComboBox 組件， 1 個(gè) Table 組件， 1 個(gè)DataSource 組件。39。39。) or (=39。+)。 :=39。 begin 。 begin with query2 do 天道酬勤 Business School of Central South University begin close。 在出勤查詢(xún)部分的位圖按鈕的 OnClick 事件中添加以下代碼： procedure (Sender: TObject)。select * from 39。 end。 :=50。 :=clbtnface。 (10,x+30,39。4. 最好使用字母和數(shù)字的混合； 39。 完成以上代碼可實(shí)現(xiàn)滾動(dòng)文字效果，如下圖： （ 2）．其他設(shè)計(jì) 本項(xiàng)的主要工作是完成密碼修改工作。 var df:file。 end。則此時(shí)的窗口如下： 設(shè)置 RichEdit 組件 RichEdit 組件是一個(gè)標(biāo)準(zhǔn)的 RTF 編輯器，它允許用戶(hù)輸入變化的字體形式和段落格式的文本。 最后完成的“幫助說(shuō)明”頁(yè)的執(zhí)行結(jié)果如下圖： 天道酬勤 Business School of Central South University “打印本頁(yè)”代碼如下： procedure (Sender: TObject)。 if r=mrok then else exit。 運(yùn)行如下圖： “退出系統(tǒng)”代碼如下： procedure (Sender: TObject)。面向?qū)ο蟮某绦蛟O(shè)計(jì)涉及到對(duì)象、封裝、類(lèi)、繼承和多態(tài)等幾個(gè)基本概念。 begin 。 真 要 退 出 系 統(tǒng) 嗎 ？39。 LoadFromFile 方法定義為：procedure LoadFromFile。 天道酬勤 Business School of Central South University 在本程序中，還需要添加一個(gè) ImageList 組件，打開(kāi)圖象列表對(duì)話(huà)框，然后單擊“ Add“按鈕，將合適的位圖圖標(biāo)加入到“ Images”列表框中，如下圖，系統(tǒng)會(huì)自動(dòng)為 每個(gè)位圖增加索引 接下來(lái)，打開(kāi) TreeView Items Editor 對(duì)話(huà)框，指定 Image 天道酬勤 Business School of Central South University Index 為 2，即為手形圖標(biāo)，然后單擊 OK 按鈕，關(guān)閉該對(duì)話(huà)框。 end。 舊密碼輸入錯(cuò)誤提示如下圖： 天道酬勤 Business School of Central South University 同樣，在“驗(yàn)證新密碼”編輯框中的字符串要與“新密碼”編輯框中的字符串完全一致，否則也是不允許的。 end。)。系統(tǒng)默認(rèn)創(chuàng)建四個(gè)賬戶(hù) 39。財(cái)務(wù)部門(mén)員工 39。 添加組件之后的才窗體如下圖： 在 TabSheet5 的 OnShow 事件中添加如下代碼： procedure (Sender: TObject)。:=39。 //關(guān)閉 Query 。 end。添加組件后如下圖： 本頁(yè)的事件處理是 3 個(gè)位圖按鈕的 OnClick 事件，單擊這些按鈕完成各自的查詢(xún)功能。 //刪除記錄 end。 //以下清空用戶(hù)輸入信息 :=39。] := trim(39。) or (=39。 if =3 then truesalary:=strtofloat()+strtofloat()*。39。 end。 fieldbyname(39。39。 end。 SeriesList 屬性： DBChar 組件只提供了一個(gè)放置圖層表的位置，而本身并不能顯 示圖表，必須在組件中添加。本頁(yè)使用 DbChart 組件用來(lái)演示員工的缺勤情況，還可實(shí)現(xiàn)與“員工基本信息表”的表間聯(lián)系。 :=39。gongzi39。 FieldValues[39。39。在員工信息模塊的右半部分添加一個(gè)DBGrid組件，一個(gè) DataSourcu組件，一個(gè) Table組件和一個(gè) DBNavigator組件。 exit。{ Private declarations } 此處定義的 password 函數(shù)用來(lái)比較密碼，代碼如下： function (s1:string。 :=True。 天道酬勤 Business School of Central South University :=true。密碼錯(cuò)誤，請(qǐng)重新輸入，一共三次機(jī)會(huì)！ 39。 procedure (Sender: TObject。caiwu39。 if siz24 then fileok:=false。在事件的右邊窗格中雙擊鼠標(biāo)，即可打空的事件處理句柄，用戶(hù)可在此進(jìn)行編輯。 幫助說(shuō)明：本界面顯示本系統(tǒng)所有應(yīng)用信息，可打印本系統(tǒng)相關(guān)應(yīng)用信息。它繼承了 OOP（ Orient Object Pascal）語(yǔ)言中優(yōu)越的全功能平臺(tái)，以及編程效率高、代碼質(zhì)量好等優(yōu)點(diǎn)，并解決了諸如 Visual Basic 等可視化程序設(shè)計(jì)語(yǔ)言中的代碼執(zhí)行效率低下等問(wèn)題。 員工信息：本界面可實(shí)現(xiàn)員工相關(guān)信息的修改與添加。 Shift: TShiftState。)。 blockwrite(datafile,buf,12,numwrite)。 until(numread=0)。 repeat bn:=。 :=true。 :=tabsheet1。系統(tǒng)登錄窗口將在主窗體激活前顯示。 repeat blockread(datafile,buf1,12,numread)。 Bevel 組件有倆個(gè)最重要的屬性 Shape 屬性和Style 屬性。) or (=39。bianhao39。] :=trim()。39。 永久對(duì) 象的訪(fǎng)問(wèn)比動(dòng)態(tài)的簡(jiǎn)單。單擊工具欄上的 New Form 按鈕新建“輸入出勤信息”窗體。 var bn:integer。 :=true。 fieldbyname(39。).value:=strtoint(trim())。若返回值為 1，表示用戶(hù)沒(méi)有選擇按鈕。 end。 procedure (Sender: TObject)。 //在末尾添加空記錄 FieldValues[39。]:=strtofloat(trim())。 var bn:integer。 :=true。 //開(kāi)始查詢(xún) end。 //開(kāi)始查詢(xún) end。 //準(zhǔn)備查詢(xún) open。若其值為 True，則定時(shí)器每閣一 定的時(shí)間間隔，就觸發(fā)一次 OnTimer 事件。 then :=39。 (10,x,39。 (10,x+75,39。5. 隔一段時(shí)間要修改密碼； 39。 :=39。您的密碼已經(jīng)修改！ 39。 TreeView 組件的幾個(gè)重要屬性、事件和方法如下： Images 屬性：該屬性確定與 TreeView 組件 節(jié)點(diǎn)位圖圖標(biāo)相連的圖像列表。其定義為：procedure Print（ const Caption： string）；其中的 Caption 參數(shù) 天道酬勤 Business School of Central South University 用于定 義出現(xiàn)在打印紙上的標(biāo)題名。,9)。 begin x:=winexec(39。計(jì)算機(jī)在不斷發(fā)展，計(jì)算機(jī)語(yǔ)言也在不斷的更新，DELPHI 提供了靈活的可視化設(shè)計(jì)工具，將可視化界 面與面向?qū)ο蠹夹g(shù)完美、緊密的結(jié)合起來(lái)，并封裝了 Windows 編程的復(fù)雜性。 if r=mrok then else exit。在“程序作者”按鈕的OnClick 事件中添加代碼，顯示有關(guān)程序作者的信息。 procedure (Sender: TObject)。 PlainText 屬性：該屬性用來(lái)定義文本的格式，是一個(gè)無(wú)格式文本還是 RTF 格式的文本。 TreeView 組件的樹(shù)狀結(jié)構(gòu)中有一系列的節(jié)點(diǎn)，每個(gè)接點(diǎn)包括標(biāo)簽和一個(gè)可選圖象，每個(gè)接點(diǎn)又有一系列的子接點(diǎn)，用鼠標(biāo)，可以將接點(diǎn)展開(kāi)和重疊。 reset(df,1)。 begin a1:=trim()。 w:=(39。)。 begin x:=x1。 then 天道酬勤 Business School of Central South University :=39。 Ststem 頁(yè)的 Timer 組件是一個(gè)定時(shí)器組件，如果用戶(hù)指定了一定的時(shí)間間隔，應(yīng)用系統(tǒng)每閣一定的時(shí)間就觸發(fā)一次OnTimer 事件，通過(guò)編寫(xiě) OnTimer 事件句柄，就可以實(shí)現(xiàn)定時(shí)處理某些動(dòng)作。 parambyname(39。)。 //添加SQL 語(yǔ)句 params[0].AsInteger:=strtoint(trim())。 //切換到員工信息頁(yè) :=true。39。gongzi39。 exit。 end。) then begin MessageDlg(39。該組件的繼承關(guān) 天道酬勤 Business School of Central South University 系為：TobjoGroupTpersistentTponentTcontrolTwinControlTcustomControlTcustomGroupBoxTcustomRadioGroup,它有幾個(gè)重要的屬性： ? Columns 屬性：該屬性定義組中的列數(shù)，其值可以從 1 到 16，系統(tǒng)默認(rèn) 值為 1。zaotui39。 with table1 do begin append。 :=true。 。對(duì)于“員工信息”按及到主從表的問(wèn)題。改組件為字段對(duì)象封裝了一些行為，常常用于改變數(shù)據(jù)表中的字段值、 天道酬勤 Business School of Central South University 轉(zhuǎn) 換字段類(lèi)型、驗(yàn)證用戶(hù)輸入值、定義字段如何顯示和編輯、通過(guò)在 OnCalcFields事件響應(yīng)過(guò)程中編寫(xiě)代碼、計(jì)算字段以及查詢(xún)字段。學(xué)生辦公室 39。zhicheng39。 end。) or (=39。 2． 員工信息模塊 本模塊的作用是輸入和瀏覽員工的基本信息，而對(duì)于人事部門(mén)的用戶(hù)及管理遠(yuǎn)登陸還要考慮可以更改員工的基本信息。 assignfile(datafile,39。 end。 :=false。 if =39。 var cmptimes,bn:integer。 reset(datafile,1)。system39。 buf:string[60]。mailto:39。下面來(lái)說(shuō)一下本程序的各個(gè)模塊的功能及數(shù)據(jù)庫(kù)的結(jié)構(gòu)。 基于此，按照軟件工程的思想，對(duì)考勤信息管理系統(tǒng)進(jìn)行功能分析： 天道酬勤 Business School of Central South University ? 實(shí)現(xiàn)系統(tǒng)登陸功能（密碼修改功能），并限制不同用戶(hù)（包括普通工人、人事部門(mén)人員、財(cái)務(wù)部人員以及管理員）登陸所查看的信息； ? 輸入員工基本信息，包括姓名、性別、所屬部門(mén)等； ? 瀏覽和修改員工基本信息； ? 輸入出勤信息； ? 輸入基本工資和獎(jiǎng)金信息并計(jì)算實(shí)際工資； ? 瀏覽和修改員工的出勤情況，可同時(shí)查看該員工基本信息； ? 瀏覽和修改員工的工資情況，可同時(shí)查看該員工基本信息； ? 按實(shí)際工資情況查詢(xún)員工； ? 按實(shí)際出勤情況查詢(xún)員工；