Delphi7.0员工工资管理系统开发文档

合集下载

职工工资管理系统

┊┊┊┊┊┊┊┊┊┊┊┊┊装┊┊┊┊┊订┊┊┊┊┊线┊┊┊┊┊┊┊┊┊┊┊┊┊目录一设计目的 (1)二功能介绍 (1)三程序流程 (1)四设计步骤 (2)1 任务解析 (2)2 功能实现 (3)3 系统测试 (3)五设计总结 (30)参考文献 (30)┊┊┊┊┊┊┊┊┊┊┊┊┊装┊┊┊┊┊订┊┊┊┊┊线┊┊┊┊┊┊┊┊┊┊┊┊┊一设计目的通过Java程序设计的学习，使学生对软件编程能力有一定的提高。

Java学习是锻炼学生在进一步掌握模块化、结构化程序设计的方法的同时，培养学生运用已学知识分析问题、解决问题及编写实用程序的能力，从而巩固和加深对java编程的基础理论知识的理解，培养学生综合运用所学理论解决实际问题的能力，使学生成为具有扎实的计算机理论基础和较强动手能力的综合型、应用型人才。

为专业课的深入学习和毕业设计打基础。

二功能介绍能够对职工工资进行管理。

（1）具有新用户注册功能。

（2）具有注册用户登录功能。

（3）具有职工工资的录入功能，要求只录入工资各项，自动计算每个职工工资总额。

（4）具有数据查询功能，可以实现查询全部信息和按条件执行查询。

（5）具有按条件删除数据功能。

三程序流程┊┊┊┊┊┊┊┊┊┊┊┊┊装┊┊┊┊┊订┊┊┊┊┊线┊┊┊┊┊┊┊┊┊┊┊┊┊登录工资管理系统登陆权限对与否管理员编辑界面员工查询界面Y N增添删除修改员工信息基本工资员工信息基本工资员工信息基本工资员工信息基本工资查询退出子系统四设计步骤1．任务解析该职工工资管理系统的总体功能可以从两个方面来分析，一是查找功能，二是编辑功能----包括修改，删除，和添加，员工和管理员都可以通过在进入工资管理子系统后，对员工的基本，和基本工资信息进行查询，管理员通过管理权┊┊┊┊┊┊┊┊┊┊┊┊┊装┊┊┊┊┊订┊┊┊┊┊线┊┊┊┊┊┊┊┊┊┊┊┊┊限登录后，可根据改变员工信息，对基本工资表，工资表进行修改，添加和删除操作。

2.代码设计（如：职工证号和部门代号等）每一个代码都只代表唯一的实体或属性，代码必须简单明了，但必须有利于对数据进行统计、汇总、分析等操作。

工资管理论文( Delphi在工资管理系统中的应用)概要

XXXXXXXXXXX 学院毕业论文Delphi在工资管理系统中的应用学生姓名 XXXXXXXXXXXXXXXXX 指导教师 XXXXXXXXXXXXXXXXX 专业 XXXXXXXXXXXXXXXXX 年级 XXXXXXXXXXXXXXXXX 完成日期摘要数据库支持是 delphi 编程环境中的关键部分, delphi6.0继续在这一方面发挥了强大的优势。

本文是用 delphi6.0所编成的工资管理系统, 主要介绍了本课题的开发背景, 所要完成的功能和开发的过程。

重点的说明了系统设计的重点、设计思想、难点技术和解决方案。

关键字 : 数据库 delphi6.0 工资管理系统AbstractData base is a key part to Delphi, Delphi 6.0 continue to develop the powerful superiority in this aspect.This thesis introduce the Wages of Management System , it usage Delphi 6.0 development tool,tell us the development background of the topic,the function and the developing procedure of the system.It explain to the emphasis , the idea , the difficult technique and the settling plan of the system.Key word :Data base delphi6.0 the Wages of Management System目录第 1章开发工资管理系统的问题… … … … … … … … … … … … … … … 4 1.1技术背景和需求分析………………………………………………… ……… 4 1.2本系统的目的和意义………………………………………………………… 4 第 2章工资管理系统的分析与设计… … … … … … … … … … … … … … 5 2. 1系统的分析与概要设计… … … … … … … … … … … … … … … … … … 5 2.2 连接数据库方面的问题…………………………………………………… 5 第 3章系统各模块详细设计及代码实现… … … … … … … … … … 9 3.1 模块的开发环境的简介_Delphi …………………………………………… 9 3.2系统各模块的详细设计和代码实现.......................................... 13 毕业设计小结... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 25 参考文献......................................................... (26)第一章开发工资管理系统的问题1.1技术背景和需求分析随着计算机技术的飞速发展, 计算机在企业管理中应用的普及, 利用计算机实现工资的数据库管理势在必行。

职工工资管理系统

一课题主要功能该程序是一个实现对职工工资管理的系统。

包括计算,显示，添加，删除，修改，排序，查找，统计及退出等功能。

输入职工的工号、姓名，基本工资，奖金及扣款对其进行存储，在存储后可以对职工的应发工资，税款，实发工资按工号和姓名进行查寻。

该系统具有存贮职工数据，按工号、姓名查询，列出职工各项数据和统计功能。

系统输入数据后，将在当前目录中建立一个名为zzgzk.dat文件，用于保存输入的数据。

二．设计概要主函数主要由一个switch（）开关语句构成，开关语句在一个无限循环体里，开关语句里的开关是调用主菜单显示函数的返回值。

除最后一个语句是强制结束整个程序的语句外，其它case都是调用相应的函数，完成相应的功能。

各调用情况如下： case1:调用计算函数 case 2:调用显示函数、case 3:调用追加函数、case 4:调用修改函数、case 5:调用删除函数、 case 6：调用查询函数、 case 7:调用排序函数、case 8：调用退出函数。

主函数将保证每调用完一个函数之后又调用显示函数，然后按任意键又重新回到主菜单，以便用户进行下一次的操作。

运行主函数选择菜单框图：系统主要由计算模块，显示模块、追加模块、修改模块、删除模块、查询模块、排序模块七大模块组成。

下面将介绍每个模块的功能及与他们之间的关系.模块图如下:三．各模块功能详细设计分析<1> 工资计算模块：Void Caculate( )这个模块的主要功能是计算每个职工的应发工资，税款，实发工资。

在主菜单中选择“1”就可以调用这个函数。

函数是通过for循环来重复计算每个人的应发工资，税款，实发工资。

<2>职工工资显示模块：Void Disp( )这个模块的主要功能是用来显示所有职工各项工资的金额。

在主菜单中选择“2”就可以进入这个模块界面。

这个功能的实现是用了一个for循环来完成的。

通过这个循环printf（）函数依次输出每一个人的工号，姓名，基本工资，奖金，扣款，应发工资，实发工资，最后在界面上显示所有职工的信息。

职工工资管理系统设计带源码

课程设计报告课程名称：职工工资管理系统课程设计设计题目:带头结点单循环链表(职工工资管理系统）系别：计算机系专业:信息管理组别:学生姓名：学号:起止日期：０９年11月7 日～ 09年 12月20日指导教师：目录第一章需求分析1．1 课程设计题目1.2 课程设计任务及要求1．3 课程设计思想1.4 软硬件运行环境及开发工具第二章概要设计2。

1 设计流程图2．2 主要的数据结构2.3 方法及原理的简要说明第三章详细设计3。

1 计算机程序框图３．2 自编程序第四章调试与操作说明4。

1 系统调试４。

2 操作使用说明第五章课程设计与总结体会5。

１对开发的过程归纳与总结5．2 在过程中遇到的技术难点与解决方法 5。

３程序尚存问题5.４进一步开发的见解与建议 5.５收获与体会第六章致谢第七章参考文献第八章附录源码链接第一章需求分析1. 课程设计题目带头结点的单循环链表(职工工资管理系统） 2. 课程设计任务及要求编写一个职工工资管理系统,可以实现对数据的基本处理,要求用带头结点的单循环链表实现 3. 课程设计思想首先完成对程序的密码的确认，其次完成数据录入模块,然后实现对已录入的数据的存储和读入，最后就可以在其基础建立链表完成其余各项操作 4. 软硬件运行环境及开发工具Tur ｂoc2．０，W ｉndows XP ，VC++6.0第二章概要设计2.1 设计流程图图１主函数流程图2.1．1录入读取建链流程图建链流程图如图2所示2.1．图3操作函数流程图2.2 主要的数据结构2．2。

１链表结构如图4所示图4链表结构图2.２．2链表的结点结构如表1所示表1链表的结点结构3．1 计算机程序框图３．1.1密码确认部分程序图如表5所示3.1 3．2 ３。

｛／iｎｔ i＝0;iｎt c；ｉnｔ a=1;int ｂ；prｉntｆ（”\n”)；p=hｅａｄ；ｒ=head—＞next；while（a＝＝１){q=（ＬNｏde *)mａｌlｏc（siｚeｏf（struct nｏde））；ﻩ b=1；ﻩｗhile(b==1)/＊编码确认部分＊／ﻩ｛printｆ(＂输入编号：\n”);ﻩｓcanｆ（"%d"，&q—＞num）；r=heａd—＞next；ﻩ while(ｒ!=NULL&＆r！=ｈｅad＆&r－〉nｕm!=q-〉num）{ﻩﻩ r=r—〉nexｔ;ﻩﻩ}ﻩｉf（r=＝NULL｜｜r==hｅａd）ﻩ b＝0；ｅlseﻩ｛ｐｒinｔf(”你输入的员工已录入,请重新输入。

考勤管理系统(Delphi70)

回目录页
有关数据表
员工信息表：编号、姓名、编码、性别、职称、部员工信息表：编号、姓名、编码、性别、职称、住址、门、住址、基本工资出勤情况表：员工编号、月份、应出勤、迟到、出勤情况表：员工编号、月份、应出勤、迟到、早请假、旷工、退、请假、旷工、实际出勤、缺勤情况示意图工资表：员工编号、月份、基本工资、奖金、实际工资表：员工编号、月份、基本工资、奖金、工资、工资、调整系数
回目录页
编写要求
创建上述所有的数据表(Access类型)，并录入一定数创建上述所有的数据表(Access类型) (Access类型量的模拟数据（记录）量的模拟数据（记录）所采用的标准能够实现系统的主要功能，程序结构清晰易读，能够实现系统的主要功能，程序结构清晰易读，程序通过调试，程序运行较为可靠，操作界面友好通过调试，程序运行较为可靠，编写简要用户操作说明数据库名直接使用磁盘路径( 数据库名直接使用磁盘路径(缺省为工程文件所在路径)，不使用数据库别名编程时生成的所有文件（包括数据表文件）编程时生成的所有文件（包括数据表文件）均存放在同一目录下，同一目录下，完成后把该目录下所有文件上交
Y
显示
Y
是否删除记录? 是否显示该员工记录?
Y
N
显示原有记录
N
结束
相关查询流程图
开始
输入数据
N
存在？
Y
显示
结束
密码修改流程图
开始
N
输入密码是否正确
Y
输入新密码
N
验证新密码
Y
修改成功
结束
系统运行
回目录页
说明目录
功能特色
打印本页

Delphi7.0员工工资管理系统开发文档

Delphi7.0员工工资管理系统开发文档员工工资管理系统作者签名：日期：年月日摘要企业的员工管理是公司管理的一个重要内容。

随着企业人员数量增加，企业的员工管理工作也变得越来越复杂。

员工管理既涉及到企业劳动人事的管理，企业财务管理等。

员工管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。

早期的员工统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现员工统计错误的现象。

早期员工管理多采取纸质材料和具有较强的时间限制。

基于以上原因，企业员工管理系统使用电脑安全保存、快速计算、全面统计，实现员工管理的系统化、规范化、自动化。

企业员工管理系统是典型的信息管理系统（MIS），前台程序开发工具采用DELPHI，后台数据库采用SQL SERVER 2000数据库。

DELPHI开发工具，具有组件丰富、语言简单、功能强大的优点。

SQL数据库具有与DELPHI 无缝连接、操作简单、易于使用的优点。

运行结果证明，本企业员工管理系统极大提高了工作效率，节省了人力和物力，最终满足企业员工管理等需要，同时也成为现代化企业管理的标志。

【关键字】员工信息系统，数据库，工资管理，实体关系图（E-R 图），数据字典，数据流图。

AbstractEnterprise staff management is an important aspect of management. With the increase in the number of enterprises, corporate management staff has become more and more complex. Both staff management and personnel involved in labor management, enterprise financial management. Staff management needs and associated personnel management,working hours, attendance at the same time to connect and medical insurance, etc., to generate business for each of the basic wages of workers, allowance, medical insurance, insurance, wages actually paid. Early release of statistics and the staff are using artificial methods to deal withpaper-based materials, not only the financial officers spent a lot of time and difficult to preserve, often transcription factors as a result of personal carelessness or negligence of the calculation, there is the wrong statistics staff. Early management staff to take paper-based materials and many have strong time constraints. For these reasons, the enterprise management system for staff to preserve the use of computer security, and rapid calculation, comprehensive statistics, staff management to achieve the systematic, standardized and automated. Employee Management System is a typical management information system (MIS), development tools for the future use of DELPHI, back-end database using SQL SERVER 2000 database. DELPHI development tools, has a component rich in simple language and powerful advantages. SQL database with the DELPHI seamless, simple operation, easy-to-use advantages. The results prove that the enterprise management system staff have greatly improved work efficiency, saving human and material resources, and ultimately meet the needs of enterprises, such as staff management, but also become a symbol of the modernization of enterprise management 【Keywords】staff information system, database, payroll management, entity relationship diagram (ER diagram), data dictionary, data flow diagram.目录第1章绪论 (1)1.1研究课题的背景 (1)1.2开发工具简介 (1)1.3数据库管理系统 (2)第2章员工工资管理系统分析与设计 (3)2.1应用需求分析 (3)2.2系统功能模块划分 (3)第3章数据库管理系统设计 (5)3.1数据库中表的建立和设计 (5)3.2数据库中各个表的触发器的建立 (7)第4章应用程序设计 (9)4.1欢迎界面 (9)4.2登录模块设计 (9)4.2.1身份验证 (10)4.3主窗体设计 (11)4.4信息录入管理窗体设计 (12)4.4.1 录入模块设计 (12)4.5信息查询管理窗体设计 (13)4.5.1 查询模块设计 (14)4.6信息修改模块 (15)4.6.1 修改模块设计 (16)4.7数据导出模块设计 (17)第6章系统测试 (22)6.1测试目的 (22)6.2测试方法 (22)6.3测试结论 (22)第7章结束语 (23)参考文献 (24)致谢 (25)第1章绪论1.1研究课题的背景借助现代信息技术和管理理论，建立员工管理信息系统是当今社会的重要趋势。

公司工资管理系统delphi源码设计文档(源代码大小16M)

单击菜单向下箭头可扩展菜单选项。
第一条纪录：将光标移到第一条纪录。
前一条纪录：将光标移到当前纪录之前。
下一条纪录：将光标移到当前纪录之后的一条纪录。
最后一条纪录：将光标移到最后一条纪录。
插入纪录：在当前纪录之前查入一条空的纪录。
删除纪录：删除当前一条纪录，操作将不可恢复。
保存数据：编辑完数据后点击按钮，保存修改数据。
上报数据：打开上报数据对话框。
打印：将操作页面转到打印项目。
清除数据：将当前全部数据全部清除掉。此项操作将不可恢复。
数据操作选项依次为：
查询：查找符合条件的纪录，具体说明见<3、菜单及其他辅助选项>。
排序：点击向下的箭头根据菜单提示进行选择排序，直接单击按钮可按照默认方式排序，也可直接按SHift+F1等快捷键进行操作。样式如图：
单击菜单向下箭头可扩展菜单选项。
2、项目操作
（1）机构信息
点击“编辑状态：只读”按钮，该按钮变为“编辑状态：可写”，才能进入编辑状态。
a.机构基本信息设置
“主管单位”：本级单位的上级机构名称，本项目必须输入，鼠标单击后面按钮进行选择输入。
“单位名称”：本级单位的名称，本项目必须输入，鼠标单击后面按钮进行选择输入。
“待遇”：本项目必须输入，鼠标单击后面按钮或鼠标右键根据该人员实际情况进行选择输入。
“任职时间”：可选输入，根据实际情况填写，输入方式同“出生日期”。
“见习工资”：根据该人员实际情况，正确填写金额。
“职务档次”：根据该人员实际情况，正确填写金额（见习期人员不能输入此项目）。
辅助菜单：在某些栏目按鼠标右键可弹出辅助选项菜单，用户可根据需要使用相应功能，如图：

职工工资管理系统设计与源代码

职工工资管理系统一、设计目标：按照软件工程的规范，以SQL Server或Access为后台数据库，以Delphi 或Visual C++为前端开发工具，设计并实现一个简化的工资管理系统。

二、需求描述该系统存储了某单位全体职工和工资信息。

职工的基本信息包括：职工编号、姓名、性别、出生年月、职称、最后学历、工资和婚否。

每一个职工的工资信息包括：月份、职工编号、职工姓名、基本工资、津贴、岗贴、补贴、房贴、交通补贴、应发数、房租、储蓄、会费、个人所得税、应扣数、实发数、其他收入。

个人所得税计算方法设为：应发数少于800元为0；800~1000元的部分为5%；1000~5000元的部分为10%；5000元以上的部分为20%。

系统功能如下：1．职工信息管理：a.增加职工信息。

增加新职工时输入新职工的基本信息；b.删除某职工的基本信息。

如，职工死亡或离职时；c.修改某职工（指定职工编号）的某些信息（如，加工资、获得新学位、晋升职称、结婚或离婚）。

2．工资管理：a.增加工资信息。

当增加新职工时，添加某职工的工资信息；b.职工离职或死亡时，删除某职工的工资信息；c.修改工资信息。

当月开始增加或减少某些项工资或扣款数变化时，修改某职工的部分工资信息；3．查询与统计：a.查询职工信息，如查询全体职工信息，或按职称、学历、出生年月、出生年月之前/ 之后、已婚/ 未婚等条件或多个条件的组合来查询相应的职工信息。

b.查询指定编号职工的工资信息；c.按时间段统计职工收入或单位的工资支出。

三、概要设计四、详细设计void CWorkerMgr6View::OnExit(){OnExit();}void CWorkerMgr6View::OnRecordFirst(){if(m_pSet->IsBOF()){m_pSet->SetFieldNull(NULL);}else{m_pSet->MoveFirst();UpdateData(FALSE);//更新对话框窗口}}void CWorkerMgr6View::OnRecordLast(){m_pSet->MoveLast();UpdateData(FALSE);//更新对话框窗口}void CWorkerMgr6View::OnRecordNext(){if(m_pSet->IsBOF()){m_pSet->SetFieldNull(NULL);}//判断是否溢出if(m_pSet->IsEOF()){AfxMessageBox("已经到达最后记录");}else{m_pSet->MoveNext();}UpdateData(FALSE);}void CWorkerMgr6View::OnRecordPre(){if(m_pSet->IsBOF()){AfxMessageBox("已经到达第一个记录");m_pSet->MoveFirst();}m_pSet->MovePrev();UpdateData(FALSE);}void CWorkerMgr6View::OnAddWorker(){HRESULT hr;try{hr =m_pConnection.CreateInstance("ADODB.Connection");//创建Connection对象if(SUCCEEDED(hr)){hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=worker.mdb","","",adModeUnknown);//连接数据库//上面一句中连接字串中的Provider是针对ACCESS2000环境的，对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51;}}catch(_com_error e)///捕捉异常{CString errormessage;errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage()); AfxMessageBox(errormessage);///显示错误信息}CAddWorker dl;if(dl.DoModal()==IDOK){m_pSet->AddNew();m_pSet->m_name=dl.m_nm;m_pSet->m_id=dl.m_ids;m_pSet->m_sex=dl.m_sx;m_pSet->m_born=dl.m_bn;m_pSet->m_zhichen=dl.m_zhch;m_pSet->m_xueli=dl.m_xli;m_pSet->m_salary=dl.m_sala;m_pSet->m_marry=dl.m_marr;m_pSet->Update();m_pSet->MoveLast();UpdateData(false);}OnAddMoney();}void CWorkerMgr6View::OnDeleteWorker(){HRESULT hr;try{hr =m_pConnection.CreateInstance("ADODB.Connection");//创建Connection对象if(SUCCEEDED(hr)){hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=worker.mdb","","",adModeUnknown);///连接数据库///上面一句中连接字串中的Provider是针对ACCESS2000环境的，对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51;}}catch(_com_error e)///捕捉异常{CString errormessage;errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage()); AfxMessageBox(errormessage);///显示错误信息}CDelWorker dl;if(dl.DoModal()==IDOK)UpdateData(true);try{long id=dl.m_idid;CString str;str.Format("DELETE from worker where ID=%d",id);_variant_t RecordsAffected;m_pConnection->Execute((_bstr_t)str,&RecordsAffected,adCmdText); AfxMessageBox("删除成功!");}catch(_com_error*e){AfxMessageBox(e->ErrorMessage());}m_pSet->MoveNext();if(m_pSet->IsEOF())m_pSet->MoveLast();UpdateData(FALSE);}}void CWorkerMgr6View::OnChangWorker(){HRESULT hr;try{hr =m_pConnection.CreateInstance("ADODB.Connection");//创建Connection对象if(SUCCEEDED(hr)){hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=worker.mdb","","",adModeUnknown);///连接数据库///上面一句中连接字串中的Provider是针对ACCESS2000环境的，对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51;}}catch(_com_error e)///捕捉异常{CString errormessage;errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage()); AfxMessageBox(errormessage);///显示错误信息}CChangeWork dl2;if(dl2.DoModal()==IDOK){UpdateData(true);long id=dl2.m_wid;m_pSet->MoveFirst();while(m_pSet->m_id!=dl2.m_wid)m_pSet->MoveNext();CChangeOne dl1;dl1.m_name1=m_pSet->m_name;dl1.m_id1=m_pSet->m_id;dl1.m_sex1=m_pSet->m_sex;dl1.m_born1=m_pSet->m_born;dl1.m_zhichen1=m_pSet->m_zhichen;dl1.m_xueli=m_pSet->m_xueli;dl1.m_salary1=m_pSet->m_salary;dl1.m_marry1=m_pSet->m_marry;if(dl1.DoModal()==IDOK){m_pSet->Edit();m_pSet->m_name=dl1.m_name1;m_pSet->m_id=dl1.m_id1;m_pSet->m_sex=dl1.m_sex1;m_pSet->m_born=dl1.m_born1;m_pSet->m_zhichen=dl1.m_zhichen1;m_pSet->m_xueli=dl1.m_xueli;m_pSet->m_salary=dl1.m_salary1;m_pSet->m_marry=dl1.m_marry1;m_pSet->Update();// m_pSet->MoveNext();UpdateData(false);}}}void CWorkerMgr6View::OnMShowDetail() {CMShowDetail dl;long id=m_pSet->m_id;m_pSet->MoveFirst();while(m_pSet->m_id!=id)m_pSet->MoveNext();dl.m_month=m_pSet->m_month;dl.m_id=m_pSet->m_id;dl.m_name=m_pSet->m_name;dl.m_base=m_pSet->m_base;dl.m_jintie=m_pSet->m_jintie;dl.m_gangtie=m_pSet->m_gangtie;dl.m_butie=m_pSet->m_butie;dl.m_fangtie=m_pSet->m_fangtie;dl.m_jiaotong=m_pSet->m_jiaotong;dl.m_yingfa=dl.m_base+dl.m_jintie+dl.m_gangtie+dl.m_butie+dl.m_fangtie+ dl.m_jiaotong;dl.m_fangzu=m_pSet->m_fangzu;dl.m_chuxu=m_pSet->m_chuxu;dl.m_huifei=m_pSet->m_huifei;if(dl.m_yingfa<800){dl.m_gerentax=0;}else if(dl.m_yingfa>=800&&dl.m_yingfa<=1000){dl.m_gerentax=dl.m_yingfa*0.05f;}else if(dl.m_yingfa>1000&&dl.m_yingfa<=5000){dl.m_gerentax=dl.m_yingfa*0.1f;}else if(dl.m_yingfa>5000){dl.m_gerentax=dl.m_yingfa*0.2f;}dl.m_yingkou=dl.m_fangzu+dl.m_chuxu+dl.m_huifei+dl.m_gerentax;dl.m_shifa=dl.m_yingfa-dl.m_yingkou;dl.m_other=m_pSet->m_other;dl.DoModal();}void CWorkerMgr6View::OnAddMoney(){CAddMoney dl;dl.m_id=m_pSet->m_id;dl.m_name=m_pSet->m_name;if(dl.DoModal()==IDOK){m_pSet->Edit();m_pSet->m_base=dl.m_base;m_pSet->m_month=dl.m_month;m_pSet->m_jintie=dl.m_jintie;m_pSet->m_gangtie=dl.m_gangtie;m_pSet->m_butie=dl.m_butie;m_pSet->m_fangtie=dl.m_fangtie;m_pSet->m_jiaotong=dl.m_jiaotong;dl.m_yingfa=dl.m_base+dl.m_jintie+dl.m_gangtie+dl.m_butie+dl.m_fangtie+ dl.m_jiaotong;m_pSet->m_yingfa=dl.m_yingfa;m_pSet->m_fangzu=dl.m_fangzu;m_pSet->m_chuxu=dl.m_chuxu;m_pSet->m_huifei=dl.m_huifei;if(dl.m_yingfa<800){dl.m_gerentax=0;}else if(dl.m_yingfa>=800&&dl.m_yingfa<=1000){dl.m_gerentax=dl.m_yingfa*0.05f;}else if(dl.m_yingfa>1000&&dl.m_yingfa<=5000){dl.m_gerentax=dl.m_yingfa*0.1f;else if(dl.m_yingfa>5000){dl.m_gerentax=dl.m_yingfa*0.2f;}m_pSet->m_gerentax=dl.m_gerentax;dl.m_yingkou=dl.m_fangtie+dl.m_chuxu+dl.m_huifei+dl.m_gerentax;m_pSet->m_yingkou=dl.m_yingkou;dl.m_shifa=dl.m_yingfa-dl.m_yingkou;m_pSet->m_shifa=dl.m_shifa;m_pSet->m_other=dl.m_other;m_pSet->Update();//m_pSet->MoveLast();UpdateData(false);}}void CWorkerMgr6View::OnDeleteMoney(){HRESULT hr;try{hr =m_pConnection.CreateInstance("ADODB.Connection");//创建Connection对象if(SUCCEEDED(hr)){hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=worker.mdb","","",adModeUnknown);///连接数据库///上面一句中连接字串中的Provider是针对ACCESS2000环境的，对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51;}}catch(_com_error e)///捕捉异常{CString errormessage;errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage()); AfxMessageBox(errormessage);///显示错误信息}CDeleteMoney dl;if(dl.DoModal()==IDOK)UpdateData(true);try{long id=dl.m_id;CString str;str.Format("DELETE from worker where ID=%d",id);_variant_t RecordsAffected;m_pConnection->Execute((_bstr_t)str,&RecordsAffected,adCmdText); AfxMessageBox("删除成功!");}catch(_com_error*e){AfxMessageBox(e->ErrorMessage());}m_pSet->MoveNext();if(m_pSet->IsEOF())m_pSet->MoveLast();UpdateData(FALSE);}}void CWorkerMgr6View::OnChangeMoney(){HRESULT hr;try{hr =m_pConnection.CreateInstance("ADODB.Connection");//创建Connection对象if(SUCCEEDED(hr)){hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=worker.mdb","","",adModeUnknown);}}catch(_com_error e) //捕捉异常{CString errormessage;errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage()); AfxMessageBox(errormessage); //显示错误信息}CChangeWork dl2;if(dl2.DoModal()==IDOK){UpdateData(true);long id=dl2.m_wid;m_pSet->MoveFirst();while(m_pSet->m_id!=dl2.m_wid)m_pSet->MoveNext();CChangeMoney dl1;dl1.m_month=m_pSet->m_month;dl1.m_name=m_pSet->m_name;dl1.m_id=m_pSet->m_id;dl1.m_base=m_pSet->m_base;dl1.m_jintie=m_pSet->m_jintie;dl1.m_gangtie=m_pSet->m_gangtie;dl1.m_butie=m_pSet->m_butie;dl1.m_fangtie=m_pSet->m_fangtie;dl1.m_jiaotong=m_pSet->m_jiaotong;dl1.m_yingfa=dl1.m_base+dl1.m_jintie+dl1.m_gangtie+dl1.m_butie+dl1.m_fa ngtie+dl1.m_jiaotong;dl1.m_fangzu=m_pSet->m_fangzu;dl1.m_chuxu=m_pSet->m_chuxu;dl1.m_huifei=m_pSet->m_huifei;if(dl1.m_yingfa<800){dl1.m_gerentax=0;}else if(dl1.m_yingfa>=800&&dl1.m_yingfa<=1000){dl1.m_gerentax=dl1.m_yingfa*0.05f;}else if(dl1.m_yingfa>1000&&dl1.m_yingfa<=5000){dl1.m_gerentax=dl1.m_yingfa*0.1f;}else if(dl1.m_yingfa>5000){dl1.m_gerentax=dl1.m_yingfa*0.2f;}dl1.m_yingkou=dl1.m_gerentax+dl1.m_fangzu+dl1.m_chuxu+dl1.m_huifei;dl1.m_shifa=dl1.m_yingfa-dl1.m_yingkou;dl1.m_other=dl1.m_other;if(dl1.DoModal()==IDOK){m_pSet->Edit();m_pSet->m_name=dl1.m_name;m_pSet->m_id=dl1.m_id;m_pSet->m_month=dl1.m_month;m_pSet->m_base=dl1.m_base;m_pSet->m_jintie=dl1.m_jintie;m_pSet->m_gangtie=dl1.m_gangtie;m_pSet->m_butie=dl1.m_butie;m_pSet->m_fangtie=dl1.m_fangtie;m_pSet->m_jiaotong=dl1.m_jiaotong;m_pSet->m_yingfa=dl1.m_base+dl1.m_jintie+dl1.m_gangtie+dl1.m_butie+dl1. m_fangtie+dl1.m_jiaotong;m_pSet->m_fangzu=dl1.m_fangzu;m_pSet->m_chuxu=dl1.m_chuxu;m_pSet->m_huifei=dl1.m_huifei;if(m_pSet->m_yingfa<800){m_pSet->m_gerentax=0;}else if(m_pSet->m_yingfa>=800&&m_pSet->m_yingfa<=1000){m_pSet->m_gerentax=m_pSet->m_yingfa*0.05f;}else if(m_pSet->m_yingfa>1000&&m_pSet->m_yingfa<=5000){m_pSet->m_gerentax=m_pSet->m_yingfa*0.1f;}else if(m_pSet->m_yingfa>5000){m_pSet->m_gerentax=m_pSet->m_yingfa*0.2f;}m_pSet->m_yingkou=dl1.m_fangzu+dl1.m_chuxu+dl1.m_huifei+m_pSet->m_geren tax;m_pSet->m_shifa=m_pSet->m_yingfa-m_pSet->m_yingkou;m_pSet->m_other=dl1.m_other;m_pSet->Update();// m_pSet->MoveNext();UpdateData(false);}}}void CWorkerMgr6View::OnFindMoney(){HRESULT hr;try{hr =m_pConnection.CreateInstance("ADODB.Connection");//创建Connection对象if(SUCCEEDED(hr)){hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=worker.mdb","","",adModeUnknown);}}catch(_com_error e) //捕捉异常{CString errormessage;errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage()); AfxMessageBox(errormessage); //显示错误信息}CFindNo dl2;if(dl2.DoModal()==IDOK){UpdateData(true);long id=dl2.m_id;m_pSet->MoveFirst();while(m_pSet->m_id!=dl2.m_id)m_pSet->MoveNext();CMShowDetail dl1;dl1.m_month=m_pSet->m_month;dl1.m_name=m_pSet->m_name;dl1.m_id=m_pSet->m_id;dl1.m_base=m_pSet->m_base;dl1.m_jintie=m_pSet->m_jintie;dl1.m_gangtie=m_pSet->m_gangtie;dl1.m_butie=m_pSet->m_butie;dl1.m_fangtie=m_pSet->m_fangtie;dl1.m_jiaotong=m_pSet->m_jiaotong;dl1.m_yingfa=dl1.m_base+dl1.m_jintie+dl1.m_gangtie+dl1.m_butie+dl1.m_fa ngtie+dl1.m_jiaotong;dl1.m_fangzu=m_pSet->m_fangzu;dl1.m_chuxu=m_pSet->m_chuxu;dl1.m_huifei=m_pSet->m_huifei;if(dl1.m_yingfa<800){dl1.m_gerentax=0;}else if(dl1.m_yingfa>=800&&dl1.m_yingfa<=1000){dl1.m_gerentax=dl1.m_yingfa*0.05f;}else if(dl1.m_yingfa>1000&&dl1.m_yingfa<=5000){dl1.m_gerentax=dl1.m_yingfa*0.1f;}else if(dl1.m_yingfa>5000){dl1.m_gerentax=dl1.m_yingfa*0.2f;}dl1.m_yingkou=dl1.m_gerentax+dl1.m_fangzu+dl1.m_chuxu+dl1.m_huifei;dl1.m_shifa=dl1.m_yingfa-dl1.m_yingkou;dl1.m_other=dl1.m_other;dl1.DoModal();}}void CWorkerMgr6View::OnStaticsMoney(){HRESULT hr;try{hr =m_pConnection.CreateInstance("ADODB.Connection");//创建Connection对象if(SUCCEEDED(hr)){hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=worker.mdb","","",adModeUnknown);}}catch(_com_error e) //捕捉异常{CString errormessage;errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage()); AfxMessageBox(errormessage); //显示错误信息}m_pSet->MoveFirst();float sum=0;while(!m_pSet->IsEOF()){sum=sum+m_pSet->m_shifa;m_pSet->MoveNext();}CString string;string.Format("%f",sum);MessageBox(string,"统计当月支出",MB_OKCANCEL);}五、测试及结果分析（a）在此前端主界面下查看后台数据库中员工的基本信息。

java课程设计-----员工工资管理系统-

《JAVA程序语言设计》课程设计报告书设计题目：员工工资管理系统指导老师：学生班级：软工1602学生学号：2016028学生姓名：同组人员：时间：2018年12月一．引言1.1项目的名称员工工资管理系统1.2项目背景和目标职工工资信息管理系统主要能够对职工个人信息进行管理，对职工用户提供个人信息查询，工资查询等，对管理用户提供增加，修改，删除员工信息等操作。

我们的目标就是为该系统提供后台连接数据库程序设计以及前台用户界面设计。

1.3项目的可行性研究设计此系统需要Java面向对象编程基础，数据库应用知识以及功能分析。

根据目前所开设的课程，学生已经具备了这样的知识，有能力综合Java编程知识和数据库应用知识做出一个这样的职工工资信息管理系统。

二．需求分析2.1 系统概述此系统提供给公司职工和管理者使用，职工登陆后可以对自己的信息进行查询，管理者登陆后可以对职工的信息进行修改，增加，删除等操作。

2.2系统运行环境Java程序运行在eclipse软件上编译并且运行，数据库用MYSQL数据库三．系统设计3.1 开发与设计的总体思想职工方面：职工可以通过自己的职工号和密码登陆后，进入职工主界面，在这个主界面里，职工可以进行信息查询操作。

管理员方面：管理员通过自己的密码登陆后可以选择：查询功能，修改功能。

在查询功能里，可以选择查询职工个人信息或者工资情况。

在修改功能里，可以选择对职工的信息进行增加，删除和修改操作。

3.2 系统模块结构图3.3 数据库结构设计为了支持此职工档案管理系统，创建数据库employeemanage,在这个数据库里包含三个表：worker表，manager表，employee表，它们的截图如下：在worker表中，有八个属性列，分别为：id(职工号),wname(姓名),age(年龄),sex(性别),number(电话),salary(工资),dept(部门)。

其基本数据类型分别为：char,char,int,char,char,int,char.在manager表中，有两个属性列，分别为：mname(管理员姓名),password(密码)其基本数据类型分别为：char,char。

软件课程设计报告delphi工资管理系统

南京理工大学课程设计说明书作者: 学号：学院(系):计算机系专业: 计算机科学与技术题目: 工资管理系统2011 年 5 月目录一、概述 (3)二、需求分析 (4)三、系统设计 (5)四、系统实施 (8)五、系统测试 (8)六、收获和体会 (8)七、附录 (9)八、参考文献 (9)一、概述随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事工资的管理势在必行。

对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；而工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有着手工管理所无法比拟的优点。

例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高人事工资资管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。

本系统开发的主要目的就是要使企事业单位工资管理实现计算机管理，采用公司现有的软硬件软件及科学的管理系统开发方案，建立人事工资管理系统，实现公司人事工资管理的计算机自动化。

使管理员能够有序地管理每一位职工的各项工资条款的发放以及员工个人台帐的生成，使企业运用现代化技术创造更多更高的经济效益。

该工资管理系统选用Delphi与Access进行开发，现在市场上有很多MIS的开发工具，如：Visual basic、Delphi、ASP等等，数据库开发工具又有很多种，如：Access，SQL Sever，Oracle等。

与其他开发工具相比，Delphi与Access有着自己的特点与优势。

2018-2019-delphi7.0范例入门...-实用word文档 (28页)

本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！== 本文为word格式，下载后可方便编辑和修改！ ==delphi7.0范例入门...篇一：delphi7.0的经典实例5作为资源文件嵌入就可以解决这个问题。

用记事本写一个exe.rc,里面就一句;MYEXEEXEFILEssl.exe然后用brcc32编译exe.rc,生成exe.res文件在你的单元中插入{$Rexe.res}至于提取出来也很简单procedureTForm1.ExtractFile;varresStream:TResourceStream;begintryresStream:=TResourceStream.Create(hinstance,PChar( 'MYEXE '),PChar( 'EXEFILE '));resStream.SaveToFile( 'c:\e.exe ');resStream.Free;........exceptShowMessage( '提取文件错误 ');end;end;把Delphi程序嵌入到其他程序中把Delphi程序嵌入到其他程序中作者：佚名文章来源：网络点击数：193 更新时间：201X-4-2916:13:15怎样把Delphi程序嵌入到其他程序中？201X-02-21 15:17某个bbs 站上有文章：(想来作者不会介意我装载吧！)===================================================================== =========文件合并器的制作方法作者：王昊从想到做文件合并器到现在已经有一个多月了,但是一直没有静下心来想它的实现方法. 昨天看数学看烦了, 我终于忍不住扔开了书,开始着手"文件合并器"的编制.3小时后,终于有了眉目,今天又改了一下.现在终于能够和各位分享我的喜悦了.我愿意将我的方法写给大家,也希望各位高手不吝赐教.先看看我们的目的:编写一个程序A,它能够将两个可执行程序B和C合并在一起,形成一个新的可执行程序D. 要让用户执行D的时候,相当于同时运行B和C两个程序.我的开发工具:我现在能够用VB和DELPHI中的任何一个开发这个软件.这次我用的是DELPHI.如果你需要,也可以用VC或BCB来完成.下面我用这三个小时中我考虑的东西为线索来讲讲主要的原理.一. 我的疑惑.将两个可以执行的程序合并在一起会变成什么东西?这是我的第一个疑惑.要解决这个问题,首先要学会如何将两个文件合并在一起.我想到了内存流(MemoryStream),它能极方便的完成这个步骤.假设有两个可执行文件f1, f2.现在要把他们合并在一起.下面给出原代码.varstrmSource,strmDest:TMemoryStream;begin//先读f1strmSource:=TMemoryStream.Create;strmSource.loadfromfile(f1);//拷贝到strmdeststrmDest:=TMemoryStream.Create;strmDest.copyfrom(strmSource,strmSource.size);strmSource.clear;//再读f1strmSource.loadfromfile(f2);//拷贝到strmdeststrmDest.seek(strmDest.size,soFromBeginning);strmDest.copyfrom(strmSource,strmSource.size);strmSource.free;//这时strmDest里面便是两个文件合并后的内容了.将它保存为文件strmDest.SaveToFile('dest.exe');strmDest.free;end;我惊讶的发现,执行dest.exe就相当于执行f1!!为了确认,我将原代码中f1和f2的读入顺序对调,得到的新的dest.exe执行竟然相当于执行f2!!(此处省略了N个感叹号).我又用同样的方法在f1的后面添加很多无意义的字节,得到的新的f1运行竟然很正常.现在我们知道了,将两个或者多个可执行文件合并在一起,得到的新文件执行时只是执行第一个文件.这是非常关键的一步.二.如何分离?合并没有问题了,如何分离呢?在知道原来的两个文件的大小的情况下,这很容易作到.假设i1和i2是原来两个文件的大小(字节).合并后的文件是"dest.exe".varstrmSource,strmDest:TMemoryStream;Begin//先读dest.exestrmSource:=TMemoryStream.Create;strmSource.loadfromfile('dest.exe');//拷贝f1到strmdeststrmDest:=TMemoryStream.Create;strmDest.copyfrom(strmSource,i1);//保存f1strmDest.SaveToFile(f1);strmDest.clear;//拷贝f2到strmdeststrmSource.seek(i1,soFromBeginning);strmDest.copyfrom(strmSource,i2);strmDest.SaveToFile(f2);。

CS的人事工资管理系统的开发Delphi

CS的人事工资管理系统的开发Delphi
CS的人事工资管理系统的开发系统的总体策划
一个好的软件的开发，其策划是非常关键的，它决定了以后的开发方向与框架。

系统的策划好比是房子建筑过程中的图纸，成功的系统策划是后期进行系统开发与实现的重要保证。

主要从系统功能，结构，内容，风格，流程等方面来考虑。

3.1.1 系统目标
系统应符合公司人事、工资管理制度，并达到操作直观、方便、实用、安全等要求。

从上面的分析可以看出：系统设计必须从保证系统的变更性人手，设计出一个易于理解，容易维护的系统。

为了分析具备什么特点的系统易于修改，必须先找出修改一个系统的困难来自何处。

系统的修改，往往是某一个模块或某一子系统的细节的一些变动，或者是子系统组合关系的某些变动，更常见的是某一局部的数据结构或执行语句的修改。

这种修改的本身并不困难，困难在于找出需要修改的地方和这一修改对其他部分的影响。

我们知道，系统各个部分之间存在控制、调用、数据交换等种种联系。

对某一局部的修改，可能直接或间接地影响到系统的其他部分。

对A的修改波及B，而对B的修改又可以影响到C，E，。

毕业设计(论文)DELPHI工资管理论文(附设计源代码)

毕业设计（论文）DELPHI工资管理论文目录1 前言 (1)2 系统概况 (2)2.1系统开发背景 (2)2.2系统开发目的 (2)2.3系统平台选用 (2)2.3.1数据库技术的现状与发展 (2)2.3.2数据库系统的选择原则 (3)2.3.3系统开发工具的选择 (3)3 需求分析 (7)3.1需求陈述 (7)3.2可行性分析 (7)3.2.1技术可行性 (7)3.2.2时间、设备可行性 (7)3.2.3经济可行性 (8)4 概要设计 (9)4.1系统功能结构设计 (9)4.2数据库设计 (10)4.2.1数据库逻辑结构 (10)4.2.2 数据库E-R图 (12)4.2.3 Oracle数据库的使用 (13)5 详细设计 (14)5.1主界面设计 (14)5.2基本信息管理模块 (15)5.3工资数据模块 (24)5.4当月报表模块 (35)5.5历史数据模块 (37)5.6系统信息模块 (41)6 系统性能测试与分析 (42)6.1测试范围与主要内容 (42)6.2测试方法 (42)6.3测试报告 (42)7 结论 (43)参考文献 (44)致谢 (45)1 前言上世纪八、九十年代以来，计算机产业飞速发展，其应用渗透在社会生产的各个领域。

计算机在国内的崛起加速了各企事业单位、机关的自动化进程，提高了国民生产的效率，从而为国民经济的飞速发展创造了必要的条件。

步入21世纪以来，计算机更是以惊人的普及速度，进入各行各业和大部分家庭。

各种应用的需求也不断增加，人们更加追求生活的品质和工作的效率，企业更是视提高生产效率为生存和发展之道，于是通过科技手段提高生产和管理效率自然成为竞争和发展的焦点。

这不仅包括如何实现企业生产设备的改进和生产技术的提高还包括如何有效地组织和管理企业各项事务，实现企业的办公自动化。

而管理信息系统（Management Information System, MIS）在办公自动化的进程中发挥着重要的作用。