【正文】 ...................... 20 （ 13）系統(tǒng)管理 _更改密碼 ......................................................................... 20 .....................................................................................................22 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ IV 單位信息 ..................................................................................................22 單位職工信息 ...........................................................................................22 職工基本工資表 .......................................................................................23 職工考勤表 ..............................................................................................23 職工考勤統(tǒng)計 表 .......................................................................................25 系統(tǒng)用戶表 ..............................................................................................25 .................................................................................................26 ..................................................................................................26 軟件環(huán)境 ..................................................................................................26 盤文件的目錄管理 ....................................................................................26 ..............................................................................................27 ........................................................................................................28 ............................................................................................................29 ..............................................................................................................30 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 5 在任何一個企業(yè)里，職工考勤、工資的核算和發(fā)放是必不可少的一個環(huán)節(jié)。 職工花名冊：按單位分類登記每個職工主要信息的報表。按單位統(tǒng)計職工工資并計算總工資、扣除工資及實發(fā)工資等并打印輸出各類報表。系統(tǒng)管理主要是對系統(tǒng)用戶、用戶密 碼的管理，還可以根據(jù)使用者的要求，控制系統(tǒng)功能權(quán)限或數(shù)據(jù)權(quán)限等。 4. 根據(jù)每個職工的出勤天數(shù)，工資級別、工齡等計算月工資等 5. 報表輸出：主要包括職工花名冊、考勤表、工資表等。 假設(shè)和約束 該軟件運行需在 Windows 環(huán)境下，客戶端內(nèi)存至少 32M。 Delphi 非常擅長數(shù)據(jù)庫編程，因為它適用于多種數(shù)據(jù)庫結(jié)構(gòu)，從客戶機 /服務(wù)器模式到多層數(shù)據(jù)庫模式，另外大量的控件給開發(fā)數(shù)據(jù)庫程序提供了極大的便捷。具體源碼如下： procedure (Sender: TObject)。Provider=。+ 39。39。 var findstring:string。select * from usertrb where name=39。 (findstring)。).AsString。 modalresult:=mrok。錯誤 39。 。,39。 end end。在以下界面，就完成上述兩個功能，即右上角數(shù)據(jù)區(qū)定義單位信息；點擊左邊的單位，就在右下角數(shù)據(jù)區(qū)顯示該單位的職工信息。人員信息維護窗口如下： 在一個優(yōu)秀的設(shè)計中，為了減少系統(tǒng)維護所帶來的工作，盡量在程序中做到動態(tài)調(diào)用參數(shù)和值，比如以上界面中的籍貫、民族、文化 程度、工程、職務(wù)等可供選擇的項，可以定義在一個代碼表中，通過分類碼分類使用這些值，就如所在部門名稱一樣，將單位名稱提前定義后，在職工信息表中，直接選擇這些單位，就是該項職工的工作單位了。 （ 6）單位考勤統(tǒng)計 當每個單位的職工正常工作考勤確定后，還存在職工請假、事假等一些重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 14 非正常工作日。 begin i:= dmrsgl. QueryExeSQL(ADOQuery3,39。39。39。 。39。 and Name in (select Name from zgb where dwbh=39。39。 end 。 insert into kqb_1(Num,Name,ny,gzts ) SELECT Num, Name, ny, + + + + + 39。 + + + + + + + + 39。 + AS KQTS FROM kqb where ny=39。39。39。)39。+ 39。+ +39。39。39。 年39。 dmrsgl. QueryExeSQL(ADOQuery3,39。39。39。通過調(diào)查，員工基本工資包括：技能標準、技術(shù)工資、職工工資、崗位工資、工齡工資、住房補貼公積金等，具體如下窗口內(nèi)容： 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 16 在上面窗口中選擇單位，列表中就列出了選擇單位的人員信息，點中人員信息，進行職工工資標準數(shù)據(jù)的錄入。 var i:integer。39。39。 ADOQuery:=(self)。SELECT ++++++39。+ADOQuery3[39。39。 。+(39。+ 39。+ADOQuery3[39。39。++39。 。SELECT * FROM kqb_1 WHERE ny=39。39。 end else showmessage(copy(,1,4)+39。) 。 var i:integer。39。39。 。39。 39。 。 Where = and =39。39。 i:= dmrsgl. QueryExeSQL(ADOQuery3,39。+ +39。) 。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 20 （ 12）系統(tǒng)管理 _用戶管理 用戶管理對系統(tǒng)使用者進行管理和權(quán)限控制，由于時間較倉促，我 只設(shè)計了簡單的用戶管理和組用戶定義，權(quán)限控制方面沒有做展開。保存成功后，下一次，用當前用戶登錄時，用戶密碼即是這個更改的新密碼，否則不能登錄到系統(tǒng)了。)。update usertrb set password=39。39。39。39。修改 39。 end。用戶密碼失敗 !39。 end 。 盤文件的目錄管理 將系統(tǒng)程序拷貝到任意目錄下，執(zhí)行 EXE 程序，其中 database 路徑下的文件 為數(shù)據(jù)庫文件。 ? 適應(yīng)性：系統(tǒng)模塊要求耦合度較小，系統(tǒng)開發(fā)完畢后，可以在業(yè)務(wù)流程發(fā)生變化的情況下，通過較小的改動實現(xiàn)系統(tǒng)對業(yè)務(wù)的滿足 。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 30 //******************* mainform 系統(tǒng)主界面 ********************* unit mainform。 procedure FormCreate(Sender: TObject)。 procedure FormShow(Sender: TObject)。 procedure FormKeyPress(Sender: TObject。 procedure calcuateClick(Sender: TObject)。 procedure ygmoveClick(Sender: TObject)。 // procedure txjhClick(Sender: TObject)。 // procedure ygxzbbClick(Sender: TObject)。 procedure N1Click(Sender: TObject)。 procedure ygxzbbClick(Sender: TObject)。 identify:string。 begin if((39。,mb_okcancel))=1 then 。確認退出系統(tǒng)嗎 ?39。 end。 then begin //:=false。用戶名稱 :39。+identify。 [1].Text:=39。級別 :39。 :=false。 end。 end。 procedure (Sender: TObject)。 procedure (Sender: TObject)。select * from panytb39。name39。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 end。 end。 :=false。 。 。 :=false。 begin shellexecute(handle,39。,nil,nil,sw_show)。 。 。 。 。 。 :=false。select * from employeer39。 while not eof do begin (fieldbyname(39。 //下移動符值 end。 begin frmrszhgl:=(self)。 :=false。yyyymmdd39。 (39。 first。 next。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 :=adoquery1。 :=39。 end。 end。 end。 end。 (39。 [39。 。39。39。++39。)。++39。 except MessageDlg(39。,mtError,[mbok],0)。 end。摩拉丁怒火上哪找去？地精雖然發(fā)明了可以炸開礦山的黑色粉未，可是我沒配方，也做不