【正文】 //員工編號 :=()。 :=()。begin rewardpun:=。end。保存完畢！39。 (insertsql)。39。++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。 insertsql:=39。var t1,insertsql:string。end。 except exit。procedure (Column: TColumn)。 //創(chuàng)建類的實例 :=()。procedure (Sender: TObject)。 :=(sql)。39。+idnum+39。39。 +39。 +39。 +39。 //賦值查詢語句 +39。 sql:=39。beginfor i:=0 to do begin if [i] then idnum:=[i]。var i:integer。end。procedure (Sender: TObject)。 end。:=39。 :=39。:=39。:=39。:=39。 :=39。:=39。:=39。:=39。 :=39。:=39。:=39。:=39。 :=39。刪除完成！39。 (,)。 exit。該記錄信息不存在，刪除失??！39。 end。)。) then begin showmessage(39。)or(=39。,mb_yesno+mb_iconquestion)=idyes then begin if(=39。,39。begin if (39。end。)。 showmessage(39。39。39。39。 AND MONTHS=39。39。39。 where WORKER_ID=39。39。39。REMARK=39。,39。39。39。,OTHER_OVERTIME=39。39。39。HOLIDAY_OVERTIME=39。,39。39。39。,LEAVE_EARLY_TIMES=39。39。39。LATE_TIMES=39。,39。39。39。,LEAVE_TIMES=39。39。39。REAL_WORK_DAYS=39。,39。39。39。,WORK_DAYS=39。39。39。HOLIDAYS=39。,39。39。39。,ABSENT_DAYS=39。39。39。BUSINESS_DAYS=39。,39。39。39。,MONTH_DAYS=39。39。39。update CHECK_INFO set WORKER_NAME=39。 end。)。 if (,)=false then begin showmessage(39。 exit。請根據(jù)員工編號和月份編號查看后再修改！39。39。39。提示：39。確定要修改嗎？39。var modsql:string。end。 exit。輸入不是數(shù)字！39。begin a:=((key=48)and(key=57))or(key=8)。 var Key: Char)。end。 exit。輸入不是數(shù)字！39。begin a:=((key=48)and(key=57))or(key=8)。 var Key: Char)。end。保存完畢！39。 (insertsql)。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:=39。 exit。對不起，該記錄已經(jīng)存在，請重新輸入！39。 end。)。) then begin showmessage(39。)or(=39。begin if(=39。procedure (Sender: TObject)。 end。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。 :=(,)。,now)。 :=formatdatetime(39。 checkinfo:=。二） 考勤信息錄入與維護窗體布局如下圖 相關(guān)代碼：procedure (Sender: TObject)。 :=(allsql)。 +39。 +39。 +39。 +39。 +39。 +39。begin allsql:=39。procedure (Sender: TObject)。 end。 :=[2].AsString。procedure (Column: TColumn)。 :=(sql)。39。++39。39。 +39。39。++39。39。 +39。 +39。 +39。 +39。 +39。 +39。 sql:=39。 exit。該考勤記錄不存在！39。 end。)。) then begin showmessage(39。)or(=39。begin if (=39。procedure (Sender: TObject)。 :=copy(Time1,1,6)。yyyymmdd39。var Time1:string。end。begin if then begin ()。end。)。 showmessage(39。 end。)。,mb_yesno+mb_iconquestion)=idyes then begin if ()=false then begin showmessage(39。,39。begin if (39。end。 end。提示：39。修改完成！39。 (modsql)。39。++39。39。 +39。39。+datetostr()+39。39。39。+datetostr()+39。39。 +39。39。+datetostr()+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。+sex+39。39。 +39。39。++39。39。39。++39。39。 modsql:=39。 if then sex:=39。 if then sex:=39。 else path1:=。 then path1:=extractfilepath()+39。 if =39。 exit。對不起，該員工編號不存在，修改失??！39。提示：39。確定要修改嗎？39。var modsql,path1,sex:string。end。 :=strtodate(())。 :=strtodate(())。 :=()。 :=()。女39。 then :=true。 if ()=39。 :=()。 :=()。 ().Free。 end。)。 if ()=false then begin showmessage(39。三） 基本信息維護窗體布局如下圖相關(guān)代碼：1. 窗體的onactivate procedure (Sender: TObject)。 (Sender)。提示：39。新建成功！39。 (modsql)。39。++39。39。 +39。39。+datetostr()+39。39。39。+datetostr()+39。39。 +39。39。+datetostr()+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。+sex+39。39。 +39。39。++39。39。39。++39。39。 modsql:=39。 if then sex:=39。 if then sex:=39。 path1:=。 exit。該員工編號已經(jīng)存在，插入失敗！39。 end。)。 then begin showmessage(39。begin if =39。3. 兩個控件：DataSource和ClientDataSet二） 基本信息錄入窗體界面如下圖：具體代碼如下：1. 單擊確定按鈕時執(zhí)行如下操作——OnClick事件procedure (Sender: TObject)。 (area,state)。 :=+。 end。 (area,bmp)。 :=+。 if(=[5]) then begin bmp:=。 bmp:Tbitmap。 State: TGridDrawState)。 DataCol: Integer。2. 重繪柵格單元時執(zhí)行如下操作——OnDrawColumnCell事件procedure (Sender: TObject。 :=(findsql)。 +39。 +39。BIRTHDAY 出生日期,NATIVE_PLACE 籍貫,GRADUATE_SCH 畢業(yè)學(xué)校, +39。ARCHIVES_ID 檔案編號,SCHOOL_AGE 學(xué)歷,PHOTO 個人照片,39。select WORKER_ID 員工編號,WORKER_NAME 員工姓名,SEX 性別,39。beginbasedata:=。一） 基本信息顯示1. 窗體建立時自動加載數(shù)據(jù)庫數(shù)據(jù)（OnCreate事件代碼）procedure (Sender: TObject)。end。procedure (Sender: TObject)。 end。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。系統(tǒng)管理員39。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 then begin :=false。begin if =39。end。begin 。end。 :=false。 。………………………………………………………………………………………………………procedure (Sender: TObject)。end。begin 。end。 權(quán)限級別:39。 當前用戶:39。yyyy年mm月dd日 hh:mm:ss39。歡迎使用本系統(tǒng)！ 39。下圖是本組的主程序截圖：以下是主窗體主要過程和函數(shù)代碼：procedure (Sender: TObject)。這樣做有以下優(yōu)點：1. 隱藏主窗體使程序只能顯示一個窗體，增強了安全性；2. 由于同時只能顯示一個窗體（其他的隱藏，需要時用show方法顯示），減少了程序句柄數(shù)，降低了內(nèi)存使用；3. 由于程序所有窗體采用自動建立的方式，登錄前其實已將所有窗體加載至內(nèi)存，目的是提高程序的運行速度（缺點是內(nèi)存占用高）。4. 對窗體調(diào)用方式作了改進。在順利實現(xiàn)軟件基本功能的同時，我同時對主窗體進行了一些細節(jié)改進，如：1. 標題欄顯示當前日期和時間2. 標題欄顯示當前登錄用戶和權(quán)限級別。每個模塊一個菜單項。Data Source=這是連接數(shù)據(jù)庫的關(guān)鍵。Persist Security Info=False。應(yīng)用程序其中Personnel_adoconn（Adoconnection控件）主要屬性設(shè)置如下Connectionstring Provider=。Datasoure231。Adoquery231。Adoconnection231。主要有Adoconnectio，Adoquery和DataSetProvider控件三者關(guān)系如下： 連接 請求 請求DataBase231。end。 finally 。 result:=true。 try if 0 then begin SetLength(ReturnString,)。Begin if not fileexists(AFile) then exit。