【導(dǎo)讀】隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計(jì)算機(jī)實(shí)現(xiàn)企業(yè)人事工資的管理勢(shì)在必行?；谋匾獥l件；而工資管理是一項(xiàng)瑣碎、復(fù)雜而又十分細(xì)致的工作，的各種信息進(jìn)行統(tǒng)計(jì)，服務(wù)于財(cái)務(wù)部門(mén)其他方面的核算和財(cái)務(wù)處理，找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。正規(guī)化管理,與世界接軌的重要條件。性別、畢業(yè)學(xué)校、專(zhuān)業(yè)、職稱(chēng)、政治面貌、工作時(shí)間和聯(lián)系方式等。班時(shí)間和出差天數(shù)等，這些信息將作為計(jì)算員工工資的部分依據(jù)。信息與獎(jiǎng)金掛鉤，以激勵(lì)或約束員工。職稱(chēng)評(píng)定管理的主要功能有：

　　

【正文】 end。 end。 二）創(chuàng)建數(shù)據(jù)庫(kù)連接類(lèi) 本程序采用兩級(jí)連接方式連接到服務(wù)器端的數(shù)據(jù)庫(kù)。 主要有 Adoconnectio， Adoquery和 DataSetProvider 控件 三者關(guān)系如下： 連接 請(qǐng)求 請(qǐng)求 DataBase?===?Adoconnection?===?Adoquery?====?Datasoure?====?應(yīng)用程序 其中 Personnel_adoconn（ Adoconnection 控件）主要屬性設(shè)置如下 Connectionstring Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=PERSONNEL_SYS。Data Source= 這是連接數(shù)據(jù)庫(kù)的關(guān)鍵。 窗體布局如下圖 DELPHI 課程設(shè)計(jì) 第 43 頁(yè) 共 132 頁(yè) 43 四、創(chuàng)建系統(tǒng)主界面 人事工資管理信息系統(tǒng)涉及六個(gè)模塊，以及一個(gè)系統(tǒng)功能模塊。每個(gè)模塊一個(gè)菜單項(xiàng)。 單擊按鈕可以轉(zhuǎn)到相應(yīng)模塊，進(jìn)行查詢(xún)、插入、修改、刪除等操作。 在順利實(shí)現(xiàn)軟件基本功能的同時(shí)，我同時(shí) 對(duì)主窗體進(jìn)行了一些細(xì)節(jié)改進(jìn) ，如： 1. 標(biāo)題欄顯示當(dāng)前日期和時(shí)間 2. 標(biāo)題欄顯示當(dāng)前登錄用戶(hù)和權(quán)限級(jí)別。（無(wú)疑給用戶(hù)帶來(lái)了極大的便利） 3. 取消了標(biāo)題欄的系統(tǒng)菜單，以防止用戶(hù)誤退出，同時(shí)也使“系統(tǒng)功能”菜單里 的 退出系統(tǒng)不再成為“花瓶”。 4. 對(duì)窗體調(diào)用方式作了改進(jìn)。如：當(dāng)單擊“基本信息管理”菜單下的“員工信息查詢(xún)后”，程序首先隱藏主窗體 mainfrm，然后顯示被調(diào)窗體。這樣做有以下優(yōu)點(diǎn)： DELPHI 課程設(shè)計(jì) 第 44 頁(yè) 共 132 頁(yè) 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)存占用高）。但實(shí)驗(yàn)指導(dǎo)采用的 close 方法來(lái)關(guān)閉子窗體，由于下次調(diào)用還要重 新建立窗體，不但降低了運(yùn)行速度，同時(shí)也使自動(dòng)建立的本意不復(fù)存在。 下圖是本組的主程序截圖： 以下是主窗體主要過(guò)程和函數(shù)代碼： procedure (Sender: TObject)。 DELPHI 課程設(shè)計(jì) 第 45 頁(yè) 共 132 頁(yè) 45 begin :=39。 歡迎使用本系統(tǒng)！ 39。+formatdatetime(39。yyyy 年 mm 月 dd 日 hh:mm:ss39。,now)+39。 當(dāng) 前 用 戶(hù) :39。++39。 權(quán)限級(jí)別 :39。+。 end。 procedure (Sender: TObject)。 begin 。 。 end。 ??????????????????????????????????????? 其余二十個(gè)按鈕代碼雷同，省之。 ??????????????????????????????????????? procedure (Sender: TObject)。 begin 。 。 。 DELPHI 課程設(shè)計(jì) 第 46 頁(yè) 共 132 頁(yè) 46 :=false。 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin if =39。普通用戶(hù) 39。 then begin :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 DELPHI 課程設(shè)計(jì) 第 47 頁(yè) 共 132 頁(yè) 47 :=false。 :=false。 :=false。 :=false。 :=false。 end else if =39。系統(tǒng)管理員 39。 then begin :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 DELPHI 課程設(shè)計(jì) 第 48 頁(yè) 共 132 頁(yè) 48 :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 五、基本信息管理模塊 基本信息管理功能通過(guò)錄入界面、維護(hù)界面和員工基本信息界面組成。 一） 基本信息顯示 1. 窗體建立時(shí)自動(dòng)加載數(shù)據(jù)庫(kù)數(shù)據(jù)（ OnCreate 事件代碼） DELPHI 課程設(shè)計(jì) 第 49 頁(yè) 共 132 頁(yè) 49 procedure (Sender: TObject)。 var findsql:string。 begin basedata:=。 findsql:=39。select WORKER_ID 員工編號(hào) ,WORKER_NAME 員工姓名 ,SEX 性別 ,39。 +39。ARCHIVES_ID 檔案編號(hào) ,SCHOOL_AGE 學(xué)歷 ,PHOTO 個(gè)人照片 ,39。 +39。BIRTHDAY 出生日期 ,NATIVE_PLACE 籍貫 ,GRADUATE_SCH 畢業(yè)學(xué)校 , +39。POLITIC_STATUS 政治面貌 ,LINK_PHONE 聯(lián)系電話 ,DEPARTMENT_NAME39。 +39。 所在部門(mén)名稱(chēng) ,MAJOR 專(zhuān)業(yè) ,ADDRESS 住址 ,WORK_TIME 參 加 工 作 時(shí) 間 ,39。 +39。COME_TIME 入本單位時(shí)間 ,REMARK 備注 FROM BASE_DATA39。 :=(findsql)。 end。 2. 重繪柵格單元時(shí)執(zhí)行如下操作 —— OnDrawColumnCell 事件 procedure (Sender: TObject。 const Rect: TRect。 DataCol: Integer。 Column: TColumn。 State: TGridDrawState)。 var area:trect。 DELPHI 課程設(shè)計(jì) 第 50 頁(yè) 共 132 頁(yè) 50 bmp:Tbitmap。 begin area:=rect。 if(=[5]) then begin bmp:=。 try :=()*3。 :=+。 ([5])。 (area,bmp)。 except 。 end。 area:=rect。 :=+。 end。 (area,state)。 end。 3. 兩個(gè)控件： DataSource 和 ClientDataSet 二） 基本信息錄入 窗體界面如下圖： DELPHI 課程設(shè)計(jì) 第 51 頁(yè) 共 132 頁(yè) 51 具體代碼如下： 1. 單擊確定按鈕時(shí)執(zhí)行如下操作 —— OnClick 事件 procedure (Sender: TObject)。 var modsql,path1,sex:string。 begin if =39。39。 then begin showmessage(39。請(qǐng)選擇一張照片！ 39。)。 exit。 end。 DELPHI 課程設(shè)計(jì) 第 52 頁(yè) 共 132 頁(yè) 52 if ()=true then begin showmessage(39。該員工編號(hào)已經(jīng)存在，插入失敗！ 39。)。 exit。 end。 path1:=。 (,path1)。 if then sex:=39。男 39。 if then sex:=39。女 39。 modsql:=39。update base_data set worker_name=39。39。39。++39。39。39。,archives_id=39。39。39。+xt+39。39。39。,39。 +39。sex=39。39。39。+sex+39。39。39。,school_age=39。39。39。++39。39。39。,native_place=39。39。39。++39。39。39。,39。 +39。graduate_sch=39。39。39。++39。39。39。,address=39。39。39。+t+39。39。39。,politic_status=39。39。39。++39。39。39。,39。 +39。major=39。39。39。++39。39。39。,link_phone=39。39。39。++39。39。39。,department_name=39。39。39。++39。39。39。,39。 DELPHI 課程設(shè)計(jì) 第 53 頁(yè) 共 132 頁(yè) 53 +39。remark=39。39。39。++39。39。39。,birthday=39。39。39。+datetostr(date)+39。39。39。,39。 +39。work_time=39。39。39。+datetostr()+39。39。39。,e_time=39。39。39。+datetostr()+39。39。39。 39。 +39。 where worker_id=39。39。39。++39。39。39。39。 (modsql)。 (39。新建成功！ 39。,39。提示： 39。,mb_Ok)。 (Sender)。 end。 三） 基本信息維護(hù) 窗體布局如下圖 DELPHI 課程設(shè)計(jì) 第 54 頁(yè) 共 132 頁(yè) 54 相關(guān)代碼： 1. 窗體的 onactivate procedure (Sender: TObject)。 begin basedata:=。 if ()=false then begin showmessage(39。對(duì)不起，該員工編號(hào)不存在！ 39。)。 exit。 end。 DELPHI 課程設(shè)計(jì) 第 55 頁(yè) 共 132 頁(yè) 55 (())。 ().Free。 :=()。 :=()。 :=()。 :=()。 :=()。 if ()=39。 男 39。 then :=true。 if ()=39。 女 39。 then :=true。 :=()。 :=()。 :=()。 :=()。 :=strtodate((e))。 :=strtodate(e())。 DELPHI 課程設(shè)計(jì) 第 56 頁(yè) 共 132 頁(yè) 56 :=strtodate(e())。 :=()。 end。 2. 修改按鈕的 onclick 事件 procedure (Sender: TObject)。 var modsql,path1,sex:string。 begin if (39。確定要修改嗎？ 39。,39。提示：39。,mb_yesno+mb_iconquestion)=idyes then begin if ()=false then begin showmessage(39。對(duì)不起，該員工編號(hào)不存在，修改失?。?9。)。 exit。 end。 if =39。39。 then path1:=extractfilepath()+39。DELPHI 課程設(shè)計(jì) 第 57 頁(yè) 共 132 頁(yè) 57 mp39。 else path1:=。 (,path1)。 if then sex:=39。男 39。