員工工資管理系統(tǒng)設(shè)計(jì)報(bào)告

1、員工工資管理系統(tǒng)設(shè)計(jì)報(bào)告姓名：尹凱鋒學(xué)號(hào)： 專(zhuān)業(yè)： 軟件工程指導(dǎo)教師：李春林 【摘要】3第1章 概述41.1 系統(tǒng)實(shí)現(xiàn)的目標(biāo)41.2 系統(tǒng)實(shí)現(xiàn)方案41.3 系統(tǒng)實(shí)現(xiàn)環(huán)境41.4具體的開(kāi)發(fā)方法5第2章 系統(tǒng)設(shè)計(jì)52.1 系統(tǒng)功能設(shè)計(jì)5第3章 系統(tǒng)實(shí)現(xiàn)10.參考文獻(xiàn)18【摘要】借助現(xiàn)代信息技術(shù)和管理理論，建立企業(yè)管理信息系統(tǒng)是當(dāng)今社會(huì)的重要趨勢(shì)。黨和政府根據(jù)知識(shí)經(jīng)濟(jì)時(shí)代的特點(diǎn)，對(duì)國(guó)民經(jīng)濟(jì)建設(shè)提出了“用信息化帶動(dòng)工業(yè)化”的指導(dǎo)思想。對(duì)企業(yè)而言，全面開(kāi)發(fā)和應(yīng)用計(jì)算機(jī)管理信息系統(tǒng)就是近期不能回避的問(wèn)題。在企業(yè)管理中，人力資源是企業(yè)的寶貴資源，也是企業(yè)的“生命線(xiàn)”，因此人事管理是企業(yè)的計(jì)算機(jī)管理信息系統(tǒng)重

2、要組成部分。而工資管理又是人力資源管理的重中之重。實(shí)行電子化的工資管理，可以讓人力資源管理人員從繁重瑣碎的案頭工作解脫出來(lái)，去完成更重要的工作。工資管理信息系統(tǒng)的實(shí)現(xiàn)可以減輕比較繁瑣的手工工資管理?，F(xiàn)在應(yīng)用在大中型企業(yè)的信息管理系統(tǒng)中，幾乎都包括了工資管理模塊。有些環(huán)境中是有大型ERP軟件中的一個(gè)模塊引進(jìn)的，有些作為企業(yè)的財(cái)務(wù)系統(tǒng)的一部分。這些根據(jù)規(guī)范的西方管理制度設(shè)計(jì)的工資管理軟件，在很多時(shí)候還不能完成解決中國(guó)特色中小企業(yè)的問(wèn)題，所以工資管理系統(tǒng)的設(shè)計(jì)在企業(yè)中有著重要的作用。 【關(guān)鍵詞】DELPHI Access數(shù)據(jù)庫(kù)；管理；管理信息系統(tǒng)第1章 概述 1.1 系統(tǒng)實(shí)現(xiàn)的目標(biāo) 員工工資管理系統(tǒng)

3、是一個(gè)方便管理員工信息的程序，它提供了對(duì)員工信息、工資信息、考勤信息的管理，用戶(hù)通過(guò)菜單選項(xiàng)的選擇實(shí)現(xiàn)員工數(shù)據(jù)的處理。它通過(guò)計(jì)算機(jī)來(lái)達(dá)到對(duì)龐大的員工數(shù)據(jù)進(jìn)行管理，實(shí)現(xiàn)了員工數(shù)據(jù)系統(tǒng)化、流程化和規(guī)范化的管理，方便了用戶(hù)對(duì)員工生數(shù)據(jù)的管理，同時(shí)大大的提高了用戶(hù)的工作效率。1.2 系統(tǒng)實(shí)現(xiàn)方案在該程序中包含實(shí)現(xiàn)各個(gè)功能的窗體，為了對(duì)程序的簡(jiǎn)單化，我將該程序拆分為員工基本信息管理、員工工資管理、考勤管理、用戶(hù)管理，用戶(hù)使用菜單欄、工具欄實(shí)現(xiàn)對(duì)員工數(shù)據(jù)的管理以及系統(tǒng)的設(shè)置。1.3 系統(tǒng)實(shí)現(xiàn)環(huán)境系統(tǒng)實(shí)現(xiàn)環(huán)境是：delphi .。Delphi是Windows平臺(tái)下著名的快速應(yīng)用程序開(kāi)發(fā)工具(Rapid Ap

4、plication Development，簡(jiǎn)稱(chēng)RAD)。它的前身，即是DOS時(shí)代盛行一時(shí)的“BorlandTurbo Pascal”，最早的版本由美國(guó)Borland（寶蘭）公司于1995年開(kāi)發(fā)。主創(chuàng)者為Anders Hejlsberg。經(jīng)過(guò)數(shù)年的發(fā)展，此產(chǎn)品也轉(zhuǎn)移至Embarcadero公司旗下。Delphi是一個(gè)集成開(kāi)發(fā)環(huán)境（IDE），使用的核心是由傳統(tǒng)Pascal語(yǔ)言發(fā)展而來(lái)的Object Pascal，以圖形用戶(hù)界面為開(kāi)發(fā)環(huán)境，透過(guò)IDE、VCL工具與編譯器，配合連結(jié)數(shù)據(jù)庫(kù)的功能，構(gòu)成一個(gè)以面向?qū)ο蟪绦蛟O(shè)計(jì)為中心的應(yīng)用程序開(kāi)發(fā)工具。Delphi是Borland公司研制的新一代可視化開(kāi)發(fā)

5、工具，可在Windows3.x、Windows95、WindowsNT、WindowsXP、Windows Vista等環(huán)境下使用。當(dāng)前，DELPHI 也可以在LINUX平臺(tái)上開(kāi)發(fā)應(yīng)用，其在LINUX上的對(duì)應(yīng)產(chǎn)品Kylix。DELPHI 擁有一個(gè)可視化的集成開(kāi)發(fā)環(huán)境(IDE)，采用面向?qū)ο蟮木幊陶Z(yǔ)言O(shè)bjectPascal和基于部件的開(kāi)發(fā)結(jié)構(gòu)框架。Delphi它提供了500多個(gè)可供使用的構(gòu)件，利用這些部件，開(kāi)發(fā)人員可以快速地構(gòu)造出應(yīng)用系統(tǒng)。開(kāi)發(fā)人員也可以根據(jù)自己的需要修改部件或用Delphi本身編寫(xiě)自己的部件?！罢嬲某绦騿T用c，聰明的程序員用Delphi”，這句話(huà)是對(duì)Delphi最經(jīng)典、最實(shí)

6、在的描述。Delphi被稱(chēng) Delphi界面為第四代編程語(yǔ)言，它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。和VC相比，Delphi更簡(jiǎn)單、更易于掌握，而在功能上卻絲毫不遜色；和VB相比，Delphi則功能更強(qiáng)大、更實(shí)用?？梢哉f(shuō)Delphi同時(shí)兼?zhèn)淞薞C功能強(qiáng)大和VB簡(jiǎn)單易學(xué)的特點(diǎn)。它一直是程序員至愛(ài)的編程工具。Delphi具有以下的特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，強(qiáng)大的數(shù)據(jù)庫(kù)支持，與Windows編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。但最重要的還是Object Pascal語(yǔ)言，它才是一切的根本。 Object Pascal語(yǔ)言是在Pascal語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，簡(jiǎn)單易學(xué)。Delphi提

7、供了各種開(kāi)發(fā)工具，包括集成環(huán)境、圖像編輯（Image Editor），以及各種開(kāi)發(fā)數(shù)據(jù)庫(kù)的應(yīng)用程序，如DesktopDataBase Expert等。除此之外，還允許用戶(hù)掛接其它的應(yīng)用程序開(kāi)發(fā)工具，如Borland公司的資源編輯器（Resourse Workshop）。在Delphi眾多的優(yōu)勢(shì)當(dāng)中，它在數(shù)據(jù)庫(kù)方面的特長(zhǎng)顯得尤為突出：適應(yīng)于多種數(shù)據(jù)庫(kù)結(jié)構(gòu)，從客戶(hù)機(jī)服務(wù)機(jī)模式到多層數(shù)據(jù)結(jié)構(gòu)模式；高效率的數(shù)據(jù)庫(kù)管理系統(tǒng)和新一代更先進(jìn)的數(shù)據(jù)庫(kù)引擎；最新的數(shù)據(jù)分析手段和提供大量的企業(yè)組件。Delphi發(fā)展至今，從Delphi、Delphi到現(xiàn)在的Delphi2007，不斷添加和改進(jìn)各種特性，功能越來(lái)越強(qiáng)

8、大。Delphi開(kāi)始添加了對(duì)IDE（集成開(kāi)發(fā)環(huán)境）的很多改進(jìn)新特性，擴(kuò)展了數(shù)據(jù)庫(kù)支持（ADO和InterBase數(shù)據(jù)庫(kù)），帶有Internet支持的MIDAS改進(jìn)版，TeamSouse版本控制工具，轉(zhuǎn)換功能，框架概念以及很多的新組件與新特性。Delphi 6.0是Borland公司最新推出的一套無(wú)論是界面還是功能都近乎完美的應(yīng)用程序開(kāi)發(fā)工具。與以前的Delphi版本相比,Delphi 6.0使用更簡(jiǎn)便,效率也更高。1.4具體的開(kāi)發(fā)方法第一、系統(tǒng)分析；第二、應(yīng)用程序數(shù)據(jù)庫(kù)設(shè)計(jì)；第三、結(jié)構(gòu)設(shè)計(jì)；第四、編寫(xiě)程序；第五、測(cè)試程序；第六、組合并修改程序；第2章 系統(tǒng)設(shè)計(jì)2.1 系統(tǒng)功能設(shè)計(jì)員工工資管理系

9、統(tǒng)系統(tǒng)設(shè)置員工信息管理員工工資管理 用戶(hù)管理 工具欄 圖片設(shè)置員工信息錄入員工信息查詢(xún)員工信息修改員工工資錄入員工工資查詢(xún)員工工資刪除2.2 數(shù)據(jù)庫(kù)設(shè)計(jì)員工數(shù)據(jù)表：工資表考勤表用戶(hù)表2.3 界面的設(shè)計(jì)登錄界面主界面員工信息錄入工資信息錄入界面考勤管理界面第3章 系統(tǒng)實(shí)現(xiàn)源代碼：unit Unit_main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, ExtCtrls, ImgList, Std

10、Ctrls, ExtDlgs;type TForm_main = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N10: TMenuItem; N11: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem;

11、 N20: TMenuItem; N21: TMenuItem; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ImageList1: TImageList; StatusBar1: TStatusBar; Timer1: TTimer; Label1: TLabel; Label2: TLabel; N3: TMenuItem; N9: TM

12、enuItem; N12: TMenuItem; N22: TMenuItem; ToolButton6: TToolButton; N23: TMenuItem; N24: TMenuItem; N25: TMenuItem; N26: TMenuItem; N27: TMenuItem; N28: TMenuItem; N29: TMenuItem; Image1: TImage; N30: TMenuItem; OpenPictureDialog1: TOpenPictureDialog; procedure Timer1Timer(Sender: TObject); procedure

13、 N18Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure N20Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N21Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure N16

14、Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N22Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); pro

15、cedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure N23Click(Sender: TObject); procedure N24Click(Sender: TObject); procedure N25Click(Sender: TObject); procedure N2

16、6Click(Sender: TObject); procedure N27Click(Sender: TObject); procedure N28Click(Sender: TObject); procedure N29Click(Sender: TObject); procedure N30Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private Private declaratio

17、ns public Public declarations end;var Form_main: TForm_main;implementationuses Unit_ygsjgx, Unit_gzgx, Unit_gzcx, Unit_yhgl, Unit_denglu, Unit_kqgl, Unit_xz, Unit_kqgx;$R *.dfmprocedure TForm_main.Timer1Timer(Sender: TObject);beginStatusBar1.Panels1.Text:=日期：+Datetostr(date);StatusBar1.Panels2.Text:

18、=時(shí)間：+Timetostr(time);end;procedure TForm_main.N18Click(Sender: TObject);beginForm_xz:= TForm_xz.Create(Application);Form_xz.ShowModal;Form_xz.Free;Form_xz:=nil;end;procedure TForm_main.N19Click(Sender: TObject);beginForm_xz:= TForm_xz.Create(Application);Form_xz.ShowModal;Form_xz.Free;Form_xz:=nil;e

19、nd;procedure TForm_main.N20Click(Sender: TObject);beginForm_xz:= TForm_xz.Create(Application);Form_xz.ShowModal;Form_xz.Free;Form_xz:=nil;end;procedure TForm_main.N14Click(Sender: TObject);beginForm_gzgx:= TForm_gzgx.Create(Application);Form_gzgx.ShowModal;Form_gzgx.Free;Form_gzgx:=nil;end;procedure

20、 TForm_main.N17Click(Sender: TObject);beginForm_gzcx:= TForm_gzcx.Create(Application);Form_gzcx.ShowModal;Form_gzcx.Free;Form_gzcx:=nil;end;procedure TForm_main.N21Click(Sender: TObject);beginForm_xxcx:= TForm_xxcx.Create(Application);Form_xxcx.ShowModal;Form_xxcx.Free;Form_xxcx:=nil;end;procedure T

21、Form_main.N11Click(Sender: TObject);beginForm_yhgl:= TForm_yhgl.Create(Application);Form_yhgl.ShowModal;Form_yhgl.Free;Form_yhgl:=nil;end;procedure TForm_main.N15Click(Sender: TObject);beginForm_gzgx:= TForm_gzgx.Create(Application);Form_gzgx.ShowModal;Form_gzgx.Free;Form_gzgx:=nil;end;procedure TFo

22、rm_main.N16Click(Sender: TObject);beginForm_gzgx:= TForm_gzgx.Create(Application);Form_gzgx.ShowModal;Form_gzgx.Free;Form_gzgx:=nil;end;procedure TForm_main.N9Click(Sender: TObject);beginForm_kqgl:= TForm_kqgl.Create(Application);Form_kqgl.ShowModal;Form_kqgl.Free;Form_kqgl:=nil;end;procedure TForm_

23、main.N12Click(Sender: TObject);beginForm_kqgl:= TForm_kqgl.Create(Application);Form_kqgl.ShowModal;Form_kqgl.Free;Form_kqgl:=nil;end;procedure TForm_main.N13Click(Sender: TObject);beginForm_kqgl:= TForm_kqgl.Create(Application);Form_kqgl.ShowModal;Form_kqgl.Free;Form_kqgl:=nil;end;procedure TForm_ma

24、in.N22Click(Sender: TObject);beginForm_kqgl:= TForm_kqgl.Create(Application);Form_kqgl.ShowModal;Form_kqgl.Free;Form_kqgl:=nil;end;procedure TForm_main.N8Click(Sender: TObject);beginN8.Checked:=not N8.Checked;Statusbar1.Visible:=N8.Checked;Timer1.Enabled:=N8.Checked;end;procedure TForm_main.ToolButt

25、on1Click(Sender: TObject);beginForm_xz:= TForm_xz.Create(Application);Form_xz.ShowModal;Form_xz.Free;Form_xz:=nil;end;procedure TForm_main.ToolButton2Click(Sender: TObject);beginForm_gzgx:= TForm_gzgx.Create(Application);Form_gzgx.ShowModal;Form_gzgx.Free;Form_gzgx:=nil;end;procedure TForm_main.Tool

26、Button3Click(Sender: TObject);beginForm_kqgl:= TForm_kqgl.Create(Application);Form_kqgl.ShowModal;Form_kqgl.Free;Form_kqgl:=nil;end;procedure TForm_main.ToolButton4Click(Sender: TObject);beginForm_xxcx:= TForm_xxcx.Create(Application);Form_xxcx.ShowModal;Form_xxcx.Free;Form_xxcx:=nil;end;procedure T

27、Form_main.ToolButton5Click(Sender: TObject);beginForm_yhgl:= TForm_yhgl.Create(Application);Form_yhgl.ShowModal;Form_yhgl.Free;Form_yhgl:=nil;end;procedure TForm_main.ToolButton6Click(Sender: TObject);beginApplication.Terminate;end;procedure TForm_main.N23Click(Sender: TObject);beginN23.Checked:=not

28、 N23.Checked;Toolbutton1.Visible:=N23.Checked;Toolbar1.Width:=Toolbar1.ButtonCount*Toolbar1.ButtonWidth;end;procedure TForm_main.N24Click(Sender: TObject);beginN24.Checked:=not N24.Checked;Toolbutton2.Visible:=N24.Checked;Toolbar1.Width:=Toolbar1.ButtonCount*Toolbar1.ButtonWidth;end;procedure TForm_

29、main.N25Click(Sender: TObject);beginN25.Checked:=not N25.Checked;Toolbutton3.Visible:=N25.Checked;Toolbar1.Width:=Toolbar1.ButtonCount*Toolbar1.ButtonWidth;end;procedure TForm_main.N26Click(Sender: TObject);beginN26.Checked:=not N26.Checked;Toolbutton4.Visible:=N26.Checked;Toolbar1.Width:=Toolbar1.ButtonCount*Toolbar1.ButtonWidth;end;procedure TForm_main.N27Click(Sender: TObject);beginN27.Checked:=not N27.Checked;Toolbutton5.Visible:=N27.Checked;Toolbar1.Width:=Toolbar1.ButtonCount*Toolbar1.ButtonWidth;end;procedure TForm_main.N28Click(Sender: TObject);beginN28.Check