【正文】 char201專業(yè)證照Certificatechar161工資銀行 WageBankchar161工資帳號 (外碼 ※ )WageBankNochar301特長SpecialPowerchar161特殊工種SpecialWorkchar161入司時間dtWorkDaydatetime80戶籍地性質(zhì)Originchar100政治面貌Politychar101宗教信仰Religionchar101入團時間dtInGroupdatetime81入黨時間dtInPartydatetime81身高Staturechar101體重Avoirdupoischar101血型BloodTypechar101視力Eyesightchar101合同編號ContractNochar101違約金OutMoneychar101合同生效日期dtEffectivedatetime81合同失效日期dtInvalidationdatetime81個人簡歷Resumentext161離職日期(存檔)dtOffWorkdatetime81狀態(tài)Statechar20備注Memochar1001建檔人ManCreatechar100建檔時間dtDateCreatedatetime80修改人ManModchar101修改時間dtDateModdatetime81崗位Position1char101部門名稱DeptNamechar101開始工作時間DtStartWorkchar101Employee,(a)所示,Employee,(b)所示。字段說明列名數(shù)據(jù)類型長度允許空計算機名ComputerNamechar300數(shù)據(jù)庫登陸名DBUserNamechar200數(shù)據(jù)庫登陸密碼DBUserPasschar200數(shù)據(jù)庫名稱DBNamechar300（崗位津貼參數(shù)設(shè)置表）共14個字段該表是人力資源模塊中工資管理的一個崗位津貼基礎(chǔ)表，根據(jù)環(huán)維集團《崗位津貼制度》來設(shè)計。大類代碼為三位數(shù)，子代碼號都是四位數(shù)，比如大類顏色代碼000，小類紅色的代碼號為0003，綠色代碼號為0001，大類部門為019，小類信息部代碼號為0009等等。部門的大類代碼為019，該表為各個子公司的部門的基本信息。是Employee基本表的補充。從收簡歷到最終錄取，分析的比較詳細，考慮全面，將有利于建立一個合理高效的用人制度，使用人制度更加完善。字段說明列名數(shù)據(jù)類型長度允許空系統(tǒng)編號 (主碼 * )SystemNochar40模塊編號ModNochar100模塊名稱ModNamechar300窗口編號FrmNochar100窗口名稱FrmNamechar200是否通過審核CheckFlgchar10建檔時間DCreatedatetime80建檔人ManCreatechar101修改時間DModdatetime81備注Memochar1001（用戶登錄信息表）共4個字段為使系統(tǒng)的使用管理更加有效，特別設(shè)置該表來記錄系統(tǒng)登陸者的信息和使用時間。這是系統(tǒng)管理員給各個用戶所分配的權(quán)限管理記錄表。02639。 《人事系統(tǒng)》總體設(shè)計總?cè)蝿?wù)：人事系統(tǒng)可以管理員工資料檔案、應(yīng)聘人員資料、人才推薦、跟蹤記錄員工的入職、調(diào)動、退休等過程。 《人事系統(tǒng)》模塊規(guī)劃圖 《薪資系統(tǒng)》總體設(shè)計總?cè)蝿?wù)：在以地域、行業(yè)和社會經(jīng)濟發(fā)展水平為考量，以在行業(yè)中上等水平為標準，以盡可能激勵員工的積極性和提高員工的工作責任感為中心，并力求以公正、公平、合理為原則為基礎(chǔ)，設(shè)計出薪資、津貼、福利、保險的相關(guān)參數(shù)設(shè)置。修改提示已經(jīng)確認了保存成功否提示。 退出未保存提示， 。公司狀態(tài)默認為“正?！薄? 實施說明：當列表功能為在職時，操作功能為新增；當列表功能為離職時，操作功能為還原；當在職新增為離職時，列表框可以自動刷新，即在職列表中自動刪除記錄，并且數(shù)據(jù)庫中state改為Q；當離職還原為在職時，列表框自動刷新，即離職列表中自動刪除記錄，并且數(shù)據(jù)庫中的state改為S；（四）員工資料查詢模塊（又具體為3個小模塊窗口）新進員工資料查詢涉及到的數(shù)據(jù)庫表：Employee功能按鈕（上面/繼承）：新增、修改、保存、取消、刪除、查詢、打印、退出、重新查詢?nèi)藱C交互：所屬公司（bobox下拉框）、月份（bobox下拉框）、到職日期。 實施說明：綜合查詢有14個方式，其中員工姓名可模糊查詢，即敲入姓名中的任何一個或幾個字就可查詢；根據(jù)實際需要該界面增加了重新查詢功能（Ubase父單元沒有這功能）；（五）部門管理模塊（分為2個小模塊窗口）部門資料（資料維護窗口）涉及到的數(shù)據(jù)庫表：Dept功能按鈕（上面/繼承）：新增、修改、保存、取消、刪除、查詢、打印、退出。 查詢結(jié)果窗口界面 《薪資系統(tǒng)》實施由于企業(yè)員工根據(jù)其工作性質(zhì)和工作崗位劃分為職員和工員，職員指企業(yè)的管理與技術(shù)人員，工員指除管理與技術(shù)以外的其它員工，具體有保潔人員、物料收發(fā)員、生產(chǎn)部組（線）長以下的作業(yè)員等。 崗位津貼參數(shù)設(shè)置（四）保險基數(shù)設(shè)置基礎(chǔ)數(shù)據(jù)庫表：Insur功能按鈕（上面/繼承）：新增、修改、保存、取消、刪除、查詢、打印、退出。 第六章 關(guān)鍵技術(shù) 系統(tǒng)中應(yīng)用了許多重要的技術(shù)，在此僅僅列舉少數(shù)幾個比較有代表性的重要技術(shù)。ABBtn:TBitBtn。 //初始化 if =TEdit then //判斷控件類型，雖然我設(shè)計此功能控件的有Edit控件、MaskEdit控件和StringGrid控件，因此需要判斷 begin:=(sender as TEdit).Left+(sender as TEdit).。 if (=TMaskEdit) then //判斷控件類型為MaskEdit控件 begin:=(sender as TMaskEdit).Left+(sender as TMaskEdit).。 if (=TStringGrid) then //判斷控件類型為StringGrid控件 beginif (sender as TStringGrid).Options=(sender as TStringGrid).options+[GoEditing] then//判斷StringGrid控件的規(guī)范 begin left:=(sender as TStringGrid).left。 :=left。//頂端方位=StringGrid的頂端+StringGrid的行數(shù)*StringGrid的行高 :=true。（二）callsearch過程——供搜索查詢窗口調(diào)用Procedure CallSearch(AMC:TMonthCalendar)。// TmonthCalendar控件的左邊= TmaskEdit控件的左邊+ TmaskEdit控件的寬度 TmonthCalendar控件的寬度:=(PUsender as TMaskEdit).top+(PUsender as TMaskEdit).Height。 then // TmaskEdit控件的輸出格式 :=strtodate((PUsender as TMaskEdit).text)。//搜索窗口的調(diào)用 try if =true then :=false。//公共查詢函數(shù)打開 := trim(Title1)+39。 then //搜索窗口字段一的定義 begin := FieldName1。 if trim(fieldName2) 39。//字段名 [1].Width := 120。 then//搜索窗口字段三的定義 begin := FieldName3。 。條記錄39。（三）GetStr(sender:Tobject)該函數(shù)功能：供搜索畫面調(diào)取字段用function GetStr(sender:Tobject):string。+FieldName1+39。select 39。 if FieldName239。+FieldName2+39。39。 as 39。+FieldName1+39。39。select 39。39。,39。39。,39。select 39。,39。//以上為對三個字段的取值 if wherestr39。 then//判斷非空 str:=str+39。+wherestr+39。+39+39。+39。 then// TstringGrid控件的行與列值非空 str:=str+39。+wherestr+39。+39+39。+39。 then begin if (()=TEdit) and ((sender as TEdit).Text39。+FieldName1 +39。+trim((sender as TEdit).Text)+39。39。 where39。%39。 end。 then str:=str+39。end。 AscStr:string。//密碼 for i:=1 to length(str) do//循環(huán)，加密的開始 begin result:=trim(result+char(integer(str[i])8))。 密碼在數(shù)據(jù)庫的二進制代碼存在形式（五）日歷格式的定義——比如日歷日期2004/3/8輸出時自動該為2004/03/08procedure MonthCalendarClick(AMC:TMonthCalendar)。 DD:=getday()。 // 加零 if length(DD)=1 then DD:=39。39。 // 輸出格式 :=false。 Hour,Min,Sec,MSec: Word。 //日 DecodeTime(DT,Hour,Min,Sec,MSec)。039。+DD。 if length(SS)=1 then SS:=39。39。 39。:39。利用這個單元，用簡單的代碼就可開發(fā)其他的界面，大大節(jié)約資源，同時提高開發(fā)效率。begin (TF_Employee, F_Employee)。39。 // 釋放占用的資源end。該功能主要由公共代碼CallSearch(AMC:TMonthCalendar)過程和取字段函數(shù)GetStr(sender:Tobject):string來實現(xiàn)。begin if Operate = 39。 then//設(shè)置公共變量，代表公司名稱的標識，是在員工基本資料維護中定義的(EmployeeCodeEdt,CommonBBtn1,39。,39。,39。,39。,39。Employee39。員工編碼39。員工姓名39。39。39。 //設(shè)置標識end。 then begin if AttribFlag=39。,39。,39。,39。,39。,39。,39。,39。,39。,39。)。 ，所調(diào)用的數(shù)據(jù)庫表employee表，所取的字段只有民族一個字段如下調(diào)用程序：procedure (Sender: TObject)。CodeName39。39。39。39。在程序設(shè)計方面也非常容易，舉例如下：begin s1 :=trim([39。EmployeeName39。+s1+39。 中：listbox中的兩個字段顯示中間“兩個空格+ —— +兩個空格”注意：在單擊列表框員工時，將以編號為引導(dǎo)將各個字段數(shù)據(jù)發(fā)送到右邊的各個顯示空時，還應(yīng)該對這兩個字段進行處理處理過程由以下函數(shù)完成Function (ListValue:string):string。39。 then begin for i := 1 to Length(s) do //循環(huán) begin if Copy(s,i,1) = 39。 Result := trim(S1)。：事務(wù)處理在對多個表執(zhí)行多條SQL語句時，就必須使用到事務(wù)處理技術(shù)，在Delphi中事務(wù)處理的編程形式如下：begin 查詢控件BeginTrans。舉個簡單的例子——離職操作界面dimission單元的保存功能//開始事務(wù)處理 begin 。 //修改離職