【正文】 39。 :=strtodate(e())。 :=()。 (39。,e_time=39。39。39。,politic_status=39。39。sex=39。女 39。39。 begin area:=rect。 +39。 :=true。 :=false。 procedure (Sender: TObject)。 procedure (Sender: TObject)。（無疑給用戶帶來了極大的便利） 3. 取消了標(biāo)題欄的系統(tǒng)菜單，以防止用戶誤退出，同時也使“系統(tǒng)功能”菜單里 的 退出系統(tǒng)不再成為“花瓶”。 (ReturnString[1],)。系統(tǒng)管理員 39。,)。同時若所選數(shù)據(jù)庫中沒有數(shù)據(jù)表，則調(diào)用程序內(nèi)置的建表腳本自動創(chuàng)建所需用戶表。,39。Option39。 DELPHI 課程設(shè)計 第 38 頁 共 132 頁 38 。39。,39。 :=(39。)后添加如下代碼： ?????? movefrm:=(application)。 SQL 語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫中提取數(shù)據(jù)等。尤其是它可以直接存儲 XML數(shù)據(jù)，可以將搜索結(jié)果以 XML 格式輸出等特點，有利于構(gòu)建了異構(gòu)系統(tǒng)的互操作性，奠定了而向互聯(lián)網(wǎng)的企業(yè)應(yīng)用和服務(wù)的基石。 根據(jù)傳遞 SQL 語句執(zhí)行刪除操作 procedure CreatTable(SQL:string)。 根據(jù)員工編號和月份返回缺勤天數(shù) Function GetLeavetimes(Id,momth:string):string。 根據(jù)員工編號返回員工姓名 DELPHI 課程設(shè)計 第 26 頁 共 132 頁 26 Function Getassessdate(Id:string):string。 通過記錄號返回獎懲內(nèi)容 Function Getrecreason(ReId:string):string。 根 據(jù)員工編號和月份返回獎金信息 Funcrion getovertimemoney(Id,GiveData:string):string。 根據(jù)記錄號返回工作時間 function getduty(reid:string):string。 根據(jù)員工編號趕回員工備注信息 function getphone(workid:string):tstream。 表 Tbasedata 類封裝的方法和過程 方法或過程名 具體說明 function checkrec(id:string):boolean。員工工資管理主要包括以下功能： 工資信息錄入與維護，員工工資在錄入時有些項目內(nèi)容是固化在程序中的，有些是根據(jù)其他管理信息獲取的，最后根據(jù)這些信息按照一定的方法算出員工工資 員工工資查詢 七、系統(tǒng)功能模塊 系統(tǒng)維護和賬戶管理是數(shù)據(jù)庫應(yīng)用程序必不可少的一塊。 不同的企業(yè)具有不同的人事、工資管理制度，這就決定了不同的企業(yè)需要不同的人事工資管理系統(tǒng)。 整個系統(tǒng)的流程 如圖 所示 重新登入 驗證失敗 普通用戶 系統(tǒng)管理員 啟動程序 用戶登錄 用戶權(quán)限 ① 員工基本信息查詢 ② 考勤信息查詢 ③ 獎懲信息查詢 ④ 履歷信息查詢 ⑤ 職稱信息查詢 ⑥ 工資信息查詢 ⑦ 修改自己用戶密碼 ① 進行所有信息的查詢、保存和 維護操作 ② 管理所有用戶帳號 ③ 系統(tǒng)數(shù)據(jù)備份 DELPHI 課程設(shè)計 第 10 頁 共 132 頁 10 DELPHI 課程設(shè)計 第 11 頁 共 132 頁 11 第二章 數(shù)據(jù)庫應(yīng)用程序開發(fā)概述 第一節(jié) 創(chuàng)建數(shù)據(jù)庫 數(shù)據(jù)庫既可以通過 SQL 語句在查詢分析器里創(chuàng)建，也可以在企業(yè)管理起的控制臺中直接創(chuàng)建，這里主要介紹如何在企業(yè)管理器的控制臺中創(chuàng)建數(shù)據(jù)庫。 根據(jù)員工編號趕回員工所學(xué)專業(yè) function getgrasch(workid:string):string。 根據(jù)員工編號執(zhí)行查詢操作過程 Tworkage 類封裝了對 work_age 表的各種操作，類中定義的方法和過程如 表 表 Tworkage 類封裝的方法和過程 DELPHI 課程設(shè)計 第 21 頁 共 132 頁 21 方法或過程名 具體說明 function workagerec(id,workunit:string):boolean。 方法或過程名 具體說明 Function WageInfoRec(Id,GiveData:string):Boolean: 根據(jù)員工編號和月份查詢記錄是否存在 Function WageInfoRec(FindSQL:string):Boolean。 根據(jù)員工編號和月份返回實發(fā)工資 procedure wagesrecs(SQL:string):OLEVariant。 通過傳遞 SQL 語句返回記錄查詢 procedure Recinsert(insertSQL:string)。 根據(jù)員工編號和月份查詢記錄是否存在 Function Getworkername(Id,momth:string):string。 通過傳遞 SQL 語句執(zhí)行修改操作 DELPHI 課程設(shè)計 第 28 頁 共 132 頁 28 procedure Recdel(Id,month:string)。 Object Pascal 語言是在 Pascal 語言的基礎(chǔ)上發(fā)展起來的，簡單易學(xué)。 在設(shè)計并且建立數(shù)據(jù)庫后，我們還需要進行一些優(yōu)化工作。 附圖如下： 相關(guān)代碼： DELPHI 課程設(shè)計 第 33 頁 共 132 頁 33 1. 窗體創(chuàng)建事件代碼 procedure (Sender: TObject)。新建登錄窗體 loginfrm,登錄窗體的設(shè)計布局如下圖 算法流程和具體代碼如下： 1. 窗體建立事件發(fā)生時 從當(dāng)前目錄的 的 option 小節(jié)中讀取中保存的用戶名、密碼和登錄開關(guān)狀態(tài)。,39。 userlevel:string。對不起，沒有這個用戶名！ 39。 end。 end else begin (39。,39。,39。database39。其中用到了 Tinifile 類，須在 uses 中加入 Inifiles 單元。Persist Security Info=False。yyyy 年 mm 月 dd 日 hh:mm:ss39。 DELPHI 課程設(shè)計 第 46 頁 共 132 頁 46 :=false。 :=false。 :=true。 一） 基本信息顯示 1. 窗體建立時自動加載數(shù)據(jù)庫數(shù)據(jù)（ OnCreate 事件代碼） DELPHI 課程設(shè)計 第 49 頁 共 132 頁 49 procedure (Sender: TObject)。 2. 重繪柵格單元時執(zhí)行如下操作 —— OnDrawColumnCell 事件 procedure (Sender: TObject。 :=+。 exit。39。++39。39。39。39。 +39。39。 if ()=false then begin showmessage(39。 女 39。提示：39。 if 。確定要修改嗎？ 39。 then :=true。 三） 基本信息維護 窗體布局如下圖 DELPHI 課程設(shè)計 第 54 頁 共 132 頁 54 相關(guān)代碼： 1. 窗體的 onactivate procedure (Sender: TObject)。 +39。39。++39。 +39。++39。39。39。該員工編號已經(jīng)存在，插入失??！ 39。 end。 :=(findsql)。 end。 :=true。 :=false。 。 歡迎使用本系統(tǒng)！ 39。 主要有 Adoconnectio， Adoquery和 DataSetProvider 控件 三者關(guān)系如下： 連接 請求 請求 DataBase?===?Adoconnection?===?Adoquery?====?Datasoure?====?應(yīng)用程序 其中 Personnel_adoconn（ Adoconnection 控件）主要屬性設(shè)置如下 Connectionstring Provider=。 end。system39。 (39。,39。Mark39。 。 exit。 2. 按下登錄按鈕后 DELPHI 課程設(shè)計 第 36 頁 共 132 頁 36 如果 “ 記住用戶名和密碼 ” 處于選中狀態(tài)，則在中覆蓋寫入 [Option] AutoLogon=1 LastUserName=‘上次登錄成功的用戶名’ Mark=‘密碼’ 否則覆蓋寫入 [Option] AutoLogon=0 LastUserName= Mark= 實現(xiàn)代碼如下（包括權(quán)限和密碼驗證模塊代碼）： procedure (Sender: TObject)。,39。登錄窗體是唯一能進入主窗口的入口。但啟動畫面不宜做的太大，以免喧賓奪主。 。 Delphi 具有以下的特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，強大的數(shù)據(jù)庫支持，與 Windows 編程緊密結(jié)合，強大而成熟的組件技術(shù)。 通過傳遞 SQL 語句返回查詢記錄 procedure RecInsert(InsertSQL:string)。 通過傳遞 SQL語句執(zhí)行修改操作 procedure Recdel(Id:string)。 根據(jù)年份和月 份返回獎勵記錄條數(shù) Function Getpuncount(month1,month2:string):integer。 根據(jù)員工編號和月份返回住房公積金 Function getiax(Id,GiveData:string):string。 通過傳遞 sql 語句執(zhí)行修改操作 procedure recdel(reid:string)。 通過傳遞 SQL 語句執(zhí)行修改操作過程 procedure recdel(id:stirng)。 根據(jù)員工編號趕回員工籍貫 function getschage(workid:string):string。通過驗證的進入系統(tǒng)操作界面，未通過的給出錯誤提示。對于大中型企業(yè)來說，利用計算機 支持企業(yè)高效率完成勞動人事管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動人事管理走向科學(xué)化、規(guī)范化的必要條件；而工資管理是一項瑣碎、復(fù)雜而又十分細(xì)致的工作，工資計算、發(fā)放、核算的工作量很大，一般不允許出錯，如果實行手工操作，每月發(fā)放工資須手工填制大量的表格，這就會耗費工作人員大量的時間和精力，計算機進行工資發(fā)放工作，不僅能夠保證工資核算準(zhǔn)確無誤、快速輸出，而且還可以利用計算機對有關(guān)工資的各種信息進行統(tǒng)計，服務(wù)于財務(wù)部門其他方面的核算和財務(wù)處理，同時計算機具有著手工管理所無法比擬的優(yōu)點 .例如 :檢索迅速、 查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。 用戶權(quán)限控制無疑是安全中最重要的環(huán)節(jié)； DELPHI 課程設(shè)計 第 6 頁 共 132 頁 6 其次簡單實用的數(shù)據(jù)備份也是系統(tǒng)功能模塊的重要組成部分。 根據(jù)員工編號返回員工的檔案編DELPHI 課程設(shè)計 第 19 頁 共 132 頁 19 號 function getworkername(workid:string):string。path1:string)。 根據(jù)記錄號返回員工級別 function getremark(reid:string):string。 根據(jù)員工編號和月份返回扣除的考核費用 Function getagedmoney(Id,GiveData:string):string。 通過記錄號返回批準(zhǔn)單位 procedure Recinsert(insertSQL:string)。 根據(jù)員工編號返回評定單位 Function Getassesstitle(Id:string):string。 根據(jù)員工編號和月份返回遲到次數(shù) Function GetleaEartimes(Id,momth:string):string?！罢嬲某绦騿T用 c，聰明的程序員用 Delphi”，這句話是