中南民族大学数据库实验报告

中南民族大学计算机科学学院数据库综合实验报告题目工资管理系统年级专业软件过程指导教师实验类型综合型成绩评定评语教师签名年月日前言一、目的数据库是一门理论性和实践性都很强的面向实际应用的课程，它是计算机科学技术中发展最快的领域之一。数据库综合实验要求学生在学习完程序设计语言、数据结构、操作系统等课程后，综合利用所学计算机软件知识完成一个数据库应用系统的设计。是一个重要的教学实践环节，是对学生所学知识的掌握和应用程度的一个全面地、综合地考察。在学生初步具备了一定的软件程序设计基础上，本课程设计针对日常应用中的实际问题，要求学生完成一个相对完整的数据库应用系统，培养学生运用数据库理论知识和数据库技术解决实际应用问题的能力，巩固和加深所学理论知识，初步掌握一个完整数据库应用系统的开发过程和方法。加深对数据库系统、软件工程、程序设计语言的理论知识的理解和应用水平；通过设计实际的数据库系统应用课题，进一步熟悉数据库管理系统的操作技术，提高动手能力，提高分析问题和解决问题的能力。培养相关专业专业本科学生科学研制、开发数据库应用系统的基本能力，为计算机在本专业领域的应用奠定基础；培养学生成为计算机硬件和软件知识都过硬的专业人才。二、项目背景概述随着我国国民经济建设的蓬勃发展和具有中国特色的社会主义市场经济体制的迅速完善，各个行业都在积极使用现代化的管理工具，不断改善企业的服务质量，提高工作效率。无论是行政职能，还是生产运作的管理要求的不断提高，在很大程度上使企业不得不改变传统的经营管理方式以适应快速发展的社会主义市场经济，改变企业管理方式、方法已经成为企业发展的先决条件。建设一个科学高效的信息管理系统是解决这一问题的必由之路。对企业内部的财务运用现代化技术进行管理，是提高工作效率的有效手段。工资管理作为企业内部财务管理的一个重要方面，也逐步被企业管理者所重视，由于企业的规模的不断扩，大企业职工人数的不断增多，使工资发放成为企业管理中的一个重课题；再加上每一位职工的具体实际情况相同，规章章制度的不断完善，增大了个人工资发放难度；每个人每月的工资都要通过工资制度的审核，这大大增加了管理人员的工作量，通过计算机管理系统对员工工资进行全面的统计与管理，全面解决了工资管理过程中所遇到的各种问题，并且克服了传统管理方式中的易出错等问题。工资管理系统成为企业现代化管理中的首选管理工具。企业工资管理系统可以完成日常工资的管理，如查询、修改、增加、删除以及存储等操作，迅速准确地完成各种工资数据的的统计和汇总工作，大大提高了企业的管理效率。三、项目实施环境注包括开发、运行环境1）主机类型WINDOWS环境2）网络类型企业内网3）操作系统WINDOWSXP4）数据库管理系统MICROSOFTSQLSERVER20005）其他支撑软件DELPHI706）WINDOWS环境搭建，使用MICROSOFTSQLSERVER2000数据库四、项目人员及其分工傅佳负责收集用户信息，确定系统需求功能，拟定需求分析报告及项目计划。赖浪萧负责系统登录模块设计。张志超数据库设计及管理者登录模块设计及最后的系统测试。刘二虎职工登录模块设计及最后的测试工作。五、项目实施计划工资管理系统是由人事管理、工资管理、系统管理和用户管理等几个功能模块组成，规划系统功能模块如下1）人事管理模块员工信息管理模块主要包括员工基本信息录入、修改，删除，导出部分。2）工资管理模块工资管理模块主要包括个人工资查询、所有人员工资显示、工资的修改3个部分。3）系统管理模块系统管理模块主要包括数据的备份，基本资料2个部分。4）用户管理模块用户管理模块主要包括用户管理、修改密码、转换用户3个部分。需求分析一、概述随着公司业务的扩展，人员的增多，传统的手工作业已经不再适合公司发展的需要所以引进计算机技术对企业内部员工进行方便的管理，这样有诸多好处，各层管理人员可以对企业众多的员工信息进行动态的管理，例如基本资料的修改，添加，删除，查询等。有利于减少错误，减轻人事部门的任务，提高效率，节约人力资源，降低企业成本。二、功能需求经过调研与分析，整个系统从总体上分为人事管理、工资管理、系统管理，用户管理四大部分，每一部分应实现的功能如下1人事管理功能新员工档案的输入员工基本信息维护包括修改、删除。员工基本信息查看员工基本信息查询支持多条件查询，可以选择某一部门、某一账号，姓名等进行查询，也可以组合查询。员工花名册。2工资管理功能新员工工资新增。员工工资修改。员工工资查询（个人和总体显示）。3系统维护功能部门信息维护实现灵活的增减部门信息职务信息，员工一些基本信息显示。系统数据备份。4用户管理功能用户管理包括新增用户、删除用户、修改用户密码等。系统人员1）员工每个员工有个用户名和密码，能够方便的按照某种关键字对自己的工资进行查询。2）系统管理员有唯一用户名和密码，完成对员工资料的增加，删除，修改和查询。对系统的维护，数据备份，数据导出。员工信息的查询，增加，修改，删除，设定工资年龄，岗位工资，个人所得税。系统功能模块图三、其它需求包括安全、性能需求1）系统易操作性所开发的系统应做到操作简单，尽量使系统操作不受用户对电脑知识水平的限制。2）系统具有可维护性由于系统涉及的信息比较广，数据库中的数据需定期修改，系统可利用的空间及性能也随之下降，为了使系统更好地运转，学院可以对系工资管理工资信息查询工资修改人事管理员工信息删除员工信息修改员工信息添加用户管理用户数据添加用户数据修改修改用户口令工资管理系统系统管理基本信息查询部门信息管理数据备份统数据及一些简单的功能进行独立的维护及调整。3）系统具有开放性该系统能够在开放的硬件体系结构中运行，并且能与其他系统顺利连接，不会因外部系统的不同面要做在量的修改工作。数据库设计1在仔细调查工资管理过程的基础上，得到系统所要处理数据的流程如图人力资源录用新员工部门岗位调整员工辞退人事变动员工信息员工信息查询员工岗位相关信息工资计算工资查询工资表2通过对员工管理内容、工资管理内容和过程的分析，本系统应设计的实体和属性如下员工（包括员工账号、员工姓名、学历、性别、政治面貌、所属部门、职务、参加工作时间、籍贯、民族）；部门（部门代号、部门名称）；职务（职务名称）；薪金结构（月份、员工账号、员工姓名，薪水帐目、数目）实体和实体之间的关系ER图如下职务职务名称部门部门代号部门名称员工工号员工姓名学历性别政治面貌所属部门职务籍贯员工民族薪金结构薪水帐目月份数目员工工号员工姓名部门职务员工属于担任薪金结构具有1NMN1N3在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。工资管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。员工信息表说明员工基本信息表用于存储员工基本信息，为保证数据的一致和资料的完整，可以对表进行插入，修改和删除操作。管理员表序号域中文名域类型可否为空备注1管理员账号VARCHAR（10）主键2姓名VARCHAR（10）序号域中文名域类型可否为空备注1员工账号VARCHAR（10）主键2员工姓名VARCHAR（10）3性别VARCHAR（10）4政治面貌VARCHAR（10）5学历VARCHAR（10）6所属部门VARCHAR（10）7职务VARCHAR（10）8参加工作时间VARCHAR（10）9籍贯VARCHAR（10）10民族VARCHAR（10）3密码VARCHAR（2）说明为了便于多个用户管理该系统，建立此表，记录管理员的登录账号和密码。基本资料表序号域中文名域类型可否为空备注1部门编号CHAR（10）主键2部门名称CHAR（10）3职务名称CHAR（10）4籍贯名称CHAR（10）5民族CHAR（10）6学历CHAR（10）说明基本参数表用于维护系统的一些基本参数，例如职务，籍贯、民族，学历，部门。员工工资表说明员工工资表用于计算员工的工资，及工资的设置，查询等功能。应用程序设计一、应用程序框架设计（包括相关原理与主要技术手段）根据需求分析、概要设计的结果，采用DELPHI做为开发工具，实现公司工资管理各模块的功能。1启动界面设计11功能说明系统运行时，首先弹出此启动窗口，几秒钟后自动关闭出现登录窗口,实现此界面主要是修改了工程文件，并调用了一个时间空间，当下方进度条到头时，进入登陆界面，此界面则自动隐藏。12屏幕格式设计序号域中文名域类型可否为空备注1员工账号CHAR（10）主键2员工姓名CHAR（10）3部门名称CHAR（10）4时间DATETIME（10）5基本工资INT（4）6岗位工资INT（4）7住房补贴INT（4）8津贴INT（4）9工会会费INT（4）10水电费INT（4）11住房公积金INT（4）12养老保险INT（4）13奖金INT（4）14罚金INT（4）15应发金额INT（4）16应扣金额INT（4）17实发金额INT（4）启动界面13源程序分析PROCEDURETFORM1TIMER1TIMERSENDERTOBJECT/控制进度条BEGINIFFORM1PANEL2LEFTCHRVK_BACKTHEN/控制职能输入数字KEYCHR0ENDPROCEDURETFORM2EDIT2KEYPRESSSENDERTOBJECTVARKEYCHARBEGINIFNOTKEYIN09ANDKEYCHRVK_BACKTHEN/控制职能输入数字KEYCHR0ENDPROCEDURETFORM2BUTTON1CLICKSENDERTOBJECTBEGINIFMESSAGEBOX0,PCHAR确定要退出系统吗,提示,526/确认是否要退出系统THENFORM1CLOSEENDPROCEDURETFORM2BUTTON2CLICKSENDERTOBJECTBEGINIFEDIT1TEXTANDEDIT2TEXT/判断密码输入是否为空THENMESSAGEBOX0,PCHAR账号为空,提示,MB_ICONINFORMATIONELSEIFEDIT1TEXTANDEDIT2TEXTTHENMESSAGEBOX0,PCHAR密码为空,提示,MB_ICONINFORMATIONELSEBEGINWITHADOQUERY1DOBEGINCLOSESQLCLEAR/根据输入从管理员表中取出SQLADDSELECT账号,密码FROM管理员表WHERE账号ZHAND密码PWPARAMETERSPARAMBYNAMEZHVALUEEDIT1TEXTPARAMETERSPARAMBYNAMEPWVALUEEDIT2TEXTOPENIFRECORDCOUNT0THEN/判断输入是否正确BEGINAPPLICATIONMESSAGEBOX你输入的账号或密码错误,系统信息,64EDIT1CLEAREDIT2CLEAREXITENDELSEBEGINFORM2VISIBLEFALSEFORM3SHOWMIMAEDIT2TEXTZHEDIT1TEXTENDENDENDEND/关闭窗口提示PROCEDURETFORM2FORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANBEGINIFAPPLICATIONMESSAGEBOX要退出系统吗,询问,36ID_NOTHENCANCLOSEFALSEELSEFORM1CLOSEEND3主窗口设计31功能说明界面采用图形方式，在界面上直接显示，系统的各个大的功能模块；用户只需点击，即可进入相应的功能模块，当鼠标移动到相应图标时，右边会有相应提示。右边状态栏主要是用于显示时钟信息，以及系统操作过程中的信息。而且由于此窗口是用层叠式制作，所以和后边几个功能在同一个窗体，只是暂时隐藏。32屏幕格式设计系统主界面33源程序分析PROCEDURETFORM3SPEEDBUTTON1CLICKSENDERTOBJECT/进入人事管理模块BEGINPANEL2COLORCLREDIMAGE1VISIBLEFALSESPEEDBUTTON1VISIBLEFALSESPEEDBUTTON2VISIBLEFALSESPEEDBUTTON3VISIBLEFALSESPEEDBUTTON4VISIBLEFALSESPEEDBUTTON5VISIBLEFALSEIMAGE2VISIBLETRUESPEEDBUTTON6VISIBLETRUESPEEDBUTTON15VISIBLETRUEENDPROCEDURETFORM3SPEEDBUTTON2CLICKSENDERTOBJECT/进入工资管理模块BEGINPANEL3COLORCLREDIMAGE1VISIBLEFALSESPEEDBUTTON1VISIBLEFALSESPEEDBUTTON2VISIBLEFALSESPEEDBUTTON3VISIBLEFALSESPEEDBUTTON4VISIBLEFALSESPEEDBUTTON5VISIBLEFALSEIMAGE3VISIBLETRUESPEEDBUTTON7VISIBLETRUESPEEDBUTTON16VISIBLETRUEENDPROCEDURETFORM3SPEEDBUTTON4CLICKSENDERTOBJECT/进入系统管理模块BEGINPANEL4COLORCLREDIMAGE1VISIBLEFALSESPEEDBUTTON1VISIBLEFALSESPEEDBUTTON2VISIBLEFALSESPEEDBUTTON3VISIBLEFALSESPEEDBUTTON4VISIBLEFALSESPEEDBUTTON5VISIBLEFALSEIMAGE4VISIBLETRUESPEEDBUTTON8VISIBLETRUESPEEDBUTTON13VISIBLETRUESPEEDBUTTON14VISIBLETRUEENDPROCEDURETFORM3SPEEDBUTTON5CLICKSENDERTOBJECT/进入用户管理模块BEGINPANEL5COLORCLREDIMAGE1VISIBLEFALSESPEEDBUTTON1VISIBLEFALSESPEEDBUTTON2VISIBLEFALSESPEEDBUTTON3VISIBLEFALSESPEEDBUTTON4VISIBLEFALSESPEEDBUTTON5VISIBLEFALSEIMAGE5VISIBLETRUESPEEDBUTTON9VISIBLETRUESPEEDBUTTON11VISIBLETRUESPEEDBUTTON12VISIBLETRUESPEEDBUTTON10VISIBLETRUEENDPROCEDURETFORM3SPEEDBUTTON3CLICKSENDERTOBJECT/退出系统BEGINIFMESSAGEBOX0,PCHAR确定要退出系统吗,提示,526THENFORM1CLOSEENDPROCEDURETFORM3FORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANBEGIN/关闭窗体的提示IFAPPLICATIONMESSAGEBOX要退出系统吗,询问,36ID_NOTHENCANCLOSEFALSEELSEFORM1CLOSEENDPROCEDURETFORM3FORMCREATESENDERTOBJECTBEGINTIMER1ENABLEDTRUEENDPROCEDURETFORM3TIMER1TIMERSENDERTOBJECT/获得当前时间BEGINLABEL1CAPTIONFORMATDATETIMEHHNNSS,NOWEND二、功能模块设计1人事管理模块的实现窗口形体及说明点击员工信息按钮，会进入员工窗体，而点击退出会回到主窗体。人事管理界面11员工基本信息查看和删除111功能说明用于浏览员工的基本信息，可以显示所有员工的信息，也可以按一定条件查询出你所要找的员工信息，如员工账号、员工姓名、部门名称；且有一个显示所有员工信息的按钮；选择DBGRID中一个员工，然后点击删除则可以进行删除；另外还可以把所有员工信息导出到EXILE表格中；浏览时应具有浏览前一条记录、后一条记录的功能。实现采用PAGECONTROL控件，中间放置两个TABLESHEET,其中一个放置DBGRID按件实现表格式浏览。112屏幕格式说明浏览员工基本信息界面113源程序分析PROCEDURETFORM11BUTTON6CLICKSENDERTOBJECT/进入修改窗体BEGINFORM12SHOWENDPROCEDURETFORM11BUTTON1CLICKSENDERTOBJECTBEGINDBGRID1VISIBLETRUEIFRADIOBUTTON1CHECKEDTHEN/输入不能为空BEGINIFEDIT1TEXTTHENBEGINMESSAGEBOXHANDLE,请输入员工帐号,不能为空,提示,MB_OKORMB_ICONINFORMATIONEXITENDELSEWITHADOQUERY1DO/查询是否存在，若有则输出BEGINCLOSESQLCLEARSQLADDSELECTFROM员工信息表WHERE员工信息表账号APARAMETERSPARAMBYNAMEAVALUETRIMEDIT1TEXTOPENENDIFADOQUERY1EOFFALSETHENBEGINADOQUERY1SQLCLEARADOQUERY1CLOSEADOQUERY1SQLADDSELECTFROM员工信息表WHERE账号EDIT1TEXTMESSAGEBOXHANDLE,查询完毕,提示,MB_OKORMB_ICONINFORMATIONADOQUERY1OPENEDIT1TEXTEDIT2TEXTENDELSEBEGINMESSAGEBOX0,你输入的员工账号不存在,错误,48EDIT1TEXTEXITENDENDIFRADIOBUTTON2CHECKEDTHENBEGINIFEDIT2TEXTTHENBEGINMESSAGEBOXHANDLE,请输入员工姓名,不能为空,提示,MB_OKORMB_ICONINFORMATIONEXITENDELSEWITHADOQUERY1DOBEGINCLOSESQLCLEARSQLADDSELECTFROM员工信息表WHERE员工信息表姓名APARAMETERSPARAMBYNAMEAVALUETRIMEDIT2TEXTOPENENDIFADOQUERY1EOFFALSETHENBEGINADOQUERY1SQLCLEARADOQUERY1CLOSEADOQUERY1SQLADDSELECTFROM员工信息表WHERE姓名EDIT2TEXTMESSAGEBOXHANDLE,查询完毕,提示,MB_OKORMB_ICONINFORMATIONADOQUERY1OPENEDIT1TEXTEDIT2TEXTENDELSEBEGIN/若不存在，则输出提示MESSAGEBOX0,你输入的员工姓名不存在,错误,48EDIT2TEXTEXITENDENDIFRADIOBUTTON3CHECKEDTHENBEGINIFCOMBOBOX1TEXTTHENBEGINMESSAGEBOXHANDLE,请输入部门名称,不能为空,提示,MB_OKORMB_ICONINFORMATIONEXITENDELSEWITHADOQUERY1DOBEGINCLOSESQLCLEARSQLADDSELECTFROM员工信息表WHERE员工信息表所在部门APARAMETERSPARAMBYNAMEAVALUETRIMCOMBOBOX1TEXTOPENENDIFADOQUERY1EOFFALSETHENBEGINADOQUERY1SQLCLEARADOQUERY1CLOSEADOQUERY1SQLADDSELECTFROM员工信息表WHERE所在部门COMBOBOX1TEXTMESSAGEBOXHANDLE,查询完毕,提示,MB_OKORMB_ICONINFORMATIONADOQUERY1OPENEDIT1TEXTEDIT2TEXTENDELSEBEGINMESSAGEBOX0,你输入的部门名称无人员,错误,48COMBOBOX1TEXTEXITENDENDENDPROCEDURETFORM11DBGRID1CELLCLICKCOLUMNTCOLUMN/导出到EXILE表BEGINFORM12EDIT3TEXTDBGRID1FIELDS0ASSTRINGFORM12EDIT4TEXTDBGRID1FIELDS1ASSTRINGFORM12COMBOBOX2TEXTDBGRID1FIELDS2ASSTRINGFORM12COMBOBOX3TEXTDBGRID1FIELDS3ASSTRINGFORM12COMBOBOX4TEXTDBGRID1FIELDS4ASSTRINGFORM12COMBOBOX5TEXTDBGRID1FIELDS5ASSTRINGFORM12COMBOBOX6TEXTDBGRID1FIELDS6ASSTRINGFORM12COMBOBOX7TEXTDBGRID1FIELDS7ASSTRINGFORM12COMBOBOX8TEXTDBGRID1FIELDS8ASSTRINGFORM12DATETIMEPICKER1DATEDBGRID1FIELDS9ASDATETIMEENDPROCEDURETFORM11BUTTON7CLICKSENDERTOBJECTVARHINTEGEREXCELIDOLEVARIANTBEGINTRYEXCELIDCREATEOLEOBJECTEXCELAPPLICATIONEXCEPTAPPLICATIONMESSAGEBOXEXCEL没有安装,提示信息,MB_OKMB_ICONASTERISKMB_DEFBUTTON1MB_APPLMODALEXITENDTRYADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLADDSELECTFROM员工信息表ADOQUERY1OPEN/KADOQUERY1RECORDCOUNTEXCELIDVISIBLETRUEEXCELIDWORKBOOKSADDEXCELIDWORKSHEETS1RANGEA1I1MERGETRUEEXCELIDWORKSHEETS1CELLS1,1VALUE员工基本信息表EXCELIDWORKSHEETS1RANGEA1A1HORIZONTALALIGNMENTFFFFEFF4EXCELIDWORKSHEETS1RANGEA1A1VERTICALALIGNMENTFFFFEFF4EXCELIDWORKSHEETS1CELLS2,1VALUE员工账号EXCELIDWORKSHEETS1CELLS2,2VALUE员工姓名EXCELIDWORKSHEETS1CELLS2,3VALUE性别EXCELIDWORKSHEETS1CELLS2,4COLUMNWIDTH12EXCELIDWORKSHEETS1CELLS2,4VALUE所在部门EXCELIDWORKSHEETS1CELLS2,5COLUMNWIDTH12EXCELIDWORKSHEETS1CELLS2,5VALUE职务EXCELIDWORKSHEETS1CELLS2,6COLUMNWIDTH12EXCELIDWORKSHEETS1CELLS2,6VALUE政治面貌EXCELIDWORKSHEETS1CELLS2,7VALUE民族EXCELIDWORKSHEETS1CELLS2,8VALUE学历EXCELIDWORKSHEETS1CELLS2,9VALUE籍贯EXCELIDWORKSHEETS1CELLS2,10COLUMNWIDTH12EXCELIDWORKSHEETS1CELLS2,10VALUE参加工作时间EXCELIDWORKSHEETS1RANGEA1I1FONTNAME宋体EXCELIDWORKSHEETS1RANGEA1I1FONTSIZE15EXCELIDWORKSHEETS1RANGEA1I2FONTBOLDTRUEEXCELIDWORKSHEETS1RANGEA2I2FONTSIZE10EXCELIDWORKSHEETS1RANGEA2I2HORIZONTALALIGNMENTFFFFEFF4EXCELIDWORKSHEETS1RANGEA2I2VERTICALALIGNMENTFFFFEFF4H3ADOQUERY1FIRSTWHILENOTADOQUERY1EOFDOBEGINEXCELIDWORKSHEETS1CELLSH,1VALUEADOQUERY1FIELDBYNAME账号ASSTRINGEXCELIDWORKSHEETS1CELLSH,2VALUEADOQUERY1FIELDBYNAME姓名ASSTRINGEXCELIDWORKSHEETS1CELLSH,3VALUEADOQUERY1FIELDBYNAME性别ASSTRINGEXCELIDWORKSHEETS1CELLSH,4VALUEADOQUERY1FIELDBYNAME所在部门ASSTRINGEXCELIDWORKSHEETS1CELLSH,5VALUEADOQUERY1FIELDBYNAME职务ASSTRINGEXCELIDWORKSHEETS1CELLSH,6VALUEADOQUERY1FIELDBYNAME政治面貌ASSTRINGEXCELIDWORKSHEETS1CELLSH,7VALUEADOQUERY1FIELDBYNAME民族ASSTRINGEXCELIDWORKSHEETS1CELLSH,8VALUEADOQUERY1FIELDBYNAME学历ASSTRINGEXCELIDWORKSHEETS1CELLSH,9VALUEADOQUERY1FIELDBYNAME籍贯ASSTRINGEXCELIDWORKSHEETS1CELLSH,10VALUEADOQUERY1FIELDBYNAME参加工作时间ASSTRINGINCHADOQUERY1NEXTENDSA2IINTTOSTRK2EXCELIDWORKSHEETS1RANGESFONTNAME宋体EXCELIDWORKSHEETS1RANGESBORDERSLINESTYLE2EXCEPTAPPLICATIONMESSAGEBOX导入数据出错请检查文件的格式是否正确,提示信息,MB_OKMB_ICONASTERISKMB_DEFBUTTON1MB_APPLMODALENDBUTTON7ENABLEDFALSEEND12员工基本信息输入121功能说明完成新员工人事档案的建立，在添加界面写入信息，点保存即可。特别在添加界面中的一些COMBOX控件的内容需要在前边，输入，具体见代码。122屏幕格式说明新员工资料录入界面123源程序分析PROCEDURETFORM3SPEEDBUTTON15CLICKSENDERTOBJECT/COMBOX控件的赋值VARIINTEGERBEGINFORM11COMBOBOX1CLEARFORM11ADOQUERY2CLOSEFORM11ADOQUERY2SQLCLEARFORM11ADOQUERY2SQLADDSELECT名称FROM部门表FORM11ADOQUERY2OPENIFFORM11ADOQUERY2RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY2RECORDCOUNT1DOBEGINFORM11COMBOBOX1ITEMSADDFORM11ADOQUERY2FIELDBYNAME名称ASSTRINGFORM11ADOQUERY2NEXTENDENDBEGINFORM11COMBOBOX8CLEARFORM11ADOQUERY7CLOSEFORM11ADOQUERY7SQLCLEARFORM11ADOQUERY7SQLADDSELECT名称FROM部门表FORM11ADOQUERY7OPENIFFORM11ADOQUERY7RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY7RECORDCOUNT1DOBEGINFORM11COMBOBOX8ITEMSADDFORM11ADOQUERY7FIELDBYNAME名称ASSTRINGFORM11ADOQUERY7NEXTENDENDENDBEGINFORM12COMBOBOX3CLEARFORM11ADOQUERY7CLOSEFORM11ADOQUERY7SQLCLEARFORM11ADOQUERY7SQLADDSELECT名称FROM部门表FORM11ADOQUERY7OPENIFFORM11ADOQUERY7RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY7RECORDCOUNT1DOBEGINFORM12COMBOBOX3ITEMSADDFORM11ADOQUERY7FIELDBYNAME名称ASSTRINGFORM11ADOQUERY7NEXTENDENDENDBEGINFORM11COMBOBOX3CLEARFORM11ADOQUERY3CLOSEFORM11ADOQUERY3SQLCLEARFORM11ADOQUERY3SQLADDSELECT职务名称FROM职务表FORM11ADOQUERY3OPENIFFORM11ADOQUERY3RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY3RECORDCOUNT1DOBEGINFORM11COMBOBOX3ITEMSADDFORM11ADOQUERY3FIELDBYNAME职务名称ASSTRINGFORM11ADOQUERY3NEXTENDENDENDBEGINFORM12COMBOBOX4CLEARFORM11ADOQUERY3CLOSEFORM11ADOQUERY3SQLCLEARFORM11ADOQUERY3SQLADDSELECT职务名称FROM职务表FORM11ADOQUERY3OPENIFFORM11ADOQUERY3RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY3RECORDCOUNT1DOBEGINFORM12COMBOBOX4ITEMSADDFORM11ADOQUERY3FIELDBYNAME职务名称ASSTRINGFORM11ADOQUERY3NEXTENDENDENDBEGINFORM11COMBOBOX5CLEARFORM11ADOQUERY4CLOSEFORM11ADOQUERY4SQLCLEARFORM11ADOQUERY4SQLADDSELECT民族名称FROM民族表FORM11ADOQUERY4OPENIFFORM11ADOQUERY4RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY4RECORDCOUNT1DOBEGINFORM11COMBOBOX5ITEMSADDFORM11ADOQUERY4FIELDBYNAME民族名称ASSTRINGFORM11ADOQUERY4NEXTENDENDENDBEGINFORM12COMBOBOX6CLEARFORM11ADOQUERY4CLOSEFORM11ADOQUERY4SQLCLEARFORM11ADOQUERY4SQLADDSELECT民族名称FROM民族表FORM11ADOQUERY4OPENIFFORM11ADOQUERY4RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY4RECORDCOUNT1DOBEGINFORM12COMBOBOX6ITEMSADDFORM11ADOQUERY4FIELDBYNAME民族名称ASSTRINGFORM11ADOQUERY4NEXTENDENDENDBEGINFORM11COMBOBOX6CLEARFORM11ADOQUERY5CLOSEFORM11ADOQUERY5SQLCLEARFORM11ADOQUERY5SQLADDSELECT学历FROM学历FORM11ADOQUERY5OPENIFFORM11ADOQUERY5RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY5RECORDCOUNT1DOBEGINFORM11COMBOBOX6ITEMSADDFORM11ADOQUERY5FIELDBYNAME学历ASSTRINGFORM11ADOQUERY5NEXTENDENDENDBEGINFORM12COMBOBOX7CLEARFORM11ADOQUERY5CLOSEFORM11ADOQUERY5SQLCLEARFORM11ADOQUERY5SQLADDSELECT学历FROM学历FORM11ADOQUERY5OPENIFFORM11ADOQUERY5RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY5RECORDCOUNT1DOBEGINFORM12COMBOBOX7ITEMSADDFORM11ADOQUERY5FIELDBYNAME学历ASSTRINGFORM11ADOQUERY5NEXTENDENDENDBEGINFORM11COMBOBOX7CLEARFORM11ADOQUERY6CLOSEFORM11ADOQUERY6SQLCLEARFORM11ADOQUERY6SQLADDSELECT籍贯FROM籍贯FORM11ADOQUERY6OPENIFFORM11ADOQUERY6RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY6RECORDCOUNT1DOBEGINFORM11COMBOBOX7ITEMSADDFORM11ADOQUERY6FIELDBYNAME籍贯ASSTRINGFORM11ADOQUERY6NEXTENDENDENDBEGINFORM12COMBOBOX8CLEARFORM11ADOQUERY6CLOSEFORM11ADOQUERY6SQLCLEARFORM11ADOQUERY6SQLADDSELECT籍贯FROM籍贯FORM11ADOQUERY6OPENIFFORM11ADOQUERY6RECORDCOUNT0THENBEGINFORI0TOFORM11ADOQUERY6RECORDCOUNT1DOBEGINFORM12COMBOBOX8ITEMSADDFORM11ADOQUERY6FIELDBYNAME籍贯ASSTRINGFORM11ADOQUERY6NEXTENDENDENDFORM11SHOWENDPROCEDURETFORM11BITBTN1CLICKSENDERTOBJECT/录入信息，进行保存BEGINWITHADOQUERY1DOBEGINCLOSESQLCLEARSQLADDSELECTFROM员工信息表WHERE员工信息表账号APARAMETERSPARAMBYNAMEAVALUETRIMEDIT3TEXTOPENENDIFMESSAGEBOX0,PCHAR确实要添加吗,提示,686THENIFEDIT3TEXTOREDIT4TEXTORCOMBOBOX2TEXTORCOMBOBOX3TEXTORCOMBOBOX4TEXTORCOMBOBOX5TEXTORCOMBOBOX6TEXTORCOMBOBOX7TEXTORCOMBOBOX8TEXTTHENBEGINMESSAGEBOX0,PCHAR信息不完整,错误,48EXITENDELSEIFADOQUERY1EOFFALSETHENBEGINSHOWMESSAGE该编号的员工已经存在EDIT3CLEARENDELSEBEGINADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLADDINSERTINTO员工信息表账号,姓名,性别,所在部门,职务,政治面貌,民族,学历,籍贯,参加工作时间VALUES1,2,3,4,5,6,7,8,9,10ADOQUERY1PARAMETERSPARAMBYNAME1VALUEEDIT3TEXTADOQUERY1PARAMETERSPARAMBYNAME2VALUEEDIT4TEXTADOQUERY1PARAMETERSPARAMBYNAME3VALUECOMBOBOX2TEXTADOQUERY1PARAMETERSPARAMBYNAME4VALUECOMBOBOX8TEXTADOQUERY1PARAMETERSPARAMBYNAME5VALUECOMBOBOX3TEXTADOQUERY1PARAMETERSPARAMBYNAME6VALUECOMBOBOX4TEXTADOQUERY1PARAMETERSPARAMBYNAME7VALUECOMBOBOX5TEXTADOQUERY1PARAMETERSPARAMBYNAME8VALUECOMBOBOX6TEXTADOQUERY1PARAMETERSPARAMBYNAME9VALUECOMBOBOX7TEXTADOQUERY1PARAMETERSPARAMBYNAME10VALUEDATETOSTRDATETIMEPICKER1DATEADOQUERY1EXECSQLAPPLICATIONMESSAGEBOX数据已录入，请查看,完成提示,MB_OKEDIT1TEXTEDIT2TEXTEDIT3TEXTENDEDIT3TEXTEDIT4TEXTCOMBOBOX2TEXTCOMBOBOX3TEXTCOMBOBOX4TEXTCOMBOBOX5TEXTCOMBOBOX6TEXTCOMBOBOX7TEXTCOMBOBOX8TEXTEND13员工信息修改131功能说明查询后才可以修改，在DBGRID中选中，然后点击修改按钮就可以进入修改界面。132屏幕格式说明员工信息修改界面133源程序分析PROCEDURETFORM12BITBTN2CLICKSENDERTOBJECTBEGIN/清空EDIT3TEXTEDIT4TEXTCOMBOBOX2TEXTCOMBOBOX3TEXTCOMBOBOX4TEXTCOMBOBOX5TEXTCOMBOBOX6TEXTCOMBOBOX7TEXTCOMBOBOX8TEXTCLOSEENDPROCEDURETFORM12BITBTN1CLICKSENDERTOBJECTBEGINWITHADOQUERY1DOBEGINCLOSESQLCLEARSQLADDSELECTFROM员工信息表WHERE员工信息表账号APARAMETERSPARAMBYNAMEAVALUETRIMEDIT3TEXTOPENENDIFEDIT3TEXTOREDIT4TEXTORCOMBOBOX2TEXTORCOMBOBOX3TEXTORCOMBOBOX4TEXTORCOMBOBOX5TEXTORCOMBOBOX6TEXTORCOMBOBOX7TEXTORCOMBOBOX8TEXTTHENBEGINAPPLICATIONMESSAGEBOX信息不完整,错误操作,MB_OK/判断是否输入完全EXITENDELSEIFADOQUERY1EOFTRUETHEN/判断账号是否存在BEGINAPPLICATIONMESSAGEBOX该账号员工不存在,错误操作,MB_OKEDIT3TEXTENDELSEBEGINADOQUERY1CLOSEADOQUERY1SQLCLEAR/进行修改ADOQUERY1SQLADDUPDATE员工信息表SET账号EDIT3TEXT,姓名EDIT4TEXT,性别COMBOBOX2TEXT,所在部门COMBOBOX3TEXT,职务COMBOBOX4TEXT,政治面貌COMBOBOX5TEXT,民族COMBOBOX6TEXT,学历COMBOBOX7TEXT,籍贯COMBOBOX8TEXT,参加工作时间DATETOSTRDATETIMEPICKER1DATEWHERE账号EDIT3TEXTADOQUERY1EXECSQLAPPLICATIONMESSAGEBOX修改完成,提示,MB_OKADOQUERY1CLOSECLOSEENDEND2工资管理模块实现窗口形体及说明点击工资管理按钮，会进入工资管理窗体，而点击退出会回到主窗体。工资管理界面21工资查询211功能说明选择月份查询，对单个和整体的查询都可以。212屏幕格式说明员工工资查询界面212源程序分析PROCEDURETFORM13SPEEDBUTTON1CLICKSENDERTOBJECTVARDATESTRSTRINGBEGINIFEDIT1TEXTTHEN/判断输入是否为空BEGINMESSAGEBOXHANDLE,请输入员工编号,不能为空,提示,MB_OKORMB_ICONINFORMATIONEXITENDELSEBEGINDATESTRFORMATDATETIMEYYYYM1,DATETIMEPICKER1DATE/按输入员工编号查询ADOQUERY1SQLCLEARADOQUERY1CLOSEADOQUERY1SQLADDSELECTFROM员工工资表WHERE员工编号EDIT1TEXTAND时间DATESTRMESSAGEBOXHANDLE,查询完毕,提示,MB_OKORMB_ICONINFORMATIONADOQUERY1OPENEDIT1TEXTENDENDPROCEDURETFORM13SPEEDBUTTON3CLICKSENDERTOBJECT/显示所有的员工工资BEGINDBGRID1VISIBLETRUEADOQUERY1SQLCLEARADOQUERY1CLOSEADOQUERY1SQLADDSELECTFROM员工工资表MESSAGEBOXHANDLE,查询完毕,提示,M