【正文】 。 :=false。 :=false。 :=true。 :=true。procedure (Sender: TObject)。select WORKER_ID 員工編號,WORKER_NAME 員工姓名,SEX 性別,39。 +39。 State: TGridDrawState)。 (area,bmp)。3. 兩個控件：DataSource和ClientDataSet二） 基本信息錄入窗體界面如下圖：具體代碼如下：1. 單擊確定按鈕時執(zhí)行如下操作——OnClick事件procedure (Sender: TObject)。 end。 if then sex:=39。++39。39。39。39。39。++39。39。39。39。39。+datetostr()+39。+datetostr()+39。39。39。 (Sender)。 end。 if ()=39。 :=()。var modsql,path1,sex:string。 exit。 if then sex:=39。++39。39。39。39。39。++39。39。39。39。39。+datetostr()+39。+datetostr()+39。39。39。 end。,mb_yesno+mb_iconquestion)=idyes then begin if ()=false then begin showmessage(39。)。var Time1:string。begin if (=39。 end。 +39。 +39。39。39。 end。 +39。 +39。 :=formatdatetime(39。 :=(,)。 end。) then begin showmessage(39。 exit。 +39。39。39。39。++39。39。39。39。39。++39。39。39。39。保存完畢！39。輸入不是數(shù)字！39。begin a:=((key=48)and(key=57))or(key=8)。var modsql:string。39。)。39。,39。,ABSENT_DAYS=39。HOLIDAYS=39。39。39。39。39。,39。,OTHER_OVERTIME=39。REMARK=39。39。39。end。)or(=39。該記錄信息不存在，刪除失敗！39。 :=39。 :=39。 :=39。 :=39。end。 //賦值查詢語句 +39。39。procedure (Sender: TObject)。end。 +39。 +39。39。39。++39。++39。39。 (insertsql)。 :=()。begin rewardpun:=。39。++39。39。39。 +39。39。39。 +39。 except exit。 :=(sql)。 +39。 sql:=39。procedure (Sender: TObject)。:=39。:=39。:=39。刪除完成！39。 end。,mb_yesno+mb_iconquestion)=idyes then begin if(=39。)。39。 where WORKER_ID=39。,39。39。39。39。39。REAL_WORK_DAYS=39。,WORK_DAYS=39。,39。39。39。39。 if (,)=false then begin showmessage(39。39。end。 var Key: Char)。begin a:=((key=48)and(key=57))or(key=8)。 (insertsql)。39。++39。++39。39。 +39。39。++39。++39。39。 +39。39。++39。 +39。對不起，該記錄已經(jīng)存在，請重新輸入！39。)or(=39。 :=(,)。 :=(,)。 checkinfo:=。 +39。 +39。 :=[2].AsString。++39。++39。 +39。 sql:=39。)。procedure (Sender: TObject)。end。 showmessage(39。,39。提示：39。++39。+datetostr()+39。39。39。 +39。39。++39。++39。39。 +39。39。+sex+39。++39。39。 else path1:=。對不起，該員工編號不存在，修改失?。?9。end。 :=()。 :=()。)。提示：39。++39。+datetostr()+39。39。39。 +39。39。++39。++39。39。 +39。39。+sex+39。++39。39。 path1:=。)。 (area,state)。 :=+。 DataCol: Integer。 +39。beginbasedata:=。 end。 :=true。系統(tǒng)管理員39。 :=false。 then begin :=false。end。end。 當(dāng)前用戶:39。這樣做有以下優(yōu)點：1. 隱藏主窗體使程序只能顯示一個窗體，增強(qiáng)了安全性；2. 由于同時只能顯示一個窗體（其他的隱藏，需要時用show方法顯示），減少了程序句柄數(shù)，降低了內(nèi)存使用；3. 由于程序所有窗體采用自動建立的方式，登錄前其實已將所有窗體加載至內(nèi)存，目的是提高程序的運(yùn)行速度（缺點是內(nèi)存占用高）。Data Source=這是連接數(shù)據(jù)庫的關(guān)鍵。Adoquery231。 finally 。var ReturnString:string):boolean。數(shù)據(jù)表創(chuàng)建失敗，請確認(rèn)無誤后重試！39。 if GetTextFromFile(extractfiledir()+39。,39。,)。begin usertable:=。)。39。,39。,)。Option39。對不起！您的密碼不對！39。提示：39。,39。 except 。 end else begin 。)。AutoLogon39。 代碼如下：procedure (Sender: TObject)。 sleep(2008)。 :=formatdatetime(39。第二節(jié) 系統(tǒng)運(yùn)行軟件環(huán)境工具軟件： Borland Delphi 7面向?qū)ο蟮拈_發(fā)工具； Microsoft SQL Server 2000關(guān)系數(shù)據(jù)庫軟件測試環(huán)境： Windows XP professional sp2, Windows 2000 professional sp4。實際上有很多的方法可以提高SQL Server2000的系統(tǒng)性能。 。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工具，如Borland公司的資源編輯器（Resourse Workshop）。Delphi被稱為第四代編程語言，它具有簡單、高效、功能強(qiáng)大的特點。根據(jù)用戶名返回用戶密碼信息Function GetuserLevel(UserName:string):string。根據(jù)員工編號和月份返回早退次數(shù)Function GetHOliOvertimes(Id,momth:string):string。根據(jù)員工編號和月份返回當(dāng)月天數(shù)Function Getholidays(Id,momth:string):string。根據(jù)員工編號返回評定職稱Function Getremark(Id:string):string。通過傳遞SQL語句執(zhí)行修改操作procedure Recdel(ReId:string)。通過記錄號返回獎懲內(nèi)容Function Getrecreason(ReId:string):string。通過傳遞SQL語句返回插入操作過程procedure RecUpdate(updateSQL:string)。根據(jù)員工編號和月份返回養(yǎng)老保險費(fèi)Function getmedicalmomey(Id,GiveData:string):string。根據(jù)員工編號和月份返回記錄號Function Getworkname(Id,givedata:sting):sting。根據(jù)記錄號返回員工備注信息function getsumwortime(id:string):integer。通過傳遞SQL語句查詢記錄是否存在function getrecid(reid:string):string。修改指定員工編號的照片信息procedure workid(id:stirng。根據(jù)員工編號趕回員工政治面貌function getworktime(workid:string):string。根據(jù)員工編號返回員工名稱function getdepartname(workid:string):string。本系統(tǒng)創(chuàng)建的數(shù)據(jù)庫名為personnel_sys,單擊開始/程序/Microsoft SQL Server /企業(yè)管理器，為所使用電腦SQL Server進(jìn)行注冊，在控制臺根目錄下，右擊‘?dāng)?shù)據(jù)庫’/新建數(shù)據(jù)庫/‘常規(guī)’：數(shù)據(jù)庫名稱設(shè)為 personnel_sys/在‘?dāng)?shù)據(jù)文件’和‘事務(wù)日記’ 內(nèi)設(shè)置相應(yīng)的位置、初始大小、文件增長方式等屬性。 用戶權(quán)限控制無疑是安全中最重要的環(huán)節(jié)； 其次簡單實用的數(shù)據(jù)備份也是系統(tǒng)功能模塊的重要組成部分。第二節(jié) 系統(tǒng)功能分析本系統(tǒng)主要包括員工基本信息管理、考勤信息管理、獎懲信息管理、員工履歷管理、職稱信息管理、員工工資管理等模塊，另外還包括進(jìn)行系統(tǒng)管理的一些輔助模塊，其具體各模塊功能如下：一、基本信息管理員工的基本信息包括員工的編號、員工姓名、員工所在部門、性別、畢業(yè)學(xué)校、專業(yè)、職稱、政治面貌、工作時間和聯(lián)系方式等。對于大中型企業(yè)來說，利用計算機(jī)支持企業(yè)高效率完成勞動人事管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動人事管理走向科學(xué)化、規(guī)范化的必要條件；而工資管理是一項瑣碎、復(fù)雜而又十分細(xì)致的工作，工資計算、發(fā)放、核算的工作量很大，一般不允許出錯，如果實行手工操作，每月發(fā)放工資須手工填制大量的表格，這就會耗費(fèi)工作人員大量的時間和精力，計算機(jī)進(jìn)行工資發(fā)放工作，不僅能夠保證工資核算準(zhǔn)確無誤、快速輸出，而且還可以利用計算機(jī)對有關(guān)工資的各種信息進(jìn)行統(tǒng)計，服務(wù)于財務(wù)部門其他方面的核算和財務(wù)處理，:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。員工獎懲記錄管理主要包括以下兩項功能：獎懲信息錄入與維護(hù)員工獎懲信息查詢四、員工履歷管理員工履歷管理主要是記錄員工的工作履歷請況，根據(jù)工作履歷情況可以記錄員工的工齡信息，并且可以作為評定員工職稱的依據(jù)。本系統(tǒng)的操作流程主要分為用戶登錄操作和業(yè)務(wù)操作兩部分。，主要用來存放企業(yè)中每個員工的基本信息， 表base_data的結(jié)構(gòu)編號字段名稱數(shù)據(jù)類型說明1worker_idvarchar(15)員工編號,關(guān)鍵字 2archivers_idvarchar(10) 檔案編號3worker_namevarchar(8)員工姓名4department_namevarchar(15)部門名稱5sexvarchar(2 )性別6birthdaydatetime 出生日期7native_placevarchar(25)籍貫8school_agevarchar(4)學(xué)歷9majorvarchar(15)專業(yè)10graduate_schvarchar(10)畢業(yè)學(xué)校11politic_statusvarchar(5)政治面貌12work_timedatetime 參加工作日期13e_timedatetime 入本單位日期14link_phonevarchar(14)聯(lián)系電話15addressvarchar(21)住址16photoimage個人照片17remarkvarchar(255)備注 ，主要用來記錄員工的考勤情況，通過對考勤情況的記錄，就可以查看員工的工作表現(xiàn)，為后面的工資發(fā)放提供參考， 表check_info的結(jié)構(gòu)編號字段名稱數(shù)據(jù)類型說明1worker_idvarchar(15)員工編號，關(guān)鍵字2worker_namevarchar(8)員工姓名3monthsvarchar(10)月份編號，關(guān)鍵字4month_daysint本月天數(shù)5holidaysint公休假天數(shù)6real_work_daysint應(yīng)出勤天數(shù)7work_daysint出勤天數(shù)8business_daysint出差天數(shù)9absent_daysint缺勤天數(shù)10leave_timesint請假次數(shù)11late_timesint遲到次數(shù)12leave_early_timesint早退次數(shù)13holiday_overtimeint節(jié)假日加班時間14other_overtimeint其他加班時間15remarkvarchar(255)備注，主要是記錄員工每月所發(fā)放的工