【正文】 關(guān)于工資、出勤、姓名 )的流程圖。)。 //清空編輯框內(nèi)容 :=39。select * from onduty where (ychuqinchidao***) between :p1 and :p239。 procedure (Sender: TObject)。)。39。由于原來 位置的字符串不能自動(dòng)消失，所以需要用顏色覆蓋多余部分，這樣即可實(shí)現(xiàn)平滑的文字滾動(dòng)效果。 在 TabSheet5 中添加 1 個(gè) GroupBox 組件， 1 個(gè) Image 組件， 1個(gè) Timer 組件和 2 個(gè) Label 組件。system39。caiwu39。 在 Timer 的 OnTimer 事件中添加如下的代碼，用于實(shí)現(xiàn)滾動(dòng)文字效果： procedure (Sender: TObject)。 :=clblack。1. 用戶首次登錄，立即修改密碼； 39。 (10,x+90,39。)。 (10,h+x+152)。 procedure (Sender: TObject)。 end。)。 end。典型的應(yīng)用為 Windows 下的資源管理器。要在運(yùn)行期間訪問某個(gè)節(jié)點(diǎn)，可加入代碼：My： =TreeView1。段落格式是一個(gè)TparaAttributes 類型的對(duì)象。 TreeView 組件的 AbsoluteIndex 屬性是指某個(gè)接點(diǎn)的絕對(duì)位置，也就是該接點(diǎn)與第一個(gè)接點(diǎn)之間的距離，在 Delphi 中第一個(gè)接點(diǎn)為 Item[0]，其他依次類推。 end。 var r:integer。設(shè)置完它們的屬性后，其設(shè)計(jì)結(jié)果窗口參見下圖： 天道酬勤 Business School of Central South University 接下來，在“系統(tǒng)信息”按鈕的 OnClick 事件中添加如下的代碼，用于顯示 Windows 控制面板中的“ 系統(tǒng)”屬性。 end。,mtconfirmation,[mbOK,mbCancel],0)。 面向?qū)ο蟪绦蛟O(shè)計(jì)是 Delphi 開發(fā)程序的基礎(chǔ)。它的優(yōu)勢(shì)之一是開發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序。 begin r:=messagedlg(39。 ,Control_RunDLL ,039。 8． 退出系統(tǒng)模塊 本模塊的設(shè)計(jì)用于提供附加信息和終止程序運(yùn)行的功能。 end?？记谛?息管理系統(tǒng) 用戶幫助 39。 本程序中添加一個(gè) RichEdit 組件和一個(gè) BitBtn 組件。 Lines 是一個(gè)Tstrings 類型的對(duì)象，運(yùn) 用它的方法可以對(duì)字符串進(jìn)行增加、刪除、修改等操作?？梢詾槊恳粋€(gè)節(jié)點(diǎn)添加一個(gè)關(guān)聯(lián)的圖標(biāo)，更加直觀的表現(xiàn)項(xiàng)目的內(nèi)容。該界面是 TreeView 和 RichEdit組件的綜合應(yīng)用事例。,mtconfirmation,[mbok],0)。 begin assignfile(df,39。39。 添加如上代碼后效果如下圖： 天道酬勤 Business School of Central South University 接下來，需 要進(jìn)行事件分析處理。)。 (10,x+120,39。 別人熟悉的名稱或數(shù)字； 39。)。 有關(guān)本系統(tǒng)密碼設(shè)置說明 39。 (pic)。人事部門員工 39。 x:=+20。 Interval 屬性：該屬性用于定義時(shí)間間隔，以毫秒為單位，默認(rèn) 天道酬勤 Business School of Central South University 值為 1000。 6． 密碼修改模塊 本模塊的設(shè)計(jì)使用了 Delphi 的 Cabvas 類，用于滾動(dòng)顯示“密碼使用須知”，增加程序的易用性。 //開始查詢 end。 //添加 SQL 語(yǔ)句 (39。 end。 //關(guān)閉 Query 。 :=39。 //清空 SQL 屬性 (39。 end。 :=39。 begin bn:=messagedlg(39。 :=39。 Post。jiangjin39。bianhao39。) then begin MessageDlg(39。 begin if (=39。 showmessage(39。 :=true。39。 事件分析處理 工資的計(jì)算分為兩部分：一部分是員工的基本工資，另一部分是員工的獎(jiǎng)金，與員工出勤之間有較大關(guān)系。并設(shè)計(jì)它們的屬性。 fieldbyname(39。chidao39。yuefen39。 exit。 end。 :=39。 begin bn:=messagedlg(39。 var rn:integer。 打開 DBChart 的 3 種方法 1． 雙擊 DBChart 組件 2． 單擊 SeriesList 屬性右邊的“ ? ”按鈕 3． 右鍵單擊 DBChart 組件，彈出的快捷鍵中選擇“ Edit 天道酬勤 Business School of Central South University Chart?” 。 DBChart 組件的屬性、子屬性繁多復(fù)雜，對(duì)屬 性的設(shè)置可以通過 EditDBChart 對(duì)話框來實(shí)現(xiàn)。 用戶通過 Field 對(duì)象的 Value 進(jìn)行 從字段對(duì)象中讀取字段值給變量賦值必須保證其數(shù)據(jù)類型相匹配，否則會(huì)出錯(cuò) guest 用戶只是作為普通員工的登錄。 end。 :=39。 :=39。 FieldValues[39。bianma39。] := trim()。資料輸入不全 !39。39。 Style 屬性確定了下圖 輸入 編號(hào)，姓名，性別，職稱等如下圖運(yùn)行。 Shape 屬性該屬性定義 B evel 組件在窗體中顯示的形狀。 cmppassword:=rt。 blockread(datafile,buf2,12,numread)。 numread:integer。還要在主窗體的 private 處添加定義如下 ： 天道酬勤 Business School of Central South University private passwordin:boolean。 :=false。 :=alclient。 then begin 。 end else if =39。 close。 if bn=mrok then begin ss1:=。 end。 closefile(datafile)。 blockwrite(datafile,buf,12,numwrite)。 buf:=39。system39。 if fileexists(39。 NumRead,NumWrite,ii:integer。 X, Y: Integer)。首先對(duì)主頁(yè)中的 Label3的 OnClick和 OnMouseDown 事件添加以下的代碼，功能是當(dāng)用戶將鼠標(biāo)移動(dòng)到該組件上時(shí)，出現(xiàn)超鏈接的效果，同時(shí)啟動(dòng)郵件收發(fā)程序向指定的電子郵件地址發(fā)信息。 出勤信息：本界面可實(shí)現(xiàn)員工出勤信息的輸入，可參看缺勤情況示意圖。 基于此，按照軟件工程的思想，對(duì)考勤信息管理系統(tǒng)進(jìn)行功能分析： 天道酬勤 Business School of Central South University ? 實(shí)現(xiàn)系統(tǒng)登陸功能（密碼修改功能），并限制不同用戶（包括普通工人、人事部門人員、財(cái)務(wù)部人員以及管理員）登陸所查看的信息； ? 輸入員工基本信息，包括姓名、性別、所屬部門等； ? 瀏覽和修改員工基本信息； ? 輸入出勤信息； ? 輸入基本工資和獎(jiǎng)金信息并計(jì)算實(shí)際工資； ? 瀏覽和修改員工的出勤情況，可同時(shí)查看該員工基本信息； ? 瀏覽和修改員工的工資情況，可同時(shí)查看該員工基本信息； ? 按實(shí)際工資情況查詢員工； ? 按實(shí)際出勤情況查詢員工； ? 按姓名信息查詢員工； 附加功能： ? 密碼修改功能； ? 幫助說明。由 BORLAND 公司出品的DELPHI 是一種典型的面向?qū)ο蟮?、用?RAP 開發(fā)的可視化編程語(yǔ)言。下面來說一下本程序的各個(gè)模塊的功能及數(shù)據(jù)庫(kù)的結(jié)構(gòu)。 密碼修改：通過閱讀密碼修改設(shè)置信息和舊密碼進(jìn)行密碼修改并顯示用戶身份。mailto:39。 接下來在系統(tǒng)登錄窗體的 OnCreate事件中進(jìn)行 INI配置文件的設(shè) 置與初始化。 buf:string[60]。 siz:=filesize(datafile)。system39。 天道酬勤 Business School of Central South University buf:=39。 reset(datafile,1)。此時(shí)，可在登錄窗體的OnKeyPress 事件中添加以下代碼。 var cmptimes,bn:integer。 if cmptimes3 then close else messagedlg(39。 if =39。 :=tabsheet1。 :=false。您只有瀏覽的權(quán)利！ 39。 end。 s2:string):boolean。 assignfile(datafile,39。 result:=true。 2． 員工信息模塊 本模塊的作用是輸入和瀏覽員工的基本信息，而對(duì)于人事部門的用戶及管理遠(yuǎn)登陸還要考慮可以更改員工的基本信息。完成設(shè)置后，再添加一個(gè) BitBtn組件 BitBtn1,并設(shè)置 Kind屬性為 bkOK，camption 屬性為“輸入記錄”。) or (=39。) or (=39。 end。] := trim()。zhicheng39。 FieldValues[39。學(xué)生辦公室 39。39。改組件為字段對(duì)象封裝了一些行為，常常用于改變數(shù)據(jù)表中的字段值、 天道酬勤 Business School of Central South University 轉(zhuǎn) 換字段類型、驗(yàn)證用戶輸入值、定義字段如何顯示和編輯、通過在 OnCalcFields事件響應(yīng)過程中編寫代碼、計(jì)算字段以及查詢字段。 天道酬勤 Business School of Central South University 運(yùn)行如窗口所示 3． 出勤 信息模塊 出勤信息模塊的作用是輸入、瀏覽以及修改員工的出勤信息，并對(duì)不同身份登陸的用戶提供功能限制。對(duì)于“員工信息”按及到主從表的問題。是動(dòng)畫屬性。 。 if bn=mrok then 。 :=true。 begin if =39。 with table1 do begin append。+)。zaotui39。 post。該組件的繼承關(guān) 天道酬勤 Business School of Central South University 系為：TobjoGroupTpersistentTponentTcontrolTwinControlTcustomControlTcustomGroupBoxTcustomRadioGroup,它有幾個(gè)重要的屬性： ? Columns 屬性：該屬性定義組中的列數(shù)，其值可以從 1 到 16，系統(tǒng)默認(rèn) 值為 1。 begin if (=39。) then begin MessageDlg(39。 if =2 then truesalary:=strtofloat()+strtofloat()*。 end。39。 exit。yuefen39。gongzi39。39。39。 if bn=mrok then 。 //切換到員工信息頁(yè) :=true。本頁(yè)在TabSheet4 上添加 3 個(gè) GroupBox 組件， 3 個(gè) BitBtn 組件， 3 個(gè) DBGrid組件， 3 個(gè) Query 組件， 3 個(gè) DataSouree 組件， 4 個(gè) UpDown 組件和7 個(gè) Label 組件。 //添