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