ERP工资管理系统

1、编 号： 审定成绩： 先锋软件学院2011届毕业论文题目： ERP工资管理系统 分 院： 软件工程分院 学生姓名： 专 业： 计算机应用技术 班 级： 学 号： 指导教师： 填表时间： 年 月先锋软件学院学生毕业设计（论文）工作自查表（2010 年 10 月- 2011 年 4 月检查）学生姓名专业学号导师姓名职称教师导师每周指导次数5每次： 3 小时题目名称ERP工资管理系统作息时间上午9时 12 时下午14时 17 时晚间19时 21 时个人精力实际投入日均工作小时8周均工作小时40缺席天数0出勤率%100毕业设计（论文）工作进度已完成主要内容%待完成主要内容%2010年11月初开始收集资

2、料，工具的选择；2011年1月初开始论文的编写，排版。图表的添加，删除等操作；2011年1月中旬完成论文，发表总结，修改不足之处等结尾工作。95加入图片，表格页面的美工，论文的批改，页眉页脚，字体文表等各方面不足之处的修改和完善论文。5存在问题工作措施主要是各个功能块的连接方式还存在问题，待老师帮助解决后，有了初步的解决构思。指导教师（签字）： 日期： 年 月 日先锋软件学院毕业论文评阅表（指导教师、评阅人用）论文（设计）名称ERP工资管理系统学生姓名学号200800004985指导教师或评阅人）姓名序号评审项目指标满分评分1论文（设计）完成量论文（设计）内容完成量，难易程度符合教学基本要求2

3、02调查与综合根据论文（设计）任务，能独立查阅文献资料和从事其它有关调研。有收集、综合和正确利用各种信息的能力。203论文（设计）质量文章切合选题，材料丰富、内容充实，观点明确、论据充分、论证严格，构思完整、层次分明、段落、论题间的衔接自然、舒展。文笔流畅、语言通顺、使用专业术语准确，图表清楚，符合要求。504创新有独特的见解，或有一定应用价值10总分评语：（明确指出论文（设计）的调研论证材料收集是否适合论点要求、创新点、论文（设计）论证能力、写作水平，同时要明确指出论文（设计）的不足之处及改进方向。）评阅人： 年 月 日摘 要 摘要：随着Internet技术的发展，人们的日常生活已经离不开网

4、络。未来社会人们的生活和工作将越来越依赖于数字技术的发展，越来越数字化点、网络化、电子化、虚拟化。电子商务也会随着网络的发展日益贴近人们的生活。Internet目前的发展趋势以及应用状况,可以充分的相信网络技术,极大的改善我们的生活方式和工作方式。本设计尝试使用Delphi开发一个属于本公司的员工的工资管理系统，以使得整个公司上下很好的管理每一位员工每月的工资发放和统计。关键词： Internet RAD Delphi电子商务 数据库AbstractAbstract: Summary along with the development of Internet tschnology, dail

5、y life can not already do without the network. The life and work of the social people of future will depend on the development of digital technology more and more, Digitize more and more, the networking, electronization, virtual, E-commerce presses close to peoples life day by day along with the dev

6、elopment of network too.Development course and present application state and development trend of Internet, can believe network technology great change life and working way of us fully, even a certain change will take place in the values of the society.This design tries to use Delphi to develop a co

7、mpany is employees Belong to the Salary Management System,To make the whole well managedAcross the company every employee payroll and monthly statistica.Keyword：Internet RAD Delphi E-commerce Database.目录HYPERLINK l _Toc264651921前言 PAGEREF _Toc264651921 h 1HYPERLINK l _Toc2646519221系统概况 PAGEREF _Toc2

8、64651922 h 21.1系统开发背景 HYPERLINK l _Toc258941506 PAGEREF _Toc258941506 h 21.2系统开发目的 HYPERLINK l _Toc258941506 PAGEREF _Toc258941506 h 2HYPERLINK l _Toc2646519251.3系统平台选用 HYPERLINK l _Toc258941506 PAGEREF _Toc258941506 h 2HYPERLINK l _Toc2646519261.3.1数据库技术的现状与发展3HYPERLINK l _Toc2646519271.3.2数据库系统的选择

9、原则4HYPERLINK l _Toc2646519281.3.3系统开发工具的选择4HYPERLINK l _Toc2646519292需求分析 PAGEREF _Toc264651929 h 7HYPERLINK l _Toc2646519302.1需求陈述 HYPERLINK l _Toc258941506 7HYPERLINK l _Toc2646519312.2可行性分析 HYPERLINK l _Toc258941506 7HYPERLINK l _Toc2646519322.2.1技术可行性7HYPERLINK l _Toc2646519332.2.2时间、设备可行性 PAGER

10、EF _Toc264651933 h 7HYPERLINK l _Toc2646519342.2.3经济可行性 PAGEREF _Toc264651934 h 8HYPERLINK l _Toc2646519353概要设计 PAGEREF _Toc264651935 h 93.1系统功能结构设计9 HYPERLINK l _Toc258941506 3.2数据库设计9 HYPERLINK l _Toc258941506 HYPERLINK l _Toc2646519383.2.1数据库逻辑结构 PAGEREF _Toc264651938 h 10HYPERLINK l _Toc26465193

11、93.2.2 数据库E-R图 PAGEREF _Toc264651939 h 12HYPERLINK l _Toc2646519403.2.3 Oracle数据库的使用 PAGEREF _Toc264651940 h 13HYPERLINK l _Toc2646519414详细设计 PAGEREF _Toc264651941 h 144.1主界面设计14HYPERLINK l _Toc2646519434.2基本信息管理模块 PAGEREF _Toc264651943 h 15HYPERLINK l _Toc2646519444.3工资数据模块 PAGEREF _Toc264651944 h

12、24HYPERLINK l _Toc2646519454.4当月报表模块 PAGEREF _Toc264651945 h 35HYPERLINK l _Toc2646519464.5历史数据模块 PAGEREF _Toc264651946 h 37HYPERLINK l _Toc2646519485系统性能测试与分析 PAGEREF _Toc264651948 h 42HYPERLINK l _Toc2646519505.2测试方法 PAGEREF _Toc264651950 h 42HYPERLINK l _Toc2646519515.3测试报告 PAGEREF _Toc264651951

13、h 42HYPERLINK l _Toc264651952总 结 PAGEREF _Toc264651952 h 44HYPERLINK l _Toc264651953致 谢 PAGEREF _Toc264651953 h 45HYPERLINK l _Toc264651953参考文献 PAGEREF _Toc264651953 h 46前言上世纪八、九十年代以来，计算机产业飞速发展，其应用渗透在社会生产的各个领域。计算机在国内的崛起加速了各企事业单位、机关的自动化进程，提高了国民生产的效率，从而为国民经济的飞速发展创造了必要的条件。步入21世纪以来，计算机更是以惊人的普及速度，进入各行各业和

14、大部分家庭。各种应用的需求也不断增加，人们更加追求生活的品质和工作的效率，企业更是视提高生产效率为生存和发展之道，于是通过科技手段提高生产和管理效率自然成为竞争和发展的焦点。这不仅包括如何实现企业生产设备的改进和生产技术的提高还包括如何有效地组织和管理企业各项事务，实现企业的办公自动化。而管理信息系统（Management Information System, MIS）在办公自动化的进程中发挥着重要的作用。市场需求也日益增加。大型企业的分工比较严格、细致，组织较为紧密，对软硬件的要求也就比较高，因此试图以一款软件来解决企业的所有问题显然是不可能的，这就需要我们细化事务，有针对性地开发纵向应用

15、广泛的MIS系统。不仅能够解决大型企业和机构的某方面问题，还应该能为更多的中、小型企业利用，提高他们的工作效率，加速企业的发展，从而促进国民经济的建设。财务是每一个单位都会涉及的问题，管理软件雨后春笋般崛起的今天，企业不仅需要通过软件有效地对其实施管理，还想操作能够尽可能简单，软件易于上手。通过查阅相关资料，对市场需求进行分析，对既成工资管理软件的研究和测试，我们认为本课题是一个适应现今工资管理需求的计算机信息管理系统，具有一定的现实意义和开发使用价值。1.系统概况1.1系统开发背景自20世纪80年代以来，知识经济的兴起和信息技术的日新月异消除了人与人之间知识、信息传递的障碍，也带来了人类经营

16、意识、管理观念的巨大改变。21世纪是一个经济时代，经济竞争说到底是人才的竞争，谁拥有了人才，谁就将最终拥有财富。通过工资人事管理可以获得并维持组织的竞争优势，人作为公司最重要的资产，如何用好人才，为每个人找到合适的岗位去发挥其特长是用人的关键环节。而运用先进科技手段进行有效管理是最好的发展方向。MIS作为提高管理效率和办公自动化进程的重要工具，已深入到国民生产的方方面面。我们更加需要开发适应不同行业不同需求的MIS系统。1.2系统开发目的本系统开发的主要目的就是要使企事业单位工资管理实现计算机管理，使管理员能够有序地管理每一位职工的各项工资条款的发放以及员工个人台帐的生成，使企业运用现代化技术

17、创造更多更高的经济效益。1.3系统平台选用1.3.1数据库技术的现状与发展数据库是60年代末出现的一门计算机软件技术，到现在虽然只有三十多年的历史，但在理论和时间上都得到了和很大的发展。现在，数据库是数据处理的主要工具，是管理信息系统(MIS)的核心部分。数据库系统是当今计算机信息系统的核心,是计算机技术和应用发展的关键。传统的数据库系统旨在处理永久、稳定的数据，强调维护数据的完整性、一致性。数据库理论与技术的发展极其迅速，其应用日益广泛，在当今的信息社会中，它几乎无所不在。以关系型为代表的三大经典（层次、网状、关系）型数据库在传统的（商务和管理的事务型）应用领域获得了极大成功。计算机世界报社

18、与IBM公司联合举办了21世纪数据库技术发展专家研讨会。IBM DB2的创始人Donald Haderle先生与国内著名数据库专家,就下世纪数据库发展的趋势、数据库领域革命性的突破、IBM DB2的应用、数据仓库的实施、我国数据库技术和应用的现状及趋势、我国数据库用户的需求等问题,进行了广泛而深入的讨论。1.3.2数据库系统的选择原则 = 1 * GB3 数据库系统采用易于集成的，开放的技术。 = 2 * GB3 产品质量优异，可靠性高，适于长期运行，能支持关键应用。 = 3 * GB3 数据安全，保安型高。 = 4 * GB3 能提供分布式数据库功能。 = 5 * GB3 支持多种开发环境，

19、软件开发容易。 = 6 * GB3 扩充性和升级能力强。1.3.3系统开发工具的选择本次工资管理系统选用Delphi与Oracle11g进行开发，现在市场上有很多MIS的开发工具，如：Visual basic、Delphi、ASP等等，数据库开发工具又有很多种，如：Access，SQL Sever，Oracle等等。与其他开发工具相比，Delphi与Oracle有着自己的特点与优势。 = 1 * GB2 Delphi简介Delphi，是Windows平台下著名的快速应用程序开发工具（Rapid Application Development，简称RAD）。它的前身，即是DOS时代盛行一时的“B

20、orland Turbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。从产品名称上就可以知道，Turbo Pascal使用的是Pascal语言。从Turbo Pascal 5.5版开始，Borland公司在传统Pascal的基础上加入了面向对象的功能。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面（Graphical User Interface，简称GUI）为开发环境，透过ID

21、E、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。Delphi所编译的可运行档，虽然容量较大，但效能上却比较快。除了使用数据库的程序之外，不需安装即可运行，在使用上相当方便。Delphi在本质上应该归类为软件开发工具，而非程序语言，但由于Delphi几乎是目前市场上唯一使用Pascal，并持续推出新版本的商业产品。因此，有时人们会把Delphi视为Object Pascal的代名词。Borland公司因而把Object Pascal改称为Delphi。2006年，Borland把开发工具产品线独立出来，成立了一家新的公司CodeGear，并把产品

22、线交由此公司负责。原本的Delphi，亦曾一度因此被命名为Turbo Delphi。但是在新的版本中，除了Delphi for Win32（原有的Delphi版本）之外，还有一个新产品“Delphi for PHP”。在CodeGear的发展规划中，或许“Delphi”不再是Object Pascal的专属IDE名称，而是将之提升到通用IDE品牌的层次。2008年5月7日，Embarcadero Technologies（易博龙）公司宣布以2300万美元的价格收购CodeGear公司，从而把Delphi收入囊中。2009年5月6日，Micro Focus宣布以7500万美元收购Borland。

23、Delphi目前的最新版本是2010。Delphi具有如下特点： = 1 * GB3 直接编译生成可执行代码，编译速度快。由于Delphi编译器采用了条件编译和选择链接技术，使用它生成的执行文件更加精炼，运行速度更快。在处理速度和存取服务器方面，Delphi的性能远远高于其他同类产品。 = 2 * GB3 支持将存取规则分别交给客户机或服务器处理的两种方案，而且允许开发人员建立一个简单的部件或部件集合，封装起所有的规则，并独立于服务器和客户机，所有的数据转移通过这些部件来完成。这样，大大减少了对服务器的请求和网络上的数据传输量，提高了应用处理的速度。 = 3 * GB3 提供了许多快速方便的开

24、发方法，使开发人员能用尽可能少的重复性工作完成各种不同的应用。利用项目模板和专家生成器可以很快建立项目的构架，然后根据用户的实际需要逐步完善。 = 4 * GB3 具有可重用性和可扩展性。开发人员不必再对诸如标签、按钮及对话框等Windows的常见部件进行编程。Delphi包含许多可以重复使用的部件，允许用户控制Windows的开发效果。 = 5 * GB3 具有强大的数据存取功能。它的数据处理工具BDE(BorlandDatabaseEngine)是一个标准的中介软件层，可以用来处理当前流行的数据格式，如xBase、Paradox等，也可以通过BDE的SQLLink直接与Sybase、SQL

25、Server、Informix、Oracle等大型数据库连接。 Delphi既可用于开发系统软件，也适合于应用软件的开发。 = 6 * GB3 拥有强大的网络开发能力，能够快速的开发B/S应用，它内置的IntraWeb和ExpressWeb使得对于网络的开发效率超过了其他任何的开发工具。 = 7 * GB3 Delphi使用独特的VCL类库，使得编写出的程序显得条理清晰，VCL是现在最优秀的类库，它使得Delphi在软件开发行业处于一个绝对领先的地位。用户可以按自己的需要，任意的构建、扩充、甚至是删减VCL，以满足不同的需要。 = 8 * GB3 从Delphi8开始Delphi也支持.Net

26、框架下程序开发。 当前DELPHI 已经成为一个品牌，而不仅仅是一个开发平台或开发语言的名称。 当前DELPHI产品已经由CodeGear公司继续发展，该公司是BORLAND公司的全资子公司。当前，CodeGear为广大开发者提供了DELPHI FOR PHP，以高度可视化的方式全面支持面向对象的PHP 网站开发，大大提高了PHP开发网站的代码复用程度，成为WEB应用开发的新利器。 = 2 * GB2 Oracle简介Oracle的关系数据库是世界第一个支持SQL语言的数据库。1977年，Lawrence J.Ellison领着一些同事成立了Oracle公司，他们的成功强力反击了那些说关系数据

27、库无法成功商业化的说法。现在，Oracle公司的财产净值已经由当初的2000美元增值到了现在的年收入超过97亿美元。Oracle 11g 扩展了 Oracle 独家具有的提供网格计算优势的功能，可以利用它来提高用户服务水平、减少停机时间以及更加有效地利用 IT资源，同时还可以增强全天候业务应用程序的性能、可伸缩性和安全性。11 g降低了数据库升级以及其他硬件和操作系统更改的成本，显著简化了更改前后的系统测试以便您可以识别和解决问题。例如： 利用 Database Replay，可以在数据库级别轻松捕获实际的生产负载并在您的测试系统上重新播放，这样您可以全面测试系统更改（包括关键的并发特性）的影

28、响。 Oracle 数据库 11 g继续致力于（从 Oracle9i数据库开始一直到 Oracle 数据库10 g）显著简化和完全自动化 DBA 任务。 Oracle数据库11 g中的新功能包括： 利用自学功能自动进行 SQL 优化系统全局区(SGA)和程序全局区( PGA)的内存缓存区的自动、统一调整新的 advisor用于分区、数据恢复、流性能和空间管理针对自动数据库诊断监视器 (ADDM)的增强，能够提供 Oracle 真正应用集群 (Oracle RAC)环境中的更好的性能全局视图以及改进的性能比较分析功能。Oracle 数据库 11 g中新增的故障诊断功能使客户在发生错误后捕获 Or

29、acleSupport所需的数据变得极为简单。这可以加速问题的解决，减少客户重现问题的需要。 = 3 * GB2 Delphi 和 Oracle 数据库的连接方法Oracle是以高级结构化查询语言(SQL)为基础的大型关系数据库，是目前最流行的客户/服务器(CLIENT/SERVER)体系结构的数据库之一，目前被广泛应用于各类型企业的信息化管理中。数据库支持是Delphi7.0开发环境的一个重要特性，很多程序员在数据库应用程序开发中都采用Delphi7.0作为开发工具，来实现对数据库的访问和控制。Delphi数据库应用程序是通过数据库引擎来访问它们引用的数据源的。本文概括性的介绍在Window

30、s XP环境中Delphi7.0连接Oracle数据库的3种方式，它们分别是BDE、ADO、DbExpress。ADO(ActiveX Data Objects)是Microsoft的高级接口，基于Microsoft的数据访问OLEDB技术而实现。本系统采用ADO方式连接Oracle数据库。2.需求分析2.1需求陈述本系统拟在完成工资管理的同时，集成其他必要的功能，以保证系统的完整性和安全性。具体包括，员工基本信息管理、部门管理、当前工资及历史工资管理等。现对有关要求描述如下：整体结构合理，风格一致，模块化结构，界面清晰，接口灵活，操作简便。开发方法，文档规范化，便于管理，可扩充。完善的数据输

31、入，维护，输出。自检性能高，用户误输、错输均有提示。容错性能高，某个用户的操作错误不会引起整个系统的瘫痪，每一功能的操作都有信息提示以免重复操作，错误操作有警告，以便用户及时改正。2.2可行性分析2.2.1技术可行性技术上的可行性分析主要分析现有技术条件能否顺利完成开发工作，软硬件配置能否满足开发者需要等，这一特点非常适合计算机的特点，发挥计算机的数据处理速度快，准确率高的优势，现代计算机硬件和软件技术的飞速发展，为系统的建设提供了技术条件。通过对Delphi和Oracle的系统学习，已经基本掌握了开发本系统所需的技术和查阅文献的能力。对工资管理系统这一类的财务系统开发也有一定的认识，因此具备

32、技术可行性。2.2.2时间、设备可行性5周的时间足够开发一个满足中小型企业简单需求的工资管理系统，现有计算机的软硬件配置能够满足系统开发的要求，具备时间和设备的可行性。2.2.3经济可行性基于企业的现有计算机及配套设备，建设MIS系统。不但能大大减少重复性的书面报告，降低办公费用，提高办公室效率，而且能提高检测数据效用，为企业提供很方便。由于企业工资管理系统是一个比较小型的系统，开发工具也均可免费使用，网络资源丰富，只需较少的花费在技术文献上，开发成本较低，因此，开发本系统具有经济上的可行性。3.概要设计3.1系统功能结构设计工资管理系统数据字典维护工资数据当月报表历史数据系统信息部门信息管理

33、员工信息管理基本数据每月填报每月存档当月报表当月汇总部门月报月汇总表图3.1 功能模块图功能序号功能名称功能说明1部门信息管理包含对部门信息的增加、删除2员工信息管理包含对员工信息的增加、删除3基本工资数据查看和修改基本工资信息4活动工资数据填报每月活动工资数据5每月工资存档每月工资填报完毕后存储数据6当月报表查看当月各部门工资表，打印工资条7当月汇总表查询当月各部门工资汇总信息8历史部门月报查询历史年月的部门工资信息9历史月汇总表查询指定部门制定年月的历史工资汇总信息10系统信息系统与作者信息等 表3.1功能说明表 设计角色：财务管理人员3.2数据库设计3.2.1数据库逻辑结构字段名称类型宽

34、度约束说明BhVARCHAR23Pk部门编号McVARCHAR210部门名称表3.2 部门信息表（bm）字段名称类型宽度约束说明BmVARCHAR210部门BhVARCHAR23编号XmVARCHAR210姓名Z1NUMBER(8,2)岗位资Z2NUMBER(8,2)基本资Z3NUMBER(8,2)效益资J1NUMBER(8,2)加班J2NUMBER(8,2)金额J3NUMBER(8,2)夜班J4NUMBER(8,2)金额Z4NUMBER(8,2)独子Z5NUMBER(8,2)月效资Z6NUMBER(8,2)技师补Z7NUMBER(8,2)医务补Z8NUMBER(8,2)护10%Z9NUMBE

35、R(8,2)护龄Z10NUMBER(8,2)女工卫Z11NUMBER(8,2)厂扣Z12NUMBER(8,2)应得资K1NUMBER(8,2)房租金K2NUMBER(8,2)水电暖K3NUMBER(8,2)公积金Z13NUMBER(8,2)保险RqVARCHAR2200日期KbxNUMBER(8,2)实发工资表3.3 职工工资信息表（ry）字段名称类型宽度约束说明BmVARCHAR21部门BhVARCHAR23编号XmVARCHAR210姓名Z1NUMBER(8,2)岗位资Z2NUMBER(8,2)基本资Z3NUMBER(8,2)效益资J1NUMBER(8,2)加班J2NUMBER(8,2)金

36、额J3NUMBER(8,2)夜班J4NUMBER(8,2)金额Z4NUMBER(8,2)独子Z5NUMBER(8,2)月效资Z6NUMBER(8,2)技师补Z7NUMBER(8,2)医务补Z8NUMBER(8,2)护10%Z9NUMBER(8,2)护龄Z10NUMBER(8,2)女工卫Z11NUMBER(8,2)厂扣Z12NUMBER(8,2)应得资K1NUMBER(8,2)房租金K2NUMBER(8,2)水电暖K3NUMBER(8,2)公积金Z13NUMBER(8,2)保险RqVARCHAR2200日期KbxNUMBER(8,2)实发工资表3.4 历史数据表（sj）3.2.2 数据库E-R图

37、部门部门名称部门编号员工员工编号员工姓名所在部门工作工资月效资应得资房租金水电暖公积金保险日期实发工资金额夜班独子金额加班效益资基本资岗位资医务补技师补护10%厂扣护龄女工卫领取n11n图3.2 工资管理系统实体关系图3.2.3 Oracle数据库的使用在Oracle中创建用户，如图3.2所示图3.2创建用户在Oracle中建表，如图3.3所示图3.3建表4.详细设计4.1主界面设计由于本系统是针对财务管理人员角色设计开发的，故未进行权限的设定。在主界面显示每个模块的入口，点击即可进入。在状态栏显示系统日期和登录系统时间。系统主界面如图4.1所示：图4.1 系统主界面该模块主要代码：proce

38、dure Tgzgl_f.FormCreate(Sender: TObject); /数据库连接处理begingzgl_f.Color:=rgb(180,130,100); try db1.Connected:=true; except showmessage(连接数据库失败 ! ); application.terminate; end;end;procedure Tmainf.FormCreate(Sender: TObject); /状态栏系统日期与时间begin Statusbar1.Panels0.Text:=系统日期:+datetostr(date); Statusbar1.Pan

39、els1.Text:=系统时间:+timetostr(time);end;procedure Tmainf.bmiClick(Sender: TObject); /选中菜单显示相应的窗体，此处为部门管理begin If bmi.Checked Then /用If语句做异常处理 bmf.Show ELSE begin Application.CreateForm(Tbmf,bmf); bmf.Show; bmi.Checked:=True; end;end;4.2基本信息管理模块此模块包括部门和员工的基本信息维护，具体功能包括，部门信息的添加和删除，员工信息的添加和删除。输入要添加的数据后，点击

40、“添加”完成数据添加，点击“刷新”按钮显示数据。删除数据时程序将连接后台数据库，判断是否存在该记录的工资信息，若不存在则删除成功，若存在，则删除失败。如图4.2，4.3所示图4.2部门信息维护部门信息维护核心代码：procedure Tbmf.BitBtn1Click(Sender: TObject);begin edit1.Text:=trim(edit1.text); if (length(edit1.Text)=0) or (length(bh.Text)=0) then begin showmessage(编号与单位名称不能为空!); exit; end; with Q1 do beg

41、in Close; Sql.Clear; Sql.Add(Insert Into bm (bh,mc); Sql.Add( Values(:y0,:y1) ); Parameters.ParamByName(y0).Value:=bh.Text; Parameters.ParamByName(y1).Value:=edit1.Text; Try ExecSql; except showmessage(服务器连接error,程序退出!); application.Terminate; end; end;end;procedure Tbmf.BitBtn2Click(Sender: TObject

42、);beginif messagedlg(如果系统中存在本部门数据不能删除,确要删除吗?,mtconfirmation,mbyes,mbno,0) =mrno then exit;q1.Close; q1.Sql.Clear; q1.Sql.Add(delete from bm ); q1.Sql.Add( where (bh like :bh) ); q1.Parameters.ParamByName(bh).Value:=bh.text+%; Try q1.ExecSql; except showmessage(服务器连接error,程序退出!); application.Terminat

43、e; end; q1.Close;end;procedure Tbmf.BitBtn3Click(Sender: TObject); var i:integer;begin Q1.Close; Q1.Sql.Clear; Q1.Sql.Add(Select bh,mc From bm ); Q1.Sql.Add( order by bh); Try Q1.Open; except showmessage(服务器连接error,程序退出!); application.Terminate; End; sg.RowCount:=Q1.RecordCount+1; sg.ColCount:=2; Fo

44、r I:=0 To sg.RowCount Do sg.RowsI.Clear; sg.Cells0,0:=编号; sg.Cells1,0:=名称; For I:=1 To sg.RowCount Do Begin sg.Cells0,i:=(Q1.FieldByName(bh).AsString); sg.Cells1,i:=(Q1.FieldByName(mc).AsString); Q1.Next; End; Q1.Close;end;procedure Tbmf.FormClose(Sender: TObject; var Action: TCloseAction);beginmain

45、f.bmi.checked:=false;action:=cafree;end;procedure Tbmf.FormCreate(Sender: TObject); var i:integer;beginbmf.Color:=rgb(220,170,140); for i:=1 to 9 do bh.Items.Add(0+inttostr(i); for i:=10 to 50 do bh.Items.Add(inttostr(i); sg.FixedColor:=rgb(180,130,100);end;员工信息维护：图4.3员工信息维护员工信息维护核心代码：procedure Tryf

46、.BitBtn1Click(Sender: TObject);begin edit1.Text:=trim(edit1.text); if (length(edit1.Text)=0) or (length(bh.Text)=0) or (length(bm.Text)=0) then begin showmessage(编号与单位名称不能为空!); exit; end; with Q1 do begin Close; Sql.Clear; Sql.Add(Insert Into ry (bm,bh,xm); Sql.Add( Values(:y0,:y1,:y2) ); Parameters

47、.ParamByName(y0).Value:=bm.Text; Parameters.ParamByName(y1).Value:=bh.Text; Parameters.ParamByName(y2).Value:=edit1.Text; Try ExecSql; except showmessage(服务器连接error,程序退出!); application.Terminate; end; end; end;procedure Tryf.BitBtn2Click(Sender: TObject);beginif messagedlg(如果系统中存在本人工资数据不能删除,确要删除吗?,m

48、tconfirmation,mbyes,mbno,0) =mrno then exit; bh.text:=trim(bh.text); if (length(bh.text)0 then exit; s:=; for i:=1 to sg.RowCount-1 do begin s:=sg.Cells0,i; Q1.Close; Q1.Sql.Clear;Q1.Sql.Add( update ry set z1=:z1,z2=:z2,z3=:z3,z4=:z4,z5=:z5,z6=:z6, );Q1.Sql.Add(z7=:z7,z8=:z8,z9=:z9,z10=:z10,z11=:z11

49、,k3=:k3,kbx=:kbx );q1.Sql.Add( where (bm like :bm ) and (bh like :bh);q1.Parameters.ParamByName(z1).Value:=strtofloat(sg.Cells1,i);q1.Parameters.ParamByName(z2).Value:=strtofloat(sg.Cells1,i)*0.4;q1.Parameters.ParamByName(z3).Value:=strtofloat(sg.Cells1,i)*0.6;q1.Parameters.ParamByName(z4).Value:=st

50、rtofloat(sg.Cells2,i);q1.Parameters.ParamByName(z5).Value:=strtofloat(sg.Cells3,i);q1.Parameters.ParamByName(z6).Value:=strtofloat(sg.Cells4,i);q1.Parameters.ParamByName(z7).Value:=strtofloat(sg.Cells5,i);q1.Parameters.ParamByName(z8).Value:=strtofloat(sg.Cells6,i);q1.Parameters.ParamByName(z9).Valu

51、e:=strtofloat(sg.Cells7,i);q1.Parameters.ParamByName(z10).Value:=strtofloat(sg.Cells8,i);q1.Parameters.ParamByName(z11).Value:=-(strtofloat(sg.Cells1,i)*0.1618);/q1.ParamByName(z11).Asfloat:=0;q1.Parameters.ParamByName(k3).Value:=strtofloat(sg.Cells9,i);q1.Parameters.ParamByName(bm).Value:=copy(bm.T

52、ext,3,20)+%;q1.Parameters.ParamByName(bh).Value:=copy(s,1,2)+%;q1.Parameters.ParamByName(kbx).Value:=strtofloat(sg.Cells10,i); Try Q1.ExecSql; except showmessage(数据库更新error 重新点击“更新”按钮！); exit; end; end; showmessage( 操作 OK ！)end;procedure Tjbf.bmExit(Sender: TObject); var i:integer; begin Q1.Close; Q

53、1.Sql.Clear; Q1.Sql.Add(Select bh,xm,z1,z4,z5,z6,z7,z8,z9,z10,k3,kbx From ry ); q1.Sql.Add( where (bm like :bm ); q1.Parameters.ParamByName(bm).Value:=copy(bm.text,3,20)+%; Q1.Sql.Add( order by bh); Try Q1.Open; except showmessage(数据库连接error,程序退出!); application.Terminate; End; sg.RowCount:=Q1.Record

54、Count+1; sg.ColCount:=11; For I:=0 To sg.RowCount-1 Do sg.RowsI.Clear; sg.Cells0,0:=编号姓名; sg.Cells1,0:=岗位资; sg.Cells2,0:=计生补; sg.Cells3,0:=月效资; sg.Cells4,0:=技师补; sg.Cells5,0:=医务补; sg.Cells6,0:=护10%; sg.Cells7,0:=教护龄; sg.Cells8,0:=女工卫; sg.Cells9,0:=公积金; sg.Cells10,0:=保险; /md.Items.Clear; /md.Items.Ad

55、d( ); For I:=1 To Q1.RecordCount Do Begin / md.Items.Add(Q1.FieldByName(bh).AsString)+(Q1.FieldByName(xm).AsString); sg.Cells0,i:=Q1.FieldByName(bh).AsString+Q1.FieldByName(xm).AsString; sg.Cells1,i:=floattostr(Q1.FieldByName(z1).Asfloat); sg.Cells2,i:=floattostr(Q1.FieldByName(z4).Asfloat); sg.Cell

56、s3,i:=floattostr(Q1.FieldByName(z5).Asfloat); sg.Cells4,i:=floattostr(Q1.FieldByName(z6).Asfloat); sg.Cells5,i:=floattostr(Q1.FieldByName(z7).Asfloat); sg.Cells6,i:=floattostr(Q1.FieldByName(z8).Asfloat); sg.Cells7,i:=floattostr(Q1.FieldByName(z9).Asfloat); sg.Cells8,i:=floattostr(Q1.FieldByName(z10

57、).Asfloat); sg.Cells9,i:=floattostr(Q1.FieldByName(k3).Asfloat); sg.Cells10,i:=floattostr(Q1.FieldByName(kbx).Asfloat); Q1.Next; End; Q1.Close;end;procedure Tjbf.FormClose(Sender: TObject; var Action: TCloseAction);beginmainf.jbi.checked:=false;action:=cafree;end;procedure Tjbf.FormCreate(Sender: TO

58、bject); var i:integer;beginjbf.Color:=rgb(255,255,255); bm.Items.Clear; Q1.Close; Q1.Sql.Clear; Q1.Sql.Add(Select bh,mc From bm ); Q1.Sql.Add( order by bh); Try Q1.Open; except showmessage(服务器连接error,程序退出!); application.Terminate; End; For I:=1 To Q1.RecordCount Do Begin bm.Items.Add(Q1.FieldByName(

59、bh).AsString+Q1.FieldByName(mc).AsString); Q1.Next; End; Q1.Close;end;每月活动工资填报图4.5 每月数据填报该部分核心代码：procedure Tmybhf.BitBtn1Click(Sender: TObject); var i,j,k:integer; s:string; begin For I:=1 To sg.RowCount Do sg.Cells6,i:=Label3.caption;if messagedlg(确认更新数据吗?,mtconfirmation,mbyes,mbno,0) =mrno then ex

60、it; if trim(bm.Text)= then exit; k:=0; for i:=1 to sg.RowCount-1 do for j:=2 to 5 do begin try sg.Cellsj,i:=floattostr(strtofloat(sg.Cellsj,i); except showmessage(第+inttostr(i)+行 第+inttostr(j)+列有非法数字); k:=k+1; end; end; if k0 then exit; s:=; for i:=1 to sg.RowCount-1 do begin s:=sg.Cells0,i; Q1.Clos