freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

及代碼-考勤管理系統(tǒng)(編輯修改稿)

2025-02-26 11:01 本頁(yè)面
 

【文章內(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ù)庫(kù)得到如圖 : Field 組件有稱為字段組件或字段對(duì)象,它對(duì)應(yīng)著數(shù)據(jù)表的字段。它是在打開(kāi)數(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)證用戶輸入值、定義字段如何顯示和編輯、通過(guò)在 OnCalcFields事件響應(yīng)過(guò)程中編寫代碼、計(jì)算字段以及查詢字段。 通過(guò)字段編輯器可以建立永久性的 Field 列表 Dellphi 應(yīng)用程序使用這些永久性的字段會(huì)加入到程序庫(kù)單元的 Tform 類型定義中,即使數(shù)據(jù)表中的基本結(jié)構(gòu)發(fā)生了變化。這些字段也一直保留如果原來(lái)的程序?qū)ο蟛淮嬖诹?,那就?Delphi 應(yīng)用程序在運(yùn)行的過(guò)程中給出了錯(cuò)誤信息。 在 Table 組件中 ,Delphi 提供了 FieldByName 方法,可以通過(guò)字段名訪問(wèn)字段對(duì)象,從而更加方便。 永久對(duì) 象的訪問(wèn)比動(dòng)態(tài)的簡(jiǎn)單。 用戶通過(guò) Field 對(duì)象的 Value 進(jìn)行 從字段對(duì)象中讀取字段值給變量賦值必須保證其數(shù)據(jù)類型相匹配,否則會(huì)出錯(cuò) guest 用戶只是作為普通員工的登錄。對(duì)于員工基本信息數(shù)據(jù)庫(kù)只有瀏覽的權(quán)利,沒(méi)有修改,移動(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ì)不同身份登陸的用戶提供功能限制。本頁(yè)使用 DbChart 組件用來(lái)演示員工的缺勤情況,還可實(shí)現(xiàn)與“員工基本信息表”的表間聯(lián)系。本模塊主要用到 DBChart 組件,它來(lái)源于 Tchart,并繼承了 Tchart 所有的功能。Tchart 是 TeeChart庫(kù)中最重要的一個(gè)組件,該組件從 Tpanel 類中繼承了所有的屬性和方法。 DBChart 組件不能直接顯示各種圖表,而要依靠它的子成員 Series 來(lái)實(shí)現(xiàn)圖表的繪制。 DBChart 組件的屬性、子屬性繁多復(fù)雜,對(duì)屬 性的設(shè)置可以通過(guò) EditDBChart 對(duì)話框來(lái)實(shí)現(xiàn)。在“出勤信息” TabSheet 上添加一個(gè) DBChart 組件,一個(gè) DBGrid 組件,一個(gè) bevel組件。 天道酬勤 Business School of Central South University 很多時(shí)候,用戶需要在了解某位員工出勤情況的時(shí)候,能夠隨時(shí)查看該員工的基本信息。對(duì)于“員工信息”按及到主從表的問(wèn)題。鈕的OnClick 事件的處理,涉 若在程序設(shè)計(jì)期就想實(shí)現(xiàn)這種關(guān)聯(lián),用戶可在設(shè)置 MasterSource 屬性后,單擊 MasterFields 屬性右邊的“ ? ”按鈕,打開(kāi):“ 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 按鈕新建“輸入出勤信息”窗體。 打開(kāi) 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 屬性:用來(lái)確定 DBChar 組件中的標(biāo)題文本。 Legend 屬性:定義圖表的比例 設(shè)置完 DBChart 后,連接數(shù)據(jù)庫(kù),數(shù)據(jù)庫(kù)如圖所示 出勤信息模塊記錄了,公司員工出勤,請(qǐng)假,曠工,遲到與工資之間的聯(lián)系,它取決于你的工資還有獎(jiǎng)金。讓管理人員很方便的來(lái)管理好公司員工的出勤情況!能更好的讓員工們自覺(jué)的上班下班! 員工出勤信息模塊運(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,表示用戶沒(méi)有選擇按鈕。 事件分析處理 工資的計(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
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖片鄂ICP備17016276號(hào)-1