【文章內容簡介】 主界面： 圖 7 系統(tǒng)主窗口 開始輸入用戶名和口令是否有當前用戶和口令否次數(shù) N + 1次數(shù) N = 3否進入主窗口是退出系統(tǒng)是結束 否否重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XI （ 3）單位信息管理 對于職工考勤人員來說，職工人員最基本的分類方法是按單位。因些系統(tǒng)對單位進行了定義，可以按其它人事管理系統(tǒng)，上下級單位都用不同的編碼進行管理，定義編碼的好處就是方便今后的系統(tǒng)統(tǒng)計分析工作，此外，職工考勤人員最關心的就是所在單位職工人員信息。在以下界面，就完成上述兩個功能，即右上角數(shù)據(jù)區(qū)定義單位信息；點擊左邊的單位，就在右下角數(shù)據(jù)區(qū)顯示該單位的職工信息。 單位數(shù)據(jù) 表 ygbmtb 及職工人員信息表 zgb 的數(shù)據(jù)項說明詳見數(shù)據(jù)庫設計。 如單位職工人員需要增加或維護時，請進入職工信息窗口。 （ 4）職工信息表 在設計職工信息時，首先考慮的是能夠提供按單位查詢職工信息，那么職工信息包括什么呢，作為職工的你，你是否考慮自己的名字、性別、年齡、文化程度、族別、參加工作時間等信息都是企業(yè)所關注的，所以我設計了每個員工具有以上數(shù)據(jù)信息來進行維護。人員信息維護窗重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XII 口如下： 在一個優(yōu)秀的設計中，為了減少系統(tǒng)維護所帶來的工作，盡量在程序中做到動態(tài)調用參數(shù)和值，比如以上界面中的籍貫、民族、文化 程度、工程、職務等可供選擇的項，可以定義在一個代碼表中，通過分類碼分類使用這些值，就如所在部門名稱一樣，將單位名稱提前定義后，在職工信息表中，直接選擇這些單位，就是該項職工的工作單位了。如從上圖的所在部門的選擇一個單位，就可以查到這個單位有哪些職工。等等。 （ 5）考勤登記表 考勤登記表，主要是記錄每一個職工當前月份是否工作，如果出勤，則在當天日期下選勾，進行保存，系統(tǒng)自動算出本月該職工出勤天數(shù)。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XIII （ 6）單位考勤統(tǒng)計 當每個單位的職工正常工作考勤確定后，還存在職工請假、事假等一些非正常工作日。可以在這 里進行修改。 考勤統(tǒng)計的程序算法如下： procedure (Sender: TObject)。 var i:integer。 begin 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XIV i:= dmrsgl. QueryExeSQL(ADOQuery3,39。SELECT , , , , FROM zgb INNER JOIN kqb_1 ON = 39。+ 39。 WHERE =39。39。39。+ +39。39。39。 39。) 。 if i0 then begin 。 。 := 39。 delete * from kqb_1 where ny=39。39。39。++39。39。39。 and Name in (select Name from zgb where dwbh=39。39。39。++39。39。39。)39。 。 end 。 。 。 := 39。 insert into kqb_1(Num,Name,ny,gzts ) SELECT Num, Name, ny, + + + + + 39。+ 39。 + + + + + + + + 39。+ 39。 + + + + + + + + 39。+ 39。 + + + + + + + + 39。+ 39。 + AS KQTS FROM kqb where ny=39。39。39。++39。39。39。 and Name in (select Name from zgb where dwbh=39。39。39。++39。39。39。)39。 。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XV i:= dmrsgl. QueryExeSQL(ADOQuery3,39。SELECT , , , , FROM zgb INNER JOIN kqb_1 ON = 39。+ 39。 WHERE ( (()=39。39。39。+ +39。39。39。) AND (()=39。39。39。++39。39。39。 ) )39。) 。 if i=0 then showmessage(+copy(,1,4)+39。 年39。+copy(,5,2)+39。月還沒有考勤 !39。) 。 dmrsgl. QueryExeSQL(ADOQuery3,39。SELECT , , , , FROM zgb INNER JOIN kqb_1 ON = 39。+ 39。 WHERE =39。39。39。+ +39。39。39。39。) 。 （ 7）工資標準表 依據(jù)職工考勤的工作流程，考勤登記完成后，每月要根據(jù)每個職工 的工資基本情況，進行月工資計算。通過調查，員工基本工資包括：技能標準、技術工資、職工工資、崗位工資、工齡工資、住房補貼公積金等，具體如下窗口內容： 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XVI 在上面窗口中選擇單位，列表中就列出了選擇單位的人員信息，點中人員信息，進行職工工資標準數(shù)據(jù)的錄入。在因處沒有太多的算法。 （ 8）工資計算 由于進行畢業(yè)設計時間較倉促，出勤率與基本工資計算對應關系未調研清楚，本人編寫了簡單的計算方法，即工資總額是全勤下的標準工資，扣除工資： 1 天病假扣除 15 元，其請假天數(shù)扣除 20 元 /天，實際工資為工資總額 扣除工資。程序設 計界面如下： 相應用程序算法如下： procedure (Sender: TObject)。 var i:integer。 ADOQuery,ADOQuery1:TADOQuery。 begin i:= dmrsgl. QueryExeSQL(ADOQuery3,39。SELECT * FROM kqb_1 WHERE ny=39。39。39。+ +39。39。39。39。) 。 if I0 then begin 。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XVII ADOQuery:=(self)。 ADOQuery1:=(self)。 。 while not do begin dmrsgl. QueryExeSQL(ADOQuery,39。SELECT ++++++39。+ ++++++++ as gzze FROM jbgzb WHERE name=39。39。39。+ADOQuery3[39。name39。]+39。39。39。39。) 。 := 。 。 。 := 39。 update kqb_1 set gzze=39。+(39。gzze39。).AsString+39。,kcgz=bjts*15+qtxjts*20,sjgz=gzzekcgz 39。+ 39。 where name=39。39。39。+ADOQuery3[39。name39。]+39。39。39。 and ny=39。39。39。++39。39。39。39。 。 。 end。 i:= dmrsgl. QueryExeSQL(ADOQuery3,39。SELECT * FROM kqb_1 WHERE ny=39。39。39。+ +39。39。39。39。) 。 end else showmessage(copy(,1,4)+39。 年39。+copy(,5,2)+39。月還沒有考勤統(tǒng)計 !39。) 。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XVIII end。 （ 9）單位工資統(tǒng)計 本人在設計中考慮到，各個不同的單位工資總額、扣除工資及實際發(fā)放工資都是工資核算員比較關注的數(shù)字，因此，我做了這個單位工資統(tǒng)計，即每月、每個工資發(fā)放統(tǒng)計表。統(tǒng)計界面如下： 相應的數(shù)據(jù)處理過程如下： procedure (Sender: TObject)。 var i:integer。 begin i:= dmrsgl. QueryExeSQL(ADOQuery3,39。SELECT * FROM ygz WHERE ny=39。39。39。+ +39。39。39。39。) 。 。 if i0 then begin 。 。 :=39。delete from ygz where ny=39。39。39。++39。39。39。 39。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XIX 。 end 。 。 。 :=39。insert into ygz(dwbh,ny,gzze,kcgz,sjgz) Select ,sum(),sum(),sum() FROM kqb_1 a ,zgb b 39。+ 39。 Where = and =39。39。39。++39。39。39。 Group by ,39。 。 i:= dmrsgl. QueryExeSQL(ADOQuery3,39。SELECT * FROM ygz WHERE ny=39。39。39。+ +39。39。39。39。) 。 end。 （ 10）報表管理 _職工花名冊 職工花名冊就是把各單位的職工信息打印出來。界面設計如下： 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XX （ 11）報表管理 _工資打印 工資打印程序，一般是 按單位或部門進行分類打印的，我設計的界面如圖： 查詢結果出來后，按打印按鈕，出現(xiàn)打印報表格式，進行打印。 （ 12）系統(tǒng)管理 _用戶管理 用戶管理對系統(tǒng)使用者進行管理和權限控制，由于時間較倉促，我重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ XXI 只設計了簡單的用戶管理和組用戶定義，權限控制方面沒有做展開。主要用到了系統(tǒng)用戶表，通過對該表的維護，就能增減使用用戶。 （ 13）系統(tǒng)管理 _更改密碼 登錄用戶登錄到系統(tǒng)后，系統(tǒng)提供了更改密碼的功能。主要原理是根據(jù)登記用戶的用戶名稱，到數(shù)據(jù)庫查詢到當前用戶，如果找到，并且用戶更改的密碼及確認密碼相同，即認為密碼更