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

正文內(nèi)容

基于delphi的考勤管理系統(tǒng)全套學(xué)士論文含中英文翻譯(編輯修改稿)

2024-10-19 09:25 本頁面
 

【文章內(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。
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1