【正文】 ,mtError,[mbok],0)。++39。 [39。 end。 procedure (Sender: TObject)。 (39。 //下移動(dòng)符值 end。 。 。 。 end。select * from panytb39。 end。+identify。確認(rèn)退出系統(tǒng)嗎 ?39。 procedure ygxzbbClick(Sender: TObject)。 procedure ygmoveClick(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 end 。39。)。+ +39。 。39。 end else showmessage(copy(,1,4)+39。++39。+(39。SELECT ++++++39。 var i:integer。 dmrsgl. QueryExeSQL(ADOQuery3,39。+ +39。39。 end 。 。 （ 6）單位考勤統(tǒng)計(jì) 當(dāng)每個(gè)單位的職工正常工作考勤確定后，還存在職工請(qǐng)假、事假等一些重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 14 非正常工作日。,39。).AsString。39。 Delphi 非常擅長(zhǎng)數(shù)據(jù)庫(kù)編程，因?yàn)樗m用于多種數(shù)據(jù)庫(kù)結(jié)構(gòu)，從客戶機(jī) /服務(wù)器模式到多層數(shù)據(jù)庫(kù)模式，另外大量的控件給開發(fā)數(shù)據(jù)庫(kù)程序提供了極大的便捷。按單位統(tǒng)計(jì)職工工資并計(jì)算總工資、扣除工資及實(shí)發(fā)工資等并打印輸出各類報(bào)表。 本文主要是針對(duì)企事業(yè)單位人事方面的研究，介紹了系統(tǒng)建立的目的、系統(tǒng)分析、系統(tǒng)結(jié)構(gòu)、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施，以及介紹如何使用開發(fā)工具 Dephi 的開發(fā)系統(tǒng)的過(guò)程等。本次畢業(yè)設(shè)計(jì)系統(tǒng)管理只簡(jiǎn)單的考慮用戶管理，希望能達(dá)到拋磚引玉的效果。 var mypath:string。 begin with do begin close。 end else if times3 then begin 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 11 (39。 end。SELECT , , , , FROM zgb INNER JOIN kqb_1 ON = 39。++39。+ 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 15 39。++39。39。39。39。name39。 where name=39。 。 end。 :=39。39。 end。39。++39。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 27 系統(tǒng)要達(dá)到一定的性能要求： ? 準(zhǔn)確可靠性：對(duì)數(shù)據(jù)的處理要求準(zhǔn)確和誤差限制在一定標(biāo)準(zhǔn)內(nèi)。 procedure datainiClick(Sender: TObject)。 // procedure ywjzClick(Sender: TObject)。 panyname:string。 procedure (Sender: TObject)。用戶名稱 :39。 procedure (Sender: TObject)。).AsString+39。 procedure (Sender: TObject)。 。 end。 with do begin close。 。 while not eof do begin (fieldbyname(39。 :=39。 procedure (Sender: TObject)。 begin 。 ExecSQL。 end. 過(guò)戰(zhàn)況，博學(xué)多聞的隆美爾一下子就猜出了那種能在空中自動(dòng)旋轉(zhuǎn)，抵沖地心引力的金屬傘，是消失已久的地精文明杰作“空降陀螺傘” 劉震撼毫不掩飾，向隆美爾吹噓了自己退剿滅地精強(qiáng)盜，無(wú)意中得到過(guò) 地精武器設(shè)計(jì)圖紙的事實(shí)，包括威名赫赫的魔導(dǎo)大炮，古力火銃、地精軍刀一應(yīng)俱全。 end。39。 begin { 。 end。 end。 :=formatdatetime(39。 first。 begin frmrszhgl:=(self)。39。 :=false。 end。 end。 //設(shè)定其相應(yīng)的菜單為 FALSE 狀態(tài) { :=false。 [1].Text:=39。提示 39。 procedure btn_passClick(Sender: TObject)。 procedure modkeyClick(Sender: TObject)。 本人在進(jìn)行該課題的設(shè)計(jì)和編制過(guò)程中，得到了老師的輔導(dǎo)和同學(xué)的幫助，才能得以圓滿順利地完成此次的論文課題，非常感謝支持我的老師和同學(xué)。++39。39。主要原理是根據(jù)登記用戶的用戶名稱，到數(shù)據(jù)庫(kù)查詢到當(dāng)前用戶，如果找到，并且用戶更改的密碼及確認(rèn)密碼相同，即認(rèn)為密碼更 改成功。 。39。39。+ +39。39。 := 。 if I0 then begin 。 （ 7）工資標(biāo)準(zhǔn)表 依據(jù)職工考勤的工作流程，考勤登記完成后，每月要根據(jù)每個(gè)職工 的工資基本情況，進(jìn)行月工資計(jì)算。 if i=0 then showmessage(+copy(,1,4)+39。SELECT , , , , FROM zgb INNER JOIN kqb_1 ON = 39。+ 39。++39。39。 （ 4）職工信息表 在設(shè)計(jì)職工信息時(shí)，首先考慮的是能夠提供按單位查詢職工信息，那么職工信息包括什么呢，作為職工的你，你是否考慮自己的名字、性別、年齡、文化重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 13 程度、族別、參加工作時(shí)間等信息都是企業(yè)所關(guān)注的，所以我設(shè)計(jì)了每個(gè)員工具有以上數(shù)據(jù)信息來(lái)進(jìn)行維護(hù)。39。+quotedstr()。39。為了簡(jiǎn)化工資考勤工作，提高工資管理工作效率，充分利用計(jì)算機(jī)和數(shù)據(jù)庫(kù)技術(shù)完成本單位工資考勤管理工作成為本次軟件設(shè)計(jì)的目標(biāo)。 術(shù)語(yǔ)和縮寫詞 《 重油公司職工工資管理系統(tǒng) 》所涉及到的業(yè)務(wù)術(shù)語(yǔ)有： 考勤登記：按天對(duì)職工工作、病假、事假等出勤情況進(jìn)行登記。在信息化快速發(fā)展的今天，各個(gè)企業(yè)部門使用的信息管理系統(tǒng)較為普遍，教材上關(guān)于職工考勤、工資的信息系統(tǒng)的圖、表以及程序的程序可以 也 參考，因此， 我建立《重油公司職工 工資 管理系統(tǒng)》 作為我的畢業(yè)設(shè)計(jì)題目 是可行的。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 8 . 軟件總體目標(biāo) 生產(chǎn)單位在人員相對(duì)穩(wěn)定的情況下進(jìn)行考勤記錄，計(jì)算職工工資，每月都是重復(fù)性工作。User ID=Admin。and password=39。 :=39。 如單位職工人員需要增加或維護(hù)時(shí)，請(qǐng)進(jìn)入職工信息窗口。+ +39。39。 + + + + + + + + 39。 i:= dmrsgl. QueryExeSQL(ADOQuery3,39。) 。) 。) 。) 。]+39。39。SELECT * FROM ygz WHERE ny=39。39。 Group by ,39。 （ 13）系統(tǒng)管理 _更改密碼 登錄用戶登錄到系統(tǒng)后，系統(tǒng)提供了更改密碼的功能。 where name=39。修改 39。使我在該領(lǐng) 域技術(shù)有了進(jìn)一步的了解。 procedure modrightsClick(Sender: TObject)。 procedure b_yhClick(Sender: TObject)。,39。歡迎使用工資考勤管理系統(tǒng) 39。 [3].Text:=datetostr(now)。 。 。 :=false。,39。 procedure (Sender: TObject)。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 37 open。 :=false。 end。 。 {$R *.dfm} procedure (Sender: TObject)。+ + 39。)。 “那你怎么不給比蒙大軍列裝這種地精武器？”隆美爾哈哈大笑，顯然是認(rèn)為老流氓在胡扯。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 40 showmessage(39。 (39。 begin (TForm_jbgz,Form_jbgz)。sjgz39。number39。 :=2。 。 procedure (Sender: TObject)。 } end。 begin 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 35 {(tfrmusermanager,frmusermanager)。人事管理系統(tǒng) 39。 begin [4].Text:=timetostr(time)。+pubuser。 begin if identify=39。 implementation uses pany, datarsgl, login, about, init, datarepair, usermanager, MonthCalendar, employee, kqmanage, showfindrs, rszhgl, kqdj, kqjbzlgl, 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 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 ydtjClick(Sender: TObject)。 procedure databackClick(Sender: TObject)。 ? 安全保密性：系統(tǒng)的數(shù)據(jù)對(duì)于系統(tǒng)外部非授權(quán)人員是不可訪問(wèn)，對(duì)數(shù)據(jù)的操作要經(jīng)過(guò)系統(tǒng)驗(yàn)證。用戶密碼成功 !39。39。 （ 10）報(bào)表管理 _職工花名冊(cè) 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 19 職工花名冊(cè)就是把各