超市消防系统.doc

《超市消防系统.doc》由会员分享，可在线阅读，更多相关《超市消防系统.doc（28页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流超市消防系统.精品文档.炎黄职业技术学院信息工程系毕业设计（论文）超市消防系统年 级: 311级 学 号: 07000903017 姓 名: 张 潇 专 业: 楼宇智能化 指导老师: 张 爽 二零一三年十二月摘 要消防监控系统是大型超市不可缺少的重要组成部分，能够及时发现和通报火情并能采取措施灭火，保证超市内设备正常运行和人员逃离。本设计包裹两个主要部分：硬件部分设计和软件部分设计。硬件部分设计首先通过探测器和控制器监控超市的温度，可燃气体的浓度、烟灰密度、光的强度等物理量，然后进行数据采集，最后将采集到的数据通过二总线传到消防报警监控联动系

2、统，再由消防联动系统监控联动设备发出警报，喷淋灭火动作。火灾自动报警系统选用海湾公司的二总线火灾报警控制系统，考虑消防栓灭火系统、闭式湿式自动灭火系统、气体灭火系统等显示工程中常见的固定灭火系统。同时，增加了计算机联动控制和消防控制室多线控制盘硬件直接控制电路，加强了系统的可靠性。关键词：火灾自动报警； 联动控制； 自动喷水灭火系统 目 录摘 要I第1章 绪 论11.1本课题的研究意义11.2本课题的研究目的11.3本论文的主要内容与创新点2第2章 人事工资系统概述32.1国内人事工资系统现状和发展32.2人事工资系统理论介绍32.3 系统特征与主要使用技术6第3章 系统分析与设计73.1 系

3、统分析73.2 系统功能分析73.3 数据流程图7第四章 系统详细设计与模块的具体实现94.1 系统的登录界面94.1.1 登录界面的具体实现104.2 主界面的具体实现124.3 录入信息界面的具体实现124.4 查看统计界面的具体实现154.5 查看信息界面的具体实现174.6 管理工资界面的具体实现184.7 工资条界面的具体实现194.8 考勤和应扣项目界面的具体实现204.9 工资标准界面的具体实现21结 论23致 谢24参考文献25附 录 程序相关代码26第1章 绪 论随着市场经济的迅速发展，商业路通改变了传统的模式，减少了流通中间环节而趋于大型化、市场化、集成化，各地相继建成了诸

4、多大型超市，这些大型超市的出现，在给消费者带来了很大便利的同时，也给人们带来了巨大的安全隐患。由于其商品品种丰富，商品价格低廉，收到了广大市民的欢迎，与一般商场相比，仓储式超市多位单层或者两层，具有封闭式、面积大。体积大。点苦何以的特点，由于超市内人员高度密集，货物集中，一旦发生火灾事故，燃烧速度快，火灾温度高，容易形成立体燃烧，且人员疏散困难，会造成严重的财产损失和人员伤亡。近年来，国内也相继发生商场、市场的特大火灾事故，唐山林西百货大楼、郑州天然商厦、南昌万寿宫商城等，这些建筑火灾给人民生命和财产造成了重大损失。由此可以看出，大型超市建筑火灾的预防不容忽视，特别是党中央提出建设社会主义和谐

5、社会战略，坚持以人为本的理念，使涉及人员生命安全。消防工作显得尤为重要。1.1本课题的研究意义 本设计采用或者自动报警系统及消防联动系统，一方面，它能够在或者初期，将燃烧产生的烟雾、热量和光辐射及变化的空气组分等物理量，通过感温、感烟、感光及气体浓度等或者探测器等转变成电信号，传输到或者报警控制器，并同时显示出火灾发生的位置，记录或者发生的时间；另一方面，火灾自动报警系统、自动喷水灭火系统、室内消防栓系统。放烟排烟系统、防火门和防火卷帘门、挡烟垂壁、通风系统等相关系统联动，通过自动和手动方式发出指令，控制外围联动装置的启停并接受其反馈信号。从而实现减少人员伤亡和财产损失的目的。因此消防监控系统

6、在超市中的安全具有重要意义。1.2本课题的研究目的国内外大型商场、超市的火灾事故呈现迅猛抬头之势，群死群上恶性火灾事故屡见报端，如：2004年8月1日位于首都亚松森嚼蛆的一座大型超市特大火灾造成504人死亡；2006年4月28日，台州市路桥区路桥街道文昌路201号商住楼一层的金路超市发生火灾。烧毁建筑面积1000余平方米，直接财产损失25万余元；2011年，江苏淮安涟水安东路新时代超市发生大火，导致整个超市休整近一年多。因此，在烟具的火灾形势下，或者教训充分说明大型商场防火的重要性必须引起我们的重视。1.3设计的主要内容本设计主要运动海湾公司的消防设备实现消防监控系统设计，包括两个主要部分：消

7、防系统控制的硬件设计部分和软件部分设计。硬件部分受限通过探测器和变送器监控超市的温度、可燃气体的浓度，烟尘密度，光的强度等物理量，然后进行数据的采集，最后将采集的数据通过二总线传到消防报警监控联动系统，再由消防联动系统控制联动设备发出警报，喷淋灭火动作。软件部分的设计需要绘制超市的平面图、探测器和喷头的布局图以及联动编程。此外，要求熟悉常用的火灾探测器，报警控制器及它们的工作原理、选型、使用方法。第2章 超市的平面设计和消防设计2.1某大型超市简介 此超市位于该市最繁华的地段。超市共有三层，营业面积2600平方米，属于一级保护建筑。 由于其商品品种丰富，商品价格低廉，便利的交通再加上有利的地形

8、，使得该超市的平均日人流量很多。但它与此同时也带来了很大的安全隐患，作为一个大型的储物型超市，一旦发生火灾就可能带来很大的危险，货物的损失，人员的上网。这就要求超市必须做好消防工作。现代消防监控系统就可以帮上很大的忙，火灾消防自动报警系统中检测系统、灭火系统、消防电话系统、消防广播系统的设计和应用将帮助我们队超市火灾，能做到提前预防，有效防止2.2超市平面布局该超市营业面积26000平方米，共三层：一楼：百货区（箱包、皮具、女装男装、床用、童装、化妆品专柜）。二楼：蔬菜、水果、熟食、面点、肉类、高档烟酒、名茶、保健补品、休闲食品、顾客服务中心。三楼：服装特价区、家电售后服务中心、团购接待处、家

9、用电器、音响制品、床上用品、厨具五金、儿童玩具、办公文具、家庭精品。2.3 该超市的消防要求人事工资管理系统是集人事管理与工资管理为一体的系统，通过它可以方便地使您进行人力资源的管理。它可以自定义工资栏目，内置一套基本工式，即应付工资=计算状态为加的所有栏目之和，实付工资=应付工资-计算状态为减的所有栏目之和。用户生成第一个月的工资单，然后录入，以后每个月只要复制上个月的工资单，再加上小幅修改就可以了。这对工资变动不太大的企事业单位就更加方便了。系统提供工资单、工资条、以及工资汇总表、工资统计表，适用于各种场合。系统还提供人力资源结构分析、工龄结构分析、学历结构分析等人力资源分析报表。同时系统

10、提供数据输入输出功能，为用户的特殊要求提供了一个方便的接口。系统特征： 操作简单方便，使您可以迅速掌握使用方法。 通用化程序高，适用大部分企业使用。 可多用户、网络化操作。 可自定义工资条目及人事档案条目。 提供独特的个性设置功能，让您有极大的自由调整报表项目的显示、打印设置。 精心设计输入方式，方便操作人员，有效地减少了数据输入的工作量，极大地提高了您的工作效率。 计算准确、自动化程序高、可靠性强。 数据安全性高，有效地防止无关人员盗取您的商业机密。对数据库进行了特别地加密处理，同时充许您随意的转移数据库，比如您可以将数据库保存在 USB 盘上。这样，您的数据就可以随身带在身上了。 主要实现

11、技术：Visual Basic for Applications（VBA）是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic Script。1994年发行的Excel 5.0版本中，即具备了VBA的宏功能。VBA不但继承了VB的开发机制，而且VBA还具有与VB相似的语言结构，它们的集成开发环境IDE（Intergrated Development Environment）也几乎相同。但是，经过优化，VBA专门用于Office的各应用程序。VB可运行直接来自Windows 95

12、或NT桌面上的应用程序，而VBA的项目（Project）仅由使用VBA的Excel、Word、 PowerPoint等称为宿主（Host）的Office应用程序（Application）来调用。第3章 系统分析与设计3.1 系统分析随着国民经济的飞速发展，国内企事业单位对员工、职称等跟人事工资管理相关的信息随之集聚增加。在这种情况下，如果还是像过去那样仅仅单靠采用传统的手工方式来处理这些员工的工资信息，不但会浪费大量的人力、物力，而且还容易出错。正是由于上述原因，开发本系统的具体任务是设计一个由计算机来代替手工执行一系列操作，诸如添加新员工、删除旧员工、工资修改、查询、统计及打印等操作的人事工

13、资数据库管理系统。这样，我们就可以使管理人员轻松、快捷的完成本单位的工资管理任务了。3.2 系统功能分析系统开发的总体任务是要利用VBA实现人事工资信息关系的系统化，规范化和自动化。系统功能分析是在系统开发的总体任务的基础之上完成的。人事工资管理系统主要有以下几项功能:1.在系统中建立员工数据库，用来存储员工系统。2.有信息的的录入系统，这是数据库更新的基础。3.有更新员工信息的功能，因为员工信息是不断变化，所以这一步是必需的。4.实现员工信息查询功能。5.能将每个员工的信息分离，以便打印个人简历。6.能够方便员工预算的工资结算、考勤、等。7.具备可拓展性。 3.3 数据流程图系统功能的要求，

14、可以将系统分解成几个功能模块来分别设计，如系统先进入登陆模块然后输入用户名和密码进入主界面，接着根据用户需求进入相应模块界面，最后在进行相应操作。基本功能模块流程图如下：考勤和应扣项目 人事工资管理系统 登录界面 主界面录入信息查看信息查看统计工资管理用户切换退出系统添加成员清除数据删除记录搜索员工统计工资条主界面工资标准管理员登陆普通用户登录 图 3-1 功能模块流程图 第四章 系统详细设计与模块的具体实现4.1 系统的登录界面企业人事工资管理系统的主界面采用窗体，使系统更加美观，方便实用。在登陆主界面之前，首先登记用户管理窗体如图4-1。从新输入 非法用户 进入系统管理员及密码用户名及密码

15、 正确非法用户 正确从新输入 进入系统 进入系统判断是管理员还是普通用户 用户登录系统 进入系统 图4-1 登录模块流程图4.1.1 登录界面的具体实现1. 界面实现 (1) 新建工作表，按ALT+F11快捷键进入Visual Basic编辑器。(2) 在工程窗口中，选择该工程，选择【插入】|【用户窗体】命令，给该工程添加一个窗体。(3) 右击该窗体，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框中，将他的Caption属性改为“登录窗口”。(4) 在途中合适的位置绘制控件，最终效果如下图图4-2 登录界面2. 功能介绍登录界面有登录和重置两个按钮，登录按钮主要用来实现用户的登录。当用

16、户输入用户名时，先判断用户名及密码是否正确，如果错误则提示“非法用户，请重新输入”。如果输入的用户名及密码正确则进行判断该用户是管理员还是普通用户。若为普通用户则隐藏敏感工作表，打开用户主界面。否则则打开管理员主界面。图 4-3 非法用户登录提示图 4-4 管理员登录提示相关代码：Dim s As StringDim m As Strings = TextBox1.Textm = TextBox2.TextIf s = admin And m = 123456 ThenWorksheets(主界面).Visible = TrueWorksheets(资料库).Visible = TrueWor

17、ksheets(用户主界面).Visible = FalseWorksheets(打印简历).Visible = TrueWorksheets(用户打印简历).Visible = FalseWorksheets(统计表).Visible = TrueUserForm1.HideMsgBox “管理员您好，欢迎登录！” 图 4-5 用户登录提示相关代码：ElseIf s = user And m = 654321 ThenWorksheets(主界面).Visible = FalseWorksheets(打印简历).Visible = FalseWorksheets(用户主界面).Visible

18、 = TrueWorksheets(用户打印简历).Visible = TrueWorksheets(资料库).Visible = FalseWorksheets(统计表).Visible = FalseUserForm1.HideMsgBox 用户您好，欢迎登录！4.2 主界面的具体实现1. 界面实现(1). 将新建的工作表命名为主界面。(2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。(3). 选择button按钮，在表中添加控件。(4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框中，改变它的Caption属性。(5). 设计整体界面更，最

19、终效果如下图图4-6 主界面2. 功能介绍主界面主要包括6个功能按钮，如录入信息、查看信息、查看统计、工资管理、用户切换、退出系统。这些按钮主要的功能是用来实现各个界面之间 的连接跳转。4.3 录入信息界面的具体实现1. 界面实现(1). 新建工作表命名为资料库。(2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。(3). 选择button按钮，在表中添加控件。(4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框中，改变它的Caption属性。(5). 添加相关字段。(6). 设计整体界面更，最终效果如下图 图4-7 资料库界面2. 功能介绍信息录

20、入界面连接的是资料库工作表。其主要包括职员姓名、性别、出生日期、身份证号码、参加工作时间、民族、籍贯、学历、毕业学校及专业、职称、现任职务、工作简历、部门、职工号等字段。还包含添加成员、清除数据、删除记录、工资管理、主界面、打印简历6个功能按钮来实现员工信息的录入、员工记录的删除、以及界面之间的转换。如当单击添加员工按钮就会录入新添加的员工信息，若信息填写不完整则系统出现“信息不完整，请完善信息”的提示，当添加完成时则提示“记录已添加完成！”。当单击抒情数据按钮时，会清除字段中填写的员工信息，并给予“数据以清除“的提示。在姓名字段输入要删除员工姓名，单击删除记录按钮，如若存在则提示”员工记录已

21、删除“，否则提示”无此记录，因此无法删除，请核实“。图 4-8 添加信息残缺提示相关代码：If YorN = vbYes Then 判断记录是否完整If Trim(Cells(5， 3) = Or Trim(Cells(4， 10) = Or _Trim(Cells(4， 6) = Or Trim(Cells(4， 8) = Or _Trim(Cells(6， 7) = Or Trim(Cells(7， 2) = Or _Trim(Cells(5， 11) = Then MsgBox 信息不完整，请完善信息 Exit Sub图 4-9 姓名字段为空时提示相关代码： 判断是否存在用户名 If T

22、rim(Cells(4， 2) = Then MsgBox 请输入姓名 Exit Sub End If图 4-10 记录删除成功提示相关代码：Dim i As Integer定义判断记录是否在的布尔变量Dim CunZai As Boolean定义用于保存“资料库”记录数的整型变量Dim iCount As Integer把记录行数赋予iCountiCount = Sheets(资料库).A10.CurrentRegion.Rows.Count + 10为CunZai布尔变量赋初值CunZai = False使用ForNext循环语句For i = 11 To iCount判断读者编号是否与已

23、有记录的相同 If Trim(Cells(4， 2) = Trim(Cells(i， 1) Then把CunZai布尔变量的值设为TrueCunZai = True选择符合条件的记录行Rows(i).Select删除符合条件的记录行Selection.Delete弹出记录已经删除的信息Sheets(工资标准).Rows(i - 9).DeleteSheets(考勤和应扣项目).Rows(i - 9).DeleteSheets(工资条).Rows(i - 9).DeleteMsgBox 员工记录已经删除！， vbOKOnly， 提示 Exit For 退出ForNext循环语句 End If图

24、4-11 删除不存在员工提示相关代码：If CunZai = False Then 弹出无法删除记录的信息 MsgBox 无此记录，因此无法删除，请核实！， vbOKOnly， 无法删除End If4.4 查看统计界面的具体实现1. 界面实现(1). 新建工作表命名为统计表。(2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。(3). 选择button按钮，在表中添加控件。(4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框中，改变它的Caption属性。(5). 添加相关字段。(6). 设计整体界面更，最终效果如下图图4-12 统计表界面2. 功

25、能介绍查看统计界面连接的是统计表。其包括一个统计按钮一个主界面按钮。当单击统计按钮则系统会按照性别、年龄、学历来查询统计。当单击主界面按钮时则会实现界面之间的跳转。统计按钮相关代码：Private Sub CommandButton1_Click() While (Not IsEmpty(Sheets(资料库).Cells(TempY， 1).Value) 统计男女性别人数 Dim sex sex = Sheets(资料库).Cells(TempY， 2).Value If (男 = sex) Then men = men + 1 Else women = women + 1 End If 统

26、计个阶段学历人数 Dim xueli xueli = Sheets(资料库).Cells(TempY， 8).Value If (高中 = xueli) Then xueli1 = xueli1 + 1 ElseIf (大专 = xueli) Then xueli2 = xueli2 + 1 ElseIf (本科 = xueli) Then xueli3 = xueli3 + 1 ElseIf (硕士 = xueli) Then xueli4 = xueli4 + 1 Else xueli5 = xueli5 + 1 End If 统计各年龄段人数 Dim nowyear As Integer

27、 Dim thatyear As Integer nowyear = Year(Cells(6， 1) thatyear = Year(Sheets(资料库).Cells(TempY， 3) If (nowyear - thatyear 49) Then class1 = class1 + 1 ElseIf (nowyear - thatyear) 39) Then class2 = class2 + 1 ElseIf (nowyear - thatyear) 29) Then class3 = class3 + 1 ElseIf (nowyear - thatyear) 19) Then c

28、lass4 = class4 + 1 Else class5 = class5 + 1 End If 进入下一行 TempY = TempY + 14.5 查看信息界面的具体实现1. 界面实现(1). 新建工作表命名为打印简历。(2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。(3). 选择button按钮，在表中添加控件。(4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框中，改变它的Caption属性。(5). 添加相关字段。(6). 设计整体界面更，最终效果如下图图 4-13 打印简历界面2. 功能介绍该界面连接的时打印简历表。其包括一个搜

29、索员工按钮一个主界面按钮。当在姓名字段输入要查找员工的姓名时，单击搜索按钮，若存在此人则会显示该员工的所有信息。否则则会提示“没有搜到符合条件的记录，请核实“。图 4-14 搜索不存在员工提示相关代码：判断是否搜索到读者 If CunZai = False Then 弹出提示没有搜索到符合条件读者的信息 MsgBox 没有搜索到符合条件的记录，请核实！， vbOKOnly， 提示 End If 4.6 管理工资界面的具体实现1. 界面实现(1). 将新建的工作表命名为工资管理。(2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。(3). 选择button按钮，在表中添加控件

30、。(4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框中，改变它的Caption属性。(5). 设计整体界面更，最终效果如下图图 4-15 工资管理界面2. 功能介绍 该界面包括4个功能按钮。工资条按钮、主界面按钮、考勤和应扣项目按钮、工资标准按钮。这些按钮主要是用来实现个界面之间的跳转。4.7 工资条界面的具体实现1. 界面实现(1). 新建工作表命名为工资条。(2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。(3). 选择button按钮，在表中添加控件。(4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框中，改变它

31、的Caption属性。(5). 添加相关字段。(6). 设计整体界面更，最终效果如下图图 4-16 工资条界面2. 功能介绍 该界面里主要记录的是企业员工的一些工资所得情况。该界面里还包含一个工资管理按钮，一个主界面按钮。用来实现界面之间的跳转。2011年6月第十一届全国人大常委会第二十一次会议30日表决通过关于修改个人所得税法的决定，征税点从3500元起。个人所得税计算公式：应纳个人所得税税额=应纳税所得额*适用税率-速算扣除数员工工资个人所得税相关代码：Function tax(应税所得额) If 应税所得额 = 1500 Then tax = 0.03 * 应税所得额 Else If 应

32、税所得额 = 4500 Then tax = 0.1 * 应税所得额 - 105 Else If 应税所得额 = 9000 Then tax = 0.2 * 应税所得额 - 555 Else If 应税所得额 = 35000 Then tax = 0.25 * 应税所得额 - 1005 Else If 应税所得额 55000 Then tax = 0.3 * 应税所得额 - 2755 Else If 应税所得额 80000 Then tax = 0.35 * 应税所得额 - 5505 Else tax = 0.45 * 应税所得额 - 13505 End If End If End If En

33、d If End If End If End Function4.8 考勤和应扣项目界面的具体实现1. 界面实现(1). 新建工作表命名为考勤和应扣项目。(2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。(3). 选择button按钮，在表中添加控件。(4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框中，改变它的Caption属性。(5). 添加相关字段。(6). 设计整体界面更，最终效果如下图图 4-17 考勤和应扣项目界面2. 功能介绍 该界面记录的是企业员工的考勤和应扣项目的一些记录。两个按钮来实现界面之间的跳转。4.9 工资标准界面的具

34、体实现1.界面实现(1). 新建工作表命名为工资标准。(2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。(3). 选择button按钮，在表中添加控件。(4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框中，改变它的Caption属性。(5). 添加相关字段。(6). 设计整体界面更，最终效果如下图图 4-18 工资标准界面结 论该人事工资管理系统主要从系统分析到系统实施，详细介绍了所设计系统的特点，已基本能满足公司对人事工资管理系统的需求，具体如下：(1)系统能够对企业员工的基本信息进行增加、删除、查询操作。(2)系统能够汇总、计算员工的工资，

35、并提供查询和打印功能。(3)为适应国企的需要，还设计了劳保管理及人员福利保险管理模块给企业带来方便。该系统包含劳动人事工资管理中的大部分业务，能够满足企业人事工资管理的需要。但是，随着管理理论水平的不断提高，计算机技术突飞猛进的发展，我们的软件也许需要进一步的完善和扩充，以适应不断变化的工作需要，并且使该系统能够在更大范围内得到推广应用。致 谢毕业设计即将结束，回顾紧张但又充实的开发过程，在此向所有关心我及帮助我的老师和同学们致以最真诚的感谢。在本次毕业设计中，我从指导老师张爽老师，身上学到了很多东西。他认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅。无论在系统理论上还是在开

36、发系统的实践中，张老师都给与我很多的帮助，使我的理论水平和开发系统的能力得到很大的提高，这对于我以后的工作和学习都有巨大的帮助，在此感谢他耐心的辅导。在撰写论文阶段，张老师几次审阅我们的论文，提出了许多宝贵意见，没有他的指导，我们就不能较好的完成毕业设计的任务。另外，我还要感谢在这几年来培育过我的老师，他们孜孜不倦的教诲让我学到了很多知识和学习的方法，也教会了我做人处事的道理，在此表示感谢。同时，在系统开发过程中还有同学也给了我不少帮助，这里表示感谢。参考文献1 Excel Home.别怕，Excel VBA其实很简单.人民邮电出版社，20122 【美】沃肯巴赫.Excel2003高级VBA编

37、程宝典.电子工业出版社，20053 罗刚军.Excel VBA程序开发自学宝典(第2版).电子工业出版社，20114 魏汪洋.从零开始学Excel VBA.人民邮电出版社，20115 袁竹平.Excel VBA常用代码实战大全.化学工业出版社，20106 姚文涛.Excel VBA应用开发经典案例.清华大学出版社，2009附 录 程序相关代码工资管理按钮Private Sub CommandButton4_Click()If (Sheets(主界面).Visible = True) Then Sheets(主界面).SelectElseIf (Sheets(用户主界面).Visible = T

38、rue) Then Sheets(用户主界面).SelectEnd If添加成员按钮Private Sub CommandButton1_Click()Dim i As Integer定义用于保存记录数的整型变量Dim iCount As Integer定义判断读者是否在的布尔变量Dim CunZai As Boolean 把“读者信息”工作表的记录行数赋予iCount iCount = Sheets(资料库).A10.CurrentRegion.Rows.Count + 8 为CunZai布尔变量赋初值 CunZai = False 使用ForNext循环语句 If Trim(Cells(4

39、， 2) = Then MsgBox 请输入姓名 Exit Sub End If For i = 11 To iCount 判断是否已有相同的记录 If Trim(Cells(4， 2) = Trim(Cells(i， 1) Then 把CunZai布尔变量的值设为True CunZai = True Dim YorN YorN = MsgBox(该员工已存在是否更新记录？， vbYesNo， 询问) If YorN = vbYes Then 更新信息 Cells(i， 2).Value = ComboBox1.Value Cells(i， 3).Value = birthday(Cells(

40、5， 3) Cells(i， 4).Value = Cells(5， 3) Cells(i， 5).Value = Cells(4， 10) Cells(i， 6).Value = Cells(4， 6) Cells(i， 7).Value = Cells(4， 8) Cells(i， 8).Value = ComboBox4.Value Cells(i， 9).Value = Cells(6， 7) Cells(i， 10).Value = ComboBox2.Value Cells(i， 11).Value = ComboBox3.Value Cells(i， 12).Value = Ce

41、lls(7， 2) Cells(iCount + 1， 13).Value = A & iCount - 9 Cells(i， 14).Value = ComboBox5.Value Cells(i， 15).Value = Cells(4， 12) Sheets(工资标准).Cells(iCount + 1 - 9， 1).Value = A & iCount - 9 Sheets(工资标准).Cells(iCount + 1 - 9， 2).Value = Trim(Cells(4， 2) Sheets(考勤和应扣项目).Cells(iCount + 1 - 9， 1).Value = A & iCount - 9 Sheets(考勤和应扣项目).Cells(iCount + 1 - 9， 3).Value = Trim(Cells(4， 2) Sheets(员工信息).Cells(iCount + 1 - 9， 1).Value = A & iCount - 9 Sheets(员工信息).Cells(iCount + 1 - 9， 2).Value = Trim(Cells(4， 2) MsgBox 更