【正文】 ness School of Central South University Index 為 2，即為手形圖標(biāo)，然后單擊 OK 按鈕，關(guān)閉該對(duì)話框。 Lines 是一個(gè)Tstrings 類(lèi)型的對(duì)象，運(yùn) 用它的方法可以對(duì)字符串進(jìn)行增加、刪除、修改等操作。 SelText 屬性：該屬性表示所選擇的文本字符串。 本程序中添加一個(gè) RichEdit 組件和一個(gè) BitBtn 組件。 LoadFromFile 方法定義為：procedure LoadFromFile。考勤信 息管理系統(tǒng) 用戶幫助 39。 var x:cardinal。 end。 真 要 退 出 系 統(tǒng) 嗎 ？39。 8． 退出系統(tǒng)模塊 本模塊的設(shè)計(jì)用于提供附加信息和終止程序運(yùn)行的功能。最后在“退出系統(tǒng)”按鈕的 OnClick 事件中添加代碼，結(jié)束程序的運(yùn)行。 ,Control_RunDLL ,039。 begin 。 begin r:=messagedlg(39。 end。它的優(yōu)勢(shì)之一是開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序。面向?qū)ο蟮某绦蛟O(shè)計(jì)涉及到對(duì)象、封裝、類(lèi)、繼承和多態(tài)等幾個(gè)基本概念。 面向?qū)ο蟪绦蛟O(shè)計(jì)是 Delphi 開(kāi)發(fā)程序的基礎(chǔ)。 在這一個(gè)月的制作過(guò)程中，我們學(xué)到了比以前更多的知識(shí)，得到了許多朋友的幫助。,mtconfirmation,[mbOK,mbCancel],0)。 運(yùn)行如下圖： “退出系統(tǒng)”代碼如下： procedure (Sender: TObject)。 end。 var x:cardinal。設(shè)置完它們的屬性后，其設(shè)計(jì)結(jié)果窗口參見(jiàn)下圖： 天道酬勤 Business School of Central South University 接下來(lái)，在“系統(tǒng)信息”按鈕的 OnClick 事件中添加如下的代碼，用于顯示 Windows 控制面板中的“ 系統(tǒng)”屬性。 if r=mrok then else exit。 var r:integer。 ,Control_RunDLL ,039。 end。 最后完成的“幫助說(shuō)明”頁(yè)的執(zhí)行結(jié)果如下圖： 天道酬勤 Business School of Central South University “打印本頁(yè)”代碼如下： procedure (Sender: TObject)。 TreeView 組件的 AbsoluteIndex 屬性是指某個(gè)接點(diǎn)的絕對(duì)位置，也就是該接點(diǎn)與第一個(gè)接點(diǎn)之間的距離，在 Delphi 中第一個(gè)接點(diǎn)為 Item[0]，其他依次類(lèi)推。 Print 方法：該方法用于打印文本框內(nèi)的內(nèi)容。段落格式是一個(gè)TparaAttributes 類(lèi)型的對(duì)象。則此時(shí)的窗口如下： 設(shè)置 RichEdit 組件 RichEdit 組件是一個(gè)標(biāo)準(zhǔn)的 RTF 編輯器，它允許用戶輸入變化的字體形式和段落格式的文本。要在運(yùn)行期間訪問(wèn)某個(gè)節(jié)點(diǎn)，可加入代碼：My： =TreeView1。 如下圖： 天道酬勤 Business School of Central South University 單擊 New Item或 New SubItem按鈕可建立不同的新列表，同時(shí)在 Text編輯框中輸入名稱(chēng)，并選擇合適的 Image Index 指定位圖圖象，完成設(shè)置后點(diǎn) OK。典型的應(yīng)用為 Windows 下的資源管理器。 end。 end。 messagedlg(39。)。 var df:file。 end。,mtwarning,[mbok],0)。 procedure (Sender: TObject)。 完成以上代碼可實(shí)現(xiàn)滾動(dòng)文字效果，如下圖： （ 2）．其他設(shè)計(jì) 本項(xiàng)的主要工作是完成密碼修改工作。 (10,h+x+152)。 h:=(39。)。4. 最好使用字母和數(shù)字的混合； 39。 (10,x+90,39。)。1. 用戶首次登錄，立即修改密碼； 39。 (10,x+30,39。 :=clblack。 :=clblue。 在 Timer 的 OnTimer 事件中添加如下的代碼，用于實(shí)現(xiàn)滾動(dòng)文字效果： procedure (Sender: TObject)。 :=clbtnface。caiwu39。renshi39。system39。 :=50。 在 TabSheet5 中添加 1 個(gè) GroupBox 組件， 1 個(gè) Image 組件， 1個(gè) Timer 組件和 2 個(gè) Label 組件。 Enabled 屬性：該屬性是個(gè)布爾值量，用于激活定時(shí)器。由于原來(lái) 位置的字符串不能自動(dòng)消失，所以需要用顏色覆蓋多余部分，這樣即可實(shí)現(xiàn)平滑的文字滾動(dòng)效果。 end。39。 //SQL 參數(shù)傳遞 prepare。)。select * from 39。 procedure (Sender: TObject)。 //SQL 參數(shù)傳遞 :=true。select * from onduty where (ychuqinchidao***) between :p1 and :p239。 在出勤查詢部分的位圖按鈕的 OnClick 事件中添加以下代碼： procedure (Sender: TObject)。 //清空編輯框內(nèi)容 :=39。 //準(zhǔn)備查詢 open。)。 begin with query2 do 天道酬勤 Business School of Central South University begin close。 (關(guān)于工資、出勤、姓名 )的流程圖。 :=alclient。 //設(shè)置主從表 :=tabsheet1。 begin 。,mtconfirmation,[mbOK,mbcancel],0)。 第三，在“刪除記錄”按鈕的 OnClick 事件中添加如下的代碼，目的是使有權(quán)限的用戶（ system 和 caiwu）刪除員工的工資信息記錄，用戶單擊該按鈕，則執(zhí)行結(jié)果如下圖： 天道酬勤 Business School of Central South University procedure (Sender: TObject)。 :=39。 :=39。 :=39。sgongzi39。 FieldValues[39。+)。 FieldValues[39。 //打開(kāi)表 with table3 do begin append。, mtWarning, [mbOk], 0)。) or (=39。) or (=39。事件的執(zhí)行結(jié)果如下： 其次，在“輸入數(shù)據(jù)”按鈕的 OnClick 事件中添加如下的代碼，其目的是將用戶輸入的數(shù)據(jù)添加到數(shù)據(jù)表中，同時(shí)在 DBGrid 組件中 天道酬勤 Business School of Central South University 顯示出來(lái)。+floattostr(truesalary))。39。 if =1 then truesalary:=strtofloat()+strtofloat()*。 天道酬勤 Business School of Central South University exit。39。39。在“實(shí)際工資”按鈕的 OnClick 事件中添加如下的代 碼： procedure (Sender: TObject)。它是一個(gè)索引值，第一個(gè)按鈕的索引值為 0，第二個(gè)為 1，依次類(lèi)推。運(yùn)用該組件，在多選一的事務(wù)處理中，是相當(dāng)有意義的。 4． 員工工 資模塊 在窗體中添加 1 個(gè) Panel 組件， 1 個(gè) Bevel 組件， 1 個(gè)RadioGroup 組件， 1 個(gè) ComboBox 組件， 1 個(gè) Table 組件， 1 個(gè)DataSource 組件。).value:=strtoint(trim())。qingjia39。 fieldbyname(39。).value:=strtoint(trim())。202139。).value:=trim()。 。資料 輸入不全 !39。 (Sender: TObject)。 :=alclient。 :=tabsheet1。 begin 。,mtconfirmation,[mbOK,mbcancel],0)。 “刪除信息記錄”代碼如下： procedure (Sender: TObject)。 if rn=mrok then 。 Legend 屬性：定義圖表的比例 設(shè)置完 DBChart 后，連接數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)如圖所示 出勤信息模塊記錄了，公司員工出勤，請(qǐng)假，曠工，遲到與工資之間的聯(lián)系，它取決于你的工資還有獎(jiǎng)金。 AnimatedZoomSteps屬性：確定 Zoom 的部數(shù)。單擊該按鈕可輸入某位員工的的出勤信息，輸入完畢后，在 DBGrid2 中將顯示添加的記錄。 天道酬勤 Business School of Central South University 很多時(shí)候，用戶需要在了解某位員工出勤情況的時(shí)候，能夠隨時(shí)查看該員工的基本信息。Tchart 是 TeeChart庫(kù)中最重要的一個(gè)組件，該組件從 Tpanel 類(lèi)中繼承了所有的屬性和方法。 執(zhí)行程序，這時(shí)以 guest 用戶身份登錄，則只有 DBGrid 組件存在，而且起數(shù)據(jù)是只讀的。 在 Table 組件中 ,Delphi 提供了 FieldByName 方法，可以通過(guò)字段名訪問(wèn)字段對(duì)象，從而更加方便。它是在打開(kāi)數(shù)據(jù)表時(shí)動(dòng)態(tài)產(chǎn)生的，并在數(shù)據(jù)表關(guān)閉時(shí)自動(dòng)消失。 :=39。 :=39。 :=39。 天道酬勤 Business School of Central South University :=39。 Post。] :=trim()。bumen39。 FieldValues[39。] := trim()。xingming39。 FieldValues[39。 exit。39。39。39。39。計(jì)算字段是在程序設(shè)計(jì)中常用的一個(gè)手段，它在程序運(yùn)行時(shí)生成，在程序結(jié)束時(shí) 天道酬勤 Business School of Central South University 消失，不會(huì)在數(shù)據(jù)表中占用空間。在 Bevel2中添加八個(gè) Label組件，六個(gè) Edit組件和兩個(gè) ComboBox組件?？稍O(shè)置組件為凹下和凸起狀態(tài)。 就此完成了登錄窗體。 until(numread=0)。 userpass:=s2。 reset(datafile,1)。 begin rt:=false。 var datafile:file。 function cmppassword(s1:string。 應(yīng)該注意的是 TabSheet 組件有一個(gè) TabVaisible 屬性，該屬性用來(lái)定義該 TabSheet 組件是否在 PageControl 組件中可視，通過(guò)給該屬性賦值，可限制某些用戶對(duì)某些信息的瀏覽和修改。 :=false。 :=false。 :=39。 then begin 。 :=false。 end else if =39。 then begin 。 :=tabsheet1。 until(cmptimes3)。 end。 if cmppassword(ss1,ss2) then cmptimes:=100 else begin cmptimes:=cmptimes+1。 if passwordin=false then begin passwordin:=true。代碼如下： procedure (Sender: TObject)。 begin if key=13 then begin perform(WM_NEXTDLGCTL,0,0)。 在多數(shù)的情況下，用 戶希望輸入密碼后直接按 Enter 鍵就完成登錄過(guò)程，進(jìn)入系統(tǒng)主界面。 blockread(