《数据库课程设计工资管理系统cva.docx》由会员分享，可在线阅读，更多相关《数据库课程设计工资管理系统cva.docx（37页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、数据库课程程设计报报告企业员工工工资管理理系统摘 要企业的工资资管理是是公司管管理的一一个重要要内容。工工资管理理既涉及及到企业业劳动人人事的管管理，同同时也是是企业财财务管理理的重要要组成部部分。工工资管理理需要和和人事管管理相联联系，同同时连接接工时考考勤和医医疗保险险等等，来来生成企企业每个个职工的的基本工工资、津津贴、医医疗保险险、保险险费、实实际发放放工资等等。资金金是企业业生存的的主要元元素，资资金的流流动影响响到企业业的整体体运作，企企业员工工的工资资是企业业资金管管理的一一个重要要的组成成部分。但但考虑到到学生的的开发时时间，本本次设计计主要阐阐述员工工工资管管理系统统主要是是
2、以企业业员工工工资情况况为对象象而开发发的。涉涉及系统统比较小小，有利利于学生生单独编编写。其其系统的的设计主主要包括括数据库库的设计计、维护护和应用用界面的的设计与与后台数数据库的的连接。经经分析采采用Miicroosofft 公公司开发发的Viisuaal BBasiic 66.0为为开发工工具，MMicrrosooft SQLL seeverr 20000 为后台台数据库库。Viisuaal BBasiic (简称VVB)是是由Miicroosofft公司司推出的的在Wiindoows操操作平台台下最迅迅速、最最简捷的的应用开开发工具具之一。它引入了面向对象的程序设计思想和“控件”的概念
3、，使得大量已经编好的Visual Basic 程序可以直接拿来使用。同时VB具有简单、易学的特点，是大多数初学者最理想的编程语言，也是专业人员得心应手的开发工具。它在一个公共环境里集成了许多不同的功能，例如，设计、编辑、编译和调试。目前市场上数据库的主流厂商及产品有IBM DB2、Microsoft SQL SERVER 2000、ORACLE 9i、Sybase。Microsoft SQL Server 2000是在SQL Server 7.0的基础上对性能、可靠性、质量以及易用性进行了扩展。SQL Server 2000中包含许多新特性，这些特性使其成为针对电子商务、数据仓库和在线商务解决
4、方案的卓越的数据库平台。其增强的特性包括对丰富的扩展标记语言（XML）的支持、综合分析服务以及便捷的数据库管理。Microsoft SQL Server 2000简化了管理、优化工作，并且增强了迅速、成功的部署在线商务应用程序所需的可靠性和伸缩性。关键词：工工资管理理系统、设设计、开开发工具具目录摘 要11目录2第一章 绪绪论31.1 问问题的提提出31.2 系系统设计计功能3第二章 数数据库系系统设计计52.1 数数据库分分析设计计52.2 数数据各个个表之间间的关系系6第三章 各各个关系系间的数数据结构构73.1 系系统设计计目标73.2 系系统概要要分析7第四章 企企业工资资管理系系统应
5、用用设计94.1 企企业工资资管理系系统设计计94.2 子子模块的的设计10第五章 各各个模块块部门代代码155.1登陆陆界面155.2 各各个子模模块代码码设置16第六章 各各模块设设计要点点236.1 登登录模块块设计236.3用户户管理设设计236.3 信信息管理理设计236.4 查查询工资资设计24第七章 结结束语25致谢266参考文献27第一章 绪论1.1 问问题的提提出 随随着企业业人员数数量增加加，企业业的工资资管理工工作也变变得越来来越复杂杂。早期期的工资资统计和和发放都都是使用用人工方方式处理理纸质材材料，不不仅花费费财务人人员大量量的时间间且不易易保存，往往往由于于个人的的
6、因素抄抄写不慎慎或计算算疏忽，出出现工资资发放错错误的现现象。早早期工资资管理多多采取纸纸质材料料和具有有较强的的时间限限制。随随着我国国国民经经济建设设的蓬勃勃发展和和具有中中国特色色的社会会主义市市场经济济体制的的迅速完完善，各各个行业业都在积积极使用用现代化化的手段段，不断断改善服服务质量量，提高高工作效效率，这这些都在在很大程程度上给给企业提提出越来来越严峻峻的挑战战，对企企业体系系无论是是在行政政职能、企企业管理理水平以以及优质质服务上上都提出出更高的的要求。建建设一个个科学高高效的信信息管理理系统是是解决这这一问题题的必由由之路。企企业内部部财务管管理是该该企业运运用现代代化技术术
7、创造更更多更高高的经济济效益的的主要因因素之一一。工资资管理作作为企业业内部的的一种财财务管理理也是如如此，由由于企业业职工人人数较多多，每一一位职工工的具体体实际情情况也不不尽相同同，各项项工资条条款的发发放，如如果没有有一个完完整的管管理系统统对企业业和员工工的工作作都带来来许多的的不便。基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。工资管理系系统是企企、事业业单位常常见的计计算机信信息管理理系统。它它的主要要任务是是对各种种工资信信息进行行日常的的信息管理理，如工工资信息息的输入入、查询询、修改改、增加加、删除除，迅速速准确地地
8、完成各各种工资资信息的的统计计计算和汇汇总，快快速打印印出报表表。在建建立与实实现工资资管理系系统时，进进行了功能划划分，能能够由数数据库管管理系统统完成的的功能应应尽可能能由数据据库管理理系统守守成，充充分发挥挥数据库库管理系系统高效效、完全全、可靠靠、便捷捷的性能能，减少少编程人人员的工工作量。工工资管理理系统是是数据库库管理系系统的一一个比较较典型的的应用，前台使用的是微软的VB6.0，后台数据库采用Microsoft SQL Sever数据库。运行结果证明，本企业员工工资管理系统极大提高了工作效率，节省了人力和物力，自重满足企业员工工资管理的需要。1.2 系系统设计计功能 企企业工资资
9、管理系系统的主主要任务务是用计计算机对对各种工工资信息息进行日日常的管管理，如如查询、修修改、添添加、删删除以及及存储等等，迅速速准确地地完成各各种工资资信息的的统计计计算和汇汇总工作作，针对对系统服服务对象象的具体体要求，设设计了企企业工资资管理系系统。企企业工资资管理系系统主要要有以下下几大功功能：(1) 对单位人人员的变变动进行行处理。一一个单位位的职工工不会是是一成不不变的，总总是在不不断的变变化：有有调出、有有调入、也也有职工工在本单单位内部部调动。因因此，设设计系统统是应考考虑到这这些情况况。(2) 对职工的的工资进进行计算算、修改改。可以以对职工工的工资资档案进进行个别别、部分分
10、和批量量修改，同同时，能能对各职职工的工工资进行行计算，即即计算基基本工资资、岗位位工资、水水电费及及实发金金额等。(3) 查询统计计功能。要要求即可可以单项项查询，比比如查看看某个职职工的工工资情况况等；也也可以多多项查询询，比如如某个部部门所有有的员工工的工资资信息。（4）对用用户管理理功能。一一个系统统的应用用有管理理员和普普通用户户，他们们对系统统的权限限受到限限制。第二章 数数据库系系统设计计2.1 数数据库分分析设计计需求分析的的过程可可以说是是一个对对具体问问题的反反复理解解和抽象象的过程程。理解解就是对对现实问问题的理理解，要要弄清楚楚究竟需需要解决决什么问问题。抽抽象就是是除
11、去问问题的表表面，提提取问题题的本质质，建立立问题的的逻辑模模型，以以便于以以后阶段段的系统统的设计计实现。需需求分析析阶段是是软件产产品生存存命期中中的一个个重要阶阶段，其其根本任任务是确确定用户户对软件件系统的的需求。所所谓需求求是指用用户对软软件的功功能和性性能的要要求，就就是用户户希望软软件能什什么事情情，完成成什么样样的功能能，达到到什么性性能。此此次课程程设计的的使用者者是企业业的员工工，主要要是针对对系统的的管理员员。其进进行的操操作就是是对公司司员工、部部门等一一些方面面改动的的改善。由由此对员员工需求求分析如如下。 用用户的需需求就是是对员工工工资和和使用用用户的添添加、删删
12、除、修修改和查查询。这这就要求求各种信信息中存存在实体体完整性性、参照照完整性性和用户户自定义义完整性性。搜集集了各项项要求，故故数据项项要求设设计如下下：表2.1员员工信息息表键名称数据类型大小空默认值主键员工编号char8不可以姓名char8不可以性别char2可以“男”出生年月datettimee8可以外键所属部门char4可以文化程度char4可以职称char12可以表2.2 部门信信息键名称数据类型大小空默认值主键部门编号char4不可以部门名称char20可以部门负责人人char8可以部门人数int4可以表2.3 基本工工资键名称数据类型大小空默认值主键工资级别char2可以工资金
13、额numerric5(8,22)不可以表2.4岗岗位工资资键名称数据类型大小空默认值主键工资级别char2可以工资金额numerric5(8,22)不可以表2.5工工资信息息键名称数据类型大小空默认值主键、外键键员工编号char8不可以外键部门编号char4可以基本工资numerric5(8,22)可以岗位工资numerric5(8,22)可以水电费numerric5(8,22)可以实发工资numerric5(8,22)可以2.2 数数据各个个表之间间的关系系在设计过程程中，从从用户的的角度考考虑来处处理各个个表之间间的约束束关系，把把概念模模式转化化成逻辑辑模式最最终形成成E-RR图。员工信
14、息表表(员工工编号、姓姓名、性性别、出出生年月月、所属属部门、文文化程度度、职称称)部门信息表表(部门门编号、部部门名称称、部门门负责人人、部门门人数)基本工资表表(工资资级别、工工资金额额)岗位工资表表(工资资级别、工工资金额额)工资信息表表(员工工编号、部部门编号号、基本本工资、岗岗位工资资、水电电费、实实发工资资)各个模块之之间的关关系,如如图2.1所示示。 图22.1 各表表之间的的联系第三章 各各个关系系间的数数据结构构3.1 系系统设计计目标开发这个系系统的目目的就是是帮助企企业的财财务主管管部门提提高工作作效率，实实现企业业工资信信息管理理的系统统化、规规范化和和自动化化。实现现
15、企业高高效、科科学、现现代化的的员工管管理。系系统最终终实现的的主要功功能如下下。企业工资资信息设设置部分分：包括括设置员员工的基基本工资资和其他他项目的的金额，如如水电费费。企业信息息管理部部分：包包括员工工信息、部部门信息息和发放放工资（工工资信息息）。企业员工工查询部部分：包包括按员员工查询询和按部部门查询询。系统部分分：包括括添加用用户、修改用户户信息。3.2 系系统概要要分析 用用户在使使用一个个系统时时，必须须先登录录操作界界面，在在操作完完成后然然后再退退出，其其操作如如图3.1所示示。 注注销图3.1 系统流流程图说明：操作作员进入入管理系系统的身身份不同同，所获获得的权权限也
16、不不同，普普通用户户只可以以查询自自己的工工资情况况，而且且部门对对自己的的所有信信息进行行更改。图3.2 用户操操作模块块说明：管理理员可以以对所有有模块进进行操作作，普通通用户只只可以进进行查询询员工工工资的权权限。说明：在各各个子模模块操作作时用户户同时在在实现更更改的时时候在对对话框上上的网格格看到后后台数据据库最新新的动态态。各个模块简简介：登录模块：主要完完成用户户的登录录信息核核对并进进入主界界面。用户管理模模块：主主要完成成对用户户信息的的添加、修修改和删删除功能能。信息设置模模块：主主要对企企业内部部员工和和部门的的管理。工资查询模模块：主主要完成成对员工工工资的的查询。第四
17、章 企企业工资资管理系系统应用用设计4.1 企企业工资资管理系系统设计计4.1.11“登陆陆模块”详详细设计计“登录模块块”的设设计主要要是针对对用户登登录界面面的设计计，判断断用户是是管理员员还是普普通用户户，从而而进入主主界面。登陆界面主主要由用用户名和和密码的的信息，还还有标题题的设置置，登录录和取消消按钮的的设置。用用户只有有选择用用户名后后填入相相应的密密码后点点击“登登录”才才能进入入主界面面，点击击“取消消”会退退出系统统。由此此，登陆陆界面设设计如图图4.11所示图4.1 登陆陆界面设设计界面面若用户对此此有操作作上的错错误，我我设计的的特点是是都有提提示的对对话框（几几乎每个
18、个窗体都都设置了了如下操操作，除除了特殊殊的提示示外，为为节省打打印纸张张，相同同的提示示在以后后的篇幅幅中不再再一一写写出），如图4.2所示4.2 操操作错误误提示若用户三次次输入密密码错误误，系统统会认为为恶意进进入，系系统自动动关闭。如图4.3所示图4.3 强制关关闭图4.1.22“主界界面”的的详细设设计主界面的设设计是由由菜单编编辑器生生成，主主要由系系统设置置、设置置、信息息维护、工工资查询询五个模模块组成成。其作作用是使使程序更更加有条条有理，有有利于管管理。其其中普通通用户只只可部分分操作，管管理员可可以对所所有模块块进行操操作。主主界面设设计如图图4.44所示：图4.4 主界
19、面面设计图图4.2 子子模块的的设计4.2.11选择“系统设设置”“用户户管理”“用户户添加”菜单，在在添加用用户的窗窗体里输输入用户户名、用用户密码码和权限限，系统统自动新新增用户户名及其其用户信信息。如如图4.5所示示。为了防止用用户在输输入密码码时按错错键或者者一时忘忘记密码码，我在在设计的的时候运运用了“确认密密码”的文本本框，其其属性与与密码项项相同。可可以用来来矫正用用户一时时的粗心心大意目目的，完完善了系系统的完完整性。图4.5 用户添添加4.2.22.选择”系系统设置置“”用用户管理理“”用用户修改改“菜单单，其窗窗体由五五个标签签、两个个文本框框、两个个组合框框和一个个按钮组
20、组成，分分别设置置它们的的属性，其其中两个个组合框框的属性性设置为为只读属属性。在在用户修修改的窗窗体里选选择用户户名即可可修改用用户密码码和权限限，系统统价自动动更改后后台数据据库的用用户信息息。设计计界面如如图4.6所示示图4.6 用户修修改4.2.33选择”系系统设置置“”用用户管理理“”用用户删除除“菜单单，窗体体设计较较简单，分分别由一一个文本本框、一一个组合合框和两两个按钮钮组成，组组合框的的属性设设置为只只读属性性。由于于删除的的用户只只可以是是后台数数据库中中存在的的用户在在下拉按按钮中选选择要删删除的用用户名，即即可删除除用户名名及其有有关信息息。关于用户管管理的子子菜单，只
21、只有管理理员有权权限进入入设置。4.2.44选择”设设置“”基本本工资“菜菜单，自自动弹出出基本工工资设置置的对话话框（如如图4.7所示示），在网格格中会显显示数据据库中现现有的基基本工资资级别和和金额，用用户在填填写完级级别和金金额后单单击添加加或者修修改按钮钮进行后后台数据据库的更更新。在在网格中中选择要要删除的的基本工工资，点点击删除除按钮，系系统会自自动进行行删除，并并且所有有的操作作后会自自动刷新新网格，以以及时提提供给用用户信息息。图4.7 基本本工资设设置4.2.55选择”设设置“”岗位位工资“菜菜单后，自自动弹出出对话框框，其功功能与基基本工资资设置相相同，在在此不在在赘述。4
22、.2.66选择”信信息维护护“”部部门管理理“菜单单后会出出现如图图4.99所示对对话框，管管理员用用户可以以通过网网格浏览览现有库库中的部部门信息息，在部部门信息息框架中中输入部部门信息息，同时时也可添添加、修修改部门门信息，数数据库自自动更新新。当删删除一条条信息时时，会出出现如图图4.88所示提提示信息息，用户户可以选选择删除除或者取取消操作作。但如如其部门门已经被被引用，则则deelette语语句会与与约束条条件发生生冲突，不不能删除除。图4.8 确定删删除对话话框图4.9 部门管管理设置置4.2.77选择”信信息维护护“”员员工管理理“菜单单后会出出现如下下对话框框，“性别”组合框框
23、默认为为“男”，如用用户输入入的不是是“男”或者是是“女”时，添添加操作作将不能能进行，并并且在填填写员工工信息时时，员工工的性别别默认为为“男”。其进行的操作与部门管理相同，不再赘述。 4.2.88选择”信信息管理理“”发发放工资资“菜单单，网格格显示的的是现有有后台数数据库中中的员工工工资信信息，右右边可以以直接浏浏览员工工工资信信息。直直接点击击选择网网格中的的工资信信息，单单击删除除按钮可可直接删删除。考考虑到设设计页面面的大小小问题，对对工资信信息的添添加和修修改操作作转移到到另一个个窗体（如如图4.10所所示）中中进行。 用用户可以以在工资资信息中中输入员员工的工工资信息息，由于于
24、添加和和修改的的操作同同时在一一个窗体体中进行行，员工工编号不不知道要要添加的的哪一个个，所以以员工编编号的下下拉按钮钮不是“只只读”属属性，用用户在输输入员工工编号时时应输入入一个存存在的员员工，不不然则弹弹出如图图4.111所示示的提示示框。图4.100工资信信息设置置图4.111 员工工不存在在提示4.2.99选择“工工资查询询”“按按员工查查询”菜菜单，弹弹出如图图4.112所示示对话框框，用户户可以选选择单人人查询或或者全部部显示，但但是不能能对员工工的工资资做任何何的改动动。 管管理员可可以查看看所有人人的工资资情况，但但是普通通用户只只可以查查看自己己的工资资情况，别别人的工工资
25、情况况不允许许查看。图4.122 按员员工查询询4.2.110选择择“工资资查询”“按部部门查询询”菜单单，弹出出对话框框，当选选择“部部门编号号”后可可执行“单单个显示示”，若若想全部部显示，可可直接单单击”显显示所有有“按钮钮。网格格中将会会同时刷刷新后台台数据库库信息，但但是不能能做任何何的修改改。第五章 各各个模块块部门代代码5.1登陆陆界面 Stattic tryy_tiimess Ass Inntegger Dimm sqql AAs SStriing Dimm rsst AAs AADODDB.RRecoordsset If TTrimm(cmmo_uuserr.Teext) =
26、 Theen MMsgBBox 请选选择用户户名, vbbOKOOnlyy + vbIInfoormaatioon, 提示示 ccmo_useer.SSetFFocuus Elsee Iff Trrim(txtt_keey.TTextt) = Thhen MsggBoxx 请请输入密密码, vbbOKOOnlyy + vbEExcllamaatioon, 提示示 txxt_kkey.SettFoccus EElsee ssql = sellectt * froom 用用户表 wheere 用户名名= & Triim(ccmo_useer.TTextt) & SSet rstt = Exeecu
27、tteSQQL(ssql, ) If Triim(rrst.Fieeldss(1) = Trrim(txtt_keey.TTextt) TThenn temmpusser = TTrimm(cmmo_uuserr.Teext) powwer = TTrimm(rsst.FFiellds(2) useernaame = TTrimm(cmmo_uuserr.Teext) rstt.Cllosee ffrm_maiin.SShoww UUnlooad Me IIf ppoweer 管理员员 TThenn frrm_mmainn.seet.EEnabbledd = Fallse frrm_mmain
28、n.deefennd = Faalsee EEnd If EElsee MMsgBBox 密码码不正确确，请重重新输入入, vbOOKOnnly + vvbExxclaamattionn, 警告 ttxt_keyy.SeetFoocuss ttxt_keyy.Teext = tryy_tiimess = tryy_tiimess + 1 If tryy_tiimess = 3 TThenn MsggBoxx 您您已三次次尝试进进入本系系统失败败，系统统将自动动关闭, vvbOKKOnlly + vbbExcclammatiion, 结结束 Unlloadd Mee Endd Iff Endd
29、Iff Endd Iff Endd IffEnd SSubPrivaate Subb Foorm_Loaad() Diim ii Ass Inntegger Diim ssql As Strringg Diim rrst As ADOODB.Reccorddsett sqql = sseleect 用户名名 frrom 用户表表 Seet rrst = EExeccuteeSQLL(sqql, ) Foor ii = 1 TTo rrst.ReccorddCouunt cmmo_uuserr.AdddIttem (rsst.FFiellds(0) rsst.MMoveeNexxt Neext
30、i rsst.CClosseEnd SSub5.2 各各个子模模块代码码设置5.2.11 以用用户添加加为例，部部分代码码如下所所示Privaate Subb cmmd_aadd_Cliick()Dim rrst As ADOODB.ReccorddsettDim ssql As StrringgDim ii Ass InnteggerIf Trrim(txtt_adddusser.Texxt) = OOr TTrimm(txxt_aaddkkey.Texxt) = OOr TTrimm(cmmo_aaddppoweer) = TThenn MssgBoox 请将用用户信息息填写完完整！, v
31、vbOKKOnlly + vbbExcclammatiion, 警警告 txxt_aadduuserr.SeetFoocuss txxt_aadduuserr.Teext = txxt_aaddkkey.Texxt = txxt_rrekeey.TTextt = cmmo_aaddppoweer.CCleaar Caall Forrm_LLoaddElse sqql = sseleect 用户名名 frrom 用户表表 Seet rrst = EExeccuteeSQLL(sqql, )If Trrim(txtt_adddusser.Texxt) = TTrimm(rsst.FFiellds(
32、0) Thhen MssgBoox 您输入入的用户户已经存存在，请请重新输输入！, vvbOKKOnlly + vbbExcclammatiion, 警警告 rsst.CClosse txxt_aadduuserr.SeetFoocuss txxt_aadduuserr.Teext = txxt_aaddkkey.Texxt = cmmo_aaddppoweer.CCleaar Caall Forrm_LLoadd txxt_rrekeey.TTextt = ElseIf Trrim(txtt_adddkeey.TTextt) TTrimm(txxt_rrekeey.TTextt) TThen
33、n MssgBoox 两次输输入的密密码不相相同,请请重新输输入!, vvbOKKOnlly + vbbExcclammatiion, 警警告 txxt_aaddkkey.SettFoccus txxt_aaddkkey.Texxt = txxt_rrekeey.TTextt = Else sqql = iinseert intto 用用户表 valluess( & & TTrimm(txxt_aadduuserr.Teext) & , _ & & Triim(ttxt_adddkeyy.Teext) & , _ & & Triim(ccmo_adddpowwer) & & ) Seet rr
34、st = EExeccuteeSQLL(sqql, ) MssgBoox 添加成成功, vbbOKOOnlyy + vbEExcllamaatioon, 添加加结果 txxt_aadduuserr.SeetFoocuss txxt_aadduuserr.Teext = txxt_aaddkkey.Texxt = txxt_rrekeey.TTextt = cmmo_aaddppoweer.CCleaar Caall Forrm_LLoaddEnd IIfEnd IIfEnd IIfEnd SSubPrivaate Subb cmmd_ccanccel_Cliick()Unloaad MMeEn
35、d SSubPrivaate Subb Foorm_Loaad()With cmoo_adddpoowerr .AdddIteem 管理员员 .AdddIteem 普通用用户End WWithhEnd SSub5.2.22 工资资设置代代码以基本工资资中的修修改和删删除为例例，岗位位工资与与基本工工资雷同同，不再再赘述。Privaate Subb cmmd_aalteer_CClicck()If Trrim(cmoo_sccalee.Teext) = Or Triim(ttxt_monney.Texxt) = TThennMsgBoox 请填写写需要修修改的信信息！, vvbOKKOnlly
36、+ vbbExcclammatiion, 警警告cmo_sscalle.SSetFFocuuscmo_sscalle.TTextt = txt_mmoneey.TTextt = Elsesql = sseleect 工资级级别 ffromm 基本本工资 wheere 工资级级别= & Trrim(cmoo_sccalee.Teext) & Set rrst = EExeccuteeSQLL(sqql, )If rsst.RRecoordCCounnt = 0 TheenMsgBoox 您输入入的级别别不存在在，请重重新输入入！, vbbOKOOnlyy + vbEExcllamaatioon,
37、 警告告cmo_sscalle.SSetFFocuuscmo_sscalle.TTextt = txt_mmoneey.TTextt = Elsesql = uupdaate 基本工工资 sset 工资金金额= & Trrim(txtt_mooneyy.Teext) & wheere 工资级级别= & Trrim(cmoo_sccalee.Teext) & Set rrst = EExeccuteeSQLL(sqql, )MsgBoox 修改成成功！, vvbOKKOnlly + vbbInfformmatiion, 操操作结果果cmo_sscalle.SSetFFocuuscmo_sscal
38、le.TTextt = txt_mmoneey.TTextt = Call Forrm_LLoaddEnd IIfEnd IIfEnd SSubPrivaate Subb cmmd_ccanccel_Cliick()If rsst.RRecoordCCounnt 00 Thhen If MsggBoxx(真真的要删删除该工工资级别别吗?, vvbYeesNoo + vbQQuesstioon, 警告告) = vvbYees TThenn rstt.Deelette MssgBoox 删除成成功!, vvbInnforrmattionn, 提示 cmoo_sccalee.SeetFoocuss
39、Calll FFormm_Looad EElsee ccmo_scaale.SettFoccus Endd Iff End IIfEnd ssub5.2.33 企业业信息维维护代码码以员工修改改为例，部部门修改改雷同。Privaate Subb cmmd_aadd_Cliick()If Trrim(cmoo_nuumbeer.TTextt) = ThhenMsgBoox 请填写写员工编编号！cmo_nnumbber.SettFoccusElseSet rrst = EExeccuteeSQLL(sseleect * ffromm 员工工信息 wheere 员工编编号= & Trrim(cmoo
40、_nuumbeer.TTextt) & , )If rsst.RRecoordCCounnt 00 ThhenMsgBoox 该员工工已经存存在，请请重新输输入员工工编号！, vbOOKOnnly + vvbInnforrmattionn, 提示cmo_nnumbber.SettFoccusElseIf Trrim(txtt_naame.Texxt) = TThennMsgBoox 员工姓姓名不允允许为空空！txt_nnamee.SeetFoocussElseIf Trrim(cmoo_seex.TTextt) = ThhenMsgBoox 性别不不允许为为空！cmo_ssex.SettFoc
41、cusElseIf Trrim(cmoo_deept.Texxt) = TThennMsgBoox 员工部部门不允允许为空空！cmo_ddeptt.SeetFoocussElseIf Trrim(cmoo_edducaatioon.TTextt) = ThhenMsgBoox 员工文文化程度度不允许许为空！cmo_eeduccatiion.SettFoccusElseIf Trrim(txtt_tiitlee.Teext) = TheenMsgBoox 职称不不允许为为空！txt_ttitlle.SSetFFocuusElsesql = iinseert intto 员员工信息息 vaaluees ( & & Trrim(cmoo_nuumbeer.TTextt) & , _ & & Trrim(txtt_naame.Texxt) & , _ & & Trrim(cmoo_seex.TTextt) & , _ & & Trrim(DTPPbirrthdday.Vallue) & , _