【正文】 EL_SYS。===232。 end。實現(xiàn)代碼如下：function GetTextFromFile(AFile:String。 except (39。,)。system39。USER_NAME39。var strCreateDB:string。39。,39。Option39。LastUserName39。 if =True then begin (39。 end else begin (39。,39。對不起,用戶名不能為空!39。begin try b:=()。)。39。,39。，則將用戶名和密碼自動填到相應(yīng)編輯框，并將窗體中的“記住用戶名和密碼”標(biāo)記為選中狀態(tài)否則將用戶名和密碼框清空，并將“記住用戶名和密碼”標(biāo)記為取消狀態(tài)。 。begin :=timetostr(now)。雖然很多數(shù)據(jù)庫都對SQL語句進行了在開發(fā)和擴展，但是包括Select, Update, Delete, Create，以及Drop在內(nèi)的標(biāo)準(zhǔn)的SQL命令仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作。根據(jù)計算機的配置和工作環(huán)境，可以做一些時來提高Microsoft SQL Server2000或數(shù)據(jù)庫的性能。創(chuàng)建數(shù)據(jù)庫的步驟: ?！　elphi提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（Image Editor），以及各種開發(fā)數(shù)據(jù)庫的應(yīng)用程序，如DesktopDataBase Expert等?！罢嬲某绦騿T用c，聰明的程序員用Delphi”，這句話是對Delphi最經(jīng)典、最實在的描述。根據(jù)員工編號和月份編號執(zhí)行刪除操作Tusertable類封裝了對user_table表的各種操作， Tusertable類封裝的方法和過程方法或過程名具體說明Function Getuserpwd(UserName:string):string。根據(jù)員工編號和月份返回遲到次數(shù)Function GetleaEartimes(Id,momth:string):string。根據(jù)員工編號和月份返回員工姓名Function Getmonthdays(Id,momth:string):string。根據(jù)員工編號返回評定單位Function Getassesstitle(Id:string):string。通過傳遞SQL語句執(zhí)行插入操作procedure RecUpdate(updateSQL:string)。通過記錄號返回員工名稱Function Getreccont(ReId:string):string。通過傳遞SQL語句返回工資信息記錄procedure Recinsert(insertSQL:string)。根據(jù)員工編號和月份返回扣除的考核費用Function getagedmoney(Id,GiveData:string):string。通過傳遞SQL語句查詢記錄是否已經(jīng)存在Function GetRecId(Id,givedata:sting):sting。根據(jù)記錄號返回員工級別function getremark(reid:string):string。根據(jù)員工編號和工作單位查詢記錄是否存在function workagerec1(findsql:string):boolean。path1:string)。根據(jù)員工編號趕回員工畢業(yè)學(xué)校function getpolista(workid:string):string。根據(jù)員工編號返回員工的檔案編號function getworkername(workid:string):string。啟動程序用戶登錄用戶權(quán)限① 員工基本信息查詢② 考勤信息查詢③ 獎懲信息查詢④ 履歷信息查詢⑤ 職稱信息查詢 ⑥ 工資信息查詢⑦ 修改自己用戶密碼① 進行所有信息的查詢、保存和維護操作② 管理所有用戶帳號③ 系統(tǒng)數(shù)據(jù)備份 重新登入 驗證失敗 普通用戶 系統(tǒng)管理員第二章 數(shù)據(jù)庫應(yīng)用程序開發(fā)概述第一節(jié) 創(chuàng)建數(shù)據(jù)庫數(shù)據(jù)庫既可以通過SQL語句在查詢分析器里創(chuàng)建，也可以在企業(yè)管理起的控制臺中直接創(chuàng)建，這里主要介紹如何在企業(yè)管理器的控制臺中創(chuàng)建數(shù)據(jù)庫。只有安全性提到了一定的高度，數(shù)據(jù)庫應(yīng)用程序的其他功能模塊的實現(xiàn)才有意義。 不同的企業(yè)具有不同的人事、工資管理制度，這就決定了不同的企業(yè)需要不同的人事工資管理系統(tǒng)。這些優(yōu)點能夠極大地提高人事工資資管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。員工工作履及管理主要實現(xiàn)的功能有：履歷信息與維護員工履歷信息查詢五、職稱信息管理員工職稱信息記錄員工的職稱評定信息，因為員工的職稱高低與工資有直接的關(guān)系，所以員工職稱信息記錄的結(jié)果將直接影響員工的工資水平。用戶登錄操作，用戶登錄操作主要是對用戶的帳號（包括用戶名和密碼）進行身份驗證。 表user_table的結(jié)構(gòu)編號字段名稱數(shù)據(jù)類型說明1user_namevarchar(30)用戶名，關(guān)鍵字2user_pwdvarchar(30)用戶密碼3power_levelvarchar(12)權(quán)限級別 第三節(jié) 數(shù)據(jù)表操作類的設(shè)計 在實例中，對數(shù)據(jù)庫的連接和操作都被封裝成類，類名以“T”開頭，對每張數(shù)據(jù)表的操作都可以封裝到對應(yīng)類的方法和過程中，在使用類時要先實例化，使用完后要將實例釋放，調(diào)用類中方法和過程時只需要向方法和過程傳遞參數(shù)就可以實現(xiàn)調(diào)用，下面類出類中方法和過程的名稱 Tbasedata類主要封裝了對base_data表的各種操作。根據(jù)員工編號趕回員工籍貫function getschage(workid:string):string。根據(jù)員工編號趕回員工住址信息function getremark(workid:string):string。通過傳遞SQL語句執(zhí)行修改操作過程procedure recdel(id:stirng)。根據(jù)記錄號返回結(jié)束日期function getworktime(reid:string):string。 通過傳遞sql語句執(zhí)行修改操作procedure recdel(reid:string)。根據(jù)員工編號和月份返回出差補貼信息Function getreward(Id,GiveData:string):string。根據(jù)員工編號和月份返回住房公積金Function getinetax(Id,GiveData:string):string。根據(jù)記錄號查詢記錄是否存在Function RewardPunRec1(SQL:string):Boolean 。根據(jù)年份和月份返回獎勵記錄條數(shù)Function Getpuncount(month1,month2:string):integer。通過查詢SQL語句查詢記錄是否存在Function Getworkername(Id:string):string。通過傳遞SQL語句執(zhí)行修改操作procedure Recdel(Id:string)。根據(jù)員工編號和月份返回出差天數(shù)Function Getabsentdays(Id,momth:string):string。通過傳遞SQL語句返回查詢記錄procedure RecInsert(InsertSQL:string)。通過傳遞SQL語句執(zhí)行修改操作procedure Userdelete(DeleteSQL:string)?！　elphi具有以下的特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，強大的數(shù)據(jù)庫支持，與Windows編程緊密結(jié)合，強大而成熟的組件技術(shù)。另外，SQL Server 2000除了具有擴展性，可靠性以外，還具有可以迅速開發(fā)新的因特網(wǎng)系統(tǒng)的功能。 。按照ANSI(美國國家標(biāo)準(zhǔn)協(xié)會)的規(guī)定，SQL被作為關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。但啟動畫面不宜做的太大，以免喧賓奪主。(。登錄窗體是唯一能進入主窗口的入口。)。,39。Mark39。2. 按下登錄按鈕后如果“記住用戶名和密碼”處于選中狀態(tài)，則在中覆蓋寫入 [Option]AutoLogon=1LastUserName=‘上次登錄成功的用戶名’Mark=‘密碼’ 否則覆蓋寫入 [Option]AutoLogon=0LastUserName=Mark= 實現(xiàn)代碼如下（包括權(quán)限和密碼驗證模塊代碼）：procedure (Sender: TObject)。 if b=false then if =39。 exit。 end else begin if =() then begin userlevel:=()。 。 (39。Mark39。Option39。,39。目的是提醒用戶更改數(shù)據(jù)庫連接參數(shù)，從而能夠正常登陸。 (39。USER_PWD39。system39。 :=39。end。 try if 0 then begin SetLength(ReturnString,)。主要有Adoconnectio，Adoquery和DataSetProvider控件三者關(guān)系如下： 連接 請求 請求DataBase231。應(yīng)用程序其中Personnel_adoconn（Adoconnection控件）主要屬性設(shè)置如下Connectionstring Provider=。在順利實現(xiàn)軟件基本功能的同時，我同時對主窗體進行了一些細節(jié)改進，如：1. 標(biāo)題欄顯示當(dāng)前日期和時間2. 標(biāo)題欄顯示當(dāng)前登錄用戶和權(quán)限級別。歡迎使用本系統(tǒng)！ 39。end。 。end。 :=false。 :=false。 :=true。 :=true。end。ARCHIVES_ID 檔案編號,SCHOOL_AGE 學(xué)歷,PHOTO 個人照片,39。 :=(findsql)。 bmp:Tbitmap。 end。begin if =39。該員工編號已經(jīng)存在，插入失?。?9。 if then sex:=39。39。 +39。39。++39。++39。39。 +39。39。++39。++39。39。39。 +39。 (modsql)。三） 基本信息維護窗體布局如下圖相關(guān)代碼：1. 窗體的onactivate procedure (Sender: TObject)。 ().Free。 then :=true。 :=strtodate(())。確定要修改嗎？39。 if =39。 if then sex:=39。39。 +39。39。++39。++39。39。 +39。39。++39。++39。39。39。 +39。 (modsql)。end。)。end。yyyymmdd39。)or(=39。該考勤記錄不存在！39。 +39。 +39。 +39。 :=(sql)。procedure (Sender: TObject)。 +39。 :=(allsql)。,now)。 :=(,)。procedure (Sender: TObject)。)。 insertsql:=39。 +39。39。++39。++39。39。 +39。39。++39。++39。39。 +39。39。++39。end。 exit。輸入不是數(shù)字！39。確定要修改嗎？39。請根據(jù)員工編號和月份編號查看后再修改！39。 end。,MONTH_DAYS=39。BUSINESS_DAYS=39。39。39。39。39。,39。,LEAVE_EARLY_TIMES=39。HOLIDAY_OVERTIME=39。39。39。39。39。begin if (39。) then begin showmessage(39。 exit。:=39。:=39。:=39。:=39。var i:integer。 +39。+idnum+39。 //創(chuàng)建類的實例 :=()。var t1,insertsql:string。39。39。+t1+39。++39。39。39。39。保存完畢！39。 //員工編號 :=()。end。++39。39。 +39。39。39。+ +39。++39。 insertsql:=39。procedure (Column: TColumn)。39。 +39。beginfor i:=0 to do begin if [i] then idnum:=[i]。 end。:=39。:=39。:=39。 (,)。)。,39。 showmessage(39。 AND MONTHS=39。39。39。39。39。LATE_TIMES=39。,LEAVE_TIMES=39。,39。39。39。39。39。update CHECK_INFO set WORKER_NAME=39。 exit。提示：39。 exit。end。 var Key: Char)。39。++39。39。39。39。39。++39。39。39。39。39。++39。39。 +39。 end。begin if(=39。 :=(,)。