【正文】 ring)。Delphi被稱為第四代編程語(yǔ)言，它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。　　Delphi具有以下的特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，強(qiáng)大的數(shù)據(jù)庫(kù)支持，與Windows編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工具，如Borland公司的資源編輯器（Resourse Workshop）。另外，SQL Server 2000除了具有擴(kuò)展性，可靠性以外，還具有可以迅速開發(fā)新的因特網(wǎng)系統(tǒng)的功能。 。 。實(shí)際上有很多的方法可以提高SQL Server2000的系統(tǒng)性能。按照ANSI(美國(guó)國(guó)家標(biāo)準(zhǔn)協(xié)會(huì))的規(guī)定，SQL被作為關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)的標(biāo)準(zhǔn)語(yǔ)言。第二節(jié) 系統(tǒng)運(yùn)行軟件環(huán)境工具軟件： Borland Delphi 7面向?qū)ο蟮拈_發(fā)工具； Microsoft SQL Server 2000關(guān)系數(shù)據(jù)庫(kù)軟件測(cè)試環(huán)境： Windows XP professional sp2, Windows 2000 professional sp4。但啟動(dòng)畫面不宜做的太大，以免喧賓奪主。 :=formatdatetime(39。(。 sleep(2008)。登錄窗體是唯一能進(jìn)入主窗口的入口。 代碼如下：procedure (Sender: TObject)。)。AutoLogon39。,39。)。Mark39。 end else begin 。2. 按下登錄按鈕后如果“記住用戶名和密碼”處于選中狀態(tài)，則在中覆蓋寫入 [Option]AutoLogon=1LastUserName=‘上次登錄成功的用戶名’Mark=‘密碼’ 否則覆蓋寫入 [Option]AutoLogon=0LastUserName=Mark= 實(shí)現(xiàn)代碼如下（包括權(quán)限和密碼驗(yàn)證模塊代碼）：procedure (Sender: TObject)。 except 。 if b=false then if =39。,39。 exit。提示：39。 end else begin if =() then begin userlevel:=()。對(duì)不起！您的密碼不對(duì)！39。 。Option39。 (39。,)。Mark39。,39。Option39。39。,39。)。目的是提醒用戶更改數(shù)據(jù)庫(kù)連接參數(shù)，從而能夠正常登陸。begin usertable:=。 (39。,)。USER_PWD39。,39。system39。 if GetTextFromFile(extractfiledir()+39。 :=39。數(shù)據(jù)表創(chuàng)建失敗，請(qǐng)確認(rèn)無(wú)誤后重試！39。end。var ReturnString:string):boolean。 try if 0 then begin SetLength(ReturnString,)。 finally 。主要有Adoconnectio，Adoquery和DataSetProvider控件三者關(guān)系如下： 連接 請(qǐng)求 請(qǐng)求DataBase231。Adoquery231。應(yīng)用程序其中Personnel_adoconn（Adoconnection控件）主要屬性設(shè)置如下Connectionstring Provider=。Data Source=這是連接數(shù)據(jù)庫(kù)的關(guān)鍵。在順利實(shí)現(xiàn)軟件基本功能的同時(shí)，我同時(shí)對(duì)主窗體進(jìn)行了一些細(xì)節(jié)改進(jìn)，如：1. 標(biāo)題欄顯示當(dāng)前日期和時(shí)間2. 標(biāo)題欄顯示當(dāng)前登錄用戶和權(quán)限級(jí)別。這樣做有以下優(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)存占用高）。歡迎使用本系統(tǒng)！ 39。 當(dāng)前用戶:39。end。end。 。end。end。 then begin :=false。 :=false。 :=false。 :=false。系統(tǒng)管理員39。 :=true。 :=true。 :=true。 end。end。beginbasedata:=。ARCHIVES_ID 檔案編號(hào),SCHOOL_AGE 學(xué)歷,PHOTO 個(gè)人照片,39。 +39。 :=(findsql)。 DataCol: Integer。 bmp:Tbitmap。 :=+。 end。 (area,state)。begin if =39。)。該員工編號(hào)已經(jīng)存在，插入失?。?9。 path1:=。 if then sex:=39。39。39。++39。 +39。+sex+39。39。39。++39。 +39。++39。39。39。++39。 +39。++39。39。39。++39。 +39。++39。39。39。39。39。+datetostr()+39。 +39。++39。 (modsql)。提示：39。三） 基本信息維護(hù)窗體布局如下圖相關(guān)代碼：1. 窗體的onactivate procedure (Sender: TObject)。)。 ().Free。 :=()。 then :=true。 :=()。 :=strtodate(())。end。確定要修改嗎？39。對(duì)不起，該員工編號(hào)不存在，修改失??！39。 if =39。 else path1:=。 if then sex:=39。39。39。++39。 +39。+sex+39。39。39。++39。 +39。++39。39。39。++39。 +39。++39。39。39。++39。 +39。++39。39。39。39。39。+datetostr()+39。 +39。++39。 (modsql)。提示：39。end。,39。)。 showmessage(39。end。end。yyyymmdd39。procedure (Sender: TObject)。)or(=39。)。該考勤記錄不存在！39。 sql:=39。 +39。 +39。 +39。++39。 +39。++39。 :=(sql)。 :=[2].AsString。procedure (Sender: TObject)。 +39。 +39。 +39。 :=(allsql)。 checkinfo:=。,now)。 :=(,)。 :=(,)。 :=(,)。procedure (Sender: TObject)。)or(=39。)。對(duì)不起，該記錄已經(jīng)存在，請(qǐng)重新輸入！39。 insertsql:=39。 +39。 +39。++39。39。39。++39。 +39。++39。39。39。++39。 +39。++39。39。39。++39。 +39。++39。39。39。++39。 +39。++39。39。39。++39。 (insertsql)。end。begin a:=((key=48)and(key=57))or(key=8)。 exit。 var Key: Char)。輸入不是數(shù)字！39。end。確定要修改嗎？39。39。請(qǐng)根據(jù)員工編號(hào)和月份編號(hào)查看后再修改！39。 if (,)=false then begin showmessage(39。 end。39。,MONTH_DAYS=39。39。BUSINESS_DAYS=39。39。39。,39。39。,WORK_DAYS=39。39。REAL_WORK_DAYS=39。39。39。,39。39。,LEAVE_EARLY_TIMES=39。39。HOLIDAY_OVERTIME=39。39。39。,39。39。 where WORKER_ID=39。39。39。39。)。begin if (39。,mb_yesno+mb_iconquestion)=idyes then begin if(=39。) then begin showmessage(39。 end。 exit。刪除完成！39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。procedure (Sender: TObject)。var i:integer。 sql:=39。 +39。 +39。+idnum+39。 :=(sql)。 //創(chuàng)建類的實(shí)例 :=()。 except exit。var t1,insertsql:string。 +39。39。39。39。39。+t1+39。 +39。++39。39。39。39。39。++39。39。39。保存完畢！39。begin rewardpun:=。 //員工編號(hào) :=()。 :=()。end。 (insertsql)。++39。39。39。++39。 +39。++39。39。39。39。39。+ +39。 +39。++39。 +39。 insertsql:=39。end。procedure (Column: TColumn)。procedure (Sender: TObject)。39。39。 +39。 //賦值查詢語(yǔ)句 +39。beginfor i:=0 to do begin if [i] then idnum:=[i]。end。 end。 :=39。:=39。 :=39。:=39。 :=39。:=39。 :=39。 (,)。該記錄信息不存在，刪除失敗！39。)。)or(=39。,39。end。 showmessage(39。39。 AND MONTHS=39。39。39。REMARK=39。39。,OTHER_OVERTIME=39。39。,39。39。39。LATE_TIMES=39。39。,LEAVE_TIMES=39。39。,39。39。39。HOLIDAYS=39。39。,ABSENT_DAYS=39。39。,39。39。39。update CHECK_INFO set WORKER_NAME=39。)。 exit。39。提示：39。var modsql:string。 exit。begin a:=((key=48)and(key=57))or(key=8)。end。輸入不是數(shù)字！39。 var Key: Char)。保存完畢！39。39。39。++39。39。39。39。39。++39。39。39。39。39。++39。39。39。39。39。++39。39。39。39。39。++39。39。39。 +39。 +39。 exit。 end。) then begin showmessage(39。begin if(=39。 end。 :=(,)。 :=(,)。 :=(,)。 :=formatdatetime(39。二） 考勤信息錄入與維護(hù)窗體布局如下圖 相關(guān)代碼：procedure (Sender: TObject)。 +39。 +39。 +39。begin allsql:=39。 end。procedure (Column: TColumn)。39。39。39。39。 +39。 +39。 +39。 exit。 end。) then begin showmessage(39。begin if (=39。 :=copy(Time1,1,6)。var Time1:string。begin if then begin ()。)。 end。,mb_yesno+mb_iconquestion)=idyes then begin if ()=false then begin showmessage(39。begin if (39。 end。修改完成！39。39。39。39。39。+datetostr()+39。 +39。+datetostr()+39。39。39。39。39。++39。39。39。39。39。++39。39。39。39。39。++39。39。39。39。39。++39。 modsql:=39。 if then sex:=39。 then path1:=extractfilepath()+39。 exit。提示：39。var modsql,path1,sex:string。 :=strtodate(())。 :=()。女39。 if ()=39。 :