【正文】 。39。程序設 計界面如下： 相應用程序算法如下： procedure (Sender: TObject)。39。) 。39。39。39。++39。+ 39。 。39。 if i0 then begin 。 WHERE =39。 （ 5）考勤登記表 考勤登記表，主要是記錄每一個職工當前月份是否工作，如果出勤，則在當天日期下選勾，進行保存，系統自動算出本月該職工出勤天數。因些系統對單位進行了定義，可以按其它人事管理系統，上下級單位都用不同的編碼進行管理，定義編碼的好處就是方便今后的系統統計分析工作，此外，職工考勤人員最關心的就是所在單位職工人員信息。 密 碼 重 試 次 數 過 多 , 請與管理員聯系 !39。,39。identify39。 findstring:=39。database\。 :=39。 實現工具簡介 （ 1） Delphi 簡介 Delphi 是由 Borland 公司推出的基于窗口和面向對象的編程工具，與Windows 操作系統緊密的結合，具有強大的數 據庫技術支持，迅捷的編輯速度，易學靈活的特點。 3. 對單位職工進行按月考勤登記，最后 統計每人每月出勤天數。 業(yè)務流程圖 圖 1 業(yè)務流程圖 各單位考勤管理流程如下：各單位考勤員列出自己單位人員表，根據每個人當月正常工作出勤情況，填寫非正常和請假天數，依據本人的基本工資情況，按一定算法計算當前職工的當月工資。 關鍵詞： 查詢、修改、維護、統計 Abstract This time design, I choose of topic is the personal management system, mainly is aim at the business unit of personnel, test frequently, the wages carry on the calculator receive the mission book beginning, to numerous currently can saw turn develop the tool to carry on the parison, decided to make use of the Dephi be the head tool software, the application faces to the method of the object to develop this topic. This text is mainly research that aims at the business unit personnel, introduce the purpose, the system analysis, system structure, the system design, the system implement of the system 重油公司工資管理信息系統 畢 業(yè) 設 計 _______________________________________________________________________ II establishment, and introduce how to use process etc. of the development system of develop the tool establishment of the system record carry out the unit personnel into, the search, modify, delete, support, the automation function that classification statistics, operate the personnel easy to acplish of can use that software to attain the management to the business enterprise personnel39。系統的建立將實現單位人事方面的錄入、查詢、修改、刪除、維護、分類統計的自動化功能，操作人員輕而易舉的就能使用該軟件來達到對 企業(yè)人員信息的管理。重油公司工資管理信息系統 畢 業(yè) 設 計 _______________________________________________________________________ 6 WINDOW XP 操作系統 用戶 單機用戶方式，單位考勤管理人員使用。 功能要求 本人通過對單位職工考勤和工資計算方法等方面的調研，需要完成以下方面信息的管理及功能實現： 1. 單位信息：一般包括單位名稱、單位簡稱、單位電話，根據數據統計和人事管理方面的要求，還需要單位編碼； 2. 單位職工信息：其中包括姓名、性別、族別、籍貫、出生產蟆、民族，學歷、聯系電話、身份證、工作時間等，主要為本單位人員提供一個人員信息庫。 總體數據流程結構圖 圖 3 系統數據流程結構圖 圖 4 系統功能圖 重油公司工資管理信息系統職工管理 考勤管理 工資管理 報表管理 系統管理職工信息單位信息職工花名冊考勤統計考勤登記工資標準職工考勤表職工薪資報表個人工資用戶管理月底統計單位信息職工信息考勤信息工資標準個人月工資 單位工資表重油公司工資管理信息系統 畢 業(yè) 設 計 _______________________________________________________________________ 9 編寫目的 系統是根據工資考勤工作過程中，從單位、職工、考勤、工資等四個環(huán)節(jié)進行分析和設計，最終的目的就是提高職工考勤工作效率。 begin :=False。+ExtractFilePath(paramstr(0))+39。 。 if recordcount0 then begin //符值給其它變量 identify:=fieldbyname(39。密碼錯誤 ,請重試 !39。 end else //QUIT SYSTEM begin (39。 即用戶選擇用戶名后，輸入正確的口令后，系統自動到數據庫 usertrb 表里驗 證密碼，如果試密碼次數大于 3 時，退出系統，流程圖 如下： 圖 6 系統登錄流程 開始輸入用戶名和口令是否有當前用戶和口令否次數 N + 1次數 N = 3否進入主窗口是退出系統是結束 否否重油公司工資管理信息系統 畢 業(yè) 設 計 _______________________________________________________________________ 12 密碼正確進入系統主界面： 圖 7 系統主窗口 （ 3）單位信息管理 對于職工考勤人員來說，職工人員最基本的分類方法是按單位。等等。+ 39。) 。39。)39。 + + + + + + + + 39。39。39。39。++39。月還沒有考勤 !39。+ +39。 （ 8）工資計算 由于進行畢業(yè)設計時間較倉促，出勤率與基本工資計算對應關系未調研清楚，本人編寫了簡單的計算方法，即工資總額是全勤下的標準工資，扣除工資：1 天病假扣除 15 元，其請假天數扣除 20 元 /天，實際工資為工資總額 扣除工資。+ +39。 。]+39。 := 39。39。39。 end。39。 （ 9）單位工資統計 本人在設計中考慮到，各個不同的單位工資總額、扣除工資及實際發(fā)放工資都是工資核算員比較關注的數字，因此，我做了這個單位工資統計，即每月、每個工資發(fā)放統計表。39。delete from ygz where ny=39。 end 。39。39。 （ 10）報表管理 _職工花名冊 重油公司工資管理信息系統 畢 業(yè) 設 計 _______________________________________________________________________ 19 職工花名冊就是把各單位的職工信息打印出來。 begin if then begin showmessage(39。39。39。用戶密碼成功 !39。 Exit。 ? 安全保密性：系統的數據對于系統外部非授權人員是不可訪問，對數據的操作要經過系統驗證。 type Tfrmmain = class(TForm) procedure sysquitClick(Sender: TObject)。 procedure databackClick(Sender: TObject)。 procedure muemployerClick(Sender: TObject)。 procedure ydtjClick(Sender: TObject)。 procedure ygzlbbClick(Sender: TObject)。 implementation uses pany, datarsgl, login, about, init, datarepair, usermanager, MonthCalendar, employee, kqmanage, showfindrs, rszhgl, kqdj, kqjbzlgl, 重油公司工資管理信息系統 畢 業(yè) 設 計 _______________________________________________________________________ 32 kqsettime, rpemployeer, kqtj, ycfindkq, gzffbz, txgl, monthjzgl, yggzjs, monthendtj, prtjdrp, monthgzrp, kqzlrp, Unit_user,Unit_pw, Unit_kqdj, Unit_jbgz, Unit_kqtj, Unit_zgb, Unit_gzjs, Unit_gz_print。 procedure (Sender: TObject)。 begin if identify=39。 [2].Text:=39。+pubuser。 :=false。 begin [4].Text:=timetostr(time)。 重油公司工資管理信息系統 畢 業(yè) 設 計 _______________________________________________________________________ 34 。人事管理系統 39。 。 begin 重油公司工資管理信息系統 畢 業(yè) 設 計 _______________________________________________________________________ 35 {(tfrmusermanager,frmusermanager)。 procedure (Sender: TObject)。 } end。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 。).AsString)。 :=2。 with do begin close。number39。 。sjgz39。 begin (TForm_user,Form_user)。 begin (TForm_jbgz,Form_jbgz)。) 。 (39。39。 重油公司工資管理信息系統 畢 業(yè) 設 計 _______________________________________________________________________ 40 showmessage(39。++39。 “那你怎么不給比蒙大軍列裝這種地精武器？