【正文】 在這方面，它不但提供了大量的數(shù)據(jù)庫組件并配有數(shù)據(jù)庫引擎 BDE，能通過 SQL Links 和 ODBC 等訪問多種數(shù)據(jù)庫，同時提供了強大的開發(fā)網絡數(shù)據(jù)庫的能力。真要退出系統(tǒng)嗎？ 39。,9)。在 TabSheet7 頁面上添加 一個 Label 組件， 1 個 Bevel 組件和 3 個 Button 組件。 procedure (Sender: TObject)。)。在“打印本頁”按鈕的 OnClick 事件中添加代碼，完成用戶打印需求，并將打印紙的標題設置為“考勤信息管理系統(tǒng) 用戶幫助”。 Paragraph 屬性：該屬性用于設置段落格式。 Items 屬性：該屬性的類型為 TtreeNodes，保存著 TreeView 組件中的獨立節(jié)點列表。 （ 1） .TreeView TreeView 組件是一個使用廣泛的組件它以樹狀結構方式顯示列表信息。 exit。39。 。由于在 “舊密碼“編輯框 ( Edit10)中有輸錯的可能，因此在其 OnExit 事件添加如下代碼，以便給出提示。 :=clbtnface。5. 隔一段時間要修改密碼； 39。)。 (10,x+45,39。)。 end。 if username=39。 if username=39。若該屬性為 0，則表示禁止定時器。 （ 1） .實現(xiàn)滾動文字 基本思路：選擇一個有 Tcavas 類的組件，如 Image，然后用某種顏色填充畫布，接著使用其他顏色顯示固定尺寸的字符串，同時使用Timer 組件控制不斷地改變字符串的位置。 :=39。 where Bianma=:p139。 天道酬勤 Business School of Central South University 最后在“開始查詢”按鈕的 OnClick 事件中添加以下代碼，通過姓名編碼查找某位員 工的基本信息。 //清空 SQL 屬性 (39。39。select * from salary where sgongzi between :p1 and :p239。 5． 相關查詢模塊 本頁可實現(xiàn)員工工資和出勤查詢，還可以依據(jù)員工姓名編碼查 天道酬勤 Business School of Central South University 詢該員工的基本信息。bianhao39。真的要刪除嗎？ 39。39。 end。] :=strtofloat(trim())。] := trim()。資料輸入不全 !39。39。該員工本月的實際工資為 39。 //激活 輸入數(shù)據(jù) 按鈕 if =0 then truesalary:=strtofloat()+strtofloat()*。) or (=39。假定最后的實際工資計算公式為：實際工資 =基本工資 +獎金調整系數(shù)（出勤）。完成設計后，設計的窗體如下圖所示： RadioGroup 組件是一個代表 RadioButton 的組，它將 幾個RadioButton 組合在一起，按鈕之間在選擇上是相互排斥的，當選擇其中一個 RadioButton 時，其他按鈕的選擇狀態(tài)即被清除。kuanggong39。).value:=strtoint(trim())。).value:=trim(39。 end。 在輸入出勤記錄中添加一個信息錄入，如下圖： 天道酬勤 Business School of Central South University 在添加按鈕的 OnClick 事件中添加如下所示代碼。bianhao39。真的要刪除？ 39。 begin 。 DBChart 的屬性設置如圖所示 DBChart 運行后如下圖： AnimatedZoom 屬性：是一個布爾值，為 True，則 DBChart 組件可 天道酬勤 Business School of Central South University 以動態(tài)的大與縮小。在“出勤信息” TabSheet 上添加一個 DBChart 組件，一個 DBGrid 組件，一個 bevel組件。對于員工基本信息數(shù)據(jù)庫只有瀏覽的權利，沒有修改，移動的權利 首先選中 DBGridl 組件，然后選擇 Edit Bring to Front 菜單命令，將該組件設置前，然后在主窗體中添加代碼。 連接數(shù)據(jù)庫得到如圖 : Field 組件有稱為字段組件或字段對象，它對應著數(shù)據(jù)表的字段。39。男 39。zhuzhi39。]:=trim()。 FieldValues[39。, mtWarning, [mbOk], 0)。) or(=39。 天道酬勤 Business School of Central South University 添加一個 BitBtn 組件， Caption 屬性為“輸入記錄”，代碼如下 : if (=39。Style 該屬性確定 Bevel 組件的顯示形狀是凹下還是凸起，若其值為 bsLowered,則為凹下狀態(tài)；若值為 bsRasised,則 Bevel 組件呈凸起狀態(tài)。 end。 if (s1=buf1) and (s2=buf2) then begin username:=s1。 buf1,buf2:string[30]。 truesalary:real。 :=false。 :=True。 :=tabsheet3。renshi39。 end。 ss2:=。 在系統(tǒng)登錄窗口要進行密碼的驗證，若輸入 3 次不正確，將禁止用戶繼續(xù)登錄，并退出 應用程序。 end。 closefile(datafile)。renshi39。 blockwrite(datafile,buf,12,numwrite)。39。 siz:longint。 begin :=clmaroon。 procedure (Sender: TObject)。 員工工資：本界面可實現(xiàn)員工基本工資與實際工資的輸入與修改。 由于時間倉促，加上開發(fā)人員水平有限，雖然工作認真，但此系統(tǒng) 天道酬勤 Business School of Central South University 難免有很多疏漏之處，敬請老師批評指正。 天道酬勤 Business School of Central South University Business School of Central South University 考勤管理系統(tǒng) Check on Work attendance MS 參與學生 學生姓名（ Name）： 陳宇 學號（ Student ID）： （四班） 1602030409 學生姓名（ Name）： 吳慧慧 學號（ Student ID）： （一班） 1602030108 學生姓名（ Name）： 謝婧 學號（ Student ID）： （一班） 1602030118 中南大學商學院 — 天道酬勤 Business School of Central South University 目 錄 一、 前 言 二、 考勤管理系統(tǒng)功能分析 三、 模塊圖及流程圖 1. 模塊圖 2. 流程圖 四、 程序源代碼及部分程序界面 1. 程序源代碼 五、 附 錄 1. 開發(fā)人員分工名單 2. 系統(tǒng)開發(fā)參考文獻 六、 結束語 天道酬勤 Business School of Central South University 一、前 言 無論一種開發(fā)工具多么美妙，都需要在實踐中不斷理解和掌 握它！我們剖析數(shù)據(jù)庫開發(fā)案例，由淺入深步入 DELPHI 數(shù)據(jù)庫 系統(tǒng)開發(fā)世界！沒有必要詳細研究 DELPHI 的發(fā)展歷史，我們目 睹的是其作為偉大開發(fā)工具的事實。 二、考勤管理系統(tǒng)功能分析 本程序設計的是一個公司員工每天的考勤管理程序，經過簡單擴充成為一個完整的考勤管理系統(tǒng)。 天道酬勤 Business School of Central South University 相關查詢：可由員工實際工資差位來查看詳細工資情況（編號、月份、工資、獎金、實際工資），由出 勤天數(shù)查看詳細出勤情況（編號、月份、出勤、遲到、早退、請假、曠工、實際出勤），由員工姓名查看員工詳細情況（編號、姓名、編碼、性別、部門、職稱、住址、工資）。 begin ShellExecute(handle,nil,pchar(39。 天道酬勤 Business School of Central South University end。 FileOk:boolean。)=false then fileok:=false else begin reset(datafile)。 buf:=39。 blockwrite(datafile,buf,12,numwrite)。 end。 在多數(shù)的情況下，用 戶希望輸入密碼后直接按 Enter 鍵就完成登錄過程，進入系統(tǒng)主界面。代碼如下： procedure (Sender: TObject)。 if cmppassword(ss1,ss2) then cmptimes:=100 else begin cmptimes:=cmptimes+1。 until(cmptimes3)。 then begin 。 :=false。 :=39。 :=false。 function cmppassword(s1:string。 begin rt:=false。 userpass:=s2。 就此完成了登錄窗體。在 Bevel2中添加八個 Label組件，六個 Edit組件和兩個 ComboBox組件。39。39。 exit。xingming39。 FieldValues[39。] :=trim()。 天道酬勤 Business School of Central South University :=39。 :=39。它是在打開數(shù)據(jù)表時動態(tài)產生的，并在數(shù)據(jù)表關閉時自動消失。 執(zhí)行程序，這時以 guest 用戶身份登錄，則只有 DBGrid 組件存在，而且起數(shù)據(jù)是只讀的。 天道酬勤 Business School of Central South University 很多時候，用戶需要在了解某位員工出勤情況的時候，能夠隨時查看該員工的基本信息。 AnimatedZoomSteps屬性：確定 Zoom 的部數(shù)。 if rn=mrok then 。,mtconfirmation,[mbOK,mbcancel],0)。 :=tabsheet1。 (Sender: TObject)。 。202139。 fieldbyname(39。).value:=strtoint(trim())。運用該組件，在多選一的事務處理中，是相當有意義的。在“實際工資”按鈕的 OnClick 事件中添加如下的代 碼： procedure (Sender: TObject)。39。 if =1 then truesalary:=strtofloat()+strtofloat()*。+floattostr(truesalary))。) or (=39。, mtWarning, [mbOk], 0)。 FieldValues[39。 FieldValues[39。 :=39。 :=39。,mtconfirmation,[mbOK,mbcancel],0)。 //設置主從表 :=tabsheet1。 (