【正文】 勤 Business School of Central South University cmptimes:=1。 ss2:=。,mtwarning,[mbok],0)。 end。 then begin 。renshi39。 :=false。 :=tabsheet3。guest39。 :=True。 :=true。 :=false。 end。 truesalary:real。s2:string):boolean。 buf1,buf2:string[30]。)。 if (s1=buf1) and (s2=buf2) then begin username:=s1。 end。 end。事實上， Bevel 組件是一個修飾組件，允許用戶在窗體中顯示線、框和框架，常用于分割顯示不同應(yīng)用組件。Style 該屬性確定 Bevel 組件的顯示形狀是凹下還是凸起，若其值為 bsLowered,則為凹下狀態(tài)；若值為 bsRasised,則 Bevel 組件呈凸起狀態(tài)。 不是任何一個用戶登陸后都可以對員工基本信息進(jìn)行 修改的，因此將 Dbnavigator組件的 Visible屬性設(shè)置為 False,而對 system和 renshi兩個用戶，則在程序運行時，將 Visible 屬性設(shè)置為 True. 根據(jù)需要，有時要在數(shù)據(jù)表內(nèi)增加一些自定義的字段，常常是根據(jù)表中其他字段動態(tài)地計算出來的，這些字段可稱為計算字段。 天道酬勤 Business School of Central South University 添加一個 BitBtn 組件， Caption 屬性為“輸入記錄”，代碼如下 : if (=39。) or (=39。) or(=39。) or (=39。, mtWarning, [mbOk], 0)。 with table1 do begin append。 FieldValues[39。sex39。]:=trim()。 FieldValues[39。zhuzhi39。] :=strtofloat(trim())。男 39。39。39。39。 連接數(shù)據(jù)庫得到如圖 : Field 組件有稱為字段組件或字段對象，它對應(yīng)著數(shù)據(jù)表的字段。這些字段也一直保留如果原來的程序?qū)ο蟛淮嬖诹?，那就?Delphi 應(yīng)用程序在運行的過程中給出了錯誤信息。對于員工基本信息數(shù)據(jù)庫只有瀏覽的權(quán)利，沒有修改，移動的權(quán)利 首先選中 DBGridl 組件，然后選擇 Edit Bring to Front 菜單命令，將該組件設(shè)置前，然后在主窗體中添加代碼。本模塊主要用到 DBChart 組件，它來源于 Tchart,并繼承了 Tchart 所有的功能。在“出勤信息” TabSheet 上添加一個 DBChart 組件，一個 DBGrid 組件，一個 bevel組件。 設(shè)置一個出勤信息按鈕而對于 Guest 用戶該按鈕是不可用的。 DBChart 的屬性設(shè)置如圖所示 DBChart 運行后如下圖： AnimatedZoom 屬性：是一個布爾值，為 True，則 DBChart 組件可 天道酬勤 Business School of Central South University 以動態(tài)的大與縮小。 Title 屬性：用來確定 DBChar 組件中的標(biāo)題文本。 begin 。 end。真的要刪除？ 39。 “員工信息”代碼如下： procedure (Sender: TObject)。bianhao39。 。 在輸入出勤記錄中添加一個信息錄入，如下圖： 天道酬勤 Business School of Central South University 在添加按鈕的 OnClick 事件中添加如下所示代碼。 then begin MessageDlg(39。 end。bianhao39。).value:=trim(39。ychuqin39。).value:=strtoint(trim())。 fieldbyname(39。kuanggong39。 end。完成設(shè)計后，設(shè)計的窗體如下圖所示： RadioGroup 組件是一個代表 RadioButton 的組，它將 幾個RadioButton 組合在一起，按鈕之間在選擇上是相互排斥的，當(dāng)選擇其中一個 RadioButton 時，其他按鈕的選擇狀態(tài)即被清除。 ? ItemIndex 屬性：該屬性表示用戶選擇了哪一個 RadioButton。假定最后的實際工資計算公式為：實際工資 =基本工資 +獎金調(diào)整系數(shù)（出勤）。) or (=39。) or (=39。, mtWarning, [mbOk], 0)。 //激活 輸入數(shù)據(jù) 按鈕 if =0 then truesalary:=strtofloat()+strtofloat()*。 :=39。該員工本月的實際工資為 39。另外，“輸入數(shù)據(jù)”按鈕的設(shè)計狀態(tài)為不激活，在單擊“實際工資”按鈕后，則激活該按鈕，以便在右邊的 DBGrid 組件中輸入員工的工資數(shù)據(jù)，故加入了“ ： =True；”這行代碼。39。39。資料輸入不全 !39。 :=true。] := trim()。202139。] :=strtofloat(trim())。 FieldValues[39。 end。39。39。 //使 輸入數(shù)據(jù) 按鈕處于不 活動狀態(tài) end。真的要刪除嗎？ 39。 最后，與“出勤信息”頁相似，對于指定編號的用戶可以查看其對應(yīng)的員工信息，只需在“員工信息”按鈕的 OnClick 事件中添加如下的代碼： procedure (Sender: TObject)。bianhao39。 。 5． 相關(guān)查詢模塊 本頁可實現(xiàn)員工工資和出勤查詢，還可以依據(jù)員工姓名編碼查 天道酬勤 Business School of Central South University 詢該員工的基本信息。在工資查詢部分的位圖按鈕的 OnClick 事件添加以下代碼： procedure (Sender: TObject)。select * from salary where sgongzi between :p1 and :p239。 //SQL 參數(shù)傳遞 prepare。39。 其次，在 Query組件的 SQL屬性中添加了查詢語句： select*from salary where sgongzi between:p1 and :p2,其中查詢變量 p1 和 p2由用戶在兩個編輯框中輸入的內(nèi)容賦值，最后查詢結(jié)果通過 DBGrid組件顯示。 //清空 SQL 屬性 (39。 [1].Asinteger:=strtoint(trim())。 天道酬勤 Business School of Central South University 最后在“開始查詢”按鈕的 OnClick 事件中添加以下代碼，通過姓名編碼查找某位員 工的基本信息。 //清空 SQL 屬性 (39。 where Bianma=:p139。).asstring:=trim()。 :=39。39。 （ 1） .實現(xiàn)滾動文字 基本思路：選擇一個有 Tcavas 類的組件，如 Image，然后用某種顏色填充畫布，接著使用其他顏色顯示固定尺寸的字符串，同時使用Timer 組件控制不斷地改變字符串的位置。Timer 組件有兩個重要的屬性 Enabled 和 Interval。若該屬性為 0，則表示禁止定時器。 begin :=true。 if username=39。 if username=39。 if username=39。 。 end。 :=11。)。)。 (10,x+45,39。2. 最好不要使用生日、電話等 39。)。 (10,x+105,39。5. 隔一段時間要修改密碼； 39。)。 :=clbtnface。 天道酬勤 Business School of Central South University 程序中的變量 x,w,h 需要定義為全局變量，即在 implementation 模塊前定義 (Var x,w,h： integer； pic： Trect； )。由于在 “舊密碼“編輯框 ( Edit10)中有輸錯的可能，因此在其 OnExit 事件添加如下代碼，以便給出提示。舊密碼不正確 ,請重新輸入！ 39。 。 最后，需要在“確定”按鈕的 OnClick 事件中完成密碼修改工作，添加如下代碼： procedure (Sender: TObject)。39。 if ss=username then begin blockwrite(df,a2,12,numread)。 exit。 closefile(df)。 （ 1） .TreeView TreeView 組件是一個使用廣泛的組件它以樹狀結(jié)構(gòu)方式顯示列表信息。雙擊 TreeView 組件或單擊其 Items 屬性右邊的“ ? ”按鈕，均可以打開這個對話框，向 TreeView 組件中添加列表內(nèi)容。 Items 屬性：該屬性的類型為 TtreeNodes，保存著 TreeView 組件中的獨立節(jié)點列表。在TreeView 的 Images屬性中選擇 ImageList1。 Paragraph 屬性：該屬性用于設(shè)置段落格式。 Clear 方法：該方法用于刪除文本框的所有文本。在“打印本頁”按鈕的 OnClick 事件中添加代碼，完成用戶打印需求，并將打印紙的標(biāo)題設(shè)置為“考勤信息管理系統(tǒng) 用戶幫助”。本程序代碼中載入的文本文件都是事選編輯好的文檔，注意他們的保存位置應(yīng)應(yīng)與源程序在一個目錄下，編譯時才會出錯。)。 begin x:=winexec(39。 procedure (Sender: TObject)。,mtconfirmation,[mbOK,mbCancel],0)。在 TabSheet7 頁面上添加 一個 Label 組件， 1 個 Bevel 組件和 3 個 Button 組件。 “系統(tǒng)信息”代碼如下： procedure (Sender: TObject)。,9)。 end。真要退出系統(tǒng)嗎？ 39。 天道酬勤 Business School of Central South University 運行如下圖： 天道酬勤 Business School of Central South University 五、附錄 1． 開發(fā)人員分工名單： 陳宇（登錄界面、密碼修改模塊、員工信息、出勤信息模塊） 吳慧慧（員工工資、相關(guān)查詢模塊、數(shù)據(jù)庫制作） 謝 婧（幫助說明、退出系統(tǒng)模塊、 PPT 制作） 2． 系統(tǒng)開發(fā)參考文獻(xiàn) 《 Delphi 軟件項目開發(fā)實例》 ◆電子工業(yè)出版社 □趙萬軍 王興東 等編著 《 Delphi 數(shù)據(jù)庫系統(tǒng)設(shè)計與開發(fā)》 ◆清華大學(xué)出版社 □張春林 馬成勇 劉均 編著 《 Delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)實例與解析》 ◆高等教育出版社 □張翰文 齊錦剛 王建中 編著 天道酬勤 Business School of Central South University 六、結(jié)束語 在使用 DELPHI 制作考勤信息管理系統(tǒng)中，我們遇到了很多問題，都在制作過程中逐一解決，由于我們所掌握的知識有限，我們制作的考勤信息管理系統(tǒng)還有不足，再以后的學(xué)習(xí)過程中我們會不斷努力，去完善自己，能做出更好的作品。在這方面，它不但提供了大量的數(shù)據(jù)庫組件并配有數(shù)據(jù)庫引擎 BDE，能通過 SQL Links 和 ODBC 等訪問多種數(shù)據(jù)庫，同時提供了強大的開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫的能力。 在制作考勤信息管理系統(tǒng)中，我們遇到了很多的問題，感謝魏淇、小潘子、 Michael 給予我們的幫助！ 陳宇