【正文】 =formatdatetime(39。yyyymmdd39。,)。 :=copy(Time1,1,6)。 end。procedure (Sender: TObject)。var sql:string。begin if (=39。39。)or(=39。39。) then begin showmessage(39。請輸入員工和月份編號進行查詢！39。)。 exit。 end。 if (,)=false then begin showmessage(39。該考勤記錄不存在！39。)。 exit。 end。 sql:=39。select worker_id 員工編號,worker_name 員工姓名,39。 +39。months 月份,month_days 本月天數(shù),business_days 出差天數(shù),39。 +39。absent_days 礦工天數(shù),holidays 公休假天數(shù),real_work_days 39。 +39。 應出勤天數(shù),work_days 出勤天數(shù),leave_times 請假次數(shù),39。 +39。late_times 遲到次數(shù),leave_early_times 早退次數(shù),39。 +39。holiday_overtime 節(jié)假日加班時間,other_overtime 其他加班時間,39。 +39。remark 備注 from check_info where worker_id=39。39。39。++39。39。39。39。 +39。 and months=39。39。39。++39。39。39。39。 :=(sql)。end。procedure (Column: TColumn)。begin try :=[0].AsString。 :=[2].AsString。 except exit。 end。end。procedure (Sender: TObject)。var allsql:string。begin allsql:=39。select worker_id 員工編號,worker_name 員工姓名,39。 +39。months 月份,month_days 本月天數(shù),business_days 出差天數(shù),39。 +39。absent_days 曠工天數(shù),holidays 公休假天數(shù),real_work_days 39。 +39。應出勤天數(shù),work_days 出勤天數(shù),leave_times 請假次數(shù),late_times39。 +39。 遲到次數(shù),leave_early_times 早退次數(shù),holiday_overtime 39。 +39。節(jié)假日加班時間,other_overtime 其他加班時間,39。 +39。remark 備注 from check_info39。 :=(allsql)。end。二） 考勤信息錄入與維護窗體布局如下圖 相關代碼：procedure (Sender: TObject)。begin basedata:=。 checkinfo:=。 :=()。 :=formatdatetime(39。yyyymm39。,now)。 try :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 except exit。 end。end。procedure (Sender: TObject)。var insertsql:string。begin if(=39。39。)or(=39。39。) then begin showmessage(39。對不起，員工編號和月份編號不能為空！39。)。 exit。 end。 if (,) then begin showmessage(39。對不起，該記錄已經(jīng)存在，請重新輸入！39。)。 exit。 end。 insertsql:=39。insert into Check_info(WORKER_ID,39。 +39。WORKER_NAME,MONTHS,MONTH_DAYS,BUSINESS_DAYS,ABSENT_DAYS,39。 +39。HOLIDAYS,REAL_WORK_DAYS,WORK_DAYS,LEAVE_TIMES,LATE_TIMES,39。 +39。LEAVE_EARLY_TIMES,HOLIDAY_OVERTIME,OTHER_OVERTIME,REMARK39。 +39。)VALUES(39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。39。 +39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。39。 +39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。39。 +39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。39。 +39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。)39。 (insertsql)。 showmessage(39。保存完畢！39。)。end。procedure (Sender: TObject。 var Key: Char)。var a:boolean。begin a:=((key=48)and(key=57))or(key=8)。 if a=false then begin showmessage(39。輸入不是數(shù)字！39。)。 exit。 end。end。……………………………………………………………………………………………………中間9個代碼相似，省之………………………………………………………………………………………………………procedure (Sender: TObject。 var Key: Char)。var a:boolean。begin a:=((key=48)and(key=57))or(key=8)。 if a=false then begin showmessage(39。輸入不是數(shù)字！39。)。 exit。 end。end。procedure (Sender: TObject)。var modsql:string。begin if (39。確定要修改嗎？39。,39。提示：39。,mb_yesno+mb_iconquestion)=idyes then begin if(=39。39。)or(=39。39。) then begin showmessage(39。請根據(jù)員工編號和月份編號查看后再修改！39。)。 exit。 end。 if (,)=false then begin showmessage(39。該記錄信息不存在，修改失敗39。)。 exit。 end。 modsql:=39。update CHECK_INFO set WORKER_NAME=39。39。39。++39。39。39。,MONTH_DAYS=39。39。39。++39。39。39。,39。 +39。BUSINESS_DAYS=39。39。39。++39。39。39。,ABSENT_DAYS=39。39。39。++39。39。39。,39。 +39。HOLIDAYS=39。39。39。++39。39。39。,WORK_DAYS=39。39。39。++39。39。39。,39。 +39。REAL_WORK_DAYS=39。39。39。++39。39。39。,LEAVE_TIMES=39。39。39。++39。39。39。,39。 +39。LATE_TIMES=39。39。39。++39。39。39。,LEAVE_EARLY_TIMES=39。39。39。++39。39。39。,39。 +39。HOLIDAY_OVERTIME=39。39。39。++39。39。39。,OTHER_OVERTIME=39。39。39。++39。39。39。,39。 +39。REMARK=39。39。39。++39。39。39。 where WORKER_ID=39。39。39。++39。39。39。 AND MONTHS=39。39。39。++39。39。39。39。 (modsql)。 showmessage(39。修改完成！39。)。 end。end。procedure (Sender: TObject)。begin if (39。確定要刪除嗎？39。,39。警告:39。,mb_yesno+mb_iconquestion)=idyes then begin if(=39。39。)or(=39。39。) then begin showmessage(39。請輸入要刪除記錄的員工編號和月份編號！39。)。 exit。 end。 if (,)=false then begin showmessage(39。該記錄信息不存在，刪除失敗！39。)。 exit。 end。 (,)。 showmessage(39。刪除完成！39。)。 :=39。39。:=39。39。:=39。39。:=39。39。 :=39。39。:=39。39。:=39。39。:=39。39。 :=39。39。:=39。39。:=39。39。:=39。39。 :=39。39。:=39。39。 end。end。procedure (Sender: TObject)。begin :=()。end。七、獎懲信息管理模塊一） 員工將成信息查詢窗體布局如下圖相關代碼： procedure (Sender: TObject)。var i:integer。 sql,idnum:string。beginfor i:=0 to do begin if [i] then idnum:=[i]。 end。 sql:=39。select record_id 記錄號,worker_id 員工編號,39。 //賦值查詢語句 +39。worker_name 員工姓名,record_date 獎懲日期,39。 +39。record_type 獎懲類型,allow_unit 批準單位,39。 +39。record_content 獎懲內容,record_reason 獎懲原因,39。 +39。remark 備注 from reward_pun where worker_id=39。39。39。+idnum+39。39。39。39。 :=(sql)。 //將查詢結果用列表顯示出來end。procedure (Sender: TObject)。begin rewardpun:=。 //創(chuàng)建類的實例 :=()。 //獲取帶有獎懲記錄的員工編號end。procedure (Column: TColumn)。begin try reid:=[0].AsString。 except exit。 end。end。獎懲信息錄入與維護 窗體布局如下圖 相關代碼：procedure (Sender: TObject)。var t1,insertsql:string。begin t1:=datetostr()。 insertsql:=39。insert into REWARD_PUN(WORKER_ID,WORKER_NAME,39。 +39。RECORD_DATE,RECORD_TYPE,RECORD_CONTENT,RECORD_REASON,39。 +39。ALLOW_UNIT,REMARK)values(39。39。39。++39。39。39。,39。 +39。39。39。39。+ +39。39。39。,39。39。39。+t1+39。39。39。,39。 +39。39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。 +39。39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。)39。 (insertsql)。 showmessage(39。保存完畢！39。)。end。procedure (Sender: TObject)。begin rewardpun:=。 basedata:=。 :=()。 try :=()。 //員工編號 :=()。 //員工姓名