【文章內(nèi)容簡介】 除功能 Button4 Caption ‘ 退出 ’ 執(zhí)行退出功能 Button5 Caption ‘ 返回 ’ 執(zhí)行返回功能 Button6 Caption ‘ 確定 ’ 執(zhí)行確定功能 Button7 Caption ‘ 取消 ’ 執(zhí)行取消功能 表 43 員工信息 窗體主要控件屬性表 實(shí)現(xiàn)方法 ： （ 1）功能按鈕的禁止使用和允許使用。在一定的情況下，有的按鈕不可以使用，如數(shù)據(jù)表中無記錄時(shí)，則除了【添加】按鈕外的其他按鈕均不可用。一開始，【確定】和【取消】按鈕不可用，單擊【添加】或【修改】按鈕后，【確定】和【取消】按鈕可用，此時(shí)其他按鈕不可用。當(dāng)單擊【確定】和【取消】按鈕后，這兩個(gè)按鈕不可用， 其他各個(gè)按鈕可用 （ 2）記錄移動?？墒褂?Ttable 控件的相應(yīng)移動方法。 （ 3）記錄的添加與修改。對表的操作， Ttable 組件提供了相應(yīng)的方法：如添加一條可執(zhí)行 Append 方法，修改記錄的內(nèi)容可執(zhí)行 Edit 方法，把修改的內(nèi)容存入到表中可執(zhí)行 Post 方法，取消對表的修改可執(zhí)行 Cancel 方法等。為控制數(shù)據(jù)只能在“添加”或“修改”時(shí)才能輸入，可在沒有執(zhí)行“添加”或“修改”命令之前，讓所有的數(shù)據(jù)控件組件不能輸入或修改，在執(zhí)行“添加”和“修改”命令后，讓所有的數(shù)據(jù)控件組件能夠輸入或修改，該功能可通過設(shè)置各數(shù)據(jù)控制組 件的 ReadOnly 或 Enabled 屬性來實(shí)現(xiàn)。 按鈕可控部分源程序如下： var Form4: TForm4。 implementation uses Unit2。 var BM:TBooKMark。 AddOrNot:Boolean。 {$R *.dfm} procedure buttonaddedit()。 //添加或修改狀態(tài)各按鈕狀態(tài) begin :=true。 :=true。 :=false。 :=false。 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 15 :=false。 end。 procedure buttonokcancel()。 //取消或確定狀態(tài)各按鈕狀態(tài) begin :=false。 :=false。 :=true。 :=true。 :=true。 end。 procedure disabledbutton()。 //所有按鈕均不可用 begin :=false。 :=false。 :=false。 :=false。 :=false。 end。 procedure Cannotedit()。 //各輸入控件不可輸入 begin :=true。 :=true。 :=true。 :=true。 :=true。 end。 procedure Canedit()。 //各輸入控件可輸入 begin :=false。 :=false。 :=false。 :=false。 :=false。 end。 procedure (Sender: TObject)。 var dim:string。 begin getdir(0,dim)。 //獲取當(dāng)前目錄 // :=dim。//設(shè)置數(shù)據(jù)庫名 CanEdit。 //設(shè)置可輸入組件為只讀 if =0 then begin 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 16 disabledbutton。 :=true。 end else buttonokcancel。 end。 procedure (Sender: TObject)。 //確定操作 begin if(length(trim())=0) then begin showmessage(39。必須輸入員工編號 39。)。 。 end else begin 。 cannotedit。 buttonokcancel。 end。 end。 procedure (Sender: TObject)。 //取消操作 begin 。 if addornot then (bm)。 cannotedit。 buttonokcancel。 end。 員工信息添加實(shí)現(xiàn) 信息添加實(shí)現(xiàn)的源程序如下： procedure (Sender: TObject)。 //增加 begin BM:=。 Canedit。 。 buttonaddedit。 addornot:=true。 end。 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 17 員工信息修改實(shí)現(xiàn) 信息修改實(shí)現(xiàn)的源程序如下： procedure (Sender: TObject)。 //修改 begin addornot:=false。 。 canedit。 buttonaddedit。 end。 員工信息刪除實(shí)現(xiàn) 信息修改實(shí)現(xiàn)的源程序如下： procedure (Sender: TObject)。 //刪除 begin if (39。 真的要刪除嗎？ 39。,39。 刪除提示框39。,mb_okcancel)=idok then 。 if =0 then begin showmessage(39。已無記錄 39。)。 disabledbutton。 :=true。 end。 end。 考勤信息管理 本模塊 對考勤信息進(jìn)行維護(hù)和管理，實(shí)現(xiàn)考勤信息數(shù)據(jù)庫的操作功能，這些功能包括：考勤信息的瀏覽，添加一條新考勤信息，修改考勤信息，查詢某人的考勤信息，刪除某考勤的信息等。該模塊的主界面設(shè)計(jì)和運(yùn)行情況分別如下圖武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 18 錯(cuò)誤 !未找到引用源。 錯(cuò)誤 !未找到引用源。 本模塊組件對象及其屬性設(shè)置如表所示： 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 19 對象名 屬性名 設(shè)置值 對象作用 DBGrid1 DataSource DataSource1 顯示執(zhí)行結(jié)果 Query1 執(zhí)行 SQL語句 Table1 TableName 與‘ ygxx’表相聯(lián)系 DataSource1 DataSource1 Dataset： Table1 聯(lián)系 Table組件 DBEdit1 DataSource； DataField DataSource1。出勤 編號 與表中 出勤 編號相連 DBEdit2 DataSource； DataField DataSource1。員工編號 與表中 員工編號 相連 DBEdit3 DataSource； DataField DataSource1。姓名 與表中 姓名 相連 DBEdit4 DataSource； DataField DataSource1。遲到 與表中 遲到 相連 DBEdit5 DataSource； DataField DataSource1遲到 原因 與表中 遲到 原因 相連 DBEdit6 DataSource； DataField DataSource1。早退 與表 早退 相連 DBEdit7 DataSource； DataField DataSource1。早退 原因 與表中 早退 原因相連 DBEdit8 DataSource； DataField DataSource1。加班 與表中 加班 相連 DBEdit9 DataSource； DataField DataSource1。加班時(shí)間 與表中加班時(shí)間 相連 DBEdit10 DataSource； DataField DataSource1?？记跁r(shí)間 與表中考勤時(shí)間相連 Button1 Caption ‘ 增加 ’ 執(zhí)行增加功能 Button2 Caption ‘ 修改 ’ 執(zhí)行修改功能 Button3 Caption ‘ 刪除 ’ 執(zhí)行刪除功能 Button4 Caption ‘ 退出 ’ 執(zhí)行退出功能 Button5 Caption ‘ 返回 ’ 執(zhí)行返回功能 Button6 Caption ‘ 確定 ’ 執(zhí)行確定功能 Button7 Caption ‘ 取消 ’ 執(zhí)行取消功能 表 44 員工信息 窗體主要控件屬性表 實(shí)現(xiàn)方法 ： （ 1）功能按鈕的禁止使 用和允許使用。在一定的情況下，有的按鈕不可以使用，如數(shù)據(jù)表中無記錄時(shí)，則除了【添加】按鈕外的其他按鈕均不可用。一開始，【確定】和【取消】按鈕不可用，單擊【添加】或【修改】按鈕后，【確定】和【取消】按鈕可用，此時(shí)其他按鈕不可用。當(dāng)單擊【確定】和【取消】按鈕后，這兩個(gè)按鈕不可用，其他各個(gè)按鈕可用 （ 2）記錄移動?？墒褂?Ttable 控件的相應(yīng)移動方法。 （ 3）記錄的添加與修改。對表的操作， Ttable 組件提供了相應(yīng)的方法：如添加一條可執(zhí)行 Append 方法，修改記錄的內(nèi)容可執(zhí)行 Edit 方法，把修改的內(nèi)容存入到表中可 執(zhí)行 Post 方法，取消對表的修改可執(zhí)行 Cancel 方法等。為控制數(shù)據(jù)只能在“添加”或“修改”時(shí)才能輸入，可在沒有執(zhí)行“添加”或“修改”命令之前，讓所有的數(shù)據(jù)控件組件不能輸入或修改，在執(zhí)行“添加”和“修改”命令后，讓所有的數(shù)據(jù)控件組件能夠輸入或修改，該功能可通過設(shè)置各數(shù)據(jù)控制組件的 ReadOnly 或 Enabled 屬性來實(shí)現(xiàn)。 按鈕可控部分源程序如下： var Form3: TForm3。 implementation 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 20 uses Unit2。 var BM:TBooKMark。 AddOrNot:Boolean。 {$R *.dfm} procedure buttonaddedit()。 //添加或修改狀態(tài)各按鈕狀態(tài) begin :=true。 :=true。 :=false。 :=false。 :=false。 end。 procedure buttonokcancel()。 //取消或確定狀態(tài)各按鈕狀態(tài) begin :=false。 :=false。 :=true。 :=true。 :=true。 end。 procedure disabledbutton()。 //所有按鈕均不可 用 begin :=false。 :=false。 :=false。 :=false。 :=false。 end。 procedure Cannotedit()。 //各輸入控件不可輸入 begin :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end。 procedure Canedit()。 //各輸入控件可輸入 begin 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 21 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end。 procedure (Sender: TObject)。 var dim:string。 begin getdir(0,dim)。 //獲取當(dāng)前目錄 // :=dim。//設(shè)置數(shù)據(jù)庫名 CanEdit。 //設(shè)置可輸入組件為只讀 if =0 then begin disabledbutton。 :=true。 end else buttonokcancel。 end。 procedure (Sender: TObject)。 //確定操作 begin if(length(trim())=0) then begin showmessage(39。必須輸入員工編號 39。)。 。 end else begin 。 cannotedit。 buttonokcancel。