【正文】 var ReturnString:string):boolean。其中用到了Tinifile類，須在uses中加入Inifiles單元。end。提示：39。數(shù)據(jù)表創(chuàng)建失敗，請確認(rèn)無誤后重試！39。 。 :=39。,strCreateDB) then (strCreateDB)。 if GetTextFromFile(extractfiledir()+39。database39。system39。,)。,39。 (39。USER_PWD39。system39。,)。,39。 (39。\39。begin usertable:=。新建窗體dblink，窗體布局如下圖1.“連接”按鈕的onclick事件代碼procedure (Sender: TObject)。目的是提醒用戶更改數(shù)據(jù)庫連接參數(shù)，從而能夠正常登陸。end。)。,39。,39。 (39。39。LastUserName39。Option39。,False)。,39。 end else begin (39。Mark39。Option39。,)。,39。 (39。AutoLogon39。Option39。 end。 。提示：39。對不起！您的密碼不對！39。 。 end else begin if =() then begin userlevel:=()。 。提示：39。對不起，沒有這個用戶名！39。 exit。,mb_ok)。,39。 then begin (39。 if b=false then if =39。 exit。 except 。 userlevel:string。2. 按下登錄按鈕后如果“記住用戶名和密碼”處于選中狀態(tài)，則在中覆蓋寫入 [Option]AutoLogon=1LastUserName=‘上次登錄成功的用戶名’Mark=‘密碼’ 否則覆蓋寫入 [Option]AutoLogon=0LastUserName=Mark= 實現(xiàn)代碼如下（包括權(quán)限和密碼驗證模塊代碼）：procedure (Sender: TObject)。 end。 end else begin 。39。Mark39。Option39。)。,39。,39。 if =true then begin :=(39。AutoLogon39。Option39。)。 setupfile:=(extractfiledir()+39。 代碼如下：procedure (Sender: TObject)。新建登錄窗體loginfrm,登錄窗體的設(shè)計布局如下圖算法流程和具體代碼如下：1. 窗體建立事件發(fā)生時、密碼和登錄開關(guān)狀態(tài)。登錄窗體是唯一能進(jìn)入主窗口的入口。 。 sleep(2008)。 。(。,now)。 :=formatdatetime(39。附圖如下： 相關(guān)代碼： 1. 窗體創(chuàng)建事件代碼procedure (Sender: TObject)。但啟動畫面不宜做的太大，以免喧賓奪主。在以上操作系統(tǒng)上通過測試 第三節(jié) 模塊的設(shè)計與實現(xiàn)一、創(chuàng)建啟動畫面 啟動畫面是應(yīng)用程序的附加部分，體現(xiàn)應(yīng)用程序的門面。第二節(jié) 系統(tǒng)運行軟件環(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。目前，絕大多數(shù)流行的關(guān)系姓數(shù)據(jù)庫管理系統(tǒng)，如Oracle, Sybase, Microsoft SQL Server,Access等都采用了SQL語言標(biāo)準(zhǔn)。按照ANSI(美國國家標(biāo)準(zhǔn)協(xié)會)的規(guī)定，SQL被作為關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。2．結(jié)構(gòu)化查詢語言(SQL)簡介 SQL是英文Structure Query Language的縮寫，意思為結(jié)構(gòu)化查詢語言。實際上有很多的方法可以提高SQL Server2000的系統(tǒng)性能。 在設(shè)計并且建立數(shù)據(jù)庫后，我們還需要進(jìn)行一些優(yōu)化工作。 。 。 。因此我們選用Microsoft SQL Server2000來創(chuàng)建數(shù)據(jù)庫。另外，SQL Server 2000除了具有擴展性，可靠性以外，還具有可以迅速開發(fā)新的因特網(wǎng)系統(tǒng)的功能。二、選擇Microsoft Server 2000作為服務(wù)器端數(shù)據(jù)庫軟件 1． Microsoft SQL Server2000簡介 SQL Server 2000是Microsoft公司推出的SQL Server數(shù)據(jù)庫管理系統(tǒng)，該版本繼承了SQL Server Windows 98的膝上型電腦到運行Microsoft Windows 2000的大型多處理器的服務(wù)器等多種平臺使用 由于SQL Server與Windows界而風(fēng)格完全一致，且有許多向?qū)?Wizard)幫助，因此易于安裝和學(xué)習(xí)，有一關(guān)SQL Server的資料、培訓(xùn)隨處可得，所以容易上手。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工具，如Borland公司的資源編輯器（Resourse Workshop）。 Object Pascal語言是在Pascal語言的基礎(chǔ)上發(fā)展起來的，簡單易學(xué)。　　Delphi具有以下的特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，強大的數(shù)據(jù)庫支持，與Windows編程緊密結(jié)合，強大而成熟的組件技術(shù)?？梢哉fDelphi同時兼?zhèn)淞薞C功能強大和VB簡單易學(xué)的特點。Delphi被稱為第四代編程語言，它具有簡單、高效、功能強大的特點。通過腳本SQL語句創(chuàng)建用戶數(shù)據(jù)表第三章 人事工資管理信息系統(tǒng)的系統(tǒng)設(shè)計與實現(xiàn)第一節(jié) 系統(tǒng)實現(xiàn)技術(shù)一、選擇Borland Delphi 7做為開發(fā)工具Delphi是著名的Borland（現(xiàn)在已和Inprise合并）公司開發(fā)的可視化軟件開發(fā)工具。通過傳遞SQL語句執(zhí)行修改操作procedure Userdelete(DeleteSQL:string)。根據(jù)用戶名返回查詢賬號記錄是否存在procedure UserInsert(InsertSQL:string)。根據(jù)用戶名返回用戶密碼信息Function GetuserLevel(UserName:string):string。通過傳遞SQL語句執(zhí)行修改操作procedure Recdel(Id,month:string)。通過傳遞SQL語句返回查詢記錄procedure RecInsert(InsertSQL:string)。根據(jù)員工編號和月份返回返回其他加班時間Function Getremark(Id,momth:string):string。根據(jù)員工編號和月份返回早退次數(shù)Function GetHOliOvertimes(Id,momth:string):string。根據(jù)員工編號和月份返回請假次數(shù)Function Getlatetimes(Id,momth:string):string。根據(jù)員工編號和月份返回出差天數(shù)Function Getabsentdays(Id,momth:string):string。根據(jù)員工編號和月份返回應(yīng)出勤天數(shù)Function Getworkdays(Id,momth:string):string。根據(jù)員工編號和月份返回當(dāng)月天數(shù)Function Getholidays(Id,momth:string):string。根據(jù)員工編號和月份查詢記錄是否存在Function Getworkername(Id,momth:string):string。通過傳遞SQL語句執(zhí)行修改操作procedure Recdel(Id:string)。通過傳遞SQL語句返回查詢記錄procedure Recinsert(insertSQL:string)。根據(jù)員工編號返回評定職稱Function Getremark(Id:string):string。根據(jù)員工編號返回評定日期Function Getassessunit(Id:string):string。通過查詢SQL語句查詢記錄是否存在Function Getworkername(Id:string):string。 Tprotitle類封裝的方法和過程方法或過程名具體說明Function ProtitleRec(Id:string):Boolean。通過傳遞SQL語句執(zhí)行修改操作procedure Recdel(ReId:string)。通過傳遞SQL語句返回記錄查詢procedure Recinsert(insertSQL:string)。根據(jù)年份和月份返回獎勵記錄條數(shù)Function Getpuncount(month1,month2:string):integer。通過記錄號返回批準(zhǔn)單位Function Getremark(ReId:string):string。通過記錄號返回獎懲內(nèi)容Function Getrecreason(ReId:string):string。通過記錄號返回記錄號Function Getwokename(ReId:string):string。根據(jù)記錄號查詢記錄是否存在Function RewardPunRec1(SQL:string):Boolean 。根據(jù)員工編號和月份執(zhí)行刪除操作 Twageinfo類封裝的方法和過程。通過傳遞SQL語句返回插入操作過程procedure RecUpdate(updateSQL:string)。根據(jù)員工編號和月份返回實發(fā)工資procedure wagesrecs(SQL:string):OLEVariant。根據(jù)員工編號和月份返回住房公積金Function getinetax(Id,GiveData:string):string。根據(jù)員工編號和月份返回工傷保險費Function getunemploymoney(Id,GiveData:string):string。根據(jù)員工編號和月份返回養(yǎng)老保險費Function getmedicalmomey(Id,GiveData:string):string。根據(jù)員工編號和月份返回加班費Function getdeductcheck(Id,GiveData:string):string。根據(jù)員工編號和月份返回出差補貼信息Function getreward(Id,GiveData:string):string。根據(jù)員工編號和月份返回基本工資信息Function Getallowance1(Id,givedata:string):string。根據(jù)員工編號和月份返回記錄號Function Getworkname(Id,givedata:sting):sting。方法或過程名具體說明Function WageInfoRec(Id,GiveData:string):Boolean:根據(jù)員工編號和月份查詢記錄是否存在Function WageInfoRec(FindSQL:string):Boolean。 通過傳遞sql語句執(zhí)行修改操作procedure recdel(reid:string)。通過傳遞sql語句返回查詢記錄procedure recinsert(insertsql:string)。根據(jù)記錄號返回員工備注信息function getsumwortime(id:string):integer。根據(jù)記錄號返回員工擔(dān)任的職務(wù)function getlevel1(reid:string):string。根據(jù)記錄號返回結(jié)束日期function getworktime(reid:string):string。根據(jù)記錄號返回員工名稱function getbegindate(reid:string):string。通過傳遞SQL語句查詢記錄是否存在function getrecid(reid:string):string。根據(jù)員工編號執(zhí)行查詢操作過程Tworkage類封裝了對work_age表的各種操作， Tworkage類封裝的方法和過程方法或過程名 具體說明 function workagerec(id,workunit:string):boolean。通過傳遞SQL語句執(zhí)行修改操作過程procedure recdel(id:stirng)。根據(jù)員工編號和圖片路徑插入一條記錄procedure recinsert(insertsql:stirng)。修改指定員工編號的照片信息procedure workid(id:stirng。根據(jù)員工編號趕回圖片信息的數(shù)據(jù)流 function allrec(sql:string):olevariant通過傳遞SQL語句返回查詢記錄procedure photoupdate(id:stirng。根據(jù)員工編號趕回員工住址信息function getremark(workid:string):string。根據(jù)員工編號趕回員工如本單位時間function getlinkphone(workid:string):string。根據(jù)員工編號趕回員工政治面貌function getworktime(workid:string):string。根據(jù)員工編號趕回員工所學(xué)專業(yè)function getgrasch(workid:string):string。根據(jù)員工編號趕回員工籍貫function getschage(workid:string):string。根據(jù)員工編號趕回員工性別function getbirth(workid:string):string。