《人事管理手册系统》说明书

1、摘要由于各种原因，现在我们大齿集团公司的人事档案的管理水平还停留在计算机加纸介质办公的尴尬境界，这样的机制已经不能适应时代的飞速发展，因为这种管理水平不能充分发挥先进的高性能计算机的作用，同时又浪费了许多人力和办公用品，在信息时代若想取代这种不合理的管理方法就必须由我们熟悉企业内部特点的新一代青年人为企业分忧解难，开发出符合企业管理特点的软件，利用毕业设计的实践活动开发出一个符合企业管理特点的实用程序，既检验我们所学的知识，完成毕业设计，又能帮助公司进行更有效的人事管理。系统设计的指导思想是，针对大齿集团公司的实际境况开发，实用性强。公司内部实现信息化、可视化管理，充分考虑到公司的集成化管理发

2、展的需要。力求使这个系统具有良好的人机交流界面，符合公司人事管理的实际需要，可操作性强，运行速度快，数据安全可靠。具体系统功能需求描述(1) 档案信息管理 提供对”人员档案信息”数据输入、查询功能。(2) 工资管理 提供对”职工工资表”数据的输入、查询、统计功能，并能迅速为企业财务部门快速提供工资变更信息。(3) 工资统计 提供对“职工工资表”数据的月统计，由系统自行生成“职工工资构成情况表”实现该表的查询、打印功能。(4) 部门查询 提供以某一部门为索引的”人员档案信息”查询功能。(5) 特殊查询 提供对日期型字段和合同期限的”人员档案信息”查询功能。(6) 报表查询提供对工资、职工履历的信

3、息以报表的形式供用户查询、打印，另外用户还可以对这些基本信息进行保存目录的选择，使信息更加安全，根据一定的权限使作废能方便地更新信息和删除无用数据。由于毕业设计时间较短，我们对VB程序的认识还不够深刻这次的成果还有许多的不足需要我们在以后去提高。关键词：管理系统，信息检索，人力资源，主键，窗口。前 言随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。尤其是信息系统随着计算机技术和网络技术等信息技术的发展而不断的发展，管理信息系统MIS，决策支持系统DSS，总裁信息系统EIS，办公自动化系统OA，国际电子商贸系统EDI等

4、等层出不穷，在国际交往，企业管理中发挥着越来越重要的作用，例如人们熟知的办公自动化系统OA，极大地提高了我们的办公效率，但仍然与我们传统的中华文化有着不小的差异，其他国际企业界较为流行的决策支持系统DSS，总裁信息系统EIS等，由于大多由国外软件商开发而成与我国的国情相比有很大的差异，不能发挥全部的作用，甚至被多数企业束之高阁。由于我国社会制度的特殊性，人事管理系统就更加没有现成的可直接使用的管理系统。作为计算机应用的一部分，使用计算机对人事劳资信息进行管理，具有着用手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳

5、资管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。人事管理系统是一个企业单位不可缺少的部分，它的内容对于企业的决策者和管理者来说都至关重要，所以人事劳资管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点，如：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。因此，开发这样一套管理软件成为很有必要的事情，在下面的各章中我们将以开发这套符合企业管理需要的人事管理系统为题目，谈谈这次毕业设计的选题思路与设计实践过程和所涉及到的问题及解决方法。第一章 绪 论信息化

6、的发展随着人类迈入二十一世纪， 计算机技术、通信技术、网络技术为代表的现代信息技术的飞跃发展，人类正在从工业时代向信息时代迈进，人们越来越重视信息资源的开发和利用，”信息化”已成为一个国家经济和社会发展的关键环节，信息化水平的高低已成为衡量一个国家现代化水平和综合国力的重要标志，信息化的实质是使信息 这一社会的主导资源充分发挥作用，可以说推广信息技术是手段，真正利用信息是目的，信息化则是实现目的的过程。1993年，美国提出建立“信息高速公路”，有称国家信息基础设施（NII）的计划，其核心是建立全国的高速网络，把所有的计算机网络连接起来。这个计划的实现将对经济和社会生活产生重大的影响，由此引起的

7、信息化建设浪潮已波及世界各国。我国自1983年大力推广微型计算机应用以来，在管理信息领域，无论在理论方面，还是在实践方面都有了很大的发展。1986年2月国务院批准建设了国家经济信息系统，全国从中央到省、市地方都陆续成立了信息中心，各行各业应用电子计算机的热情普遍高涨。目前，已从单项业务的信息管理迅速向综合的管理层和决策层的信息管理发展，应用水平日趋提高；以金桥工程、金关工程和金卡工程为代表的国民经济信息工程也正在加速建设。系统开发背景由于前言中所阐述的原因，现在我们大齿集团公司的人事档案的管理水平还停留在计算机加纸介质办公的尴尬境界，这样的机制已经不能适应时代的飞速发展，因为这种管理水平不能充

8、分发挥先进的高性能计算机的作用，同时又浪费了许多人力和办公用品，在信息时代若想取代这种不合理的管理方法就必须由我们熟悉企业内部特点的新一代青年人为企业分忧解难，开发出符合企业管理特点的软件。我们作为学习计算机信息管理的大学生，希望可以在这方面有所贡献。我们希望能用两年来所学的知识，利用毕业设计的实践活动开发出一个符合企业管理特点的实用程序，既检验我们所学的知识，完成毕业设计，又能帮助公司进行更有效的人事管理。 归纳起来，好处大约有以下几点：1 可以存储所有职工的人事档案和工资档案，安全、高效地管理企业的人力资源，并希望今后成为企业决策管理系统的一部分，联机并网，发挥更大的作用；2 只需一到二名

9、录入员即可操作系统，节省大量人力，通过企业内部局域网省去打印环节即可直接获取人力资源信息，即高效，又节约；3 各部门负责人根据权限级别，可以迅速查到所需人力资源信息。课题研究的目的人事管理系统是一个企业单位不可缺少的部分,它的内容对于企业的决策者和管理者来说都至关重要,所以人事管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们无法脱离传统人工的方式管理档案文件，克服落后的管理方式存在着的许多缺点,如:效率低、保密性差，另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。就是因为没有一套完整的适应企业管理特点的系统。作为计算机应用的一部分,使用计算机

10、对人事劳资信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。系统设计的指导思想针对大齿集团公司的实际境况开发，实用性强。公司内部实现信息化、可视化管理，充分考虑到公司的集成化管理发展的需要。使这个系统具有良好的人机交流界面，可操作性强，运行速度快，数据安全可靠，第二章 开发人事管理系统的问题人事管理系统的简介人事管理系统是针对人事部的大量业务处理工作而开发的管理软件。根据用户的要求，在大量调查研究的基础上充分考虑各种企业特色需求来实

11、现人员基本情况管理、和工资管理高效查询，资源共享等几个方面的功能。设计出符合企业需要的管理模块，使用户通过输入工资、职工履历等基本信息，由系统自行生成相应的统计数据及各类统计报表以供用户查询、打印，另外用户还可以对这些基本信息进行定期的更新和删除，人事管理系统力求给用户方便快捷的途径去管理这些繁琐的数据。总体功能需求人事管理系统是针对人事处的大量业务处理工作用计算机进行全面现代化管理。主要包括人员基本情况管理、和工资管理的高效查询，资源共享等几个方面的功能，以实现用户方便的输入、查询、统计、打印相关报表的业务需求。具体系统功能需求描述(1) 档案信息管理 提供对”人员档案信息”数据输入、查询功

12、能。(2) 工资管理 提供对”职工工资表”数据的输入、查询、统计功能，并能迅速为企业财务部门快速提供工资变更信息。(3) 工资统计 提供对“职工工资表”数据的月统计，由系统自行生成“职工工资构成情况表”实现该表的查询、打印功能。(4) 部门查询 提供以某一部门为索引的”人员档案信息”查询功能。(5) 特殊查询 提供对日期型字段和合同期限的”人员档案信息”查询功能。(6) 报表查询提供对工资、职工履历的信息以报表的形式供用户查询、打印，另外用户还可以对这些基本信息进行保存目录的选择，使信息更加安全，根据一定的权限使作废能方便地更新信息和删除无用数据。 第三章 人事管理系统的分析和设计 人事管理系

13、统的分析和概要设计根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。 通过对用户需求的分析，我们可以分析出该人事管理系统大致可以分为六个模块：人事档案管理模块、职工工资管理模块、工资统计模块的实现、部门查询模块、特殊查询模块、报表查询模块。现在对这六个模块做具体说明： 人事基本情况管理模块： 输入：职工信息 输出：“人员档案表” 功能：对人事基本信息的查询 职

14、工工资管理模块 输入：人员月工资 输出：“职工工资表” 功能：完成员工工资的查询 工资统计模块 输出：“职工工资统计表” 功能：完成员工工资的统计和打印 部门查询模块 输出：以部门为索引的“职工档案信息” 功能：完成以部门为索引的“职工档案信息”的统计和查询 特殊查询模块的实现 输出：满足查询条件的“职工档案信息”和职工合同的期限 功能：完成满足查询条件的“职工档案信息”和职工合同的期限的查询 报表查询模块的实现 输出：员工履历信息和工资信息的基本情况 查询及打印功能 功能：完成对员工履历信息和工资信息基本情况的查询及打印 人事管理系统数据库设计由于考虑到本系统初始阶段是应用在单机系统上，与完

15、成毕业设计时间短的关系，我们先只建立起一个数据库，在此数据库基础上建立起如下表：职工基本信息表employee_information_table职工工资表 employee_salary_table系统信息表 system_table 下面我们详细说明：职工基本信息表employee_information_table主键 ：职工编号Workercode 列名（英文） 数据类型 宽度 小数点位数 是否为空职工编号WorkercodeString No部门DepartmenString No 职务PrincipalshipString No职工姓名NameString No 身份证号IDStr

16、ing No 性别SexString No出生日期BirthDay Date 8 No婚否MarryString No文化程度Wen_HuaString No政治面目Zheng_MianString No毕业时间Time_GruduationDate 8 No毕业学校School_GruduationString No所学专业SpecialityString No联系电话Contact_telephoneString Yes籍贯Native _placeString Yes民族FolkString Yes家庭地址AddressString No邮政编码Post_NO。String Yes如单位

17、时间Time_inputDate 8 Yes合同期限Qi_XianInteger 2 Yes职称Zhi_ChengString No评定时间Assess_TimeDate照片PhotoBinary Yes备注MemoMemo No职工工资表 employee_salary_table 主键：职工编号Workercode，日期Date列名（中文） 列名（英文） 数据类型 宽度 小数点位数 是否为空职工编号WorkercodeString No职工姓名NameString No年/月Year/monthString No技能工资Salary_jnDouble 8 2 No工龄工资Salary_gl

18、Double 8 2 Yes岗位工资Salary_gwDouble 8 2 Yes职务工资Salary_zhwDouble 8 2 Yes洗理费Charge_xlDouble 8 2 Yes房屋补贴Subsidy_fwDouble 8 2 Yes交通补贴Subsidy_jtDouble 8 2 Yes价格补贴Subsidy_priceDouele 8 2 Yes工会会费Charge_ghDouble 8 2 Yes房屋租金Charge_fwDouble 8 2 Yes养老保险Insurance_ylDouble 8 2 Yes建房扣款KK_jfDouble 8 2 Yes扣款KKDouble

19、8 2 Yes实发工资Salary_sfDouble 8 2 No系统信息表 system_table 主键：用户名Useid列名（中文） 列名（英文） 数据类型 宽度 小数点位数 是否为空用户名UsenameString Yes密码PasswordString Yes 第四章 人事管理系统的具体实现 模块化的开发环境的简介_Visual BasicVisual Basic 是在 Windows 环境中广泛使用的应用程序设计语言，它以Basic语言基础，具有可视化、 面向对象程序设计、 事件驱动机制等特点。可视化程序设计是指开发图形用户界面的一种方法，使用这种方法，编程人员不必编写大量的代码去

20、描述用户界面上元素的位置和外观，比如命令按钮、文本框、组合框等元素，编程人员只需在“可视”的编程环境下，用鼠标将VB中预先建立的界面元素拖放到用户图形界面的适应位置上，并且用鼠标还可直接修改用户界面上元素的外观等特性。采用可视化程序设计方法，大大的减少了编程人员的编码工作量，并能轻松快捷地设计出友好的用户界面，从而提高应用程序的开发效率。Visual Basic是一种面向图形用户界面的、交互性讲的可视编程工具。 事件驱动的应用程序Visual Basic使用的是一种“事件驱动”机制。所谓“事件驱动”机制是指Windows应用程序是通过事件来驱动运行的，当用户或者系统触发对象的某个事件时，系统自

21、动地执行与该事件相关的一段代码来响应，完成特定的功能。例如，用户界面上有一个命令按钮，当用户单击该按钮时，命令按钮将触发事件，而当该事件发生时，由系统自动执行一段与该事件相应的代码，完成指定的操作，当该操作完成后，应用程序将暂停，等待狭义事件的发生。在“事件驱动”机制下，应用程序的执行过程完全由对象事件驱动实现，与传统的面向过程的应用程序的执行过程完全不同。面向对象的编程Visual Basic采用面向对象技术，利用对象的属性、事件和方法进行程序设计，从而实现应用程序的特定需要。在Visual Basic中，对象无处不在，窗体、命令按钮、文本框、组合框等用于设计用户图形界面的元素都是对象。利用

22、Visual Basic的对象编程技术，就好像在一块空白的画布上，通过设置对象的属性，使用对象的方法，编程对象的事件过程，将系统预先建立的对象，按照设计要求将它们有机地组合起来，勾画出一幅完美的图画，从而完成用户需求。系统模块的具体实现在本系统中有六个模块组成。它们分别是员工基本信息模块、员工工资管理模块、工资统计模块的实现、部门查询模块的实现、特殊查询模块的实现、报表查询模块的实现，下面就开发这几个模块的过程及所遇到的问题分别加以介绍。1人事档案信息模块 履历表该模块主要完成员工基本信息的录入、查询、统计及打印功能。 (其流程图如图所示) 履历表 源文件 源文件 主文件更新模块 主文件更新模

23、块 更新文件 更新文件 计算机打印模块 计算机打印模块人事变动资料人事变动资料 图 人事系统档案信息系统流程图该模块部分功能源代码如下：Option ExplicitPrivate Declare Function GetMenu Lib user32 (ByVal hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib user32 (ByVal hMenu As Long, ByVal nPos As Long) As LongPrivate Declare Function SetMenuItemBitmaps Lib u

24、ser32 (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As LongConst myflag = &H800&Dim add, alert As IntegerPrivate Sub aa()Private Sub Combo6_Click()Select Case Case 生产部 经理 主管 职员 = (0)Case 总经理室 总经理 秘书 = (0)End SelectE

25、nd SubPrivate Sub Combo7_Change()End SubPrivate Sub Data1_Reposition()If = 0 ThenElseIf = 生产部 Then 经理 主管 职员 = (职务)Else 经理 主管 职员 = (职务)End IfEnd IfEnd SubPrivate Sub Timer1_Timer() = timeEnd Sub工资管理模块该模块是完成对员工的工资信息的输入、查询、并以此进行统计获得“职工实发工资”。此模块主要包括工资录入、职工实发工资统计和职工工资总额信息，后两者是通过点击汇总和统计工资按钮获得。(其流程图如图所示)扣款

26、单工资单扣款单工资单 主文件更新模块上月主文件 主文件更新模块上月主文件本月主文件本月主文件 计算机打印模块工资表 计算机打印模块工资表 图 人事系统工资信息系统流程图此窗口“职工工资统计表”的数据源均是从数据库EMPOYEE_SAL表。该模块部分功能源代码如下：Private Sub Command1_Click()Dim a(1 To 15) As DoubleOn Error GoTo a0If = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “”

27、Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End Ifa(1) = CDbla(2) = CDbla(3) = CDbla(4) = CDbla(5) = CDbla(6) = CDbla(7) = CDbla(8) = CDbla(9) = CDbla(

28、10) = CDbla(11) = CDbla(12) = CDbla(13) = CDbla(14) = a(1) + a(2) + a(3) + a(4) + a(5) + a(6) a(7) a(8) a(9) a(10) + a(11) + a(12) + a(13) = a(14)Exit Suba0:MsgBox “工资各项数值不能为字符串”, vbOKOnly, “提示信息”End SubPrivate Sub Command10_Click()On Error GoTo a0Dim a As String, b As String, c As String, ww As Str

29、ing If = “” ThenMsgBox “请输入查找条件”Exit SubEnd If a = b = c = a & “ Like ” & b & “” cIf ThenMsgBox “找不到与条件相符的记录”, vbOKOnly, “提示信息”Elseww = (“职工编号”)ww = “职工编号 like ” & ww & “” wwEnd IfIf Or Then IfExit Suba0:MsgBox “找不到与条件相符的记录”, vbOKOnly, “提示信息”End Sub工资统计模块的实现 该模块是对职工工资信息以部门为索引进行汇总，然后进行统计得到“全体职工工资总额”，

30、并提供打印功能。该模块部分功能源代码如下：Private Sub Form_Activate()On Error GoTo a0Dim a, b, ca = 0If = 0 ThenExit SubEnd If Until = (实发工资)a = a + b = a = = 0b = 0c = 0 职工编号 like GDCW* Do Until = a + 1b = (实发工资)c = b + c 职工编号 like GDCW* Loop = a = ca = 0b = 0c = 0 职工编号 like GDYY* Do Until = a + 1b = (实发工资)c = b + c 职工

31、编号 like GDYY* Loop = a = ca = 0b = 0c = 0 职工编号 like GDGC* Do Until = a + 1b = (实发工资)c = b + c 职工编号 like GDGC* Loop = a = ca = 0b = 0c = 0 职工编号 like GDSC* Do Until = a + 1b = (实发工资)c = b + c 职工编号 like GDSC* Loop = a = ca = 0b = 0c = 0 职工编号 like GDRS* Do Until = a + 1b = (实发工资)c = b + c 职工编号 like GDRS

32、* Loop = a = ca = 0b = 0c = 0 职工编号 like GDBA* Do Until = a + 1b = (实发工资)c = b + c 职工编号 like GDBA* Loop = a = ca = 0b = 0c = 0 职工编号 like GDZW* Do Until = a + 1b = (实发工资)c = b + c 职工编号 like GDZW* Loop = a = ca = 0b = 0c = 0 职工编号 like GDGH* Do Until = a + 1b = (实发工资)c = b + c 职工编号 like GDGH* Loop = a =

33、 ca = 0b = 0c = 0 职工编号 like GDJL* Do Until = a + 1b = (实发工资)c = b + c 职工编号 like GDJL* Loop = a = ca0:End SubPrivate Sub Form_Load()Dim a As Integer, b As Integera = Year(Date)b = Month(Date) = & a & 年 & b & 月End SubPrivate Sub Label10_Click()On Error GoTo a0bm) = 生产部 SubPrivate Sub Label9_Click()On

34、Error GoTo a0bm) = 人事部 SubPrivate Sub mnuprint_Click()On Error GoTo a0a0:End SubPrivate Sub mnuquit_Click()Unload MeEnd Sub部门查询模块的实现 该模块是对部门为索引的“职工档案信息”进行查询，凡符合查找要求的职工将基本信息显示出来，如要了解更多的信息可单击该人员的职工编号可进行进一步的查询。该模块部分功能源代码如下：Option ExplicitDim reco As Integer, X As Integer, Y As Integer, z As IntegerPriv

35、ate Sub Command1_Click()On Error GoTo a0 Dim a As String, b As String, c As String a = = False = FalseIf = ThenMsgBox 请输入查找条件Exit SubEnd If = = = = a = c = 部门 Like & a & cIf ThenExit SubElse = (职工编号)b = (职工编号) = (职工姓名) = (性别) = (部门) = (职务)b = 职工编号 Like & b & b = (实发工资)reco = 1End IfIf Then IfIf Then

36、 If cIf ThenExit SubElse = (职工编号)b = (职工编号) = (职工姓名) = (性别) = (部门) = (职务)b = 职工编号 Like & b & b = (实发工资)reco = reco + 1End IfIf Then IfIf Then IfIf Then IfIf Then If = True = Truez = 0Exit Suba0:MsgBox 找不到与条件相符的记录, vbOKOnly, 提示信息End SubPrivate Sub Label9_MouseMove(Button As Integer, Shift As Integer,

37、 X As Single, Y As Single)If = Then = 0Exit SubElse = = 99End IfEnd SubPrivate Sub mnuquit_Click()Unload MeEnd SubPrivate Sub Timer1_Timer() = timeEnd Sub特殊查询模块的实现该模块是对日期型字段和合同期限的”人员信息”进行查询。对日期型字段的查询具体表现为： 系统将按用户所需的查找范围进行查询，并将查找的信息显示出来。如要了解更多的信息可双击该人员的职工编号可进行进一步的查询。对合同期限的查询具体表现为：系统将职工的“入单位时间”字段、“合同期

38、限”字段和当前日期进行计算得到合同期限的剩余时间，并将查找的信息显示出来。如该时间小于等于零，将“合同期限”反显伴有报警声出现。如要了解更多的信息可双击该人员的职工编号可进行进一步的查询。该模块部分功能源代码如下：Option ExplicitDim reco As Integer, X As Integer, Y As Integer, z As IntegerPrivate Sub Combo1_Click()Dim a As Stringa = = aEnd SubPrivate Sub Command7_Click() = False = False = False = False =

39、 FalseEnd SubPrivate Sub Form_Load() = 1000 = False = False = False = False = False = False = False = True = True = TrueEnd SubPrivate Sub Image3_Click() = = = 合同期限(天) = True = True = TrueExit SubEnd Ifb = (入单位时间) = (职工编号) = (职工姓名) = CInt(合同期限) * 365 - (a - b)If CInt(合同期限) * 365 - (a - b) 1 Then = &

40、HC0FFFFBeepEnd If ThenExit SubEnd If报表查询模块的实现该模块的功能是对员工履历信息和工资信息基本情况以报表的形式查询及打印。实现方法是将“职工基本信息表”(employee_information_table)和“职工工资表”(employee_salary_table)用DataGrid控件进行显示。打印功能是采用了Crystal Reports 控件将数据库中内容先生成 (*.rpt) 文件然后在进行打印。该模块部分功能源代码如下：Option ExplicitPrivate Declare Function GetMenu Lib user32 (By

41、Val hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib user32 (ByVal hMenu As Long, ByVal nPos As Long) As LongPrivate Declare Function SetMenuItemBitmaps Lib user32 (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As

42、 Long) As LongConst myflag = &H800&Private Sub Form_Load()Dim mhandle As Long, lret As Long, shandle As Longmhandle = GetMenu(hwnd)shandle = GetSubMenu(mhandle, 0)lret = SetMenuItemBitmaps(shandle, 2, myflag, , lret = SetMenuItemBitmaps(shandle, 3, myflag, , = FalseEnd SubPrivate Sub mnuexit_Click()Unload MeEnd SubPrivate Sub mnuin_Click() = True = FalseEnd SubPrivate Sub mnul_Click()On Error GoTo a0 = 1a0:End SubPriva