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

　　

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