【正文】 39。 :=(,)。39。WORKER_NAME,MONTHS,MONTH_DAYS,BUSINESS_DAYS,ABSENT_DAYS,39。39。,39。39。39。39。39。var a:boolean。 end。 end。++39。39。 +39。39。++39。39。修改完成！39。 exit。39。39。 end。39。insert into REWARD_PUN(WORKER_ID,WORKER_NAME,39。39。,39。39。procedure (Sender: TObject)。 showmessage(39。39。39。39。獎(jiǎng)懲信息錄入與維護(hù) 窗體布局如下圖 相關(guān)代碼：procedure (Sender: TObject)。39。七、獎(jiǎng)懲信息管理模塊一） 員工將成信息查詢窗體布局如下圖相關(guān)代碼： procedure (Sender: TObject)。39。39。39。39。39。 +39。39。++39。39。39。) then begin showmessage(39。 if a=false then begin showmessage(39。)。,39。39。39。39。39。,39。 end。end。yyyymm39。absent_days 曠工天數(shù),holidays 公休假天數(shù),real_work_days 39。39。holiday_overtime 節(jié)假日加班時(shí)間,other_overtime 其他加班時(shí)間,39。 if (,)=false then begin showmessage(39。begin Time1:=formatdatetime(39。對(duì)不起，該員工編號(hào)不存在，刪除失??！39。39。39。39。,link_phone=39。39。39。,39。男39。begin if (39。男39。end。 39。39。39。,39。39。,school_age=39。39。 if ()=true then begin showmessage(39。 except 。COME_TIME 入本單位時(shí)間,REMARK 備注 FROM BASE_DATA39。begin 。 :=true。 :=false。begin 。begin :=39。====232。 FileStream:=(AFile,fmOpenRead)。 。,39。三、連接數(shù)據(jù)庫(kù)設(shè)置一）連接數(shù)據(jù)庫(kù)并創(chuàng)建用戶表當(dāng)系統(tǒng)第一次運(yùn)行或者SQL server數(shù)據(jù)庫(kù)信息有變動(dòng)時(shí)建好，則需彈出數(shù)據(jù)庫(kù)連接窗口。 (39。,True)。 exit。 end。,39。\39。end。SQL語(yǔ)言的主要功能就是同各種數(shù)據(jù)庫(kù)建立聯(lián)系，進(jìn)行溝通。并且由于今天Windows操作系統(tǒng)占領(lǐng)著主導(dǎo)地的位，選擇SQL Server一定會(huì)在兼容性方面取得一些優(yōu)勢(shì)。通過傳遞SQL語(yǔ)句執(zhí)行插入操作procedure UserUpdate(UpdateSQL:string)。根據(jù)員工編號(hào)和月份返回出勤天數(shù)Function Getbusinessdays(Id,momth:string):string。根據(jù)員工編號(hào)查詢職稱記錄是否存在Function ProtitleRec1(findSQL:string):Boolean。 trewardpun類封裝的方法和過程方法或過程名具體說(shuō)明Function RewardPunRec(ReId:string):Boolean 。根據(jù)員工編號(hào)和月份返回公共補(bǔ)貼信息Function Getallowance2(Id,GiveData:string):string。根據(jù)記錄號(hào)返回起始日期function getoverdate(reid:string):string。根據(jù)員工編號(hào)趕回員工聯(lián)系電話function getaddress(workid:string):string。，主要用來(lái)存放企業(yè)中每個(gè)員工的基本信息， 表base_data的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1worker_idvarchar(15)員工編號(hào),關(guān)鍵字 2archivers_idvarchar(10) 檔案編號(hào)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個(gè)人照片17remarkvarchar(255)備注 ，主要用來(lái)記錄員工的考勤情況，通過對(duì)考勤情況的記錄，就可以查看員工的工作表現(xiàn)，為后面的工資發(fā)放提供參考， 表check_info的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1worker_idvarchar(15)員工編號(hào)，關(guān)鍵字2worker_namevarchar(8)員工姓名3monthsvarchar(10)月份編號(hào)，關(guān)鍵字4month_daysint本月天數(shù)5holidaysint公休假天數(shù)6real_work_daysint應(yīng)出勤天數(shù)7work_daysint出勤天數(shù)8business_daysint出差天數(shù)9absent_daysint缺勤天數(shù)10leave_timesint請(qǐng)假次數(shù)11late_timesint遲到次數(shù)12leave_early_timesint早退次數(shù)13holiday_overtimeint節(jié)假日加班時(shí)間14other_overtimeint其他加班時(shí)間15remarkvarchar(255)備注，主要是記錄員工每月所發(fā)放的工資信息情況，包括工資的各項(xiàng)內(nèi)容及相應(yīng)的數(shù)據(jù)， 表wage_info的就結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1record_idbigint記錄編號(hào)，關(guān)鍵字2worker_idvarchar(15)員工編號(hào)3worker_namevarchar(8)員工姓名4base_wagefloat基本工資5allowance1float鞏固補(bǔ)貼6allowance2float出差補(bǔ)貼7rewardfloat獎(jiǎng)金8overtime_moneyfloat加班費(fèi)9deduct_checkfloat扣考核10aged_moneyfloat養(yǎng)老保險(xiǎn)11medical_moneyfloat醫(yī)療保險(xiǎn)12po_moneyfloat工傷保險(xiǎn)13unemploy_moneyfloat失業(yè)保險(xiǎn)14housing_moneyfloat住房公積金15ine_taxfloat所得稅16real_wagefloat實(shí)發(fā)工資17give_datevarchar(6)發(fā)放月份 ,主要是用來(lái)記錄員工的一些獎(jiǎng)懲信息，該表的數(shù)據(jù)有時(shí)也與工資信息發(fā)生關(guān)聯(lián)， 表reward_pun的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1record_idbigint記錄編號(hào)，關(guān)鍵字2worker_idvarchar(15)員工編號(hào)3worker_name varchar(8)員工姓名4record_date datetime 獎(jiǎng)懲日期5record_typevarchar(2)獎(jiǎng)懲類型6record_contentvarchar(30)獎(jiǎng)懲內(nèi)容7record_reasonvarchar(30)獎(jiǎng)懲原因8allow_unitvarchar(20)批準(zhǔn)單位9remarkvarchar(255)備注 ，主要是記錄員工的職稱級(jí)別信息，根據(jù)不同的級(jí)別就可以訂出不同級(jí)別的工資水平， 表 pro_title的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1worker_idvarchar(15)員工編號(hào)，關(guān)鍵字2worker_name varchar(8)員工姓名3assess_datedatetime評(píng)定日期4assess_unitvarchar(20)評(píng)定單位5assess_titlevarchar(8)評(píng)定職稱6remarkvarchar(255)備注，反映企業(yè)員工的工作經(jīng)歷和工作時(shí)間，從工作履歷表總可以看出員工的工齡情況， 表work_age的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)類型說(shuō)明1record_idbigint記錄編號(hào)，關(guān)鍵字2worker_id varchar(15)員工編號(hào)3worker_name varchar(8)員工姓名4begin_datedatetime起始日期5over_datedatetime結(jié)束日期6unit_name varchar(20)單位名稱7work_timefloat本單位工作時(shí)間8dutyvarchar(10)擔(dān)任職務(wù)9level1varchar(4)級(jí)別10remarkvarchar(255)備注 ，主要是分配不同的用戶帳號(hào)信息，對(duì)不同用戶帳號(hào)賦予不同的權(quán)限，可以從一定程度上保障系統(tǒng)的安全。員工獎(jiǎng)懲記錄管理主要包括以下兩項(xiàng)功能：獎(jiǎng)懲信息錄入與維護(hù)員工獎(jiǎng)懲信息查詢四、員工履歷管理員工履歷管理主要是記錄員工的工作履歷請(qǐng)況，根據(jù)工作履歷情況可以記錄員工的工齡信息，并且可以作為評(píng)定員工職稱的依據(jù)。第二節(jié) 系統(tǒng)功能分析本系統(tǒng)主要包括員工基本信息管理、考勤信息管理、獎(jiǎng)懲信息管理、員工履歷管理、職稱信息管理、員工工資管理等模塊，另外還包括進(jìn)行系統(tǒng)管理的一些輔助模塊，其具體各模塊功能如下：一、基本信息管理員工的基本信息包括員工的編號(hào)、員工姓名、員工所在部門、性別、畢業(yè)學(xué)校、專業(yè)、職稱、政治面貌、工作時(shí)間和聯(lián)系方式等。本系統(tǒng)創(chuàng)建的數(shù)據(jù)庫(kù)名為personnel_sys,單擊開始/程序/Microsoft SQL Server /企業(yè)管理器，為所使用電腦SQL Server進(jìn)行注冊(cè)，在控制臺(tái)根目錄下，右擊‘?dāng)?shù)據(jù)庫(kù)’/新建數(shù)據(jù)庫(kù)/‘常規(guī)’：數(shù)據(jù)庫(kù)名稱設(shè)為 personnel_sys/在‘?dāng)?shù)據(jù)文件’和‘事務(wù)日記’ 內(nèi)設(shè)置相應(yīng)的位置、初始大小、文件增長(zhǎng)方式等屬性。根據(jù)員工編號(hào)趕回員工政治面貌function getworktime(workid:string):string。通過傳遞SQL語(yǔ)句查詢記錄是否存在function getrecid(reid:string):string。根據(jù)員工編號(hào)和月份返回記錄號(hào)Function Getworkname(Id,givedata:sting):sting。通過傳遞SQL語(yǔ)句返回插入操作過程procedure RecUpdate(updateSQL:string)。通過傳遞SQL語(yǔ)句執(zhí)行修改操作procedure Recdel(ReId:string)。根據(jù)員工編號(hào)和月份返回當(dāng)月天數(shù)Function Getholidays(Id,momth:string):string。根據(jù)用戶名返回用戶密碼信息Function GetuserLevel(UserName:string):string。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工具，如Borland公司的資源編輯器（Resourse Workshop）。實(shí)際上有很多的方法可以提高SQL Server2000的系統(tǒng)性能。 :=formatdatetime(39。 代碼如下：procedure (Sender: TObject)。)。 except 。提示：39。Option39。,39。)。,)。 if GetTextFromFile(extractfiledir()+39。var ReturnString:string):boolean。Adoquery231。這樣做有以下優(yōu)點(diǎn)：1. 隱藏主窗體使程序只能顯示一個(gè)窗體，增強(qiáng)了安全性；2. 由于同時(shí)只能顯示一個(gè)窗體（其他的隱藏，需要時(shí)用show方法顯示），減少了程序句柄數(shù)，降低了內(nèi)存使用；3. 由于程序所有窗體采用自動(dòng)建立的方式，登錄前其實(shí)已將所有窗體加載至內(nèi)存，目的是提高程序的運(yùn)行速度（缺點(diǎn)是內(nèi)存占用高）。end。 then begin :=false。系統(tǒng)管理員39。 end。 +39。 :=+。)。39。+sex+39。 +39。++39。39。39。+datetostr()+39。提示：39。 :=()。end。 else path1:=。++39。39