软件(数据库)工程实习报告

1、软件工程程综合实实验报告告学号姓名名（组长长）： 学号号姓名： 班级级： 教师师：1系统需需求分析析开发及运运行环境境1. 硬硬件要求求CPU：3000MHzz以上的的处理器器。内存：1128MMB，推推荐2556MBB。硬盘：1150MMB以上上剩余空空间。显示像素素：最低低8000*6000，最最佳效果果10224*7768。2. 软软件要求求操作系统统：Wiindoows220000/NTT/XPP/CEE。数据库：SQLL Seerveer20000。管理信息息系统(MISS)不仅仅是一个个技术系系统，而而且也是是一个社社会系统统。这从从另一个个方面可可看出，任何企企事业单单位的管管理

2、信息息系统都都是基于于自己单单位的实实际情况况而建立立，即使使是同行行企业建建立的相相同系统统都会由由于企业业的实际际情况而而有所不不同。工资管理理是任何何企事业业单位都都面临的的问题，由于各各个公司司的工资资处理方方式总是是有所区区别，因因此目前前还没有有一个通通用的工工资管理理系统，只能针针对公司司情况去去开发适适合本公公司需求求的工资资管理系系统。早早期的工工资管理理是人工工化的，工作量量大时，出现错错误的机机率也会会随之升升高，这这会导致致会计人人员花费费更多的的时间去去改正错错误，延延误工资资发放的的时间，或出现现工资发发放错误误的现象象。而企企业工资资管理系系统就是是使用电电脑代替

3、替大量的的人工统统计和计计算，完完成企业业工资信信息的处处理，而而且还可可以用电电脑安全全完整地地保存企企业工资资记录。系统初步步调查的的内容主主要是了了解公司司组织的的整体信信息，包包括员工工信息和和员工工资资信息。通过对对系统特特点进行行调查和和分析，可以得得到本系系统的关关键部分分如下：员工职务务工资的的设定，是工资资管理系系统的基基础，可可以实现现工资的的基本管管理。这这样可以以减少出出错，提提高效率率。 其他工资资的设置置，是对对员工基基本工资资的补充充。系统应该该可以输输出工资资报表，可以通通过报表表侧面反反映员工工工作的的好坏。系统还应应包括员员工基本本信息的的录入、修改和和删除

4、。系统还应应该提供供强大的的数据统统计、查查询功能能。系统应有有比较好好的可操操作性、稳定性性和可扩扩展性。数据流图图（DFFD）数据流图图是一种种能全面面地描述述信息系系统逻辑辑模型的的主要工工具，它它可以用用少数几几种符号号综合地地反映出出信息在在系统中中的流动动、处理理和存储储情况，比管理理业务流流程图具具有更好好的抽象象性和概概括性。它包括括四种符符号，如如下图所示示：外部实体-S 处理 -P 数据流-F 数据存储-D 数据流程图的符号通过详细细调查和和业务流流程图，舍去物物质和其其他要素素，绘制制出工资资管理数数据流程程图。如如下图所示示： 工资管理系统数据流程图 S1管理员P1P3

5、S2员工编制工资表P2S1管理员工资表D2月度工资条D4职工信息表D1工资设置表P4输入职工信息F1员工基本信息s1计算工资F 2实发工资数据字典典（DDD）DFD只只是对数数据处理理和彼此此之间的的联系进进行了说说明。为为了对数数据流程程图中的的各个元元素作出出详细的的说明，有必要要建立数数据字典典，将数据据流图中中的全部部数据流流及其组组成部分分的数据据元素，数据存存储，数数据加工工描述清楚楚,以便便于系统统设计的的进行。数据流流程图配配以数据据字典，就可以以从图形形和文字字两个方方面对系系统的逻逻辑模型型进行完完整的描描述。因因此，开开发人员员有必要要编写详详细的数数据字典典,来描描述系

6、统统开发过过程的细细节。下面列出出本系统统中主要要的数据据字典，包括数数据项、数据流流、数据据存储、加工处处理。数据项数据项又又称数据据元素，是数据据的最小小单位，是无法法再细分分的数据据。下面面列出主主要的数数据元素素，如下下表所示示主要的数数据元素素数据项名名称数据项编编号类型及宽宽度别名简述备注empIID无varccharr(12)职工编号号用来标识识员工的的唯一编编码namee无varccharr(10)姓名与职工编编号相对对应headdshiip无varccharr(10)职务表示职工工现任职职务basee_paay无moneey(8)基本工资资表示员工工的基本本工资10000（默

7、认认）Prizze无moneey(8)奖金表示员工工的奖金金800（默认）数据流数据流是是由一个个或一组组固定的的数据项项组成。其体现现了数据据的流向向，从哪哪里来，流向哪哪里。如如下表所示示。 数 据 流流数据流编编号：FF1 数据流流名称：员工基基本信息息简述：管管理员可可以添加加、修改改、删除除员工基基本信息息数据流来来源：管管理员的的输入 数据据流去向向：制定定员工基基本信息息数据流组组成：eempIID+nnamee+seex+bbornntimme+rregiion+nattionn+goovviis+ccultturee+maarr+heaadshhip+adddr+pphonn

8、e+eemaiil+IID+ppic+ressumee数据流编编号：FF2 数数据流名名称：月月度实发发工资简述：由由管理员员输入或或修改员员工工资资，再由数数据库自自动计算算员工的的月度工工资信息息数据流来来源：管管理员或或数据库库 数据据流去向向：员工工工资信信息数据流组组成：eempIID+nnamee+heeadsshipp+baase_payy+prrizee+saalarry+iincoome_taxx+inncomme数据存储储数据存储储是数据据结构保保存的场场所，它它只描述述了数据据的逻辑辑存储结结构，而而不涉及及它的物物理组织织。现就就以相关关表来说说明数据据存储的的定义，如

9、下表表所示。 数 据 存存 储数据存储储编号：D1数据存储储名称：员工信息息表简 述述：存放放员工的的基本信信息数据存储储组成：emppID+namme+ssex+borrntiime+reggionn+naatioon+ggovvvis+cullturre+mmarrr+heaadshhip+adddr+pphonne+eemaiil+IID+ppic+ressumee关 键 字：emppID相 关 处 理：PP1，PP2数据存储储编号：D2数据存储储名称：员工工工资信息息简 述述：存放放员工的的工资信信息数据存储储组成：emppID+namme+hheaddshiip+bbasee_paa

10、y+pprizze+ssalaary+inccomee_taax+iincoome关 键 字：emppID相 关 处 理： P2，P3加工处理理加工处理理是对数数据流程程图中的的逻辑处处理进行行分析及及一些必必要说明明。如下下表所示示。加工处理理处理逻辑辑编号：P2处理逻辑辑名称：编制基基本工资资简 述述：制定定基本工工资表输入的数数据流：职工编编号来源源于数据据存储员员工信息息表；工工资来源源于数据据存储工工资信息息表处 理理：根据据员工信信息和工工资信息息编制基基本工资资输出的数数据流：数据流流“基本工工资”写入数数据存储储员工工工资信息息表处 理 频 率：如如果员工工信息无无变动，处理基

11、基本上也也是没变变动处理逻辑辑编号：P3处理逻辑辑名称：计算工工资简 述述：计算算应发工工资输入的数数据流：基本工工资来源源于数据据存储员员工工资资信息表处 理理：根据据基本工工资、奖奖金和个个人所得得税计算算应发工工资输出的数数据流：数据流流“工资”写入数数据存储储员工工工资信息息表处 理 频 率：对对每个员员工每月月处理一一次处理逻辑辑编号：P1、P4处理逻辑辑名称：输入职职工信息息、工资资设置简 述述： 系系统挂另另一拥有有管理职职工信息息和工资资信息的的权利输入的数数据流：由管理理员输入入处 理理：管理理员管理理输出的数数据流：员工信信息表、员工工工资表处 理 频 率：对对每个员员工处

12、理理一次 2 总体设设计2.1 项目目规划工资管理理系统是是由基本本信息管管理、工工资查询询、工资资管理、系统管管理和帮帮助等几几个功能能模块组组成，规规划系统统功能模模块如下下：基本信息息管理模模块基本信息息管理模模块主要要包括员员工录入入、员工工删除22部分。工资查询询模块工资查询询模块主主要包括括基本工工资查询询、浮动动工资查查询、加加班/休休假查询询、总体体查询44个部分分。工资管理理模块工资管理理模块主主要包括括工资发发放管理理、基本本工资管管理、浮浮动工资资管理33个部分分。系统管理理模块系统管理理模块主主要包括括用户管管理、修修改密码码、退出出系统33个部分分。帮助模块块帮助模块

13、块主要包包括关于于1个部部分。2.2系系统功能能结构工资系统统的功能能结构如如图1所示。图1 系统功功能图2.3 设计目目标本系统是是根据中中小企业业的实际际需求而而开发的的，完全全能够实实现企业业对客户户的自动动化管理理，通过过本系统统可以达达到以下下目标：系统运行行稳定，安全可可靠。界面设计计美观，人机交交互界面面友好。信息查询询灵活、方便、快捷、准确，数据存存储安全全可靠。满足键盘盘和鼠标标的双重重操作，完全支支持回车车键。采用多种种方式查查询数据据。操作员可可以随时时修改自自己的口口令。对用户输输入的数数据，系系统进行行严格的的数据检检验，尽尽可能排排除人为为的错误误。数据保密密性强，

14、为每个个用户设设置相应应的权限限级别。3概念模模型设计计性别籍贯民族婚姻职工编号基本工资职务职工编号政治面貌文化程度职务奖金职务 发放工资员工应发工资出生日期姓名姓名个人所得税地址工资表实发工资e电话管理系统用户用户名密码权限电邮照片简历身份证实体联系系（E-R）图图对数据中中词典中中的数据据存储进进行分析析，得出出用户、员工信信息、员员工工资资信息等等数据存存储，它它们都由由自己的的头信息息另加若若干细节节项构成成，根据据实体与与属性的的区分准准则（作作为“属性”，不能能再具有有需要描描述的性性质），这些细细节项应应上升为为实体。工资管管理系统统的主要要实体及及其属性性有：用户 usser,

15、paasswwordd,rrighht员工信信息 emppID，namme，sexx，borrntiime，reggionn，nattionn，govvviss，cullturre，marrr，headdshiip，adddr，phoone，emaail，ID，picc，ressumee员工工工资信息息emmpIDD，namme，heaadshhip，basse_ppay，priize，sallaryy，inccomee_taax，inccomee 4逻辑模模型设计计逻辑结构构设计的的任务就就是把概概念模型型设计阶阶段设计计好的基基本E-R图转转换为与与选用的的具体机机器上的的DBMMS产品品

16、所支持持的数据据模型相相符合的的逻辑结结构，现现选用关关系模型型，E-R图向向关系模模型的转转换结果果如下所所示：用户（usser，paasswwordd，rigght）useer为为此关系系的主键键。员工信信息（eempIID，nnamee，seex，bbornntimme，rregiion，nattionn，goovviis，ccultturee，maarr，heaadshhip，adddr，pphonne，eemaiil，IID，ppic，ressumee）empIID此关关系的主主键。员工工工资信息息（emmpIDD，naame，heaadshhip，basse_ppay，priize

17、，sallaryy，inccomee_taax，inccomee）empIID此关关系的主主键。5物理模模型设计计5.1数数据库和和表名称称在本系统统中数据据库的名名称设置置为gzzgl。数据库库中表名名称和字字符标识识如下所所示：序号表名称字符标识识1用户yh2员工信息息yg3员工工资资信息yggzz5.2表表的结构构设计用户（yh）列名描述类型长度允许空useer用户名varccharr20NoPasssworrd密码varccharr12Norigght用户权限限varccharr20No员工信信息（yyg）列名描述类型长度允许空empIID(主主键)职工编号号varccharr12No

18、Namee姓名varccharr10NoSex性别varccharr4NoBornntimme出生日期期dateetimme8YesRegiion籍贯varccharr10YesNatiion民族varccharr8YesGovvvis政治面貌貌varccharr10YesCultturee文化程度度varccharr20YesMarrr结婚状况况varccharr4YesHeaddshiip职务varccharr10NoAddrr地址varccharr20YesPhonne电话varccharr20YesEmaiil电子邮件件varccharr20YesID身份证号号码varccharr20

19、YesPic个人照片片imagge16YesResuume个人简历历textt16Yes员工工工资信息息(ygggz)列名描述类型长度允许空备注empIID(主主键)职工编号号varccharr12NoNamee姓名varccharr10NoHeaddshiip职务varccharr10Nobasee_paay基本工资资moneey8Yes默认值（10000）Prizze奖金moneey8Yes默认值（8000）Salaary应发工资资moneey8Yes公式(basse_ppay + prrizee)incoome_taxx个人所得得税moneey8YesIncoome实发工资资moneey

20、8Yes公式(basse_ppay + prrizee - iincoome_taxx)实现员工工工资信信息（职职工编号号、姓名名、职务务）随着着员工信信息的更更新、删删除、插插入而更更新、删删除、插插入，实实现动态态更新，我使用用了三个个触发器器，分别别如下：CREAATE TRIIGGEER Delletee_Reeminnderr OON ddbo.员工信信息 FOR delleteeASdecllaree eemp varrchaar(112)seleect emmp =emppID froom ddeleetedddeleete fromm 员员工工资资信息wherre eempII

21、D=emppCREAATE TRIIGGEER Inssertt_Reeminnderr OON ddbo.员工信信息 FOR INSSERTTASinseert intto 员工工工资信息息(emppID,namme,hheaddshiip)seleect emppID,namme,hheaddshiipfromm innserrteddCREAATE TRIIGGEER Upddatee_naame ONN dbbo.员员工信息息 FOR UPPDATTEASdecllaree eemp varrchaar(112)decllaree nna vvarccharr(100)decllare

22、e hhs vvarccharr(100)seleect emmp =emppID froom iinseerteedseleect naa =nnamee frrom insserttedseleect hss =hheaddshiip ffromm innserrteddif uupdaate(namme) or upddatee(heeadsshipp)begiinupdaate员工工工资信息息set namme=na,heaadshhip=hsswherre eempIID=emppend实现个人人所得税税的自动动计算，而不在在程序中中修改，我使用用了一个个计算个个人所得得税的触触发器

23、，代码如如下：CREAATE TRIIGGEER moddifyyinccomee_taax ON dboo.员工工工资信信息 FOR INSSERTT, UUPDAATEASupdaate 员工工工资信信息set inccomee_taax=(sallaryy-16600)*0.05wherre eempIID = 员员工工资资信息.emmpIDD annd (sallaryy-16600)=00 aand (ssalaary-16000)=5500 annd (saalarry-116000)=220000 annd (saalarry-116000)=550000 annd (saala

24、rry-116000)=2200000 andd (sallaryy-16600)=4400000 andd (sallaryy-16600)=6600000 andd (sallaryy-16600)=8800000 andd (sallaryy-16600)=110000006应用程程序设计计系统功能能结构设设计 为为了详细细描述系系统模块块功能，在系统统功能模模块划分分的的基基础上，对相应应系统的的数据流流图进行行功能分分解，得得到含义义明确、功能单单一的单单元功能能模块，从而得得到系统统的功能能模块图图。6.1.2工资资管理系系统本系统主主要分系系统管理理模块、工资管管理模块块、报表表

25、管理模模块和帮帮助模块块组成。工资管理系统系统管理模块工资管理模块报表管理模块帮助模块工资管理理系统模模块图6.1.3系统统管理模模块 这一一模块主主要完成成一些用用户的管管理和员员工信息息的管理理以及系系统的退退出和重重新登录录。系统管理模块用户管理员工信息管理重新登录退出用户管理注册用户注销用户密码修改系统管理理模块结结构图6.1.4工资资管理模模块 这一一模块主主要实现现个人工工资管理理、工资资批量设设置和工工资计算算公式的的功能。工资管理个人工资管理工资批量设置工资计算公式工资管理理模块结结构图6.1.5报表表管理模模块 这一一模块主主要完成成对工资资管理系系统中公公司中的的员工信信息

26、和工工资信息息的制表表，为企企业领导导提供所所需的数数据。主主要包括括：员工工工资表表 、员员工信息息表和员员工工资资条报表管理员工工资表 员工信息表员工工资条报表管理理模块结结构图界面设计计 由于于工资管管理系统统的最终终用户是是对计算算机技术术并不精精通的管管理人员员，从他他们的应应用需求求出发，应该本本着用户户操作界界面友好好、清晰晰、易学学易用、易于维维护的原原则来进进行设计计。登录窗口口进入系统统时要进进行安全全性检验验。需输输入你的的用户名名，密码码。本系系统由管管理员负负责注册册和注销销用户，您可以以使用管管理员登登录系统统，初始始密码为为jsjjmz。通过数数据库的的安全认认证

27、，您您还可以以限制他他人以管管理员登登录，只只能以来来宾的用用户登录录系统，初始密密码为11234456。系统用户户登录窗窗体设计计如下：主界面窗窗体本系统主主要有三三个功能能：系统统管理、工资管管理、报报表管理理。其中中系统管管理中包包含用户户管理、员工信信息管理理、重新新登录系系统功能能，工资资管理包包含员工工工资管管理、工工资批量量设置、工资计计算公式式，报表表中由员员工信息息表、员员工工资资表、员员工工资资条，本本系统可可以让您您轻松地地了解本本公司员员工的基基本信息息和工资资管理。主界面面窗体设设计如下下：注册用户户 您可以以通过管管理员用用户注册册其他用用户（注注册成功功的用户户为

28、非管管理员权权限），而非管管理员用用户没有有此项功功能。注注册用户户窗体如如下：员工信息息管理您可以通通过此功功能查看看或修改改员工的的基本信信息。其其中管理理员拥有有添加、修改、删除及及查询员员工信息息的权利利，而非非管理员员只能查查询员工工信息，而不能能拥有添添加、修修改和删删除的权权利。个人工资资管理您可以通通过此功功能查看看或修改改员工的的工资信信息。其其中管理理员拥有有修改和和查询员员工工资资信息的的权利，而非管管理员只只能查询询员工工工资信息息，而不不能拥有有修改员员工工资资的权利利。员工工资资条您可以打打印员工工的工资资信息发发放给各各员工。关于注：此系系统中还还有许多多窗体因因

29、篇幅有有限，不不能一一一显示，只显示示了一些些主要窗窗体，若若要进一一步了解解这些窗窗口及其其它窗口口，请查查看系统统应用设设计和运运行界面面。应用系统统实施开发工具具的选择择本系统采采用Viisuaal BBasiic 66.0和和SQLL Seerveer 220000编写，为了您您能够轻轻松使用用本系统统请您在在使用前前请看怎怎样配置置您的系系统（包包括配置置SQLL Seerveer 220000服务器器（导入入数据库库文件）和配置数数据源（使用数数据源OODBCC方法）代码部分分系统登登录窗体体代码：Dim TIMM Ass InnteggerDim myvval As Strrin

30、ggPrivvatee Suub CCommmandd1_CClicck()Adoddc1.CommmanndTyype = aadCmmdUnnknoownAdoddc1.ReccorddSouurcee = seelecct *froom 用用户 wwherre useer= + DDataaCommbo11.BoounddTexxt + Adoddc1.ReffresshIf AAdoddc1.Reccorddsett.ReecorrdCoountt = 0 TThennMsgBBox (暂暂无此用用户，请请重新选选择用户户！)DataaCommbo11.SeetFoocussExitt

31、 SuubEnd IfIf DDataaCommbo11.BoounddTexxt AAnd Texxt1.Texxt AAnd Texxt1.Texxt = Trrim(Adoodc11.Reecorrdseet.FFiellds(paasswwordd) Thhenlogiinfllag = 00usennamee = DattaCoomboo1.BBounndTeextIf AAdoddc1.Reccorddsett.Fiieldds(rigght) = 管管理员 Thhenlogiinusserfflagg = 1Elseelogiinusserfflagg = 0End IffrmM

32、Mainn.ShhowUnlooad MeElseeIf TTIM = 33 Thhenmyvaal = MssgBoox(密码输输入错误误，请向向系统管管理员查查询！)If mmyvaal = vbbOK Theen EEndEnd IfIf DDataaCommbo11.BoounddTexxt = ThhenMsgBBox (请请选择用用户)DataaCommbo11.SeetFoocussElseeIf TTextt1.TTextt = TheenMsgBBox (用用户密码码不能为为空,请请输入用用户密码码！)Textt1.SSetFFocuusElseeIf TTextt1.TTe

33、xtt Addodcc1.RRecoordsset.Fieeldss(ppasssworrd) ThhenMsgBBox (密密码错误误，请查查证后重重新输入入密码！)Textt1.SSelSStarrt = 0Textt1.SSelLLenggth = LLen(Texxt1.Texxt)TIM = TTIM + 11Textt1.SSetFFocuusEnd IfEnd IfEnd IfEnd IfEnd SubbPrivvatee Suub CCommmandd2_CClicck()If llogiinfllag = 11 ThhenEndElseefrmMMainn.ShhowMe.H

34、HideeEnd IfTextt1.TTextt = DataaCommbo11.Teext = 请选择择用户End SubbPrivvatee Suub DDataaCommbo11_Chhangge()TIM = 11Textt1.TTextt = End SubbPrivvatee Suub DDataaCommbo11_Cllickk(Arrea As Inttegeer)Adoddc1.CommmanndTyype = aadCmmdUnnknoownAdoddc1.ReccorddSouurcee = seelecct * frrom 用户Adoddc1.ReffresshEnd

35、SubbPrivvatee Suub DDataaCommbo11_KeeyDoown(KeyyCodde AAs IInteegerr, SShifft AAs IInteegerr)If KKeyCCodee = vbKKeyRRetuurn Theen TTextt1.SSetFFocuusEnd SubbPrivvatee Suub FFormm_Acctivvatee()DataaCommbo11.SeetFoocussTIM = 11If llogiinfllag 1 TThennfrmLLogiin.CCapttionn = 工资资管理系系统重新登登录窗体体End IfEnd S

36、ubbPrivvatee Suub FFormm_Unnloaad(CCanccel As Inttegeer)If llogiinfllag = 11 ThhenEndElseefrmMMainn.ShhowMe.HHideeEnd IfEnd SubbPrivvatee Suub PPictturee1_CClicck()Calll ShhelllAboout(hWnnd, “工资管管理系统统”, “欢迎提提出建议议”, MMe.IIconn)End SubbPrivvatee Suub PPictturee2_CClicck()SenddKeyys F11End SubbPrivvate

37、e Suub TTextt1_KKeyDDownn(KeeyCoode As Inttegeer, Shiift As Inttegeer)If KKeyCCodee = vbKKeyRRetuurn Theen CCommmandd1_CClicckIf KKeyCCodee = vbKKeyUUp TThenn DaataCCombbo1.SettFoccusEnd Subb主窗体体代码：Privvatee Deeclaare Funnctiion SheellEExeccutee Liib sheell332.ddll Alliass SShelllExxecuuteAA (ByVVal

38、 hWnnd AAs LLongg, BByVaal llpOpperaatioon AAs SStriing, ByyVall lppFille AAs SStriing, ByyVall lppParrameeterrs AAs SStriing, ByyVall lppDirrecttoryy Ass Sttrinng, ByVVal nShhowCCmd As Lonng) As LonngConsst SSW_SSHOWWNORRMALL = 1Privvatee Suub FFormm_Acctivvatee()StattusBBar11.Paanells(22).TTextt =

39、 当前前登录的的是 & uusennameeIf llogiinusserfflagg = 1 TThennmnuAAdduuserr.Ennablled = TTrueemnuDDeleeteuuserr.Ennablled = TTrueemnuBBatcchseet.EEnabbledd = TruuePictturee1.EEnabbledd = TruueElseemnuAAdduuserr.Ennablled = FFalssemnuDDeleeteuuserr.Ennablled = FFalssemnuBBatcchseet.EEnabbledd = FallsePicttur

40、ee1.EEnabbledd = FallseEnd IfEnd SubbPrivvatee Suub FFormm_QuueryyUnlloadd(Caanceel AAs IInteegerr, UUnlooadMModee Ass Inntegger)i = MsggBoxx(您您真的退退出工资资管理系系统？, vvbYeesNoo + vbEExcllamaatioon)If ii = vbYYes TheenEndEnd IfEnd SubbPrivvatee Suub mmnuAAbouut_CClicck()Calll ShhelllAboout(hWnnd, “工资管管理系统统

41、”, “欢迎提提出建议议”, MMe.IIconn)End SubbPrivvatee Suub mmnuAAdduuserr_Cllickk()frmAAdduuserr.ShhowMe.HHideeEnd SubbPrivvatee Suub mmnuAAssiist_Cliick(Inddex As Inttegeer)ShelllExxecuute Me.hWnnd, vbNNulllStrringg, AApp.Patth & 帮助.chmm, vbNNulllStrringg, , SW_SHOOWNOORMAALEnd SubbPrivvatee Suub mmnuBBatcch

42、seet_CClicck()frmBBatcch.SShowwMe.HHideeEnd SubbPrivvatee Suub mmnuCChannge_Cliick()frmCChannge.ShoowMe.HHideeEnd SubbPrivvatee Suub mmnuDDeleeteuuserr_Cllickk()frmDDeleeteuuserr.ShhowMe.HHideeEnd SubbPrivvatee Suub mmnuEEMP_Cliick(Inddex As Inttegeer)frmUUserr.ShhowMe.HHideeEnd SubbPrivvatee Suub m

43、mnuEExitt_Cllickk()i = MsggBoxx(您您真的退退出工资资管理系系统？, vvbYeesNoo + vbEExcllamaatioon)If ii = vbYYes TheenEndEnd IfEnd SubbPrivvatee Suub mmnuFFormmulaae_CClicck()frmFFormmulaae.SShowwMe.HHideeEnd SubbPrivvatee Suub mmnuIInfootabble_Cliick()DataaRepportt2.SShowwMe.HHideeEnd SubbPrivvatee Suub mmnuPPerssa

44、laarysset_Cliick()frmPPerssal.ShoowMe.HHideeEnd SubbPrivvatee Suub mmnuRRloggin_Cliick()frmLLogiin.SShowwMe.HHideeEnd SubbPrivvatee Suub mmnuWWageebarr_Cllickk()DataaRepportt1.SShowwMe.HHideeEnd SubbPrivvatee Suub mmnuWWageetabble_Cliick()DataaRepportt3.SShowwMe.HHideeEnd SubbPrivvatee Suub PPicttur

45、ee2_CClicck()mnuCChannge_CliickEnd SubbPrivvatee Suub PPictturee1_CClicck() mnuuAddduseer_CClicckEnd SubbPrivvatee Suub PPictturee3_CClicck()frmUUserr.ShhowMe.HHideeEnd SubbPrivvatee Suub PPictturee4_CClicck()mnuIInfootabble_CliickEnd SubbPrivvatee Suub PPictturee5_CClicck()mnuPPerssalaarysset_Cliic

46、kEnd SubbPrivvatee Suub PPictturee6_CClicck()mnuWWageebarr_CllickkEnd SubbPrivvatee Suub PPictturee7_CClicck()mnuRRloggin_CliickEnd SubbPrivvatee Suub PPictturee8_CClicck()mnuEExitt_CllickkEnd Subb注册用用户窗体体代码：Privvatee Suub CCommmandd1_CClicck()If TTrimm(Teext11.Teext) = TheenMsgBBox (用用户不能能为空，请重新新输入

47、！)Textt1.SSetFFocuusExitt SuubEnd IfIf TTrimm(Teext22.Teext) = TheenMsgBBox 密码码不能为为空，请请重新输输入！Textt2.SSetFFocuusExitt SuubEnd IfIf CCombbo1.Texxt = ThhenMsgBBox (用用户权限限不能为为空，请请重新输输入！)Combbo1.SettFoccusExitt SuubEnd IfIf TTextt2.TTextt Teext33.Teext TheenMsgBBox (两两次输入入的密码码不一致致，请重重新输入入！)Textt2.TTextt

48、= Textt3.TTextt = Textt2.SSetFFocuusElseeAdoddc1.CommmanndTyype = aadCmmdUnnknoownAdoddc1.ReccorddSouurcee = seelecct *froom 用用户 wwherre useer= + TTrimm(Teext11.Teext) + Adoddc1.ReffresshIf AAdoddc1.Reccorddsett.ReecorrdCoountt 0 TThenni = MsggBoxx(用用户名已已经存在在！是否否重新输输入？, vvbYeesNoo + vbEExcllamaatioo

49、n)If ii = vbYYes TheenTextt1.TTextt = Textt2.TTextt = Textt3.TTextt = Textt1.SSetFFocuusElseeCommmandd2_CClicckEnd IfElseeAdoddc1.ReccorddSouurcee = seelecct *froom 用用户Adoddc1.ReffresshAdoddc1.Reccorddsett.AdddNeewAdoddc1.Reccorddsett.Fiieldds(00) = Trrim(Texxt1.Texxt)Adoddc1.Reccorddsett.Fiieldds(1

50、1) = Trrim(Texxt2.Texxt)Adoddc1.Reccorddsett.Fiieldds(22) = Trrim(Commbo11.Teext)Adoddc1.Reccorddsett.UppdatteAdoddc1.Reccorddsett.Clloseei = MsggBoxx(恭恭喜你注注册用户户成功！是否继继续注册册用户？, vbYYesNNo + vbbExcclammatiion + vvbDeefauultBButtton22)If ii = vbYYes TheenTextt1.TTextt = Textt2.TTextt = Textt3.TTextt =

51、Textt1.SSetFFocuusElseeCommmandd2_CClicckEnd IfEnd IfEnd IfEnd SubbPrivvatee Suub CCommmandd2_CClicck()Unlooad MefrmMMainn.ShhowEnd SubbPrivvatee Suub FFormm_Acctivvatee()Textt1.SSetFFocuusEnd SubbPrivvatee Suub PPictturee1_CClicck()frmAAbouut.SShowwEnd SubbPrivvatee Suub FFormm_Unnloaad(CCanccel As

52、 Inttegeer)Unlooad MefrmMMainn.ShhowEnd SubbPrivvatee Suub PPictturee2_CClicck()Calll ShhelllAboout(hWnnd, “工资管管理系统统”, “欢迎提提出建议议”, MMe.IIconn)End SubbPrivvatee Suub PPictturee3_CClicck()SenddKeyys F11End SubbPrivvatee Suub TTextt1_KKeyDDownn(KeeyCoode As Inttegeer, Shiift As Inttegeer)If KKeyCCodee

53、= vbKKeyRRetuurn TheenIf TTextt1.TTextt ThhenTextt2.SSetFFocuusEnd IfEnd IfEnd SubbPrivvatee Suub TTextt2_KKeyDDownn(KeeyCoode As Inttegeer, Shiift As Inttegeer)If KKeyCCodee = vbKKeyRRetuurn TheenIf TTextt2.TTextt ThhenTextt3.SSetFFocuusEnd IfEnd IfEnd SubbPrivvatee Suub TTextt3_KKeyDDownn(KeeyCood

54、e As Inttegeer, Shiift As Inttegeer)If KKeyCCodee = vbKKeyRRetuurn TheenIf TTextt3.TTextt ThhenCommmandd1_CClicckEnd IfEnd IfEnd Subb员工信信息窗体体代码：Dim Connstrr Ass SttrinngDim FilleNaame As StrringgDim adddflaag AAs IInteegerrConsst BBlocckSiize = 440966Dim ADOOFldd Ass ADDODBB.FiielddPrivvatee Suub CC

55、ombbo5_KeyyDowwn(KKeyCCodee Ass Inntegger, Shhiftt Ass Inntegger)If KKeyCCodee = vbKKeyRRetuurn Theen CCommmandd18_CliickEnd SubbPrivvatee Suub CCombbo6_KeyyDowwn(KKeyCCodee Ass Inntegger, Shhiftt Ass Inntegger)If KKeyCCodee = vbKKeyRRetuurn Theen CCommmandd17_CliickEnd SubbPrivvatee Suub CCommmandd

56、1_CClicck()On EErroor GGoToo fllagAdoddc1.Reccorddsett.MoovePPrevviouusIf AAdoddc1.Reccorddsett.BOOF = Trrue TheenMsgBBox 员工工信息记记录已经经到了第第一条！Adoddc1.Reccorddsett.MooveFFirsstEnd Ifflagg:Exitt SuubEnd SubbPrivvatee Suub CCommmandd10_Cliick()Framme2.Vissiblle = FaalseeEnd SubbPrivvatee Suub CCommmandd1

57、1_Cliick()Adoddc1.CommmanndTyype = aadCmmdUnnknoownAdoddc1.ReccorddSouurcee = seelecct *frrom 员工信信息 wwherre nnamee= + Texxt2.Texxt + Adoddc1.ReffresshIf AAdoddc1.Reccorddsett.ReecorrdCoountt = 0 TThennMsgBBox (工工资管理理系统还还没有此此姓名员员工的信信息！)Framme2.Vissiblle = FaalseeAdoddc1.ReccorddSouurcee = seelecct *

58、ffromm 员工工信息Adoddc1.ReffresshExitt SuubEnd IfFramme2.Vissiblle = FaalseeCommmandd20.Vissiblle = TrrueEnd SubbPrivvatee Suub CCommmandd12_Cliick()Adoddc1.CommmanndTyype = aadCmmdUnnknoownAdoddc1.ReccorddSouurcee = seelecct *froom 员员工信息息 whheree emmpIDD= + DattaCoomboo2.BBounndTeext + Adoddc1.Reffress

59、hIf AAdoddc1.Reccorddsett.ReecorrdCoountt = 0 TThennMsgBBox (工工资管理理系统还还没有此此职工编编号员工工的信息息！)Framme3.Vissiblle = FaalseeAdoddc1.ReccorddSouurcee = seelecct * ffromm 员工工信息Adoddc1.ReffresshExitt SuubEnd IfFramme3.Vissiblle = FaalseeCommmandd20.Vissiblle = TrrueEnd SubbPrivvatee Suub CCommmandd13_Cliick()F

60、ramme3.Vissiblle = FaalseeEnd SubbPrivvatee Suub CCommmandd14_Cliick()Adoddc1.CommmanndTyype = aadCmmdUnnknoownAdoddc1.ReccorddSouurcee = seelecct *froom 员员工信息息 wwherre hheaddshiip= + Teext33.Teext + Adoddc1.ReffresshIf AAdoddc1.Reccorddsett.ReecorrdCoountt = 0 TThennMsgBBox (工工资管理理系统还还没有此此职务员员工的信信息