工资管理系统论文

分类号2010届本科生毕业设计题目_作者姓名学号系院、专业软件工程系指导教师姓名指导教师职称2010年月日注请认真填写的姓名及学号信息,并要求与学院规定的一致中北大学分校毕业论文I目录1前言12系统概况221系统开发背景222系统开发目的223系统平台选用2231数据库技术的现状与发展2232数据库系统的选择原则3233系统开发工具的选择33需求分析731需求陈述732可行性分析7321技术可行性7322时间、设备可行性7323经济可行性84概要设计941系统功能结构设计942数据库设计10421数据库逻辑结构10422数据库ER图12423ORACLE数据库的使用135详细设计1451主界面设计1452基本信息管理模块1553工资数据模块2454当月报表模块3555历史数据模块3756系统信息模块416系统性能测试与分析4261测试范围与主要内容42中北大学分校毕业论文II62测试方法4263测试报告427结论43参考文献44致谢4501前言上世纪八、九十年代以来，计算机产业飞速发展，其应用渗透在社会生产的各个领域。计算机在国内的崛起加速了各企事业单位、机关的自动化进程，提高了国民生产的效率，从而为国民经济的飞速发展创造了必要的条件。步入21世纪以来，计算机更是以惊人的普及速度，进入各行各业和大部分家庭。各种应用的需求也不断增加，人们更加追求生活的品质和工作的效率，企业更是视提高生产效率为生存和发展之道，于是通过科技手段提高生产和管理效率自然成为竞争和发展的焦点。这不仅包括如何实现企业生产设备的改进和生产技术的提高还包括如何有效地组织和管理企业各项事务，实现企业的办公自动化。而管理信息系统（MANAGEMENTINFORMATIONSYSTEM,MIS）在办公自动化的进程中发挥着重要的作用。市场需求也日益增加。大型企业的分工比较严格、细致，组织较为紧密，对软硬件的要求也就比较高，因此试图以一款软件来解决企业的所有问题显然是不可能的，这就需要我们细化事务，有针对性地开发纵向应用广泛的MIS系统。不仅能够解决大型企业和机构的某方面问题，还应该能为更多的中、小型企业利用，提高他们的工作效率，加速企业的发展，从而促进国民经济的建设。财务是每一个单位都会涉及的问题，管理软件雨后春笋般崛起的今天，企业不仅需要通过软件有效地对其实施管理，还想操作能够尽可能简单，软件易于上手。通过查阅相关资料，对市场需求进行分析，对既成工资管理软件的研究和测试，我们认为本课题是一个适应现今工资管理需求的计算机信息管理系统，具有一定的现实意义和开发使用价值。中北大学分校毕业论文12系统概况21系统开发背景自20世纪80年代以来，知识经济的兴起和信息技术的日新月异消除了人与人之间知识、信息传递的障碍，也带来了人类经营意识、管理观念的巨大改变。21世纪是一个经济时代，经济竞争说到底是人才的竞争，谁拥有了人才，谁就将最终拥有财富。通过工资人事管理可以获得并维持组织的竞争优势，人作为公司最重要的资产，如何用好人才，为每个人找到合适的岗位去发挥其特长是用人的关键环节。而运用先进科技手段进行有效管理是最好的发展方向。MIS作为提高管理效率和办公自动化进程的重要工具，已深入到国民生产的方方面面。我们更加需要开发适应不同行业不同需求的MIS系统。22系统开发目的本系统开发的主要目的就是要使企事业单位工资管理实现计算机管理，使管理员能够有序地管理每一位职工的各项工资条款的发放以及员工个人台帐的生成，使企业运用现代化技术创造更多更高的经济效益。23系统平台选用231数据库技术的现状与发展数据库是60年代末出现的一门计算机软件技术，到现在虽然只有三十多年的历史，但在理论和时间上都得到了和很大的发展。现在，数据库是数据处理的主要工具，是管理信息系统MIS的核心部分。数据库系统是当今计算机信息系统的核心,是计算机技术和应用发展的关键。传统的数据库系统旨在处理永久、稳定的数据，强调维护数据的完整性、一致性。数据库理论与技术的发展极其迅速，其应用日益广泛，在当今的信息社会中，它几乎无所不在。以关系型为代表的三大经典（层次、网状、关系）型数据库在传中北大学分校毕业论文2统的（商务和管理的事务型）应用领域获得了极大成功。计算机世界报社与IBM公司联合举办了“21世纪数据库技术发展专家研讨会“。IBMDB2的创始人DONALDHADERLE先生与国内著名数据库专家,就下世纪数据库发展的趋势、数据库领域革命性的突破、IBMDB2的应用、数据仓库的实施、我国数据库技术和应用的现状及趋势、我国数据库用户的需求等问题,进行了广泛而深入的讨论。232数据库系统的选择原则数据库系统采用易于集成的，开放的技术。产品质量优异，可靠性高，适于长期运行，能支持关键应用。数据安全，保安型高。能提供分布式数据库功能。支持多种开发环境，软件开发容易。扩充性和升级能力强。233系统开发工具的选择本次工资管理系统选用DELPHI与ORACLE11G进行开发，现在市场上有很多MIS的开发工具，如VISUALBASIC、DELPHI、ASP等等，数据库开发工具又有很多种，如ACCESS，SQLSEVER，ORACLE等等。与其他开发工具相比，DELPHI与ORACLE有着自己的特点与优势。DELPHI简介DELPHI，是WINDOWS平台下著名的快速应用程序开发工具（RAPIDAPPLICATIONDEVELOPMENT，简称RAD）。它的前身，即是DOS时代盛行一时的“BORLANDTURBOPASCAL”，最早的版本由美国BORLAND（宝兰）公司于1995年开发。主创者为ANDERSHEJLSBERG。经过数年的发展，此产品也转移至EMBARCADERO公司旗下。从产品名称上就可以知道，TURBOPASCAL使用的是PASCAL语言。从TURBOPASCAL55版开始，BORLAND公司在传统PASCAL的基础上加入了面向对象的功能。DELPHI是一个集成开发环境（IDE），使用的核心是由传统PASCAL语言发展而来的OBJECTPASCAL，以图形用户界面（GRAPHICALUSERINTERFACE，简称GUI）为开发中北大学分校毕业论文3环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。DELPHI所编译的可运行档，虽然容量较大，但效能上却比较快。除了使用数据库的程序之外，不需安装即可运行，在使用上相当方便。DELPHI在本质上应该归类为软件开发工具，而非程序语言，但由于DELPHI几乎是目前市场上唯一使用PASCAL，并持续推出新版本的商业产品。因此，有时人们会把DELPHI视为OBJECTPASCAL的代名词。BORLAND公司因而把OBJECTPASCAL改称为DELPHI。2006年，BORLAND把开发工具产品线独立出来，成立了一家新的公司CODEGEAR，并把产品线交由此公司负责。原本的DELPHI，亦曾一度因此被命名为TURBODELPHI。但是在新的版本中，除了DELPHIFORWIN32（原有的DELPHI版本）之外，还有一个新产品“DELPHIFORPHP”。在CODEGEAR的发展规划中，或许“DELPHI”不再是OBJECTPASCAL的专属IDE名称，而是将之提升到通用IDE品牌的层次。2008年5月7日，EMBARCADEROTECHNOLOGIES（易博龙）公司宣布以2300万美元的价格收购CODEGEAR公司，从而把DELPHI收入囊中。2009年5月6日，MICROFOCUS宣布以7500万美元收购BORLAND。DELPHI目前的最新版本是2010。DELPHI具有如下特点直接编译生成可执行代码，编译速度快。由于DELPHI编译器采用了条件编译和选择链接技术，使用它生成的执行文件更加精炼，运行速度更快。在处理速度和存取服务器方面，DELPHI的性能远远高于其他同类产品。支持将存取规则分别交给客户机或服务器处理的两种方案，而且允许开发人员建立一个简单的部件或部件集合，封装起所有的规则，并独立于服务器和客户机，所有的数据转移通过这些部件来完成。这样，大大减少了对服务器的请求和网络上的数据传输量，提高了应用处理的速度。提供了许多快速方便的开发方法，使开发人员能用尽可能少的重复性工作完成各种不同的应用。利用项目模板和专家生成器可以很快建立项目的构架，然后根据用户的实际需要逐步完善。具有可重用性和可扩展性。开发人员不必再对诸如标签、按钮及对话框等WINDOWS的常见部件进行编程。DELPHI包含许多可以重复使用的部件，允许用户控制WINDOWS的开发效果。中北大学分校毕业论文4具有强大的数据存取功能。它的数据处理工具BDEBORLANDDATABASEENGINE是一个标准的中介软件层，可以用来处理当前流行的数据格式，如XBASE、PARADOX等，也可以通过BDE的SQLLINK直接与SYBASE、SQLSERVER、INFORMIX、ORACLE等大型数据库连接。DELPHI既可用于开发系统软件，也适合于应用软件的开发。拥有强大的网络开发能力，能够快速的开发B/S应用，它内置的INTRAWEB和EXPRESSWEB使得对于网络的开发效率超过了其他任何的开发工具。DELPHI使用独特的VCL类库，使得编写出的程序显得条理清晰，VCL是现在最优秀的类库，它使得DELPHI在软件开发行业处于一个绝对领先的地位。用户可以按自己的需要，任意的构建、扩充、甚至是删减VCL，以满足不同的需要。从DELPHI8开始DELPHI也支持NET框架下程序开发。当前DELPHI已经成为一个品牌，而不仅仅是一个开发平台或开发语言的名称。当前DELPHI产品已经由CODEGEAR公司继续发展，该公司是BORLAND公司的全资子公司。当前，CODEGEAR为广大开发者提供了DELPHIFORPHP，以高度可视化的方式全面支持面向对象的PHP网站开发，大大提高了PHP开发网站的代码复用程度，成为WEB应用开发的新利器。ORACLE简介ORACLE的关系数据库是世界第一个支持SQL语言的数据库。1977年，LAWRENCEJELLISON领着一些同事成立了ORACLE公司，他们的成功强力反击了那些说关系数据库无法成功商业化的说法。现在，ORACLE公司的财产净值已经由当初的2000美元增值到了现在的年收入超过97亿美元。ORACLE11G扩展了ORACLE独家具有的提供网格计算优势的功能，可以利用它来提高用户服务水平、减少停机时间以及更加有效地利用IT资源，同时还可以增强全天候业务应用程序的性能、可伸缩性和安全性。11G降低了数据库升级以及其他硬件和操作系统更改的成本，显著简化了更改前后的系统测试以便您可以识别和解决问题。例如利用DATABASEREPLAY，可以中北大学分校毕业论文5在数据库级别轻松捕获实际的生产负载并在您的测试系统上重新播放，这样您可以全面测试系统更改（包括关键的并发特性）的影响。ORACLE数据库11G继续致力于（从ORACLE9I数据库开始一直到ORACLE数据库10G）显著简化和完全自动化DBA任务。ORACLE数据库11G中的新功能包括利用自学功能自动进行SQL优化系统全局区SGA和程序全局区PGA的内存缓存区的自动、统一调整新的ADVISOR用于分区、数据恢复、流性能和空间管理针对自动数据库诊断监视器ADDM的增强，能够提供ORACLE真正应用集群ORACLERAC环境中的更好的性能全局视图以及改进的性能比较分析功能。ORACLE数据库11G中新增的故障诊断功能使客户在发生错误后捕获ORACLESUPPORT所需的数据变得极为简单。这可以加速问题的解决，减少客户重现问题的需要。DELPHI和ORACLE数据库的连接方法ORACLE是以高级结构化查询语言SQL为基础的大型关系数据库，是目前最流行的客户/服务器CLIENT/SERVER体系结构的数据库之一，目前被广泛应用于各类型企业的信息化管理中。数据库支持是DELPHI70开发环境的一个重要特性，很多程序员在数据库应用程序开发中都采用DELPHI70作为开发工具，来实现对数据库的访问和控制。DELPHI数据库应用程序是通过数据库引擎来访问它们引用的数据源的。本文概括性的介绍在WINDOWSXP环境中DELPHI70连接ORACLE数据库的3种方式，它们分别是BDE、ADO、DBEXPRESS。ADOACTIVEXDATAOBJECTS是MICROSOFT的高级接口，基于MICROSOFT的数据访问OLEDB技术而实现。本系统采用ADO方式连接ORACLE数据库。中北大学分校毕业论文63需求分析31需求陈述本系统拟在完成工资管理的同时，集成其他必要的功能，以保证系统的完整性和安全性。具体包括，员工基本信息管理、部门管理、当前工资及历史工资管理等。现对有关要求描述如下整体结构合理，风格一致，模块化结构，界面清晰，接口灵活，操作简便。开发方法，文档规范化，便于管理，可扩充。完善的数据输入，维护，输出。自检性能高，用户误输、错输均有提示。容错性能高，某个用户的操作错误不会引起整个系统的瘫痪，每一功能的操作都有信息提示以免重复操作，错误操作有警告，以便用户及时改正。32可行性分析321技术可行性技术上的可行性分析主要分析现有技术条件能否顺利完成开发工作，软硬件配置能否满足开发者需要等，这一特点非常适合计算机的特点，发挥计算机的数据处理速度快，准确率高的优势，现代计算机硬件和软件技术的飞速发展，为系统的建设提供了技术条件。通过对DELPHI和ORACLE的系统学习，已经基本掌握了开发本系统所需的技术和查阅文献的能力。对工资管理系统这一类的财务系统开发也有一定的认识，因此具备技术可行性。322时间、设备可行性12周的时间足够开发一个满足中小型企业简单需求的工资管理系统，现有计算中北大学分校毕业论文7机的软硬件配置能够满足系统开发的要求，具备时间和设备的可行性。323经济可行性基于企业的现有计算机及配套设备，建设MIS系统。不但能大大减少重复性的书面报告，降低办公费用，提高办公室效率，而且能提高检测数据效用，为企业提供很方便。由于企业工资管理系统是一个比较小型的系统，开发工具也均可免费使用，网络资源丰富，只需较少的花费在技术文献上，开发成本较低，因此，开发本系统具有经济上的可行性。中北大学分校毕业论文84概要设计41系统功能结构设计工资管理系统数据字典维护工资数据当月报表历史数据系统信息部门信息管理员工信息管理基本数据每月填报每月存档当月报表当月汇总部门月报月汇总表图41功能模块图表41功能说明表功能序号功能名称功能说明1部门信息管理包含对部门信息的增加、删除2员工信息管理包含对员工信息的增加、删除3基本工资数据查看和修改基本工资信息4活动工资数据填报每月活动工资数据5每月工资存档每月工资填报完毕后存储数据6当月报表查看当月各部门工资表，打印工资条7当月汇总表查询当月各部门工资汇总信息8历史部门月报查询历史年月的部门工资信息9历史月汇总表查询指定部门制定年月的历史工资汇总信息10系统信息系统与作者信息等设计角色财务管理人员中北大学分校毕业论文942数据库设计421数据库逻辑结构表42部门信息表（BM）字段名称类型宽度约束说明BHVARCHAR23PK部门编号MCVARCHAR210部门名称表43职工工资信息表（RY）字段名称类型宽度约束说明BMVARCHAR210部门BHVARCHAR23编号XMVARCHAR210姓名Z1NUMBER8,2岗位资Z2NUMBER8,2基本资Z3NUMBER8,2效益资J1NUMBER8,2加班J2NUMBER8,2金额J3NUMBER8,2夜班J4NUMBER8,2金额Z4NUMBER8,2独子Z5NUMBER8,2月效资Z6NUMBER8,2技师补Z7NUMBER8,2医务补Z8NUMBER8,2护10Z9NUMBER8,2护龄Z10NUMBER8,2女工卫Z11NUMBER8,2厂扣Z12NUMBER8,2应得资K1NUMBER8,2房租金K2NUMBER8,2水电暖K3NUMBER8,2公积金Z13NUMBER8,2保险RQVARCHAR2200日期KBXNUMBER8,2实发工资中北大学分校毕业论文10表44历史数据表（SJ）字段名称类型宽度约束说明BMVARCHAR210部门BHVARCHAR23编号XMVARCHAR210姓名Z1NUMBER8,2岗位资Z2NUMBER8,2基本资Z3NUMBER8,2效益资J1NUMBER8,2加班J2NUMBER8,2金额J3NUMBER8,2夜班J4NUMBER8,2金额Z4NUMBER8,2独子Z5NUMBER8,2月效资Z6NUMBER8,2技师补Z7NUMBER8,2医务补Z8NUMBER8,2护10Z9NUMBER8,2护龄Z10NUMBER8,2女工卫Z11NUMBER8,2厂扣Z12NUMBER8,2应得资K1NUMBER8,2房租金K2NUMBER8,2水电暖K3NUMBER8,2公积金Z13NUMBER8,2保险RQVARCHAR2200日期KBXNUMBER8,2实发工资中北大学分校毕业论文11422数据库ER图部门部门名称部门编号员工员工编号员工姓名所在部门工作工资月效资应得资房租金水电暖公积金保险日期实发工资金额夜班独子金额加班效益资基本资岗位资医务补技师补护10厂扣护龄女工卫领取N11N图42工资管理系统实体关系图中北大学分校毕业论文12423ORACLE数据库的使用在ORACLE中创建用户，如图42所示图42创建用户在ORACLE中建表，如图43所示图43建表中北大学分校毕业论文135详细设计51主界面设计由于本系统是针对财务管理人员角色设计开发的，故未进行权限的设定。在主界面显示每个模块的入口，点击即可进入。在状态栏显示系统日期和登录系统时间。系统主界面如图51所示图51系统主界面该模块主要代码PROCEDURETGZGL_FFORMCREATESENDERTOBJECT/数据库连接处理BEGINGZGL_FCOLORRGB180,130,100TRYDB1CONNECTEDTRUEEXCEPTSHOWMESSAGE连接数据库失败中北大学分校毕业论文14APPLICATIONTERMINATEENDENDPROCEDURETMAINFFORMCREATESENDERTOBJECT/状态栏系统日期与时间BEGINSTATUSBAR1PANELS0TEXT系统日期DATETOSTRDATESTATUSBAR1PANELS1TEXT系统时间TIMETOSTRTIMEENDPROCEDURETMAINFBMICLICKSENDERTOBJECT/选中菜单显示相应的窗体，此处为部门管理BEGINIFBMICHECKEDTHEN/用IF语句做异常处理BMFSHOWELSEBEGINAPPLICATIONCREATEFORMTBMF,BMFBMFSHOWBMICHECKEDTRUEENDEND52基本信息管理模块此模块包括部门和员工的基本信息维护，具体功能包括，部门信息的添加和删除，员工信息的添加和删除。输入要添加的数据后，点击“添加”完成数据添加，点击“刷新”按钮显示数据。580毕业设计网是专业的毕业论文代写平台也有大量毕业设计成品提供参考WWWBYSJ580COMQQ3449649974删除数据时程序将连接后台数据库，判断是否存在该记录的工资信息，若不存在则删除成功，若存在，则删除失败。如图52，53所示中北大学分校毕业论文15图52部门信息维护部门信息维护核心代码PROCEDURETBMFBITBTN1CLICKSENDERTOBJECTBEGINEDIT1TEXTTRIMEDIT1TEXTIFLENGTHEDIT1TEXT0ORLENGTHBHTEXT0THENBEGINSHOWMESSAGE编号与单位名称不能为空EXITENDWITHQ1DOBEGINCLOSESQLCLEARSQLADDINSERTINTOBMBH,MCSQLADDVALUESY0,Y1PARAMETERSPARAMBYNAMEY0VALUEBHTEXTPARAMETERSPARAMBYNAMEY1VALUEEDIT1TEXTTRYEXECSQLEXCEPTSHOWMESSAGE服务器连接ERROR,程序退出APPLICATIONTERMINATEENDENDENDPROCEDURETBMFBITBTN2CLICKSENDERTOBJECTBEGINIFMESSAGEDLG如果系统中存在本部门数据不能删除,确要删除吗中北大学分校毕业论文16,MTCONFIRMATION,MBYES,MBNO,0MRNOTHENEXITQ1CLOSEQ1SQLCLEARQ1SQLADDDELETEFROMBMQ1SQLADDWHEREBHLIKEBHQ1PARAMETERSPARAMBYNAMEBHVALUEBHTEXTTRYQ1EXECSQLEXCEPTSHOWMESSAGE服务器连接ERROR,程序退出APPLICATIONTERMINATEENDQ1CLOSEENDPROCEDURETBMFBITBTN3CLICKSENDERTOBJECTVARIINTEGERBEGINQ1CLOSEQ1SQLCLEARQ1SQLADDSELECTBH,MCFROMBMQ1SQLADDORDERBYBHTRYQ1OPENEXCEPTSHOWMESSAGE服务器连接ERROR,程序退出APPLICATIONTERMINATEENDSGROWCOUNTQ1RECORDCOUNT1中北大学分校毕业论文17SGCOLCOUNT2FORI0TOSGROWCOUNTDOSGROWSICLEARSGCELLS0,0编号SGCELLS1,0名称FORI1TOSGROWCOUNTDOBEGINSGCELLS0,IQ1FIELDBYNAMEBHASSTRINGSGCELLS1,IQ1FIELDBYNAMEMCASSTRINGQ1NEXTENDQ1CLOSEENDPROCEDURETBMFFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONBEGINMAINFBMICHECKEDFALSEACTIONCAFREEENDPROCEDURETBMFFORMCREATESENDERTOBJECTVARIINTEGERBEGINBMFCOLORRGB220,170,140FORI1TO9DOBHITEMSADD0INTTOSTRIFORI10TO50DOBHITEMSADDINTTOSTRISGFIXEDCOLORRGB180,130,100中北大学分校毕业论文18END员工信息维护图53员工信息维护员工信息维护核心代码PROCEDURETRYFBITBTN1CLICKSENDERTOBJECTBEGINEDIT1TEXTTRIMEDIT1TEXTIFLENGTHEDIT1TEXT0ORLENGTHBHTEXT0ORLENGTHBMTEXT0THENBEGINSHOWMESSAGE编号与单位名称不能为空EXITENDWITHQ1DOBEGIN中北大学分校毕业论文19CLOSESQLCLEARSQLADDINSERTINTORYBM,BH,XMSQLADDVALUESY0,Y1,Y2PARAMETERSPARAMBYNAMEY0VALUEBMTEXTPARAMETERSPARAMBYNAMEY1VALUEBHTEXTPARAMETERSPARAMBYNAMEY2VALUEEDIT1TEXTTRYEXECSQLEXCEPTSHOWMESSAGE服务器连接ERROR,程序退出APPLICATIONTERMINATEENDENDENDPROCEDURETRYFBITBTN2CLICKSENDERTOBJECTBEGINIFMESSAGEDLG如果系统中存在本人工资数据不能删除,确要删除吗,MTCONFIRMATION,MBYES,MBNO,0MRNOTHENEXITBHTEXTTRIMBHTEXTIFLENGTHBHTEXT0THENEXITSFORI1TOSGROWCOUNT1DOBEGINSSGCELLS0,IQ1CLOSEQ1SQLCLEARQ1SQLADDUPDATERYSETZ1Z1,Z2Z2,Z3Z3,Z4Z4,Z5Z5,Z6Z6,Q1SQLADDZ7Z7,Z8Z8,Z9Z9,Z10Z10,Z11Z11,K3K3,KBXKBXQ1SQLADDWHEREBMLIKEBMANDBHLIKEBHQ1PARAMETERSPARAMBYNAMEZ1VALUESTRTOFLOATSGCELLS1,IQ1PARAMETERSPARAMBYNAMEZ2VALUESTRTOFLOATSGCELLS1,I04Q1PARAMETERSPARAMBYNAMEZ3VALUESTRTOFLOATSGCELLS1,I06Q1PARAMETERSPARAMBYNAMEZ4VALUESTRTOFLOATSGCELLS2,IQ1PARAMETERSPARAMBYNAMEZ5VALUESTRTOFLOATSGCELLS3,IQ1PARAMETERSPARAMBYNAMEZ6VALUESTRTOFLOATSGCELLS4,IQ1PARAMETERSPARAMBYNAMEZ7VALUESTRTOFLOATSGCELLS5,IQ1PARAMETERSPARAMBYNAMEZ8VALUESTRTOFLOATSGCELLS6,IQ1PARAMETERSPARAMBYNAMEZ9VALUESTRTOFLOATSGCELLS7,IQ1PARAMETERSPARAMBYNAMEZ10VALUESTRTOFLOATSGCELLS8,IQ1PARAMETERSPARAMBYNAMEZ11VALUESTRTOFLOATSGCELLS1,I01618/Q1PARAMBYNAMEZ11ASFLOAT0Q1PARAMETERSPARAMBYNAMEK3VALUESTRTOFLOATSGCELLS9,IQ1PARAMETERSPARAMBYNAMEBMVALUECOPYBMTEXT,3,20Q1PARAMETERSPARAMBYNAMEBHVALUECOPYS,1,2Q1PARAMETERSPARAMBYNAMEKBXVALUESTRTOFLOATSGCELLS10,I中北大学分校毕业论文25TRYQ1EXECSQLEXCEPTSHOWMESSAGE数据库更新ERROR重新点击“更新”按钮EXITENDENDSHOWMESSAGE操作OKENDPROCEDURETJBFBMEXITSENDERTOBJECTVARIINTEGERBEGINQ1CLOSEQ1SQLCLEARQ1SQLADDSELECTBH,XM,Z1,Z4,Z5,Z6,Z7,Z8,Z9,Z10,K3,KBXFROMRYQ1SQLADDWHEREBMLIKEBMQ1PARAMETERSPARAMBYNAMEBMVALUECOPYBMTEXT,3,20Q1SQLADDORDERBYBHTRYQ1OPENEXCEPTSHOWMESSAGE数据库连接ERROR,程序退出APPLICATIONTERMINATEENDSGROWCOUNTQ1RECORDCOUNT1SGCOLCOUNT11FORI0TOSGROWCOUNT1DOSGROWSICLEARSGCELLS0,0编号姓名SGCELLS1,0岗位资SGCELLS2,0计生补SGCELLS3,0月效资SGCELLS4,0技师补SGCELLS5,0医务补SGCELLS6,0护10SGCELLS7,0教护龄中北大学分校毕业论文26SGCELLS8,0女工卫SGCELLS9,0公积金SGCELLS10,0保险/MDITEMSCLEAR/MDITEMSADDFORI1TOQ1RECORDCOUNTDOBEGIN/MDITEMSADDQ1FIELDBYNAMEBHASSTRINGQ1FIELDBYNAMEXMASSTRINGSGCELLS0,IQ1FIELDBYNAMEBHASSTRINGQ1FIELDBYNAMEXMASSTRINGSGCELLS1,IFLOATTOSTRQ1FIELDBYNAMEZ1ASFLOATSGCELLS2,IFLOATTOSTRQ1FIELDBYNAMEZ4ASFLOATSGCELLS3,IFLOATTOSTRQ1FIELDBYNAMEZ5ASFLOATSGCELLS4,IFLOATTOSTRQ1FIELDBYNAMEZ6ASFLOATSGCELLS5,IFLOATTOSTRQ1FIELDBYNAMEZ7ASFLOATSGCELLS6,IFLOATTOSTRQ1FIELDBYNAMEZ8ASFLOATSGCELLS7,IFLOATTOSTRQ1FIELDBYNAMEZ9ASFLOATSGCELLS8,IFLOATTOSTRQ1FIELDBYNAMEZ10ASFLOATSGCELLS9,IFLOATTOSTRQ1FIELDBYNAMEK3ASFLOATSGCELLS10,IFLOATTOSTRQ1FIELDBYNAMEKBXASFLOATQ1NEXTENDQ1CLOSEENDPROCEDURETJBFFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONBEGINMAINFJBICHECKEDFALSEACTIONCAFREEENDPROCEDURETJBFFORMCREATESENDERTOBJECTVARIINTEGERBEGINJBFCOLORRGB255,255,255BMITEMSCLEARQ1CLOSEQ1SQLCLEARQ1SQLADDSELECTBH,MCFROMBM中北大学分校毕业论文27Q1SQLADDORDERBYBHTRYQ1OPENEXCEPTSHOWMESSAGE服务器连接ERROR,程序退出APPLICATIONTERMINATEENDFORI1TOQ1RECORDCOUNTDOBEGINBMITEMSADDQ1FIELDBYNAMEBHASSTRINGQ1FIELDBYNAMEMCASSTRINGQ1NEXTENDQ1CLOSEEND每月活动工资填报图55每月数据填报该部分核心代码PROCEDURETMYBHFBITBTN1CLICKSENDERTOBJECTVARI,J,KINTEGER中北大学分校毕业论文28SSTRINGBEGINFORI1TOSGROWCOUNTDOSGCELLS6,ILABEL3CAPTIONIFMESSAGEDLG确认更新数据吗,MTCONFIRMATION,MBYES,MBNO,0MRNOTHENEXITIFTRIMBMTEXTTHENEXITK0FORI1TOSGROWCOUNT1DOFORJ2TO5DOBEGINTRYSGCELLSJ,IFLOATTOSTRSTRTOFLOATSGCELLSJ,IEXCEPTSHOWMESSAGE第INTTOSTRI行第INTTOSTRJ列有非法数字KK1ENDENDIFK0THENEXITSFORI1TOSGROWCOUNT1DOBEGINSSGCELLS0,IQ1CLOSEQ1SQLCLEARQ1SQLADDUPDATERYSETJ1J1,J2J2,J3J3,J4J4,Q1SQLADDK1K1,K2K2,RQRQQ1SQLADDWHEREBMLIKEBMANDBHLIKEBHQ1PARAMETERSPARAMBYNAMEJ1VALUESTRTOFLOATSGCELLS2,IQ1PARAMETERSPARAMBYNAMEJ2VALUESTRTOFLOATSGCELLS2,ISTRTOFLOATSGCELLS1,I/30Q1PARAMETERSPARAMBYNAMEJ3VALUESTRTOFLOATSGCELLS3,IQ1PARAMETERSPARAMBYNAMEJ4VALUESTRTOFLOATSGCELLS3,I08Q1PARAMETERSPARAMBYNAMEK1VALUESTRTOFLOATSGCELLS4,I中北大学分校毕业论文29Q1PARAMETERSPARAMBYNAMEK2VALUESTRTOFLOATSGCELLS5,IQ1PARAMETERSPARAMBYNAMERQVALUESGCELLS6,IQ1PARAMETERSPARAMBYNAMEBMVALUECOPYBMTEXT,3,20Q1PARAMETERSPARAMBYNAMEBHVALUECOPYS,1,2TRYQ1EXECSQLEXCEPTSHOWMESSAGE数据库更新ERROR重新点击“更新”按钮EXITENDENDSHOWMESSAGE操作OKENDPROCEDURETMYBHFBMEXITSENDERTOBJECTVARIINTEGERBEGINQ1CLOSEQ1SQLCLEARQ1SQLADDSELECTBH,XM,Z1,J1,J3,K1,K2,RQFROMRYQ1SQLADDWHEREBMLIKEBMQ1PARAMETERSPARAMBYNAMEBMVALUECOPYBMTEXT,3,20Q1SQLADDORDERBYBHTRYQ1OPENEXCEPTSHOWMESSAGE数据库连接ERROR,程序退出APPLICATIONTERMINATEENDFORI0TOSGROWCOUNT1DOSGROWSICLEARSGROWCOUNTQ1RECORDCOUNT1SGCOLCOUNT7SGCELLS0,0编号姓名SGCELLS1,0岗位资SGCELLS2,0加班SGCELLS3,0夜班中北大学分校毕业论文30SGCELLS4,0房租SGCELLS5,0水电暖SGCELLS6,0日期FORI1TOQ1RECORDCOUNTDOBEGINSGCELLS0,IQ1FIELDBYNAMEBHASSTRINGQ1FIELDBYNAMEXMASSTRINGSGCELLS1,IFLOATTOSTRQ1FIELDBYNAMEZ1ASFLOATSGCELLS2,IFLOATTOSTRQ1FIELDBYNAMEJ1ASFLOATSGCELLS3,IFLOATTOSTRQ1FIELDBYNAMEJ3ASFLOATSGCELLS4,IFLOATTOSTRQ1FIELDBYNAMEK1ASFLOATSGCELLS5,IFLOATTOSTRQ1FIELDBYNAMEK2ASFLOATSGCELLS6,IQ1FIELDBYNAMERQASSTRINGQ1NEXTENDQ1CLOSEENDPROCEDURETMYBHFFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONBEGINMAINFYTBICHECKEDFALSEACTIONCAFREEENDPROCEDURETMYBHFFORMCREATESENDERTOBJECTVARIINTEGERYEAR,MONTH,DAYWORDBEGINDECODEDATEDATE,YEAR,MONTH,DAYLABEL3CAPTIONINTTOSTRYEARINTTOSTRMONTHMYBHFCOLORRGB220,170,140BMITEMSCLEARQ1CLOSEQ1SQLCLEARQ1SQLADDSELECTBH,MCFROMBMQ1SQLADDORDERBYBHTRY中北大学分校毕业论文31Q1OPENEXCEPTSHOWMESSAGE服务器连接ERROR,程序退出APPLICATIONTERMINATEENDFORI1TOQ1RECORDCOUNTDOBEGINBMITEMSADDQ1FIELDBYNAMEBHASSTRINGQ1FIELDBYNAMEMCASSTRINGQ1NEXTENDQ1CLOSEEND数据存档界面与代码图56数据存档该部分核心代码PROCEDURETBCFSPEEDBUTTON1CLICKSENDERTOBJECTVARI,X,YINTEGERSSTRINGBEGINQ3CLOSEQ3SQLCLEARQ3SQLADDDELETEFROMSJQ3SQLADDWHERERQLIKERQQ3PARAMETERSPARAMBYNAMERQVALUELABEL1CAPTIONTRY中北大学分校毕业论文32Q3EXECSQLEXCEPTSHOWMESSAGE存档失败,程序退出EXITENDQ1CLOSEQ1SQLCLEARQ1SQLADDSELECTCOUNTQ1SQLADDFROMRYTRYQ1OPENEXCEPTEXITENDXQ1FIELDS0ASINTEGERSHOWMESSAGE本单位共INTTOSTRX人Q1CLOSEQ1SQLCLEARQ1SQLADDSELECTCOUNTQ1SQLADDFROMRYQ1SQLADDWHERERQLIKEY1Q1PARAMETERSPARAMBYNAMEY1VALUELABEL1CAPTIONTRYQ1OPENEXCEPTEXITENDYQ1FIELDS0ASINTEGERSHOWMESSAGE当前月数据共INTTOSTRY条IFXYTHENBEGINSHOWMESSAGE当月数据未填报完毕,不许存档EXITENDQ1CLOSEQ1SQLCLEARQ1SQLADDSELECTFROMRYTRY中北大学分校毕业论文33Q1OPENEXCEPTSHOWMESSAGE操作失败，请重来EXITENDFORI1TOQ1RECORDCOUNTDOBEGINQ2SQLCLEARQ2SQLADDINSERTINTOSJBM,BH,XM,Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z8,Z9,Z10,Z11,Z12,Z13,J1,J2,J3,J4,K1,K2,K3,RQ,KBXQ2SQLADDVALUESY0,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9,Y10,Y11,Y12,Y13,Y14,Y15,Y16,Y17,Y18,Y19,Y20,Y21,Y22,Y23,Y24Q2PARAMETERSPARAMBYNAMEY0VALUEQ1FIELDBYNAMEBMASSTRINGQ2PARAMETERSPARAMBYNAMEY1VALUEQ1FIELDBYNAMEBHASSTRINGQ2PARAMETERSPARAMBYNAMEY2VALUEQ1FIELDBYNAMEXMASSTRINGQ2PARAMETERSPARAMBYNAMEY3VALUEQ1FIELDBYNAMEZ1ASFLOATQ2PARAMETERSPARAMBYNAMEY4VALUEQ1FIELDBYNAMEZ2ASFLOATQ2PARAMETERSPARAMBYNAMEY5VALUEQ1FIELDBYNAMEZ3ASFLOATQ2PARAMETERSPARAMBYNAMEY6VALUEQ1FIELDBYNAMEZ4ASFLOATQ2PARAMETERSPARAMBYNAMEY7VALUEQ1FIELDBYNAMEZ5ASFLOATQ2PARAMETERSPARAMBYNAMEY8VALUEQ1FIELDBYNAMEZ6ASFLOATQ2PARAMETERSPARAMBYNAMEY9VALUEQ1FIELDBYNAMEZ7ASFLOATQ2PARAMETERSPARAMBYNAMEY10VALUEQ1FIELDBYNAMEZ8ASFLOATQ2PARAMETERSPARAMBYNAMEY11VALUEQ1FIELDBYNAMEZ9ASFLOATQ2PARAMETERSPARAMBYNAMEY12VALUEQ1FIELDBYNAMEZ10ASFLOATQ2PARAMETERSPARAMBYNAMEY13VALUEQ1FIELDBYNAMEZ11ASFLOATQ2PARAMETERSPARAMBYNAMEY14VALUEQ1FIELDBYNAMEZ12ASFLOATQ2PARAMETERSPARAMBYNAMEY15VALUEQ1FIELDBYNAMEZ13ASFLOATQ2PARAMETERSPARAMBYNAMEY16VALUEQ1FIELDBYNAMEJ1ASFLOATQ2PARAMETERSPARAMBYNAMEY17VALUEQ1FIELDBYNAMEJ2ASFLOATQ2PARAMETERSPARAMBYNAMEY18VALUEQ1FIELDBYNAMEJ3ASFLOATQ2PARAMETERSPARAMBYNAMEY19VALUEQ1FIELDBYNAMEJ4ASFLOATQ2PARAMETERSPARAMBYNAMEY20VALUEQ1FIELDBYNAMEK1ASFLOATQ2PARAMETERSPARAMBYNAMEY21VALUEQ1FIELDBYNAMEK2ASFLOATQ2PARAMETERSPARAMBYNAMEY22VALUEQ1FIELDBYNAMEK3ASFLOATQ2PARAMETERSPARAMBYNAMEY23VALUEQ1FIELDBYNAMERQASSTRINGQ2PARAMETERSPARAMBYNAMEY24VALUEQ1FIELDBYNAMEKBXASFLOATTRY中北大学分校毕业论文34Q2EXECSQLEXCEPTQ3CLOSEQ3SQLCLEARQ3SQLADDDELETEFROMSJQ3SQLADDWHERERQLIKERQQ3PARAMETERSPARAMBYNAMERQVALUELABEL1CAPTIONTRYQ3EXECSQLEXCEPTSHOWMESSAGE存档失败,程序退出EXITENDSHOWMESSAGE存档失败,程序退出EXITENDQ1NEXTENDSHOWMESSAGE当月数据存档OKEND54当月报表模块本模块包含当月报表与当月汇总表两个子功能模块，当月报表用于打印某一个部门的工资表或工资条，月汇总表可以查看一个或几个部门的月工资汇总信息。界面设计如图57，图58所示。中北大学分