员工工资管理系统设计报告

1、员工工资管理系统设计报告姓名：尹凯锋学号： 0810750114专业： 软件工程指导教师：李春林 TOC o 1-3 h z u HYPERLINK l _Toc295473780 【摘要】 PAGEREF _Toc295473780 h 3 HYPERLINK l _Toc295473781 第1章 概述 PAGEREF _Toc295473781 h 4 HYPERLINK l _Toc295473782 1.1 系统实现的目标 PAGEREF _Toc295473782 h 4 HYPERLINK l _Toc295473783 1.2 系统实现方案 PAGEREF _Toc295473

2、783 h 4 HYPERLINK l _Toc295473784 1.3 系统实现环境 PAGEREF _Toc295473784 h 4 HYPERLINK l _Toc295473785 PAGEREF _Toc295473785 h 5 HYPERLINK l _Toc295473786 第2章 系统设计 PAGEREF _Toc295473786 h 5 HYPERLINK l _Toc295473787 2.1 系统功能设计 PAGEREF _Toc295473787 h 5 HYPERLINK l _Toc295473788 第3章 系统实现 PAGEREF _Toc295473

3、788 h 10 HYPERLINK l _Toc295473789 .参考文献 PAGEREF _Toc295473789 h 18【摘要】借助现代信息技术和管理理论，建立企业管理信息系统是当今社会的重要趋势。党和政府根据知识经济时代的特点，对国民经济建设提出了“用信息化带动工业化”的指导思想。对企业而言，全面开发和应用计算机管理信息系统就是近期不能回避的问题。在企业管理中，人力资源是企业的宝贵资源，也是企业的“生命线”，因此人事管理是企业的计算机管理信息系统重要组成部分。而工资管理又是人力资源管理的重中之重。实行电子化的工资管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更

4、重要的工作。工资管理信息系统的实现可以减轻比较繁琐的手工工资管理。现在应用在大中型企业的信息管理系统中，几乎都包括了工资管理模块。有些环境中是有大型ERP软件中的一个模块引进的，有些作为企业的财务系统的一部分。这些根据规范的西方管理制度设计的工资管理软件，在很多时候还不能完成解决中国特色中小企业的问题，所以工资管理系统的设计在企业中有着重要的作用。 【关键词】DELPHI Access数据库；管理；管理信息系统第1章 概述 1.1 系统实现的目标 员工工资管理系统是一个方便管理员工信息的程序，它提供了对员工信息、工资信息、考勤信息的管理，用户通过菜单选项的选择实现员工数据的处理。它通过计算机来

5、达到对庞大的员工数据进行管理，实现了员工数据系统化、流程化和规范化的管理，方便了用户对员工生数据的管理，同时大大的提高了用户的工作效率。1.2 系统实现方案在该程序中包含实现各个功能的窗体，为了对程序的简单化，我将该程序拆分为员工基本信息管理、员工工资管理、考勤管理、用户管理，用户使用菜单栏、工具栏实现对员工数据的管理以及系统的设置。1.3 系统实现环境系统实现环境是：delphi .。Delphi是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal

6、”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。Delphi是Borland公司研制的新一代可视化开发工具，可在Windows3.x、Windows95、WindowsNT、WindowsXP、Windows Vista等环境下使用。

7、当前，DELPHI 也可以在LINUX平台上开发应用，其在LINUX上的对应产品Kylix。DELPHI 拥有一个可视化的集成开发环境(IDE)，采用面向对象的编程语言ObjectPascal和基于部件的开发结构框架。Delphi它提供了500多个可供使用的构件，利用这些部件，开发人员可以快速地构造出应用系统。开发人员也可以根据自己的需要修改部件或用Delphi本身编写自己的部件。“真正的程序员用c，聪明的程序员用Delphi”，这句话是对Delphi最经典、最实在的描述。Delphi被称 Delphi界面为第四代编程语言，它具有简单、高效、功能强大的特点。和VC相比，Delphi更简单、更易

8、于掌握，而在功能上却丝毫不逊色；和VB相比，Delphi则功能更强大、更实用。可以说Delphi同时兼备了VC功能强大和VB简单易学的特点。它一直是程序员至爱的编程工具。Delphi具有以下的特性：基于窗体和面向对象的方法，高速的编译器，强大的数据库支持，与Windows编程紧密结合，强大而成熟的组件技术。但最重要的还是Object Pascal语言，它才是一切的根本。 Object Pascal语言是在Pascal语言的基础上发展起来的，简单易学。Delphi提供了各种开发工具，包括集成环境、图像编辑（Image Editor），以及各种开发数据库的应用程序，如DesktopDataBase

9、 Expert等。除此之外，还允许用户挂接其它的应用程序开发工具，如Borland公司的资源编辑器（Resourse Workshop）。在Delphi众多的优势当中，它在数据库方面的特长显得尤为突出：适应于多种数据库结构，从客户机服务机模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段和提供大量的企业组件。Delphi发展至今，从Delphi、Delphi到现在的Delphi2007，不断添加和改进各种特性，功能越来越强大。Delphi开始添加了对IDE（集成开发环境）的很多改进新特性，扩展了数据库支持（ADO和InterBase数据库），带有Int

10、ernet支持的MIDAS改进版，TeamSouse版本控制工具，转换功能，框架概念以及很多的新组件与新特性。Delphi 6.0是Borland公司最新推出的一套无论是界面还是功能都近乎完美的应用程序开发工具。与以前的Delphi版本相比,Delphi 6.0使用更简便,效率也更高。第一、系统分析；第二、应用程序数据库设计；第三、结构设计；第四、编写程序；第五、测试程序；第六、组合并修改程序；第2章 系统设计2.1 系统功能设计员工工资管理系统员工工资管理系统系统设置员工信息管理员工工资管理 用户管理 工具栏 图片设置员工信息录入员工信息查询员工信息修改员工工资录入员工工资查询员工工资删除2

11、.2 数据库设计员工数据表：工资表考勤表用户表2.3 界面的设计登录界面主界面员工信息录入工资信息录入界面考勤管理界面第3章 系统实现源代码：unit Unit_main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, ExtCtrls, ImgList, StdCtrls, ExtDlgs;type TForm_main = class(TForm) MainMenu1: TMainMenu;

12、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; N20: TMenuItem; N21: TMenuItem; ToolBar1: TToolBar; ToolButton1: TT

13、oolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ImageList1: TImageList; StatusBar1: TStatusBar; Timer1: TTimer; Label1: TLabel; Label2: TLabel; N3: TMenuItem; N9: TMenuItem; N12: TMenuItem; N22: TMenuItem; ToolButton6: TToolButton; N

14、23: TMenuItem; N24: TMenuItem; N25: TMenuItem; N26: TMenuItem; N27: TMenuItem; N28: TMenuItem; N29: TMenuItem; Image1: TImage; N30: TMenuItem; OpenPictureDialog1: TOpenPictureDialog; procedure Timer1Timer(Sender: TObject); procedure N18Click(Sender: TObject); procedure N19Click(Sender: TObject); pro

15、cedure N20Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N21Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure N9Click(Sender: TObject); procedur

16、e N12Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N22Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click

17、(Sender: TObject); procedure ToolButton5Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure N23Click(Sender: TObject); procedure N24Click(Sender: TObject); procedure N25Click(Sender: TObject); procedure N26Click(Sender: TObject); procedure N27Click(Sender: TObject); proced

18、ure N28Click(Sender: TObject); procedure N29Click(Sender: TObject); procedure N30Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private Private declarations public Public declarations end;var Form_main: TForm_main;implemen

19、tationuses 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:=时间：+Timetostr(time);end;procedure TForm_main.N18Click(Sender: TObje

20、ct);beginForm_xz:= TForm_xz.Create(Application);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;end;procedure TForm_main.N20Click(Sender: TObject);beginForm_xz:= TForm_xz.Create(Appli

21、cation);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 TForm_main.N17Click(Sender: TObject);beginForm_gzcx:= TForm_gzcx.Create(Application);

22、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 TForm_main.N11Click(Sender: TObject);beginForm_yhgl:= TForm_yhgl.Create(Application);Fo

23、rm_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 TForm_main.N16Click(Sender: TObject);beginForm_gzgx:= TForm_gzgx.Create(Application);Form

24、_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_main.N12Click(Sender: TObject);beginForm_kqgl:= TForm_kqgl.Create(Application);Form_kq

25、gl.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_main.N22Click(Sender: TObject);beginForm_kqgl:= TForm_kqgl.Create(Application);Form_kqgl

26、.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.ToolButton1Click(Sender: TObject);beginForm_xz:= TForm_xz.Create(Application);Form_xz.ShowModa

27、l;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.ToolButton3Click(Sender: TObject);beginForm_kqgl:= TForm_kqgl.Create(Application);Form_kqg

28、l.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 TForm_main.ToolButton5Click(Sender: TObject);beginForm_yhgl:= TForm_yhgl.Create(Applica

29、tion);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 N23.Checked;Toolbutton1.Visible:=N23.Checked;Toolbar1.Width:=Toolbar1.ButtonCount*Too

30、lbar1.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_main.N25Click(Sender: TObject);beginN25.Checked:=not N25.Checked;Toolbutton3.Visible:=

31、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);beg

32、inN27.Checked:=not N27.Checked;Toolbutton5.Visible:=N27.Checked;Toolbar1.Width:=Toolbar1.ButtonCount*Toolbar1.ButtonWidth;end;procedure TForm_main.N28Click(Sender: TObject);beginN28.Checked:=not N28.Checked;Toolbutton6.Visible:=N28.Checked;Toolbar1.Width:=Toolbar1.ButtonCount*Toolbar1.ButtonWidth;en

33、d;procedure TForm_main.N29Click(Sender: TObject);beginN29.Checked:=not N29.Checked;Image1.Visible:=N29.Checked;end;procedure TForm_main.N30Click(Sender: TObject);beginif OpenPictureDialog1.Execute thenImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);end;procedure TForm_main.FormShow(Sender:

34、TObject);beginif form_dl.ADOQuery1.FieldByName(类型).AsString管理员 thenbeginForm_main.N1.Enabled:=false;Form_main.N2.Enabled:=false;Form_main.N3.Enabled:=false;Form_main.N11.Enabled:=false;Form_main.ToolButton1.Enabled:=false;Form_main.ToolButton2.Enabled:=false;Form_main.ToolButton3.Enabled:=false;Form

35、_main.ToolButton5.Enabled:=false;end;Form_main.StatusBar1.Panels0.Text:=当前角色：+form_dl.ADOQuery1.FieldByName(类型).AsString;end;procedure TForm_main.FormClose(Sender: TObject; var Action: TCloseAction);beginApplication.Terminate;end;end.参考文献1 王春红，出版物：delphi程序设计，出版社：清华大学出版社，日期：2006年10月下面是赠送的保安部制度范本，不需要的可以编辑删除!谢谢！保安部工作制度一、认真贯彻党的路线、方针