超市消防系统毕业论文.doc

《超市消防系统毕业论文.doc》由会员分享，可在线阅读，更多相关《超市消防系统毕业论文.doc（32页珍藏版）》请在三一文库上搜索。

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

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

3、统分析与设计7 3.1 系统分析.7 3.2 系统功能分析.7 3.3 数据流程图.7 第四章 系统详细设计与模块的具体实现9 4.1 系统的登录界面.9 4.1.1 登录界面的具体实现10 4.2 主界面的具体实现.12 4.3 录入信息界面的具体实现.12 4.4 查看统计界面的具体实现.15 4.5 查看信息界面的具体实现.17 4.6 管理工资界面的具体实现.18 4.7 工资条界面的具体实现.19 4.8 考勤和应扣项目界面的具体实现.20 4.9 工资标准界面的具体实现.21 结 论23 致 谢24 参考文献25 附 录 程序相关代码26 炎黄职业技术学院 信息工程系毕业设计（论文

4、） 第 0 页共 31 页 第 1 章 绪 论 随着市场经济的迅速发展，商业路通改变了传统的模式，减少了流通中间环节 而趋于大型化、市场化、集成化，各地相继建成了诸多大型超市，这些大型超市的 出现，在给消费者带来了很大便利的同时，也给人们带来了巨大的安全隐患。由于 其商品品种丰富，商品价格低廉，收到了广大市民的欢迎，与一般商场相比，仓储 式超市多位单层或者两层，具有封闭式、面积大。体积大。点苦何以的特点，由于 超市内人员高度密集，货物集中，一旦发生火灾事故，燃烧速度快，火灾温度高， 容易形成立体燃烧，且人员疏散困难，会造成严重的财产损失和人员伤亡。近年来， 国内也相继发生商场、市场的特大火灾事

5、故，唐山林西百货大楼、郑州天然商厦、 南昌万寿宫商城等，这些建筑火灾给人民生命和财产造成了重大损失。由此可以看 出，大型超市建筑火灾的预防不容忽视，特别是党中央提出建设社会主义和谐社会 战略，坚持以人为本的理念，使涉及人员生命安全。消防工作显得尤为重要。 1.1 本课题的研究意义 本设计采用或者自动报警系统及消防联动系统，一方面，它能够在或者初期，将燃烧产生的 烟雾、热量和光辐射及变化的空气组分等物理量，通过感温、感烟、感光及气体浓度等或者探 测器等转变成电信号，传输到或者报警控制器，并同时显示出火灾发生的位置，记录或者发生 的时间；另一方面，火灾自动报警系统、自动喷水灭火系统、室内消防栓系统

6、。放烟排烟系统、 防火门和防火卷帘门、挡烟垂壁、通风系统等相关系统联动，通过自动和手动方式发出指令， 控制外围联动装置的启停并接受其反馈信号。从而实现减少人员伤亡和财产损失的目的。因此 消防监控系统在超市中的安全具有重要意义。 。 1.2 本课题的研究目的 国内外大型商场、超市的火灾事故呈现迅猛抬头之势，群死群上恶性火灾事故 屡见报端，如：2004 年 8 月 1 日位于首都亚松森嚼蛆的一座大型超市特大火灾造成 504 人死亡；2006 年 4 月 28 日，台州市路桥区路桥街道文昌路 201 号商住楼一层的 金路超市发生火灾。烧毁建筑面积 1000 余平方米，直接财产损失 25 万余元；20

7、11 年，江苏淮安涟水安东路新时代超市发生大火，导致整个超市休整近一年多。因此， 在烟具的火灾形势下，或者教训充分说明大型商场防火的重要性必须引起我们的重 视。 炎黄职业技术学院 信息工程系毕业设计（论文） 第 1 页共 31 页 1.3 设计的主要内容 本设计主要运动海湾公司的消防设备实现消防监控系统设计，包括两个主要部 分：消防系统控制的硬件设计部分和软件部分设计。 硬件部分受限通过探测器和变送器监控超市的温度、可燃气体的浓度，烟尘密 度，光的强度等物理量，然后进行数据的采集，最后将采集的数据通过二总线传到 消防报警监控联动系统，再由消防联动系统控制联动设备发出警报，喷淋灭火动作。 软件部

8、分的设计需要绘制超市的平面图、探测器和喷头的布局图以及联动编程。 此外，要求熟悉常用的火灾探测器，报警控制器及它们的工作原理、选型、使 用方法。 炎黄职业技术学院 信息工程系毕业设计（论文） 第 2 页共 31 页 第 2 章 超市的平面设计和消防设计超市的平面设计和消防设计 2.1 某大型超市简介 此超市位于该市最繁华的地段。超市共有三层，营业面积 2600 平方米，属于一级 保护建筑。 由于其商品品种丰富，商品价格低廉，便利的交通再加上有利的地形，使得该超 市的平均日人流量很多。但它与此同时也带来了很大的安全隐患，作为一个大型的 储物型超市，一旦发生火灾就可能带来很大的危险，货物的损失，人

9、员的上网。这 就要求超市必须做好消防工作。现代消防监控系统就可以帮上很大的忙，火灾消防 自动报警系统中检测系统、灭火系统、消防电话系统、消防广播系统的设计和应用 将帮助我们队超市火灾，能做到提前预防，有效防止 2.2超市平面布局 该超市营业面积 26000 平方米，共三层： 一楼：百货区（箱包、皮具、女装男装、床用、童装、化妆品专柜） 。 二楼：蔬菜、水果、熟食、面点、肉类、高档烟酒、名茶、保健补品、休闲食 品、顾客服务中心。 三楼：服装特价区、家电售后服务中心、团购接待处、家用电器、音响制品、 床上用品、厨具五金、儿童玩具、办公文具、家庭精品。 2.3 该超市的消防要求 人事工资管理系统是集

10、人事管理与工资管理为一体的系统，通过它可以方便地 使您进行人力资源的管理。它可以自定义工资栏目，内置一套基本工式，即应付工 资=计算状态为加的所有栏目之和，实付工资=应付工资-计算状态为减的所有栏目之 和。用户生成第一个月的工资单，然后录入，以后每个月只要复制上个月的工资单， 再加上小幅修改就可以了。这对工资变动不太大的企事业单位就更加方便了。系统 提供工资单、工资条、以及工资汇总表、工资统计表，适用于各种场合。系统还提 供人力资源结构分析、工龄结构分析、学历结构分析等人力资源分析报表。同时系 统提供数据输入输出功能，为用户的特殊要求提供了一个方便的接口。 系统特征： 操作简单方便，使您可以迅

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

12、l 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 的各应用程

13、序。VB 可运行直接来自 Windows 95 或 NT 桌面上的应用程序，而 VBA 的 项目（Project）仅由使用 VBA 的 Excel、Word、 PowerPoint 等称为宿主（Host）的 Office 应用 程序（Application）来调用。 炎黄职业技术学院 信息工程系毕业设计（论文） 第 4 页共 31 页 第 3 章 系统分析与设计 3.1 系统分析 随着国民经济的飞速发展，国内企事业单位对员工、职称等跟人事工资管理相 关的信息随之集聚增加。在这种情况下，如果还是像过去那样仅仅单靠采用传统的 手工方式来处理这些员工的工资信息，不但会浪费大量的人力、物力，而且还容易

14、 出错。 正是由于上述原因，开发本系统的具体任务是设计一个由计算机来代替手工执行一 系列操作，诸如添加新员工、删除旧员工、工资修改、查询、统计及打印等操作的 人事工资数据库管理系统。这样，我们就可以使管理人员轻松、快捷的完成本单位 的工资管理任务了。 3.2 系统功能分析 系统开发的总体任务是要利用 VBA 实现人事工资信息关系的系统化，规范化和 自动化。 系统功能分析是在系统开发的总体任务的基础之上完成的。人事工资管理系统 主要有以下几项功能: 1.在系统中建立员工数据库，用来存储员工系统。 2.有信息的的录入系统，这是数据库更新的基础。 3.有更新员工信息的功能，因为员工信息是不断变化，所

15、以这一步是必需的。 4.实现员工信息查询功能。 5.能将每个员工的信息分离，以便打印个人简历。 6.能够方便员工预算的工资结算、考勤、等。 7.具备可拓展性。 3.3 数据流程图 系统功能的要求，可以将系统分解成几个功能模块来分别设计，如系统先进入 登陆模块然后输入用户名和密码进入主界面，接着根据用户需求进入相应模块界面， 最后在进行相应操作。 基本功能模块流程图如下： 炎黄职业技术学院 信息工程系毕业设计（论文） 第 5 页共 31 页 考 勤 和 应 扣 项 目 人事工资管理系统 登录界面 主界面 录 入 信 息 查 看 信 息 查 看 统 计 工 资 管 理 用 户 切 换 退 出 系

16、统 添 加 成 员 清 除 数 据 删 除 记 录 搜 索 员 工 统 计 工 资 条 主 界 面 工 资 标 准 管 理 员 登 陆 普 通 用 户 登 录 图 3-1 功能模块流程图 炎黄职业技术学院 信息工程系毕业设计（论文） 第 6 页共 31 页 第四章 系统详细设计与模块的具体实现 4.1 系统的登录界面 企业人事工资管理系统的主界面采用窗体，使系统更加美观，方便实用。在登 陆主界面之前，首先登记用户管理窗体如图 4-1。 图 4-1 登录模块流程图 从新输入 非法用户 进入系统 管理员及 密码 用户名及 密码 正确 非法用户 正确 从新输入 进入系统 进入系统 判断是管理员 还是

17、普通用户 用户登录系统 进入系统 炎黄职业技术学院 信息工程系毕业设计（论文） 第 7 页共 31 页 4.1.1 登录界面的具体实现 1. 界面实现 (1) 新建工作表，按 ALT+F11 快捷键进入 Visual Basic 编辑器。 (2) 在工程窗口中，选择该工程，选择【插入】|【用户窗体】命令，给该工程 添加一个窗体。 (3) 右击该窗体，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话框 中，将他的 Caption 属性改为“登录窗口” 。 (4) 在途中合适的位置绘制控件，最终效果如下图 图 4-2 登录界面 2. 功能介绍 登录界面有登录和重置两个按钮，登录按钮主要用来实现

18、用户的登录。当用 户输入用户名时，先判断用户名及密码是否正确，如果错误则提示“非法用户， 请重新输入” 。如果输入的用户名及密码正确则进行判断该用户是管理员还是普通 用户。若为普通用户则隐藏敏感工作表，打开用户主界面。否则则打开管理员主 界面。 图 4-3 非法用户登录提示 炎黄职业技术学院 信息工程系毕业设计（论文） 第 8 页共 31 页 图 4-4 管理员登录提示 相关代码： Dim s As String Dim m As String s = TextBox1.Text m = TextBox2.Text If s = “admin“ And m = “123456“ Then Wo

19、rksheets(“主界面“).Visible = True Worksheets(“资料库“).Visible = True Worksheets(“用户主界面“).Visible = False Worksheets(“打印简历“).Visible = True Worksheets(“用户打印简历“).Visible = False Worksheets(“统计表“).Visible = True UserForm1.Hide MsgBox “管理员您好，欢迎登录！” 图 4-5 用户登录提示 相关代码： ElseIf s = “user“ And m = “654321“ Then W

20、orksheets(“主界面“).Visible = False Worksheets(“打印简历“).Visible = False Worksheets(“用户主界面“).Visible = True Worksheets(“用户打印简历“).Visible = True Worksheets(“资料库“).Visible = False Worksheets(“统计表“).Visible = False 炎黄职业技术学院 信息工程系毕业设计（论文） 第 9 页共 31 页 UserForm1.Hide MsgBox “用户您好，欢迎登录！“ 4.2 主界面的具体实现 1. 界面实现 (1

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

22、). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。 (3). 选择 button 按钮，在表中添加控件。 (4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话 炎黄职业技术学院 信息工程系毕业设计（论文） 第 10 页共 31 页 框中，改变它的 Caption 属性。 (5). 添加相关字段。 (6). 设计整体界面更，最终效果如下图 图 4-7 资料库界面 2. 功能介绍 信息录入界面连接的是资料库工作表。其主要包括职员姓名、性别、出生日期、 身份证号码、参加工作时间、民族、籍贯、学历、毕业学校及专业、职称、现任职 务、工作简历、部门、职工号等字段

23、。还包含添加成员、清除数据、删除记录、工 资管理、主界面、打印简历 6 个功能按钮来实现员工信息的录入、员工记录的删除、 以及界面之间的转换。如当单击添加员工按钮就会录入新添加的员工信息，若信息 填写不完整则系统出现“信息不完整，请完善信息”的提示，当添加完成时则提示 “记录已添加完成！”。当单击抒情数据按钮时，会清除字段中填写的员工信息， 并给予“数据以清除“的提示。在姓名字段输入要删除员工姓名，单击删除记录按 钮，如若存在则提示”员工记录已删除“，否则提示”无此记录，因此无法删除， 请核实“。 图 4-8 添加信息残缺提示 相关代码： If YorN = vbYes Then 判断记录是否

24、完整 If Trim(Cells(5， 3) = “ Or Trim(Cells(4， 10) = “ Or _ Trim(Cells(4， 6) = “ Or Trim(Cells(4， 8) = “ Or _ 炎黄职业技术学院 信息工程系毕业设计（论文） 第 11 页共 31 页 Trim(Cells(6， 7) = “ Or Trim(Cells(7， 2) = “ Or _ Trim(Cells(5， 11) = “ Then MsgBox “信息不完整，请完善信息“ Exit Sub 图 4-9 姓名字段为空时提示 相关代码： 判断是否存在用户名 If Trim(Cells(4， 2

25、) = “ Then MsgBox “请输入姓名“ Exit Sub End If 图 4-10 记录删除成功提示 相关代码： Dim i As Integer 定义判断记录是否在的布尔变量 Dim CunZai As Boolean 定义用于保存“资料库”记录数的整型变量 Dim iCount As Integer 把记录行数赋予 iCount iCount = Sheets(“资料库“).A10.CurrentRegion.Rows.Count + 10 为 CunZai 布尔变量赋初值 CunZai = False 使用 ForNext 循环语句 炎黄职业技术学院 信息工程系毕业设计（论

26、文） 第 12 页共 31 页 For i = 11 To iCount 判断读者编号是否与已有记录的相同 If Trim(Cells(4， 2) = Trim(Cells(i， 1) Then 把 CunZai 布尔变量的值设为 True CunZai = True 选择符合条件的记录行 Rows(i).Select 删除符合条件的记录行 Selection.Delete 弹出记录已经删除的信息 Sheets(“工资标准“).Rows(i - 9).Delete Sheets(“考勤和应扣项目“).Rows(i - 9).Delete Sheets(“工资条“).Rows(i - 9).De

27、lete MsgBox “员工记录已经删除！“， vbOKOnly， “提示“ Exit For 退出 ForNext 循环语句 End If 图 4-11 删除不存在员工提示 相关代码： If CunZai = False Then 弹出无法删除记录的信息 MsgBox “无此记录，因此无法删除，请核实！“， vbOKOnly， “无法删除“ End If 4.4 查看统计界面的具体实现 1. 界面实现 (1). 新建工作表命名为统计表。 (2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。 (3). 选择 button 按钮，在表中添加控件。 (4). 选择控件右击，在

28、弹出的快捷菜单中选择【属性】命令，在弹出的属性对话 炎黄职业技术学院 信息工程系毕业设计（论文） 第 13 页共 31 页 框中，改变它的 Caption 属性。 (5). 添加相关字段。 (6). 设计整体界面更，最终效果如下图 图 4-12 统计表界面 2. 功能介绍 查看统计界面连接的是统计表。其包括一个统计按钮一个主界面按钮。当单击 统计按钮则系统会按照性别、年龄、学历来查询统计。当单击主界面按钮时则会实 现界面之间的跳转。 统计按钮相关代码： Private Sub CommandButton1_Click() While (Not IsEmpty(Sheets(“资料库“).Cel

29、ls(TempY， 1).Value) 统计男女性别人数 Dim sex sex = Sheets(“资料库“).Cells(TempY， 2).Value If (“男“ = sex) Then men = men + 1 Else women = women + 1 End If 统计个阶段学历人数 Dim xueli xueli = Sheets(“资料库“).Cells(TempY， 8).Value If (“高中“ = xueli) Then xueli1 = xueli1 + 1 ElseIf (“大专“ = xueli) Then xueli2 = xueli2 + 1 炎黄职

30、业技术学院 信息工程系毕业设计（论文） 第 14 页共 31 页 ElseIf (“本科“ = xueli) Then xueli3 = xueli3 + 1 ElseIf (“硕士“ = xueli) Then xueli4 = xueli4 + 1 Else xueli5 = xueli5 + 1 End If 统计各年龄段人数 Dim nowyear As Integer Dim thatyear As Integer nowyear = Year(Cells(6， 1) thatyear = Year(Sheets(“资料库“).Cells(TempY， 3) If (nowyear

31、- 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 class4 = class4 + 1 Else class5 = class5 + 1 End If 进入下一行 TempY = TempY + 1 4.5 查看信息界面的具体实现 1. 界面实现 (1). 新建工作

32、表命名为打印简历。 (2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。 (3). 选择 button 按钮，在表中添加控件。 (4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话 框中，改变它的 Caption 属性。 (5). 添加相关字段。 炎黄职业技术学院 信息工程系毕业设计（论文） 第 15 页共 31 页 (6). 设计整体界面更，最终效果如下图 图 4-13 打印简历界面 2. 功能介绍 该界面连接的时打印简历表。其包括一个搜索员工按钮一个主界面按钮。当在 姓名字段输入要查找员工的姓名时，单击搜索按钮，若存在此人则会显示该员工的 所有信

33、息。否则则会提示“没有搜到符合条件的记录，请核实“。 图 4-14 搜索不存在员工提示 相关代码： 判断是否搜索到读者 If CunZai = False Then 弹出提示没有搜索到符合条件读者的信息 MsgBox “没有搜索到符合条件的记录，请核实！“， vbOKOnly， “提示“ End If 4.6 管理工资界面的具体实现 1. 界面实现 (1). 将新建的工作表命名为工资管理。 (2). 选择【视图】|【工具栏】|【控制工具箱】命令，弹出工具箱窗口。 (3). 选择 button 按钮，在表中添加控件。 (4). 选择控件右击，在弹出的快捷菜单中选择【属性】命令，在弹出的属性对话

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

35、弹出的属性对话 框中，改变它的 Caption 属性。 (5). 添加相关字段。 (6). 设计整体界面更，最终效果如下图 图 4-16 工资条界面 2. 功能介绍 炎黄职业技术学院 信息工程系毕业设计（论文） 第 17 页共 31 页 该界面里主要记录的是企业员工的一些工资所得情况。该界面里还包含一个工 资管理按钮，一个主界面按钮。用来实现界面之间的跳转。 2011 年 6 月第十一届全国人大常委会第二十一次会议 30 日表决通过关于修改 个人所得税法的决定，征税点从 3500 元起。个人所得税计算公式：应纳个人所得 税税额=应纳税所得额*适用税率-速算扣除数 员工工资个人所得税相关代码：

36、Function tax(应税所得额) If 应税所得额 3500 Then Sheets(“工资条“).Cells(iCount + 1 - 9， 10).Value = Sheets(“工资条“). Cells(iCount + 1 - 9， 9) - 3500 Else Sheets(“工资条“).Cells(iCount + 1 - 9， 10).Value = 0 End If Sheets(“工资条“).Cells(iCount + 1 - 9， 11).Value = tax(Sheets(“工资条“). Cells(iCount + 1 - 9， 10) Sheets(“工资条

37、“).Cells(iCount + 1 - 9， 12).Value = Sheets(“考勤和应扣项目 “).Cells(iCount + 1 - 9， 6) + Sheets(“考勤和应扣项目“).Cells(iCount + 1 - 9， 7) Sheets(“工资条“).Cells(iCount + 1 - 10， 1).Value = Sheets(“工资条“). Cells(iCount + 1 - 9， 9).Value - Sheets(“工资条“).Cells(iCount + 1 - 9， 11).Value - Sheets(“工资条“).Cells(iCount + 1

38、 - 9， 12).Value End If End Sub Option Explicit 模块一代码：模块一代码： 利用 birthday()函数求取员工的出生日期 Public Function birthday(number) Dim y， m， d If Len(number) = 18 Then y = Mid(number， 7， 4) m = Mid(number， 11， 2) 炎黄职业技术学院 信息工程系毕业设计（论文） 第 28 页共 31 页 d = Mid(number， 13， 2) birthday = DateSerial(y， m， d) Else y = “19“ & Mid(number， 7， 2) m = Mid(number， 9， 2) d = Mid(number， 11， 2) birthday = DateSerial(y， m， d) End If End Function Sub 显示生日() Dim m m = birthday(Cells(5， 3) MsgBox m End Sub