【文章內(nèi)容簡介】 rim()。 fieldvalues[39。bianma39。]:=trim()。 FieldValues[39。zhicheng39。] := trim()。 FieldValues[39。bumen39。] :=trim()。 FieldValues[39。zhuzhi39。] :=trim()。 FieldValues[39。gongzi39。] :=strtofloat(trim())。 Post。 end。 :=39。男 39。 天道酬勤 Business School of Central South University :=39。學(xué)生辦公室 39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end。 連接數(shù)據(jù)庫得到如圖 : Field 組件有稱為字段組件或字段對象，它對應(yīng)著數(shù)據(jù)表的字段。它是在打開數(shù)據(jù)表時動態(tài)產(chǎn)生的，并在數(shù)據(jù)表關(guān)閉時自動消失。改組件為字段對象封裝了一些行為，常常用于改變數(shù)據(jù)表中的字段值、 天道酬勤 Business School of Central South University 轉(zhuǎn) 換字段類型、驗證用戶輸入值、定義字段如何顯示和編輯、通過在 OnCalcFields事件響應(yīng)過程中編寫代碼、計算字段以及查詢字段。 通過字段編輯器可以建立永久性的 Field 列表 Dellphi 應(yīng)用程序使用這些永久性的字段會加入到程序庫單元的 Tform 類型定義中，即使數(shù)據(jù)表中的基本結(jié)構(gòu)發(fā)生了變化。這些字段也一直保留如果原來的程序?qū)ο蟛淮嬖诹?，那就?Delphi 應(yīng)用程序在運行的過程中給出了錯誤信息。 在 Table 組件中 ,Delphi 提供了 FieldByName 方法，可以通過字段名訪問字段對象，從而更加方便。 永久對 象的訪問比動態(tài)的簡單。 用戶通過 Field 對象的 Value 進行 從字段對象中讀取字段值給變量賦值必須保證其數(shù)據(jù)類型相匹配，否則會出錯 guest 用戶只是作為普通員工的登錄。對于員工基本信息數(shù)據(jù)庫只有瀏覽的權(quán)利，沒有修改，移動的權(quán)利 首先選中 DBGridl 組件，然后選擇 Edit Bring to Front 菜單命令，將該組件設(shè)置前，然后在主窗體中添加代碼。 執(zhí)行程序，這時以 guest 用戶身份登錄，則只有 DBGrid 組件存在，而且起數(shù)據(jù)是只讀的。 天道酬勤 Business School of Central South University 運行如窗口所示 3． 出勤 信息模塊 出勤信息模塊的作用是輸入、瀏覽以及修改員工的出勤信息，并對不同身份登陸的用戶提供功能限制。本頁使用 DbChart 組件用來演示員工的缺勤情況，還可實現(xiàn)與“員工基本信息表”的表間聯(lián)系。本模塊主要用到 DBChart 組件，它來源于 Tchart,并繼承了 Tchart 所有的功能。Tchart 是 TeeChart庫中最重要的一個組件，該組件從 Tpanel 類中繼承了所有的屬性和方法。 DBChart 組件不能直接顯示各種圖表，而要依靠它的子成員 Series 來實現(xiàn)圖表的繪制。 DBChart 組件的屬性、子屬性繁多復(fù)雜，對屬 性的設(shè)置可以通過 EditDBChart 對話框來實現(xiàn)。在“出勤信息” TabSheet 上添加一個 DBChart 組件，一個 DBGrid 組件，一個 bevel組件。 天道酬勤 Business School of Central South University 很多時候，用戶需要在了解某位員工出勤情況的時候，能夠隨時查看該員工的基本信息。對于“員工信息”按及到主從表的問題。鈕的OnClick 事件的處理，涉 若在程序設(shè)計期就想實現(xiàn)這種關(guān)聯(lián)，用戶可在設(shè)置 MasterSource 屬性后，單擊 MasterFields 屬性右邊的“ ? ”按鈕，打開：“ Fiedl Link Decigner” 對話框，在 Detail Fields 和 Master Fields 列表中建立關(guān)聯(lián)的字段，單擊“ Add”按鈕，則在 Joined Fields 列表框中就會出現(xiàn)建立關(guān)聯(lián)的字段 由于保證各個 Tabsheet 的獨立性，因此最好在代碼中實現(xiàn)這種主從表關(guān)系，即設(shè)置 MasterSource 和 MasterFields 屬性。 設(shè)置一個出勤信息按鈕而對于 Guest 用戶該按鈕是不可用的。單擊該按鈕可輸入某位員工的的出勤信息，輸入完畢后，在 DBGrid2 中將顯示添加的記錄。單擊工具欄上的 New Form 按鈕新建“輸入出勤信息”窗體。 打開 DBChart 的 3 種方法 1． 雙擊 DBChart 組件 2． 單擊 SeriesList 屬性右邊的“ ? ”按鈕 3． 右鍵單擊 DBChart 組件，彈出的快捷鍵中選擇“ Edit 天道酬勤 Business School of Central South University Chart?” 。 DBChart 的屬性設(shè)置如圖所示 DBChart 運行后如下圖： AnimatedZoom 屬性：是一個布爾值，為 True，則 DBChart 組件可 天道酬勤 Business School of Central South University 以動態(tài)的大與縮小。 AnimatedZoomSteps屬性：確定 Zoom 的部數(shù)。是動畫屬性。 SeriesList 屬性： DBChar 組件只提供了一個放置圖層表的位置，而本身并不能顯 示圖表，必須在組件中添加。 Title 屬性：用來確定 DBChar 組件中的標(biāo)題文本。 Legend 屬性：定義圖表的比例 設(shè)置完 DBChart 后，連接數(shù)據(jù)庫，數(shù)據(jù)庫如圖所示 出勤信息模塊記錄了，公司員工出勤，請假，曠工，遲到與工資之間的聯(lián)系，它取決于你的工資還有獎金。讓管理人員很方便的來管理好公司員工的出勤情況！能更好的讓員工們自覺的上班下班！ 員工出勤信息模塊運行如下圖： 天道酬勤 Business School of Central South University “輸入出勤信息”代碼如下： procedure (Sender: TObject)。 var rn:integer。 begin 。 if rn=mrok then 。 。 。 end。 “刪除信息記錄”代碼如下： procedure (Sender: TObject)。 var bn:integer。 begin bn:=messagedlg(39。真的要刪除？ 39。,mtconfirmation,[mbOK,mbcancel],0)。 if bn=mrok then 。 end。 “員工信息”代碼如下： procedure (Sender: TObject)。 begin 。 :=datasource2。 :=39。bianhao39。 :=tabsheet1。 :=true。 。 。 :=alclient。 :=true。 end。 在輸入出勤記錄中添加一個信息錄入，如下圖： 天道酬勤 Business School of Central South University 在添加按鈕的 OnClick 事件中添加如下所示代碼。 (Sender: TObject)。 begin if =39。39。 then begin MessageDlg(39。資料 輸入不全 !39。, mtWarning, [mbOk], 0)。 exit。 end。 。 with table1 do begin append。 fieldbyname(39。bianhao39。).value:=trim()。 fieldbyname(39。yuefen39。).value:=trim(39。202139。+)。 fieldbyname(39。ychuqin39。).value:=strtoint(trim())。 fieldbyname(39。chidao39。).value:=strtoint(trim())。 fieldbyname(39。zaotui39。).value:=strtoint(trim())。 fieldbyname(39。qingjia39。).value:=strtoint(trim())。 fieldbyname(39。kuanggong39。).value:=strtoint(trim())。 post。 end。 end。 4． 員工工 資模塊 在窗體中添加 1 個 Panel 組件， 1 個 Bevel 組件， 1 個RadioGroup 組件， 1 個 ComboBox 組件， 1 個 Table 組件， 1 個DataSource 組件。 4 個 object BitBtn8: TbitBtn 按鈕（實際工資、 天道酬勤 Business School of Central South University 輸入數(shù)據(jù)、刪除記錄、員工信息）， 4 個 Edit 按鈕（編號、基本工資、獎金、和實際工資的輸入）和 5 個 Label 組件（編號、月份、基本工資、獎金、和實際工資）。并設(shè)計它們的屬性。完成設(shè)計后，設(shè)計的窗體如下圖所示： RadioGroup 組件是一個代表 RadioButton 的組，它將 幾個RadioButton 組合在一起，按鈕之間在選擇上是相互排斥的，當(dāng)選擇其中一個 RadioButton 時，其他按鈕的選擇狀態(tài)即被清除。運用該組件，在多選一的事務(wù)處理中，是相當(dāng)有意義的。該組件的繼承關(guān) 天道酬勤 Business School of Central South University 系為：TobjoGroupTpersistentTponentTcontrolTwinControlTcustomControlTcustomGroupBoxTcustomRadioGroup,它有幾個重要的屬性： ? Columns 屬性：該屬性定義組中的列數(shù)，其值可以從 1 到 16，系統(tǒng)默認(rèn) 值為 1。 ? Items 屬性：該屬性定義各個 RadioButton 的標(biāo)題，可以在程序設(shè)計時編輯。 ? ItemIndex 屬性：該屬性表示用戶選擇了哪一個 RadioButton。它是一個索引值，第一個按鈕的索引值為 0，第二個為 1，依次類推。若返回值為 1，表示用戶沒有選擇按鈕。 事件分析處理 工資的計算分為兩部分：一部分是員工的基本工資，另一部分是員工的獎金，與員工出勤之間有較大關(guān)系。假定最后的實際工資計算公式為：實際工資 =基本工資 +獎金調(diào)整系數(shù)（出勤）。在“實際工資”按鈕的 OnClick 事件中添加如下的代 碼： procedure (Sender: TObject)。 begin if (=39。39。) or (=39。39。) or (=39。39。) or (=39。39。) then begin MessageDlg(39。資料輸入不全 !39。, mtWarning, [mbOk], 0)。 天道酬勤 Business School of Central South University exit。 end。 :=true。 //激活 輸入數(shù)據(jù) 按鈕 if =0 then truesalary:=strtofloat()+strtofloat()*。 if =1 then truesalary:=strtofloat()+strtofloat()*。 if =2 then truesalary:=strtofloat()+strtofloat()*。 if =3 then truesalary:=strtofloat()+strtofloat()*。 :=3