【文章內(nèi)容簡(jiǎn)介】 （1） 數(shù)據(jù)庫(kù)模塊數(shù)據(jù)庫(kù)模塊主要定義數(shù)據(jù)連接單元，通過 ADO 連接 ACCESS 數(shù)據(jù)文件，為查詢 QUERY 提供數(shù)據(jù)連接串。具體源碼如下：procedure (Sender: TObject)。var mypath:string。begin:=False。:=39。Provider=。Password=。User ID=Admin。39。+39。Data Source=39。+ExtractFilePath(paramstr(0))+39。database\。39。:=True。end。（2）用戶登錄根據(jù)數(shù)據(jù)庫(kù)里的用戶信息進(jìn)行登錄，界面如下：圖 5 系統(tǒng)登錄窗口其中確定按紐的源碼如下：procedure (Sender: TObject)。var findstring:string。begin with do begin close。 。 findstring:=39。select * from usertrb where name=39。+quotedstr()+39。and password=39。+quotedstr()。 (findstring)。 open。 if recordcount0 then begin //符值給其它變量 identify:=fieldbyname(39。identify39。).AsString。 pubuser:=fieldbyname(39。name39。).AsString。 modalresult:=mrok。 end else if times3 then begin (39。密碼錯(cuò)誤,請(qǐng)重試!39。,39。錯(cuò)誤39。,mb_ok+mb_iconerror)。 :=39。39。 。 times:=times+1。 end else //QUIT SYSTEM begin (39。密碼重試次數(shù)過多,請(qǐng)與管理員聯(lián)系 !39。,39。錯(cuò)誤39。,mb_ok+mb_iconerror)。 。 end end。end。即用戶選擇用戶名后，輸入正確的口令后，系統(tǒng)自動(dòng)到數(shù)據(jù)庫(kù) usertrb 表里驗(yàn)證密碼，如果試密碼次數(shù)大于 3 時(shí)，退出系統(tǒng)，流程圖如下：圖 6 系統(tǒng)登錄流程開 始輸 入 用 戶 名 和口 令是 否 有 當(dāng) 前 用戶 和 口 令 否次 數(shù) N+1 次 數(shù) N=3否進(jìn) 入 主 窗 口是 退 出 系 統(tǒng)是結(jié) 束 否否密碼正確進(jìn)入系統(tǒng)主界面：圖 7 系統(tǒng)主窗口（3）單位信息管理 對(duì)于職工考勤人員來說，職工人員最基本的分類方法是按單位。因些系統(tǒng)對(duì)單位進(jìn)行了定義，可以按其它人事管理系統(tǒng)，上下級(jí)單位都用不同的編碼進(jìn)行管理，定義編碼的好處就是方便今后的系統(tǒng)統(tǒng)計(jì)分析工作，此外，職工考勤人員最關(guān)心的就是所在單位職工人員信息。在以下界面，就完成上述兩個(gè)功能，即右上角數(shù)據(jù)區(qū)定義單位信息；點(diǎn)擊左邊的單位，就在右下角數(shù)據(jù)區(qū)顯示該單位的職工信息。單位數(shù)據(jù)表 ygbmtb 及職工人員信息表 zgb 的數(shù)據(jù)項(xiàng)說明詳見數(shù)據(jù)庫(kù)設(shè)計(jì)。如單位職工人員需要增加或維護(hù)時(shí)，請(qǐng)進(jìn)入職工信息窗口。（4）職工信息表 在設(shè)計(jì)職工信息時(shí)，首先考慮的是能夠提供按單位查詢職工信息，那么職工信息包括什么呢，作為職工的你，你是否考慮自己的名字、性別、年齡、文化程度、族別、參加工作時(shí)間等信息都是企業(yè)所關(guān)注的，所以我設(shè)計(jì)了每個(gè)員工具有以上數(shù)據(jù)信息來進(jìn)行維護(hù)。人員信息維護(hù)窗口如下：在一個(gè)優(yōu)秀的設(shè)計(jì)中，為了減少系統(tǒng)維護(hù)所帶來的工作，盡量在程序中做到動(dòng)態(tài)調(diào)用參數(shù)和值，比如以上界面中的籍貫、民族、文化程度、工程、職務(wù)等可供選擇的項(xiàng)，可以定義在一個(gè)代碼表中，通過分類碼分類使用這些值，就如所在部門名稱一樣，將單位名稱提前定義后，在職工信息表中，直接選擇這些單位，就是該項(xiàng)職工的工作單位了。如從上圖的所在部門的選擇一個(gè)單位，就可以查到這個(gè)單位有哪些職工。等等。（5）考勤登記表考勤登記表，主要是記錄每一個(gè)職工當(dāng)前月份是否工作，如果出勤，則在當(dāng)天日期下選勾，進(jìn)行保存，系統(tǒng)自動(dòng)算出本月該職工出勤天數(shù)。（6）單位考勤統(tǒng)計(jì)當(dāng)每個(gè)單位的職工正常工作考勤確定后，還存在職工請(qǐng)假、事假等一些非正常工作日?？梢栽谶@里進(jìn)行修改?？记诮y(tǒng)計(jì)的程序算法如下：procedure (Sender: TObject)。vari:integer。begini:= dmrsgl. QueryExeSQL(ADOQuery3,39。SELECT , , , , FROM zgb INNER JOIN kqb_1 ON = 39。+39。 WHERE =39。39。39。+ +39。39。39。 39。) 。if i0 thenbegin。 。:= 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。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 thenshowmessage(+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）工資標(biāo)準(zhǔn)表依據(jù)職工考勤的工作流程，考勤登記完成后，每月要根據(jù)每個(gè)職工的工資基本情況，進(jìn)行月工資計(jì)算。通過調(diào)查，員工基本工資包括：技能標(biāo)準(zhǔn)、技術(shù)工資、職工工資、崗位工資、工齡工資、住房補(bǔ)貼公積金等，具體如下窗口內(nèi)容：在上面窗口中選擇單位，列表中就列出了選擇單位的人員信息，點(diǎn)中人員信息，進(jìn)行職工工資標(biāo)準(zhǔn)數(shù)據(jù)的錄入。在因處沒有太多的算法。（8）工資計(jì)算由于進(jìn)行畢業(yè)設(shè)計(jì)時(shí)間較倉(cāng)促，出勤率與基本工資計(jì)算對(duì)應(yīng)關(guān)系未調(diào)研清楚，本人編寫了簡(jiǎn)單的計(jì)算方法，即工資總額是全勤下的標(biāo)準(zhǔn)工資，扣除工資：1 天病假扣除 15 元，其請(qǐng)假天數(shù)扣除 20 元/天，實(shí)際工資為工資總額扣除工資。程序設(shè)計(jì)界面如下：相應(yīng)用程序算法如下：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 。 ADOQuery:=(self)。 ADOQuery1:=(self)。 。 while not do begin dmrsgl. QueryExeSQL(ADOQuery,39。SELECT ++++++39。+++++++++x 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)計(jì)!39。) 。end。（9）單位工資統(tǒng)計(jì)本人在設(shè)計(jì)中考慮到，各個(gè)不同的單位工資總額、扣除工資及實(shí)際發(fā)放工資都是工資核算員比較關(guān)注的數(shù)字，因此，我做了這個(gè)單位工資統(tǒng)計(jì)，即每月、每個(gè)工資發(fā)放統(tǒng)計(jì)表。統(tǒng)計(jì)界面如下：相應(yīng)的數(shù)據(jù)處理過程如下：procedure (Sender: TObject)。var i:integer。begini:= dmrsgl. QueryExeSQL(ADOQuery3,39。SELECT * FROM ygz WHERE ny=39。39。39。+ +39。39。39。39。) 。if i0 thenbegin。 。:=39。d