【正文】 舉個(gè)簡(jiǎn)單的例子——離職操作界面dimission單元的保存功能//開始事務(wù)處理 begin 。 Result := trim(S1)。39。+s1+39。在程序設(shè)計(jì)方面也非常容易，舉例如下：begin s1 :=trim([39。39。CodeName39。)。,39。,39。,39。,39。 then begin if AttribFlag=39。39。員工姓名39。Employee39。,39。,39。begin if Operate = 39。 // 釋放占用的資源end。begin (TF_Employee, F_Employee)。:39。39。+DD。 //日 DecodeTime(DT,Hour,Min,Sec,MSec)。 // 輸出格式 :=false。 // 加零 if length(DD)=1 then DD:=39。 密碼在數(shù)據(jù)庫(kù)的二進(jìn)制代碼存在形式（五）日歷格式的定義——比如日歷日期2004/3/8輸出時(shí)自動(dòng)該為2004/03/08procedure MonthCalendarClick(AMC:TMonthCalendar)。 AscStr:string。 then str:=str+39。%39。39。+FieldName1 +39。+39。+wherestr+39。+39。+wherestr+39。//以上為對(duì)三個(gè)字段的取值 if wherestr39。select 39。39。39。39。 as 39。+FieldName2+39。select 39。（三）GetStr(sender:Tobject)該函數(shù)功能：供搜索畫面調(diào)取字段用function GetStr(sender:Tobject):string。 。//字段名 [1].Width := 120。 then //搜索窗口字段一的定義 begin := FieldName1。//搜索窗口的調(diào)用 try if =true then :=false。// TmonthCalendar控件的左邊= TmaskEdit控件的左邊+ TmaskEdit控件的寬度 TmonthCalendar控件的寬度:=(PUsender as TMaskEdit).top+(PUsender as TMaskEdit).Height。//頂端方位=StringGrid的頂端+StringGrid的行數(shù)*StringGrid的行高 :=true。 if (=TStringGrid) then //判斷控件類型為StringGrid控件 beginif (sender as TStringGrid).Options=(sender as TStringGrid).options+[GoEditing] then//判斷StringGrid控件的規(guī)范 begin left:=(sender as TStringGrid).left。 //初始化 if =TEdit then //判斷控件類型，雖然我設(shè)計(jì)此功能控件的有Edit控件、MaskEdit控件和StringGrid控件，因此需要判斷 begin:=(sender as TEdit).Left+(sender as TEdit).。 第六章 關(guān)鍵技術(shù) 系統(tǒng)中應(yīng)用了許多重要的技術(shù)，在此僅僅列舉少數(shù)幾個(gè)比較有代表性的重要技術(shù)。 查詢結(jié)果窗口界面 《薪資系統(tǒng)》實(shí)施由于企業(yè)員工根據(jù)其工作性質(zhì)和工作崗位劃分為職員和工員，職員指企業(yè)的管理與技術(shù)人員，工員指除管理與技術(shù)以外的其它員工，具體有保潔人員、物料收發(fā)員、生產(chǎn)部組（線）長(zhǎng)以下的作業(yè)員等。 實(shí)施說明：當(dāng)列表功能為在職時(shí)，操作功能為新增；當(dāng)列表功能為離職時(shí)，操作功能為還原；當(dāng)在職新增為離職時(shí)，列表框可以自動(dòng)刷新，即在職列表中自動(dòng)刪除記錄，并且數(shù)據(jù)庫(kù)中state改為Q；當(dāng)離職還原為在職時(shí)，列表框自動(dòng)刷新，即離職列表中自動(dòng)刪除記錄，并且數(shù)據(jù)庫(kù)中的state改為S；（四）員工資料查詢模塊（又具體為3個(gè)小模塊窗口）新進(jìn)員工資料查詢涉及到的數(shù)據(jù)庫(kù)表：Employee功能按鈕（上面/繼承）：新增、修改、保存、取消、刪除、查詢、打印、退出、重新查詢?nèi)藱C(jī)交互：所屬公司（bobox下拉框）、月份（bobox下拉框）、到職日期。 退出未保存提示， 。 《人事系統(tǒng)》總體設(shè)計(jì)總?cè)蝿?wù)：人事系統(tǒng)可以管理員工資料檔案、應(yīng)聘人員資料、人才推薦、跟蹤記錄員工的入職、調(diào)動(dòng)、退休等過程。這是系統(tǒng)管理員給各個(gè)用戶所分配的權(quán)限管理記錄表。從收簡(jiǎn)歷到最終錄取，分析的比較詳細(xì)，考慮全面，將有利于建立一個(gè)合理高效的用人制度，使用人制度更加完善。部門的大類代碼為019，該表為各個(gè)子公司的部門的基本信息。字段說明列名數(shù)據(jù)類型長(zhǎng)度允許空計(jì)算機(jī)名ComputerNamechar300數(shù)據(jù)庫(kù)登陸名DBUserNamechar200數(shù)據(jù)庫(kù)登陸密碼DBUserPasschar200數(shù)據(jù)庫(kù)名稱DBNamechar300（崗位津貼參數(shù)設(shè)置表）共14個(gè)字段該表是人力資源模塊中工資管理的一個(gè)崗位津貼基礎(chǔ)表，根據(jù)環(huán)維集團(tuán)《崗位津貼制度》來設(shè)計(jì)。同時(shí)，這些字段的賦值是通過系統(tǒng)自動(dòng)添加進(jìn)去的，也就是當(dāng)前的系統(tǒng)操作者（建檔人就是用戶名UserName，建檔時(shí)間調(diào)用當(dāng)前時(shí)間，修改人和修改時(shí)間類似）。 人事系統(tǒng)作業(yè)流程圖第三章 數(shù) 據(jù) 庫(kù) 設(shè) 計(jì)該階段是在需求分析的基礎(chǔ)上完成的，是對(duì)分析達(dá)成的結(jié)果進(jìn)行設(shè)計(jì)的，在設(shè)計(jì)的過程中盡量考慮到將來需求的變化。與時(shí)間管理直接集成，能夠及時(shí)更新，對(duì)員工的薪資核算動(dòng)態(tài)化。 薪資系統(tǒng)需求分析該模塊屬于ERP系統(tǒng)中的人力資源管理模塊。 實(shí)際需求：，并且要可單獨(dú)維護(hù)，建立應(yīng)聘人員信息庫(kù)。環(huán)維集團(tuán)（廈門）有限公司是97年在廈門注冊(cè)的港資企業(yè)，下屬公司有環(huán)維電子、環(huán)維工業(yè)照明、環(huán)維發(fā)展、香港慧而遠(yuǎn)幾家子公司。那么如何讓這兩者緊密融合在一起呢？ERP作為一種先進(jìn)的技術(shù)滿足了這種要求。第二章 需求分析本階段的任務(wù)：在充分了解公司的情況下，并在人事部門和其他相關(guān)部門的協(xié)助下，對(duì)原有的基礎(chǔ)數(shù)據(jù)資料進(jìn)行分析，研究，整理，最終總結(jié)出需求，這將是下一階段數(shù)據(jù)庫(kù)設(shè)計(jì)的依據(jù)，同時(shí)，還考慮到今后可能出現(xiàn)的各種需求變化。為統(tǒng)計(jì)分析、調(diào)薪、培訓(xùn)教育提供基本信息、職稱、性別、民族、文化程度等內(nèi)部代碼。它與傳統(tǒng)方式下的人事管理有著根本的不同。 系統(tǒng)流程：系統(tǒng)流程包括人事系統(tǒng)與薪資系統(tǒng)兩部分，其中薪資系統(tǒng)在人事系統(tǒng)管理下進(jìn)行必要的業(yè)務(wù)操作。關(guān)系的主碼已經(jīng)標(biāo)注在表中，各個(gè)關(guān)系的參照關(guān)系圖在表后羅列。 部門編號(hào) 工資銀行帳號(hào)Employee關(guān)系———Dept關(guān)系 Employee關(guān)系—————Bank關(guān)系（a） （b） Employee,Dept關(guān)系參照?qǐng)D說明：Employee關(guān)系的“部門編號(hào)”屬性與Dept關(guān)系的主碼“部門編號(hào)”相對(duì)應(yīng)，也就是說“部門編號(hào)”屬性是Employee的外碼（外鍵）；Employee關(guān)系的“工資帳號(hào)”屬性與Bank關(guān)系的主碼“工資銀行帳號(hào)”相對(duì)應(yīng)，也就是說“工資帳號(hào)”屬性是Employee的外碼（外鍵），在這里，外碼并不一定要與對(duì)應(yīng)的主碼同名，只要容易識(shí)別即可。字段說明列名數(shù)據(jù)類型長(zhǎng)度允許空大類代碼CodeTypechar30公共代碼編號(hào) (主碼 * )CodeNochar40公共代碼名稱CodeNamechar200公共代碼描述CodeDetailchar201代碼狀態(tài)Statechar10代碼形態(tài)State1char11備注Memochar501建檔人CreateManchar100建檔時(shí)間CreateDatedatetime80修改人ModManchar101修改時(shí)間ModDatedatetime81（公司信息表）共15個(gè)字段該數(shù)據(jù)為公司資料維護(hù)界面而提供的。字段說明列名數(shù)據(jù)類型長(zhǎng)度允許空成員編號(hào) (主碼 * )EmployeeCodechar100成員姓名Namechar101與本人關(guān)系Relationchar101出生日期dtBirthdaydatetime81工作單位WorkUnitchar301擔(dān)任職務(wù)HeadShipchar201政治面貌Politychar101聯(lián)系電話LinkTelchar121（保險(xiǎn)基數(shù)設(shè)置表）共12個(gè)字段該表是薪資管理系統(tǒng)中保險(xiǎn)基數(shù)設(shè)置界面的數(shù)據(jù)來源。這樣將使系統(tǒng)管理員更易于維護(hù)和監(jiān)控。）WageGradechar100崗位Position1char200狀態(tài)Statechar10備注Memochar501建檔人CreateManchar100建檔時(shí)間DTCreatedatetime80修改人ModManchar101修改時(shí)間DTModdatetime81（工作經(jīng)驗(yàn)表）共10個(gè)字段該表是為員工基本資料維護(hù)提供基礎(chǔ)數(shù)據(jù)的。查詢查無資料提示。 公司資料維護(hù)界面實(shí)施說明：界面默認(rèn)時(shí)各個(gè)Edit控件為陰影，當(dāng)用戶執(zhí)行新增、修改、查詢等操作時(shí)，這些控件就根據(jù)情況變化背景顏色；可以有小按鈕查詢功能的有：公司編碼、公司簡(jiǎn)稱和公司全稱；（三）離職員工資料維護(hù)（人事調(diào)整窗口）功能按鈕（上面/繼承）：新增、修改、保存、取消、刪除、查詢、打印、退出相關(guān)表: dimission,Employee面板（標(biāo)題——右上角）列表框(在職/離職)——左邊必輸欄位員工編號(hào)、員工名稱、所屬部門、崗位、人事關(guān)系、合同生效/失效日期、到職/離職日期、合同實(shí)際違約金額列表顯示窗口（下方）——使用string控件數(shù)據(jù)完整性。 部門管理界面實(shí)施說明：刪除操作后，列表框中的記錄自動(dòng)刪除，并且增加到列表框中“已停用部門列表”中；部門異動(dòng)（部門調(diào)整窗口）涉及到的數(shù)據(jù)庫(kù)表：Dept（六）面試管理模塊（分為2個(gè)小模塊窗口）面試管理涉及到的數(shù)據(jù)庫(kù)表：Interview,InterViewDetail功能按鈕（上面/繼承）：新增、修改、保存、取消、刪除、查詢、打印、退出頁(yè)面劃分：應(yīng)聘者信息、初試記錄、復(fù)試記錄、二次復(fù)試記錄、結(jié)論。 《系統(tǒng)管理》實(shí)施（一）新增新用戶基礎(chǔ)數(shù)據(jù)庫(kù)表：UserAccount人機(jī)交互：登陸帳號(hào)、員工姓名、密碼、確認(rèn)密碼按鈕：確認(rèn)、取消 （二）系統(tǒng)模塊管理基礎(chǔ)數(shù)據(jù)庫(kù)表：SystemRes功能按鈕（上面/繼承）：新增、修改、保存、取消、刪除、查詢、打印、退出。strTableName,strFieldName1,strTitle1,strFieldName2,strTitle2,strFieldName3,strTitle3,WhereStr1,strOrd:string)。//方位左邊=MaskEdit控件方位左邊+Edit控件長(zhǎng)度 – 小按鈕長(zhǎng)度:=(sender as TMaskEdit).Top。//返回上面的左邊定位為小按鈕的左邊方位Top:=(sender as TStringGrid).top+((sender as TStringGrid).Row)*(sender as TStringGrid).RowHeights[0]。var str : string。//日期輸出格式控制 exit。:39。39。 [2]. := Title3。//返回結(jié)果集的個(gè)數(shù) Except//排錯(cuò)省略 end。 as 39。39。 then str:=str+39。,* from 39。+FieldName1+39。+FieldName3+39。+FieldName2+39。+FieldName3+39。 where 39。%39。 where 39。%39。39。%39。+FieldName1+39。 end。（四）密碼加密——用戶登陸時(shí)的密碼在數(shù)據(jù)庫(kù)中是以二進(jìn)制代碼加密的形式存在，保證安全性，如圖所示：function SetPassword(PasswordStr:string):string。//往后移動(dòng)8位 end。 if length(MM)=1 then MM:=39。+MM+39。begin yy:=getyear(DT)。+MM。039。+HH+39。人事系統(tǒng)中實(shí)際的單元為“環(huán)維集團(tuán)員工基本資料維護(hù)”，而“環(huán)維香港員工資料維護(hù)”、“環(huán)維電子員工資料維護(hù)”、“環(huán)維發(fā)