【正文】 將顯示本月該員工的實際工資，同時將該實際工資值添加到“實際工資”編輯框中。) or (=39。 end。] := trim(39。] :=strtofloat(trim())。 //以下清空用戶輸入信息 :=39。 :=false。 //刪除記錄 end。 //使 返回 按鈕可見 。添加組件后如下圖： 本頁的事件處理是 3 個位圖按鈕的 OnClick 事件，單擊這些按鈕完成各自的查詢功能。 params[1].Asinteger:=strtoint(trim())。 end。 //添加 SQL 語句 [0].AsInteger:=strtoint(trim())。 //關(guān)閉 Query 。p139。:=39。該組件的繼承關(guān)系為： TObjectTpersistentTponent。 添加組件之后的才窗體如下圖： 在 TabSheet5 的 OnShow 事件中添加如下代碼： procedure (Sender: TObject)。系統(tǒng)管理員 39。財務(wù)部門員工 39。 if x160 then x:=+20。系統(tǒng)默認創(chuàng)建四個賬戶 39。 (10,x+60,39。)。5. 隔一段時間要修改密碼； 39。 end。 if userpassa1 then begin Messagedlg(39。 舊密碼輸入錯誤提示如下圖： 天道酬勤 Business School of Central South University 同樣，在“驗證新密碼”編輯框中的字符串要與“新密碼”編輯框中的字符串完全一致，否則也是不允許的。 while not eof(df) do begin blockread(df,ss,12,numread)。 end。 TreeView 組件的重 要可由 TreeView Items Editor 對話框來完成。 天道酬勤 Business School of Central South University 在本程序中，還需要添加一個 ImageList 組件，打開圖象列表對話框，然后單擊“ Add“按鈕，將合適的位圖圖標加入到“ Images”列表框中，如下圖，系統(tǒng)會自動為 每個位圖增加索引 接下來，打開 TreeView Items Editor 對話框，指定 Image 天道酬勤 Business School of Central South University Index 為 2，即為手形圖標，然后單擊 OK 按鈕，關(guān)閉該對話框。 SelText 屬性：該屬性表示所選擇的文本字符串。 LoadFromFile 方法定義為：procedure LoadFromFile。 var x:cardinal。 真 要 退 出 系 統(tǒng) 嗎 ？39。最后在“退出系統(tǒng)”按鈕的 OnClick 事件中添加代碼，結(jié)束程序的運行。 begin 。 end。面向?qū)ο蟮某绦蛟O(shè)計涉及到對象、封裝、類、繼承和多態(tài)等幾個基本概念。 在這一個月的制作過程中，我們學到了比以前更多的知識，得到了許多朋友的幫助。 運行如下圖： “退出系統(tǒng)”代碼如下： procedure (Sender: TObject)。 var x:cardinal。 if r=mrok then else exit。 ,Control_RunDLL ,039。 最后完成的“幫助說明”頁的執(zhí)行結(jié)果如下圖： 天道酬勤 Business School of Central South University “打印本頁”代碼如下： procedure (Sender: TObject)。 Print 方法：該方法用于打印文本框內(nèi)的內(nèi)容。則此時的窗口如下： 設(shè)置 RichEdit 組件 RichEdit 組件是一個標準的 RTF 編輯器，它允許用戶輸入變化的字體形式和段落格式的文本。 如下圖： 天道酬勤 Business School of Central South University 單擊 New Item或 New SubItem按鈕可建立不同的新列表，同時在 Text編輯框中輸入名稱，并選擇合適的 Image Index 指定位圖圖象，完成設(shè)置后點 OK。 end。 messagedlg(39。 var df:file。,mtwarning,[mbok],0)。 完成以上代碼可實現(xiàn)滾動文字效果，如下圖： （ 2）．其他設(shè)計 本項的主要工作是完成密碼修改工作。 h:=(39。4. 最好使用字母和數(shù)字的混合； 39。)。 (10,x+30,39。 :=clblue。 :=clbtnface。renshi39。 :=50。 Enabled 屬性：該屬性是個布爾值量，用于激活定時器。 end。 //SQL 參數(shù)傳遞 prepare。select * from 39。 //SQL 參數(shù)傳遞 :=true。 在出勤查詢部分的位圖按鈕的 OnClick 事件中添加以下代碼： procedure (Sender: TObject)。 //準備查詢 open。 begin with query2 do 天道酬勤 Business School of Central South University begin close。 :=alclient。 begin 。 第三，在“刪除記錄”按鈕的 OnClick 事件中添加如下的代碼，目的是使有權(quán)限的用戶（ system 和 caiwu）刪除員工的工資信息記錄，用戶單擊該按鈕，則執(zhí)行結(jié)果如下圖： 天道酬勤 Business School of Central South University procedure (Sender: TObject)。 :=39。sgongzi39。+)。 //打開表 with table3 do begin append。) or (=39。事件的執(zhí)行結(jié)果如下： 其次，在“輸入數(shù)據(jù)”按鈕的 OnClick 事件中添加如下的代碼，其目的是將用戶輸入的數(shù)據(jù)添加到數(shù)據(jù)表中，同時在 DBGrid 組件中 天道酬勤 Business School of Central South University 顯示出來。39。 天道酬勤 Business School of Central South University exit。39。它是一個索引值，第一個按鈕的索引值為 0，第二個為 1，依次類推。 4． 員工工 資模塊 在窗體中添加 1 個 Panel 組件， 1 個 Bevel 組件， 1 個RadioGroup 組件， 1 個 ComboBox 組件， 1 個 Table 組件， 1 個DataSource 組件。qingjia39。).value:=strtoint(trim())。).value:=trim()。資料 輸入不全 !39。 :=alclient。 begin 。 “刪除信息記錄”代碼如下： procedure (Sender: TObject)。 Legend 屬性：定義圖表的比例 設(shè)置完 DBChart 后，連接數(shù)據(jù)庫，數(shù)據(jù)庫如圖所示 出勤信息模塊記錄了，公司員工出勤，請假，曠工，遲到與工資之間的聯(lián)系，它取決于你的工資還有獎金。單擊該按鈕可輸入某位員工的的出勤信息，輸入完畢后，在 DBGrid2 中將顯示添加的記錄。Tchart 是 TeeChart庫中最重要的一個組件，該組件從 Tpanel 類中繼承了所有的屬性和方法。 在 Table 組件中 ,Delphi 提供了 FieldByName 方法，可以通過字段名訪問字段對象，從而更加方便。 :=39。 :=39。 Post。bumen39。] := trim()。 FieldValues[39。39。39。計算字段是在程序設(shè)計中常用的一個手段，它在程序運行時生成，在程序結(jié)束時 天道酬勤 Business School of Central South University 消失，不會在數(shù)據(jù)表中占用空間?？稍O(shè)置組件為凹下和凸起狀態(tài)。 until(numread=0)。 reset(datafile,1)。 var datafile:file。 應(yīng)該注意的是 TabSheet 組件有一個 TabVaisible 屬性，該屬性用來定義該 TabSheet 組件是否在 PageControl 組件中可視，通過給該屬性賦值，可限制某些用戶對某些信息的瀏覽和修改。 :=false。 then begin 。 end else if =39。 :=tabsheet1。 end。 if passwordin=false then begin passwordin:=true。 begin if key=13 then begin perform(WM_NEXTDLGCTL,0,0)。 blockread(datafile,buf,12,numread)。 buf:=39。renshi39。 if fileok=false then begin rewrite(datafile,1)。39。 procedure (Sender: TObject)。 procedure (Sender: TObject。 二、數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計 本程序用到了三個數(shù)據(jù)表，一個是員工基本信息表，一個是出勤信息表，一個是工資表，全部存在 Paradox 數(shù)據(jù)庫中，下面是 個數(shù)據(jù)庫表的數(shù)據(jù)結(jié)構(gòu)： （一） 員工基本信息表 字段名 字段類型 字段大小 編號（ bianhao） 文本 6 姓名 (xingming) 文本 10 姓名編碼 (xingmingbianma) 文本 5 天道酬勤 Business School of Central South University 性別（ xingbie） 文本 2 部門 (bumen) 文本 12 職稱 (zhicheng) 文本 12 住址 (zhuzhi) 文本 40 基本工資 (jibengongzi) 數(shù)字 （二）出勤情況表 字段名 字段類型 字段大小 員工編號 (yuangongbianhao) 文本 6 月份 (yuefen) 文本 6 應(yīng)出勤 (yingchuqin) 數(shù)字 遲到 (chidao) 數(shù)字 早退 (zaotui) 數(shù)字 請假 數(shù)字 曠工 數(shù)字 實際出勤 數(shù)字 （三）工資表 字段名 字段類型 字段大小 員工編號 (yuangongbianhao) 文本 6 月份 (yuefen) 文本 6 基本工資 (jibengongzi) 數(shù)字 獎金 (jiangjin) 數(shù)字 實際工資（ shijigongzi） 數(shù)字 三、模塊圖及流程圖 天道酬勤 Business School of Central South University 考勤系統(tǒng)主模塊圖： 退出系統(tǒng) 基本信息輸入 考勤管理系統(tǒng) 員 工 信 息 出勤信息 員工工資 相關(guān)查詢 密碼修改 幫助說明 退出系統(tǒng) 輸入記錄 刪除添加 輸入刪除 員工信息 實際工資 輸入數(shù)據(jù)