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