【正文】 varchar(15)員工編號3worker_name varchar(8)員工姓名4begin_datedatetime起始日期5over_datedatetime結(jié)束日期6unit_name varchar(20)單位名稱7work_timefloat本單位工作時間8dutyvarchar(10)擔(dān)任職務(wù)9level1varchar(4)級別10remarkvarchar(255)備注 ，主要是分配不同的用戶帳號信息，對不同用戶帳號賦予不同的權(quán)限，可以從一定程度上保障系統(tǒng)的安全。 Tbasedata類封裝的方法和過程方法或過程名 具體說明 function checkrec(id:string):boolean。根據(jù)員工編號返回員工的檔案編號function getworkername(workid:string):string。根據(jù)員工編號返回員工所在部門名稱function getsex(workid:string):string。根據(jù)員工編號趕回員工出生日期function getnativeplace(workid:string):string。根據(jù)員工編號趕回員工學(xué)歷function getmajor(workid:string):string。根據(jù)員工編號趕回員工畢業(yè)學(xué)校function getpolista(workid:string):string。根據(jù)員工編號趕回員工參加工作時間function getetime(workid:string):string。根據(jù)員工編號趕回員工聯(lián)系電話function getaddress(workid:string):string。根據(jù)員工編號趕回員工備注信息function getphone(workid:string):tstream。path1:string)。path1:string)。通過傳遞SQL語句執(zhí)行插入操作過程procedure recupdate(updatesql:stirng)。通過傳遞SQL語句執(zhí)行刪除操作過程procedure findrec(id:stirng)。根據(jù)員工編號和工作單位查詢記錄是否存在function workagerec1(findsql:string):boolean。根據(jù)記錄號返回記錄號function getworkername(reid:string):string。根據(jù)記錄號返回起始日期function getoverdate(reid:string):string。根據(jù)記錄號返回工作時間function getduty(reid:string):string。根據(jù)記錄號返回員工級別function getremark(reid:string):string。根據(jù)記錄號返回員工工齡function workagerecs(sql:string):olevariant。 通過傳遞sql 語句執(zhí)行插入操作procedure recupdate(updatesql:string)。 通過傳遞記錄號執(zhí)行刪除操作Twageinfo類封裝了對wage_info表的各種操作。通過傳遞SQL語句查詢記錄是否已經(jīng)存在Function GetRecId(Id,givedata:sting):sting。根據(jù)員工編號和月份返回員工姓名Function Getbase wage(Id,givedata:string):string。根據(jù)員工編號和月份返回公共補貼信息Function Getallowance2(Id,GiveData:string):string。根據(jù)員工編號和月份返回獎金信息Funcrion getovertimemoney(Id,GiveData:string):string。根據(jù)員工編號和月份返回扣除的考核費用Function getagedmoney(Id,GiveData:string):string。根據(jù)員工編號和月份返回醫(yī)療保險費Function getpomoney(Id,GiveData:string):string。根據(jù)員工編號和月份返回失保險費業(yè)Function gethousemoney(Id,GiveData:string):string。根據(jù)員工編號和月份返回所得稅Function getrealwage(Id,GiveData:string):string。通過傳遞SQL語句返回工資信息記錄procedure Recinsert(insertSQL:string)。通過傳遞SQL語句返回修改操作過程procedure Recdel(Id,givedata:string)。 trewardpun類封裝的方法和過程方法或過程名具體說明Function RewardPunRec(ReId:string):Boolean 。通過傳遞SQL語句查詢記錄是否存在Function GetrecId(ReId:string):string。通過記錄號返回員工名稱Function Getreccont(ReId:string):string。通過記錄號返回獎懲原因Function Getallowunit(ReId:string):string。通過記錄號返回備注信息Function Getrewardcount(month1,month2:string):integer。根據(jù)年份和月份返回懲罰記錄條數(shù)Function rewardpunrecs(SQL:string):OLEVariant。通過傳遞SQL語句執(zhí)行插入操作procedure RecUpdate(updateSQL:string)。根據(jù)記錄號執(zhí)行刪除操作Tprotitle類封裝了對pro_title表的各種操作。根據(jù)員工編號查詢職稱記錄是否存在Function ProtitleRec1(findSQL:string):Boolean。根據(jù)員工編號返回員工姓名Function Getassessdate(Id:string):string。根據(jù)員工編號返回評定單位Function Getassesstitle(Id:string):string。根據(jù)員工編號返回備注信息Function ProtitleRecs(SQL:string):OLEVariant。通過傳遞SQL語句執(zhí)行插入操作procedure RecUpdate(updateSQL:string)。根據(jù)員工編號執(zhí)行刪除操作Tcheckinfo類封裝了對check_info表的各種操作， Tcheckinfo類封裝的方法和過程方法或過程名具體說明Function CheckInforec(Id,momth:string):Boolean。根據(jù)員工編號和月份返回員工姓名Function Getmonthdays(Id,momth:string):string。根據(jù)員工編號和月份返回公休假天數(shù)Function Getreworkdays(Id,momth:string):string。根據(jù)員工編號和月份返回出勤天數(shù)Function Getbusinessdays(Id,momth:string):string。根據(jù)員工編號和月份返回缺勤天數(shù)Function GetLeavetimes(Id,momth:string):string。根據(jù)員工編號和月份返回遲到次數(shù)Function GetleaEartimes(Id,momth:string):string。根據(jù)員工編號和月份返回節(jié)假日加班時間Function Getotherovertimes(Id,momth:string):string。根據(jù)員工編號和月份返回備注信息Function CheckInfoRecs(SQL:string):OLEVariant。通過傳遞SQL語句執(zhí)行插入操作procedure RecUpdate(UpdateSQL:string)。根據(jù)員工編號和月份編號執(zhí)行刪除操作Tusertable類封裝了對user_table表的各種操作， Tusertable類封裝的方法和過程方法或過程名具體說明Function Getuserpwd(UserName:string):string。根據(jù)用戶名返回用戶級別信息Function checkuser(UserName:string):Boolean。通過傳遞SQL語句執(zhí)行插入操作procedure UserUpdate(UpdateSQL:string)。根據(jù)傳遞SQL語句執(zhí)行刪除操作procedure CreatTable(SQL:string)?！罢嬲某绦騿T用c，聰明的程序員用Delphi”，這句話是對Delphi最經(jīng)典、最實在的描述。和VC相比，Delphi更簡單、更易于掌握，而在功能上卻絲毫不遜色；和VB相比，Delphi則功能更強大、更實用。它一直是程序員至愛的編程工具。但最重要的還是Object Pascal語言，它才是一切的根本?！　elphi提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（Image Editor），以及各種開發(fā)數(shù)據(jù)庫的應(yīng)用程序，如DesktopDataBase Expert等。　　在Delphi眾多的優(yōu)勢當(dāng)中，它在數(shù)據(jù)庫方面的特長顯得尤為突出：適應(yīng)于多種數(shù)據(jù)庫結(jié)構(gòu)，從客戶機／服務(wù)機模式到多層數(shù)據(jù)結(jié)構(gòu)模式；高效率的數(shù)據(jù)庫管理系統(tǒng)和新一代更先進的數(shù)據(jù)庫引擎；最新的數(shù)據(jù)分析手段和提供大量的企業(yè)組件。并且由于今天Windows操作系統(tǒng)占領(lǐng)著主導(dǎo)地的位，選擇SQL Server一定會在兼容性方面取得一些優(yōu)勢。尤其是它可以直接存儲XML數(shù)據(jù)，可以將搜索結(jié)果以XML格式輸出等特點，有利于構(gòu)建了異構(gòu)系統(tǒng)的互操作性，奠定了而向互聯(lián)網(wǎng)的企業(yè)應(yīng)用和服務(wù)的基石。創(chuàng)建數(shù)據(jù)庫的步驟: 。 。 。 。根據(jù)計算機的配置和工作環(huán)境，可以做一些時來提高Microsoft SQL Server2000或數(shù)據(jù)庫的性能。我們可以在實踐過程中不斷的發(fā)現(xiàn)和總結(jié)。SQL語言的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進行溝通。SQL語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫中提取數(shù)據(jù)等。雖然很多數(shù)據(jù)庫都對SQL語句進行了在開發(fā)和擴展，但是包括Select, Update, Delete, Create，以及Drop在內(nèi)的標準的SQL命令仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作。 Windows server 2003 sp2。應(yīng)用程序初始化的時候，用戶可從中獲取基本信息。作為企業(yè)用戶使用的軟件，我們小組采用了藍色基調(diào)的厚重感較強的背景，附以簡單的文字信息，能夠給用戶一個穩(wěn)重可信的感覺。begin :=timetostr(now)。yyyy年mm月dd日 39。end。)后添加如下代碼： ……………… movefrm:=(application)。 。 ?！?chuàng)建登錄窗體啟動畫面消失后，將彈出登錄窗體。同時我們對登錄窗體重新設(shè)計，加入了“記住上次登錄成功時的用戶名和密碼”功能，方便了軟件使用者，體現(xiàn)了“一切從客戶角度出發(fā)”的軟件開發(fā)原則。，則將用戶名和密碼自動填到相應(yīng)編輯框，并將窗體中的“記住用戶名和密碼”標記為選中狀態(tài)否則將用戶名和密碼框清空，并將“記住用戶名和密碼”標記為取消狀態(tài)。begin usertable:=。\39。 :=(39。,39。,false)。Option39。LastUserName39。39。 :=(39。,39。,39。)。 。end。var b:bool。begin try b:=()。 。 end。39。對不起,用戶名不能為空!39。提示:39。 。 end else begin (39。,39。,mb_ok)。 exit。 。 end else begin (39。,39。,mb_ok)。 end。 if =True then begin (39。,39。,True)。Option39。LastUserName39。 (39。,39。,)。Option39。AutoLogon39。 (39。,39。,39。)。Option39。Mark39。39。 end。三、連接數(shù)據(jù)庫設(shè)置一）連接數(shù)據(jù)庫并創(chuàng)建用戶表當(dāng)系統(tǒng)第一次運行或者SQL server數(shù)據(jù)庫信息有變動時建好，則需彈出數(shù)據(jù)庫連接窗口。同時若所選數(shù)據(jù)庫中沒有數(shù)據(jù)表，則調(diào)用程序內(nèi)置的建表腳本自動創(chuàng)建所需用戶表。var strCreateDB:string。 try setupfile:=(extractfiledir()+39。)。system39。USER_NAME39。 (39。,39。,)。system39。servername39。 (39。,39。,)。\39。 。系統(tǒng)管理員39。 except (39。,39。) end。 其中GetTextFromFile是自定義函數(shù)，目的是讀取文本文件中的內(nèi)容。實現(xiàn)代碼如下：function GetTextFromFile(AFile:String。var FileStream:TFileStream。 FileStream:=(AFile,fmOpenRead)。 (ReturnString[1],)。 end。 end。二）創(chuàng)建數(shù)據(jù)庫連接類 本程序采用兩級連接方式連接到服務(wù)器端的數(shù)據(jù)庫。===232。===232。====232。====232。Integrated Security=SSPI。Initial Catalog=PERSONNEL_SYS。 窗體布局如下圖 四、創(chuàng)建系統(tǒng)主界面