【正文】 if 。 if then sex:=39。 else path1:=。 then path1:=extractfilepath()+39。 if =39。 exit。對(duì)不起，該員工編號(hào)不存在，修改失??！39。提示：39。確定要修改嗎？ 39。 var modsql,path1,sex:string。 end。 DELPHI 課程設(shè)計(jì) 第 56 頁 共 132 頁 56 :=strtodate(e())。 :=strtodate((e))。 :=()。 :=()。 女 39。 then :=true。 if ()=39。 :=()。 :=()。 ().Free。 end。)。 if ()=false then begin showmessage(39。 三） 基本信息維護(hù) 窗體布局如下圖 DELPHI 課程設(shè)計(jì) 第 54 頁 共 132 頁 54 相關(guān)代碼： 1. 窗體的 onactivate procedure (Sender: TObject)。 (Sender)。提示： 39。新建成功！ 39。 (modsql)。39。++39。39。 +39。39。+datetostr()+39。39。39。+datetostr()+39。39。 +39。39。+datetostr(date)+39。39。39。++39。39。 DELPHI 課程設(shè)計(jì) 第 53 頁 共 132 頁 53 +39。39。++39。39。39。++39。39。39。++39。39。 +39。39。++39。39。39。+t+39。39。39。++39。39。 +39。39。++39。39。39。++39。39。39。+sex+39。39。 +39。39。+xt+39。39。39。++39。39。 modsql:=39。 if then sex:=39。 if then sex:=39。 path1:=。 exit。該員工編號(hào)已經(jīng)存在，插入失敗！ 39。 end。)。 then begin showmessage(39。 begin if =39。 3. 兩個(gè)控件： DataSource 和 ClientDataSet 二） 基本信息錄入 窗體界面如下圖： DELPHI 課程設(shè)計(jì) 第 51 頁 共 132 頁 51 具體代碼如下： 1. 單擊確定按鈕時(shí)執(zhí)行如下操作 —— OnClick 事件 procedure (Sender: TObject)。 (area,state)。 :=+。 end。 (area,bmp)。 :=+。 if(=[5]) then begin bmp:=。 DELPHI 課程設(shè)計(jì) 第 50 頁 共 132 頁 50 bmp:Tbitmap。 State: TGridDrawState)。 DataCol: Integer。 2. 重繪柵格單元時(shí)執(zhí)行如下操作 —— OnDrawColumnCell 事件 procedure (Sender: TObject。 :=(findsql)。 +39。 +39。BIRTHDAY 出生日期 ,NATIVE_PLACE 籍貫 ,GRADUATE_SCH 畢業(yè)學(xué)校 , +39。ARCHIVES_ID 檔案編號(hào) ,SCHOOL_AGE 學(xué)歷 ,PHOTO 個(gè)人照片 ,39。select WORKER_ID 員工編號(hào) ,WORKER_NAME 員工姓名 ,SEX 性別 ,39。 begin basedata:=。 一） 基本信息顯示 1. 窗體建立時(shí)自動(dòng)加載數(shù)據(jù)庫數(shù)據(jù)（ OnCreate 事件代碼） DELPHI 課程設(shè)計(jì) 第 49 頁 共 132 頁 49 procedure (Sender: TObject)。 end。 procedure (Sender: TObject)。 end。 DELPHI 課程設(shè)計(jì) 第 48 頁 共 132 頁 48 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。系統(tǒng)管理員 39。 :=false。 :=false。 DELPHI 課程設(shè)計(jì) 第 47 頁 共 132 頁 47 :=false。 :=false。 :=false。 :=false。 :=false。 then begin :=false。 begin if =39。 end。 begin 。 end。 DELPHI 課程設(shè)計(jì) 第 46 頁 共 132 頁 46 :=false。 。 ??????????????????????????????????????? procedure (Sender: TObject)。 end。 begin 。 end。 權(quán)限級(jí)別 :39。 當(dāng) 前 用 戶 :39。yyyy 年 mm 月 dd 日 hh:mm:ss39。 歡迎使用本系統(tǒng)！ 39。 下圖是本組的主程序截圖： 以下是主窗體主要過程和函數(shù)代碼： procedure (Sender: TObject)。這樣做有以下優(yōu)點(diǎn)： DELPHI 課程設(shè)計(jì) 第 44 頁 共 132 頁 44 1. 隱藏主窗體使程序只能顯示一個(gè)窗體，增強(qiáng)了安全性； 2. 由于同時(shí)只能顯示一個(gè)窗體（其他的隱藏，需要時(shí)用show 方法顯示），減少了程序句柄數(shù)，降低了內(nèi)存使用； 3. 由于程序所有窗體采用自動(dòng)建立的方式，登錄前其實(shí)已將所有窗體加載至內(nèi)存，目的是提高程序的運(yùn)行速度（缺點(diǎn)是內(nèi)存占用高）。 4. 對(duì)窗體調(diào)用方式作了改進(jì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í)別。每個(gè)模塊一個(gè)菜單項(xiàng)。Data Source= 這是連接數(shù)據(jù)庫的關(guān)鍵。Persist Security Info=False。 主要有 Adoconnectio， Adoquery和 DataSetProvider 控件 三者關(guān)系如下： 連接 請(qǐng)求 請(qǐng)求 DataBase?===?Adoconnection?===?Adoquery?====?Datasoure?====?應(yīng)用程序 其中 Personnel_adoconn（ Adoconnection 控件）主要屬性設(shè)置如下 Connectionstring Provider=。 end。 finally 。 result:=true。 try if 0 then begin SetLength(ReturnString,)。 Begin if not fileexists(AFile) then exit。var ReturnString:string):boolean。其中用到了 Tinifile 類，須在 uses 中加入 Inifiles 單元。 end。提示： 39。數(shù)據(jù)表創(chuàng)建失敗，請(qǐng)確認(rèn)無誤后重試！ 39。 DELPHI 課程設(shè)計(jì) 第 41 頁 共 132 頁 41 。 :=39。,strCreateDB) then (strCreateDB)。 if GetTextFromFile(extractfiledir()+39。database39。system39。,)。,39。 (39。USER_PWD39。system39。,)。,39。 (39。\39。 DELPHI 課程設(shè)計(jì) 第 40 頁 共 132 頁 40 begin usertable:=。 新建窗體 dblink，窗體布局如下圖 1.“連接”按鈕的 onclick 事件代碼 procedure (Sender: TObject)。目的是提醒用戶更改數(shù)據(jù)庫連接參數(shù)，從而能夠正常登陸。 end。)。,39。,39。 DELPHI 課程設(shè)計(jì) 第 39 頁 共 132 頁 39 (39。39。LastUserName39。Option39。,False)。,39。 end else begin (39。Mark39。Option39。,)。,39。 (39。AutoLogon39。Option39。 end。 。提示： 39。對(duì)不起！您的密碼不對(duì)！ 39。 。 end else begin if =() then begin userlevel:=()。 。提示： 39。對(duì)不起，沒有這個(gè)用戶名！ 39。 exit。,mb_ok)。,39。 then begin (39。 if b=false then if =39。 exit。 except 。 userlevel:string。 2. 按下登錄按鈕后 DELPHI 課程設(shè)計(jì) 第 36 頁 共 132 頁 36 如果 “ 記住用戶名和密碼 ” 處于選中狀態(tài)，則在中覆蓋寫入 [Option] AutoLogon=1 LastUserName=‘上次登錄成功的用戶名’ Mark=‘密碼’ 否則覆蓋寫入 [Option] AutoLogon=0 LastUserName= Mark= 實(shí)現(xiàn)代碼如下（包括權(quán)限和密碼驗(yàn)證模塊代碼）： procedure (Sender: TObject)。 end。 end else begin 。39。Mark39。Option39。)。,39。,39。 if =true then begin :=(39。AutoLogon39。Option39。)。 DELPHI 課程設(shè)計(jì) 第 35 頁 共 132 頁 35 setupfile:=(extractfiledir(ame)+39。 代碼如下： procedure (Sender: TObject)。新建登錄窗體 loginfrm,登錄窗體的設(shè)計(jì)布局如下圖 算法流程和具體代碼如下： 1. 窗體建立事件發(fā)生時(shí) 從當(dāng)前目錄的 的 option 小節(jié)中讀取中保存的用戶名、密碼和登錄開關(guān)狀態(tài)。登錄窗體是唯一能進(jìn)入主窗口的入口。 。 sleep(2021)。 。 (。,now)。 :=formatdatetime(39。 附圖如下： 相關(guān)代碼： DELPHI 課程設(shè)計(jì) 第 33 頁 共 132 頁 33 1. 窗體創(chuàng)建事件代碼 procedure (Sender: TObject)。但啟動(dòng)畫面不宜做的太大，以免喧賓奪主。在以上操作系統(tǒng)上通過測(cè)試 第三節(jié) 模塊的設(shè)計(jì)與實(shí)現(xiàn) 一、創(chuàng)建啟動(dòng)畫面 啟動(dòng)畫面是應(yīng)用程序的附加部分，體現(xiàn)應(yīng)用程序的門面。 第二節(jié) 系統(tǒng)運(yùn)行軟件環(huán)境 工具軟件： Borland Delphi 7 面向?qū)ο蟮拈_發(fā)工具； DELPHI 課程設(shè)計(jì) 第 32 頁 共 132 頁 32 Microsoft SQL Server 2021 關(guān)系數(shù)據(jù)庫軟件 測(cè)試環(huán)境： Windows XP professional sp2, Windows 2021 professional sp4。目前，絕大多數(shù)流行的關(guān)系姓數(shù)據(jù)庫管理系統(tǒng)，如 Oracle, Sybase, Microsoft SQL Server,Access 等都采用了 SQL 語言標(biāo)準(zhǔn)。按照 ANSI(美國(guó)國(guó)家標(biāo)準(zhǔn)協(xié)會(huì) )的規(guī)定， SQL 被作為關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。 2．結(jié)構(gòu)化查詢語言 (SQL)簡(jiǎn)介 SQL 是