【正文】 end。 except MessageDlg(39。)。39。 。 (39。 end。 end。 :=adoquery1。 procedure (Sender: TObject)。 first。yyyymmdd39。 begin frmrszhgl:=(self)。 while not eof do begin (fieldbyname(39。 :=false。 。 。,nil,nil,sw_show)。 :=false。 。 end。 procedure (Sender: TObject)。name39。 procedure (Sender: TObject)。 end。 :=false。 [1].Text:=39。用戶名稱 :39。 end。,mb_okcancel))=1 then 。 identify:string。 procedure N1Click(Sender: TObject)。 // procedure txjhClick(Sender: TObject)。 procedure calcuateClick(Sender: TObject)。 procedure FormShow(Sender: TObject)。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 30 //******************* mainform 系統(tǒng)主界面 ********************* unit mainform。 盤文件的目錄管理 將系統(tǒng)程序拷貝到任意目錄下，執(zhí)行 EXE 程序，其中 database 路徑下的文件 為數(shù)據(jù)庫(kù)文件。用戶密碼失敗 !39。修改 39。39。update usertrb set password=39。保存成功后，下一次，用當(dāng)前用戶登錄時(shí)，用戶密碼即是這個(gè)更改的新密碼，否則不能登錄到系統(tǒng)了。) 。 i:= dmrsgl. QueryExeSQL(ADOQuery3,39。 Where = and =39。 39。 。39。) 。39。 。39。+ 39。 。+ADOQuery3[39。 ADOQuery:=(self)。39。通過(guò)調(diào)查，員工基本工資包括：技能標(biāo)準(zhǔn)、技術(shù)工資、職工工資、崗位工資、工齡工資、住房補(bǔ)貼公積金等，具體如下窗口內(nèi)容： 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 16 在上面窗口中選擇單位，列表中就列出了選擇單位的人員信息，點(diǎn)中人員信息，進(jìn)行職工工資標(biāo)準(zhǔn)數(shù)據(jù)的錄入。39。 年39。39。+ 39。39。 + AS KQTS FROM kqb where ny=39。 insert into kqb_1(Num,Name,ny,gzts ) SELECT Num, Name, ny, + + + + + 39。39。39。39。 begin i:= dmrsgl. QueryExeSQL(ADOQuery3,39。人員信息維護(hù)窗口如下： 在一個(gè)優(yōu)秀的設(shè)計(jì)中，為了減少系統(tǒng)維護(hù)所帶來(lái)的工作，盡量在程序中做到動(dòng)態(tài)調(diào)用參數(shù)和值，比如以上界面中的籍貫、民族、文化 程度、工程、職務(wù)等可供選擇的項(xiàng)，可以定義在一個(gè)代碼表中，通過(guò)分類碼分類使用這些值，就如所在部門名稱一樣，將單位名稱提前定義后，在職工信息表中，直接選擇這些單位，就是該項(xiàng)職工的工作單位了。 end end。 。 modalresult:=mrok。 (findstring)。 var findstring:string。+ 39。具體源碼如下： procedure (Sender: TObject)。 假設(shè)和約束 該軟件運(yùn)行需在 Windows 環(huán)境下，客戶端內(nèi)存至少 32M。系統(tǒng)管理主要是對(duì)系統(tǒng)用戶、用戶密 碼的管理，還可以根據(jù)使用者的要求，控制系統(tǒng)功能權(quán)限或數(shù)據(jù)權(quán)限等。 職工花名冊(cè)：按單位分類登記每個(gè)職工主要信息的報(bào)表。從接到任務(wù)書開(kāi)始，就對(duì)目前眾多的可視化開(kāi)發(fā)工具進(jìn)行了比較，決定利用 Dephi 作為前端工具軟件，應(yīng)用面向?qū)ο蟮姆椒▉?lái)開(kāi)發(fā)本次課題。職工 、考勤、工資三都有必然的聯(lián)系，要面對(duì)各種不同的單據(jù)，進(jìn)行煩瑣的計(jì)算。當(dāng)工資發(fā)放完后，將當(dāng)月工資報(bào)表存檔。 6. 提供單位、職工、考勤、工資等相關(guān)信息的綜合查詢。 （ 2） Access 數(shù)據(jù)庫(kù) 作為畢業(yè)設(shè)計(jì)，系統(tǒng)采用了微軟桌面數(shù)據(jù)庫(kù) Access， Access 操作方便，只需要計(jì)算機(jī)安裝 OFFICE 就可運(yùn)行本系統(tǒng)，但缺點(diǎn)是作為本地文件，安全性不高。Password=。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 10 :=True。+quotedstr()+39。 pubuser:=fieldbyname(39。,mb_ok+mb_iconerror)。 錯(cuò)誤39。 單位數(shù)據(jù) 表 ygbmtb 及職工人員信息表 zgb 的數(shù)據(jù)項(xiàng)說(shuō)明詳見(jiàn)數(shù)據(jù)庫(kù)設(shè)計(jì)?？梢栽谶@ 里進(jìn)行修改。39。 := 39。39。 。+ 39。39。 。39。 ) )39。SELECT , , , , FROM zgb INNER JOIN kqb_1 ON = 39。39。 ADOQuery,ADOQuery1:TADOQuery。39。+ ++++++++x as gzze FROM jbgzb WHERE name=39。39。gzze39。name39。39。39。 年39。 begin i:= dmrsgl. QueryExeSQL(ADOQuery3,39。) 。++39。 :=39。39。39。主要用到了系統(tǒng)用戶表，通過(guò)對(duì)該表的維護(hù)，就能增減使用用戶。 。39。)。 except MessageDlg(39。 end。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 28 《軟件工程導(dǎo)論（第三版）》 張海藩 編著 清華大學(xué)出版社 《數(shù)據(jù)庫(kù)原理與應(yīng)用》 郭盈發(fā) 趙偉華 張紅娟 李菊蓮 編著 西安電子科技大學(xué)出版社 《 Delphi 數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)》 曾令友 編著 中國(guó)水利水電出版社 《 Delphi 程序設(shè)計(jì)與開(kāi)發(fā)指南》 王松 編著 高等教育出版社 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 29 通過(guò)此次畢業(yè)設(shè)計(jì)，使我了解到軟件系統(tǒng)的實(shí)現(xiàn)流程，掌握了從可行性調(diào)查、業(yè)務(wù)需求收集、分析、系統(tǒng)設(shè)計(jì)及程序功能實(shí)現(xiàn)，每一個(gè)環(huán)節(jié)需要做哪些工作，能夠?qū)崿F(xiàn)什么樣的功能，以及怎么實(shí)現(xiàn)等。 procedure menuaboutClick(Sender: TObject)。 var Key: Char)。 procedure muoutmoveClick(Sender: TObject)。 //procedure kqzlbbClick(Sender: TObject)。 private { Private declarations } public { Public declarations } end。確認(rèn)退出系統(tǒng)嗎 ?39。,39。 [0].Text:=39。 [3].Text:=datetostr(now)。+identify。 procedure (Sender: TObject)。 begin (tfrmpany,frmpany)。)。 begin (tfrminit,frminit)。 procedure (Sender: TObject。 :=false。 :=false。open39。 end。 end。 :=1。)。 end。 :=false。select * from employeer39。 //下移動(dòng)符值 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 38 end。 begin :=adoquery1。name39。 procedure (Sender: TObject)。 proced implementation uses datarsgl。user39。39。39。用戶密碼成功 !39。 Exit。 “列裝個(gè)屁?。∧莻€(gè)青銅版圖紙被我一氣之下，直接捏扁了！”劉震撼苦笑著雙手一攤：“威力最大的魔導(dǎo)炮和古力火銃，都需要魔法金屬做鍍層，還要用微雕技術(shù)篆刻魔法陣，我上哪找這些技術(shù)和材料？再說(shuō)了。用戶密碼失敗 !39。修改 39。39。update usertrb set password=39。 。 。 。 :=adoquery1。 end。).AsString)。 。 :=false。 next。 (39。 begin frmrszhgl:=(self)。 begin (tfrmbmzl,frmbmzl)。 begin (tfrmmonthcalendar,frmmonthcalendar)。 procedure (Sender: TObject)。 begin {(tfrmusermanager,frmusermanager)。 。 。} end。 (39。 end。} end。 [2].Text:=39。級(jí)別 :39。系統(tǒng)管理員 39。 begin if((39。 {$R *.dfm} procedure (Sender: TObject)。 procedure N2Click(Sender: TObject)。 procedure nztjClick(Sender: TObject)。 procedure bmzlClick(Sender: TObject)。 // procedure datarepairClick(Sender: TObject)。 procedure tbexitClick(Sender: TObject)。 ? 實(shí)時(shí)性：系統(tǒng)對(duì)于需求要以最快速度返回結(jié)果。 end。)。39。+ + 39。確認(rèn)密碼和新密碼不同 ,請(qǐng)重新輸入 !39。界面設(shè)計(jì)如下： （ 11）報(bào)表管理 _工資打印 工資打印程序，一般是 按單位或部門進(jìn)行分類打印的，我設(shè)計(jì)的界面如圖： 查詢結(jié)果出來(lái)后，按打印按鈕，出現(xiàn)打印報(bào)表格式，進(jìn)行打印。39。++39。 。39。39。統(tǒng)計(jì)界面如下： 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 18 相應(yīng)的數(shù)據(jù)處理過(guò)程如下： procedure (Sender: TObject)。) 。 i:= dmrsgl. QueryExeSQL(ADOQuery3,39。39。39。 update kqb_1 set gzze=39。39。 while not do begin 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計(jì) _______________________________________________________________________ 17 dmrsgl. QueryExeSQL(ADOQuery,39