【正文】 edure (Sender: TObject)。 findstring:=39。+quotedstr()。identify39。).AsString。,39。39。 密 碼 重 試 次 數(shù) 過 多 , 請與管理員聯(lián)系 !39。 。因些系統(tǒng)對(duì)單位進(jìn)行了定義，可以按其它人事管理系統(tǒng)，上下級(jí)單位都用不同的編碼進(jìn)行管理，定義編碼的好處就是方便今后的系統(tǒng)統(tǒng)計(jì)分析工作，此外，職工考勤人員最關(guān)心的就是所在單位職工人員信息。 （ 4）職工信息表 在設(shè)計(jì)職工信息時(shí)，首先考慮的是能夠提供按單位查詢職工信息，那么職工信息包括什么呢，作為職工的你，你是否考慮自己的名字、性別、年齡、文化重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 13 程度、族別、參加工作時(shí)間等信息都是企業(yè)所關(guān)注的，所以我設(shè)計(jì)了每個(gè)員工具有以上數(shù)據(jù)信息來進(jìn)行維護(hù)。 （ 5）考勤登記表 考勤登記表，主要是記錄每一個(gè)職工當(dāng)前月份是否工作，如果出勤，則在當(dāng)天日期下選勾，進(jìn)行保存，系統(tǒng)自動(dòng)算出本月該職工出勤天數(shù)。 var i:integer。 WHERE =39。39。 if i0 then begin 。39。39。++39。 。 := 39。+ 39。+ 39。++39。39。39。SELECT , , , , FROM zgb INNER JOIN kqb_1 ON = 39。39。) AND (()=39。39。 if i=0 then showmessage(+copy(,1,4)+39。) 。 WHERE =39。39。 （ 7）工資標(biāo)準(zhǔn)表 依據(jù)職工考勤的工作流程，考勤登記完成后，每月要根據(jù)每個(gè)職工 的工資基本情況，進(jìn)行月工資計(jì)算。程序設(shè) 計(jì)界面如下： 相應(yīng)用程序算法如下： procedure (Sender: TObject)。SELECT * FROM kqb_1 WHERE ny=39。39。 if I0 then begin 。 while not do begin 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 17 dmrsgl. QueryExeSQL(ADOQuery,39。39。39。 := 。 update kqb_1 set gzze=39。,kcgz=bjts*15+qtxjts*20,sjgz=gzzekcgz 39。39。39。39。39。 i:= dmrsgl. QueryExeSQL(ADOQuery3,39。+ +39。) 。月還沒有考勤統(tǒng)計(jì) !39。統(tǒng)計(jì)界面如下： 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 18 相應(yīng)的數(shù)據(jù)處理過程如下： procedure (Sender: TObject)。39。39。 if i0 then begin 。39。39。 。+ 39。++39。 。39。39。界面設(shè)計(jì)如下： （ 11）報(bào)表管理 _工資打印 工資打印程序，一般是 按單位或部門進(jìn)行分類打印的，我設(shè)計(jì)的界面如圖： 查詢結(jié)果出來后，按打印按鈕，出現(xiàn)打印報(bào)表格式，進(jìn)行打印。主要原理是根據(jù)登記用戶的用戶名稱，到數(shù)據(jù)庫查詢到當(dāng)前用戶，如果找到，并且用戶更改的密碼及確認(rèn)密碼相同，即認(rèn)為密碼更 改成功。確認(rèn)密碼和新密碼不同 ,請重新輸入 !39。 (39。+ + 39。39。39。 showmessage(39。)。++39。 end。 軟件環(huán)境 客戶端要求為 Windows環(huán)境，系統(tǒng)需在 Windows95/98/2020/XP平臺(tái)上運(yùn)行，數(shù)據(jù)庫為 ACCESS。 ? 實(shí)時(shí)性：系統(tǒng)對(duì)于需求要以最快速度返回結(jié)果。 本人在進(jìn)行該課題的設(shè)計(jì)和編制過程中，得到了老師的輔導(dǎo)和同學(xué)的幫助，才能得以圓滿順利地完成此次的論文課題，非常感謝支持我的老師和同學(xué)。 procedure tbexitClick(Sender: TObject)。 procedure mupanyClick(Sender: TObject)。 // procedure datarepairClick(Sender: TObject)。 procedure modkeyClick(Sender: TObject)。 procedure bmzlClick(Sender: TObject)。 procedure mukqdjClick(Sender: TObject)。 procedure nztjClick(Sender: TObject)。 procedure btn_passClick(Sender: TObject)。 procedure N2Click(Sender: TObject)。 pubuser:string。 {$R *.dfm} procedure (Sender: TObject)。提示 39。 begin if((39。,mb_okcancel))=1 then 。系統(tǒng)管理員 39。 [1].Text:=39。級(jí)別 :39。歡迎使用工資考勤管理系統(tǒng) 39。 [2].Text:=39。 //設(shè)定其相應(yīng)的菜單為 FALSE 狀態(tài) { :=false。} end。 。 end。 end。 (39。 if 0 then :=(39。} end。 end。 。 begin if key=27 then close。 。 :=false。 begin {(tfrmusermanager,frmusermanager)。 :=false。 procedure (Sender: TObject)。39。 begin (tfrmmonthcalendar,frmmonthcalendar)。 begin (tfrmemployee,frmemployee)。 begin (tfrmbmzl,frmbmzl)。 begin frmrszhgl:=(self)。 begin frmrszhgl:=(self)。 :=false。 (39。 first。 next。 procedure (Sender: TObject)。 :=false。 :=formatdatetime(39。 。 open。).AsString)。 end。 end。kcgz39。 :=adoquery1。 end。 。 。 。 begin { 。 。用戶 39。update usertrb set password=39。39。39。39。修改 39。 end。用戶密碼失敗 !39。 end 。 “列裝個(gè)屁??！那個(gè)青銅版圖紙被我一氣之下，直接捏扁了！”劉震撼苦笑著雙手一攤：“威力最大的魔導(dǎo)炮和古力火銃，都需要魔法金屬做鍍層，還要用微雕技術(shù)篆刻魔法陣，我上哪找這些技術(shù)和材料？再說了。 end. 過戰(zhàn)況，博學(xué)多聞的隆美爾一下子就猜出了那種能在空中自動(dòng)旋轉(zhuǎn)，抵沖地心引力的金屬傘，是消失已久的地精文明杰作“空降陀螺傘” 劉震撼毫不掩飾，向隆美爾吹噓了自己退剿滅地精強(qiáng)盜，無意中得到過 地精武器設(shè)計(jì)圖紙的事實(shí)，包括威名赫赫的魔導(dǎo)大炮，古力火銃、地精軍刀一應(yīng)俱全。 Exit。修改 39。用戶密碼成功 !39。 ExecSQL。39。 where name=39。39。 begin 。user39。 SELECT * FROM usertrb 39。 proced implementation uses datarsgl。 procedure (Sender: TObject)。 procedure (Sender: TObject)。} procedure (Sender: TObject)。name39。 :=39。 begin :=adoquery1。 begin Form_kqdj:=(self)。 //下移動(dòng)符值 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 38 end。 while not eof do begin (fieldbyname(39。select * from employeer39。,now)。 :=false。 。 end。number39。)。 with do begin close。 :=1。 end。 end。 end。 end。 end。open39。 。 :=false。} end。 :=false。 procedure (Sender: TObject)。 procedure (Sender: TObject。 begin (tfrmdatarepair,frmdatarepair)。 begin (tfrminit,frminit)。).AsString+39。)。 begin {。 begin (tfrmpany,frmpany)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 :=false。+identify。用戶名稱 :39。 [3].Text:=datetostr(now)。+pubuser。 [0].Text:=39。 procedure (Sender: TObject)。,39。 end。確認(rèn)退出系統(tǒng)嗎 ?39。 panyname:string。 private { Private declarations } public { Public declarations } end。 procedure mukqtjClick(Sender: TObject)。 //procedure kqzlbbClick(Sender: TObject)。 // procedure ywjzClick(Sender: TObject)。 procedure muoutmoveClick(Sender: TObject)。 procedure datefindClick(Sender: TObject)。 var Key: Char)。 procedure datainiClick(Sender: TObject)。 procedure menuaboutClick(Sender: TObject)。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, jpeg, ExtCtrls, ImgList,shellapi, DB, ADODB, RzPanel, RzButton, XPMenu。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 28 《軟件工程導(dǎo)論（第三版）》 張海藩 編著 清華大學(xué)出版社 《數(shù)據(jù)庫原理與應(yīng)用》 郭盈發(fā) 趙偉華 張紅娟 李菊蓮 編著 西安電子科技大學(xué)出版社 《 Delphi 數(shù)據(jù)庫應(yīng)用開發(fā)》 曾令友 編著 中國水利水電出版社 《 Delphi 程序設(shè)計(jì)與開發(fā)指南》 王松 編著 高等教育出版社 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _____________________________________________