计算机毕业设计.doc

- - 1 毕业设计毕业设计( (论文论文) ) 题 目 员工工资管理系统员工工资管理系统 2 目录 第第 1 章章 绪论绪论5 1.1 研究课题的背景.5 1.2 开发工具简介6 1.3 数据库管理系统.6 第第 2 章章 员工工资管理系统分析与设计员工工资管理系统分析与设计7 2.1 应用需求分析7 2.2 系统功能模块划分.8 第第 3 章章 数据库管理系统设计数据库管理系统设计9 3.1 数据库中表的建立和设计9 3.2 数据库中各个表的触发器的建立12 第第 4 章章 应用程序设计应用程序设计15 4.1 欢迎界面.15 4.2 登录模块设计16 4.2.1 身份验证.16 4.3 主窗体设计18 4.4 信息录入管理窗体设计19 4.4.1 录入模块设计.19 4.5 信息查询管理窗体设计.21 4.5.1 查询模块设计.21 4.6 信息修改模块.23 4.6.1 修改模块设计.24 4.7 数据导出模块设计25 第第 5 章章 系统测试系统测试32 5.1 测试目的32 5.2 测试方法32 5.3 测试结论33 第第 6 章章 结束语结束语34 致致 谢谢36 参考文献参考文献37 - - 3 摘 要 企业的员工管理是公司管理的一个重要内容。随着企业人员数量增加，企业的 员工管理工作也变得越来越复杂。员工管理既涉及到企业劳动人事的管理，企业财 务管理等。员工管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等， 来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。早期 的员工统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间 且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现员工统计错误的现象。 早期员工管理多采取纸质材料和具有较强的时间限制。基于以上原因，企业员工管 理系统使用电脑安全保存、快速计算、全面统计，实现员工管理的系统化、规范化、 自动化。企业员工管理系统是典型的信息管理系统（mis），前台程序开发工具采用 delphi，后台数据库采用 sql server 2000 数据库。delphi 开发工具，具有组件丰 富、语言简单、功能强大的优点。 sql 数据库具有与 delphi 无缝连接、操作简单、 易于使用的优点。运行结果证明，本企业员工管理系统极大提高了工作效率，节省 了人力和物力，最终满足企业员工管理等需要，同时也成为现代化企业管理的标志。 【关键字】员工信息系统，数据库，工资管理，实体关系图（e-r 图），数据字 典，数据流图。 abstract enterprise staff management is an important aspect of management. with the increase in the number of enterprises, corporate management staff has become more 4 and more complex. both staff management and personnel involved in labor management, enterprise financial management. staff management needs and associated personnel management, working hours, attendance at the same time to connect and medical insurance, etc., to generate business for each of the basic wages of workers, allowance, medical insurance, insurance, wages actually paid. early release of statistics and the staff are using artificial methods to deal with paper-based materials, not only the financial officers spent a lot of time and difficult to preserve, often transcription factors as a result of personal carelessness or negligence of the calculation, there is the wrong statistics staff. early management staff to take paper-based materials and many have strong time constraints. for these reasons, the enterprise management system for staff to preserve the use of computer security, and rapid calculation, comprehensive statistics, staff management to achieve the systematic, standardized and automated. employee management system is a typical management information system (mis), development tools for the future use of delphi, back-end database using sql server 2000 database. delphi development tools, has a component rich in simple language and powerful advantages. sql database with the delphi seamless, simple operation, easy-to-use advantages. the results prove that the enterprise management system staff have greatly improved work efficiency, saving human and material resources, and ultimately meet the needs of enterprises, such as staff management, but also become a symbol of the modernization of enterprise management 【keywords】 staff information system, database, payroll management, entity relationship diagram (er diagram), data dictionary, data flow diagram. - - 5 第第 1 章章 绪论绪论 1.1 研究课题的背景研究课题的背景 借助现代信息技术和管理理论，建立员工管理信息系统是当今社会的重要趋 势。党和政府根据知识经济时代的特点，对国民经济建设提出了“用信息化带动 工业化”的指导思想。对企业而言，全面开发和应用计算机管理信息系统就是近 期不能回避的问题。在企业管理中，人力资源是企业最宝贵的资源，也是企业的 “生命线” ，因此员工管理是企业的计算机管理信息系统重要组成部分。而员工 管理又是人力资源管理的重中之重。实行电子化的员工管理，可以让人力资源管 理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。员工管理信息系 统的实现可以减轻比较繁琐的手工员工管理。 现在应用在大中型企业的管理信息系统中，几乎都包括了员工管理模块。有 些环境中是由作为大型 erp 软件中的一个模块引进的，有些是作为企业的财务系 统的一部分。这些根据规范的西方的管理制度设计的员工管理软件，在很多时候 还不能完全解决中国特色的中小企业的问题，本文介绍的毕业设计的研究工作就 是要为这些具有中国特色的中小企业解决他们在员工管理方面的问题。 通过在本单位经过一周的调研，并参考其他同行设计员工管理软件，我基本 上搞清楚了小型企业对系统的需求，如果能够设计一套针对类似本单位的小型国 有企业的员工管理系统特别有意义，并且是现行的其他管理软件代替不了的。 在和指导老师多次交流后，确定实现方案的要点和工作计划。本系统的实现 的主要功能有：员工信息管理、工资管理、部门信息管理、员工考勤管理等功能。 6 1.2 开发工具简介开发工具简介 开发工具采用 delphi7.0。delphi7.0 是目前较为广泛的、易学易用的开发 工具。delphi7.0 也提供了大量的控件，这些控件可用于设计界面和实现各种功 能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用 程序的运行效率和可靠性。因此，本系统使用 delphi7.0 开发。 1.3 数据库管理系统数据库管理系统 数据库开发工具采用 sql server 2000。借助 sql server 2000 的数据库管 理系统对数据库进行一切操作，包括定义各种更新和控制。在数据库领域中通常 把数据模型分为三种：层次模型（hierarchical model） 、网状模型（network model）和关系模型（relational model） 。sql server 2000 就是一种关系型数 据库管理系统。 关系模型是数据库系统中最重要的模型，关系模型中数据的逻辑结构是一张 二维表。使用表格来描述实体之间的关系，用外键表示实体间联系。关系模型是 由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，每个关系 实际上是一张二维表格。关系模型和层次、网状模型的最大判别是用关键码而不 是用指针导航数据，表格简单用户易懂，编程时并不涉及存储结构，访问技术等 细节。sql 语言是关系型数据库的标准化语言，已得到了广泛的应用。 - - 7 第第 2 章章 员工工资管理系统分析与设计员工工资管理系统分析与设计 2.1 应用需求分析应用需求分析 需求分析的过程可以说是一个对具体问题的反复理解和抽象的过程。理解就 是对现实问题的理解，要弄清楚究竟需要解决什么问题。抽象就是除去问题的表 面，提取问题的本质，建立问题的逻辑模型，以便于以后阶段的系统的设计实现。 需求分析阶段是软件产品生存命期中的一个重要阶段，其根本任务是确定用户对 软件系统的需求。所谓需求是指用户对软件的功能和性能的要求，就是用户希望 软件能什么事情，完成什么样的功能，达到什么性能。通常需求分为两种类型： 一种是功能性需求，一种是非功能性需求，这一点也需要有一种清楚的认识。功 能性需求是指需要计算机系统解决的问题，也就是对数据的处理要求，这是一类 最主要的需求。非功能性需求是指实际使用环境所要求的需求，往往是一些限制 要求，例如：性能要求，可靠性要求，安全保密要求，等等。 软件需求一般包含三个层次业务需求、用户需求和功能需求，还包括非功 能需求。业务需求：反映了组织机构或客户对系统、产品高层次的目标要求，它 们在项目视图与范围文档中予以说明。用户需求：描述了用户使用产品必须要完 成的任务和具备的功能，这在使用实例文档或方案脚本说明中予以说明。功能需 求：定义了开发人员必须实现的软件功能，使得用户能完成他们的任务，从而满 足其业务需求。 8 2.2 系统功能模块划分系统功能模块划分 开发这个系统的目的就是帮助企业的主管部门提高工作效率，实现企业员工 信息管理的系统化、规范化和自动化。能够和工资管理系统、考勤管理系统相结合， 真正实现企业高效、科学、现代化的员工管理。系统最终实现的主要功能如图 2-1 所示： 工资管理系统 信息录入信息修改打 印信息查询 员 工 信 息 录 入 员 工 工 资 录 入 部 门 信 息 录 入 员 工 工 资 查 询 部 门 信 息 查 询 部 门 信 息 修 改 员 工 信 息 修 改 员 工 工 资 修 改 添 加 管 理 员 员 工 信 息 查 询 所 有 员 工 工 资 修 改 打 印 员 工 信 息 打 印 员 工 工 资 图 2-1 系统结构图 1）部门管理：能够维护体现部门间的组织关系，反映部门的基本信息，能够进 行部门的增加撤消，以及部门信息（如部门名称、负责人名称等）的修改。 2）用户管理：能够对系统中已有的用户进行编辑、修改权限或删除，并能添加 其他的用户。用户管理是该系统中最为安全的地方，他设置权限问题，不同的权 限设置相应的操作权限。这对一个企业来说是至关重要的。是该系统中设置安全 问题最为复杂的。 3）员工信息的管理：维护员工的基本信息，用户可以进行员工档案信息的录入 及更改，其中包括员工的基本信息，要求这些员上档案信息可以进行新增、删除、 修改操作，同时可以进行浏览和查询的操作。该模块是本系统的重点，用户可以 - - 9 通过该模块为单位建立一个比较完整的人事档案系统，同时可以比较方便地对档 案进行查看。 4）员工工资信息管理：维护员工的工资信息，可以对员工的工资信息进行查找， 和相应的新增、删除、修改等操作，同时也可进行浏览查询的操作。该模块也是 该系统中设置安全问题比较多的，员工工资直接关系到一个企业财务问题，所以 他不允许不具有权限的员工进行修改。同时他的总和是计算机自动计算的，避免 了出现不必要的错误。 5）员工考勤信息管理：维护员工考勤信息，可以对员工的考勤信息进行修改、 添加、删除等操作，同时具备对指定员工考勤信息的查询浏览功能的操作。 据库管理系统设计据库管理系统设计 3.1 数据库中表的建立和设计数据库中表的建立和设计 所用 sql server 是一个后台数据库管理系统,它功能强大操作简便，目前很多开 发工具都提供了与 sql server 的接口。sql server 不但可以应用于大中型数据 库管理中，建立分布式关系数据库，也可以开发桌面数据库。sql server 数据 库处理的基本结构，采取关系型数据库模式，但在它的数据库处理方式上，则是 使用面向对象的操作方式，也就是说，sql server 的所有功能，都可以基于系 统已经建立好的一些对象来达成，是相当 oo（面向对象）的一个系统结构。sql server 企业管理器是 sql server 的主要管理工具，这也是作者在开发这个人 事管理系统所用到的一个重要工具。 10 数据库设计主要是进行数据库逻辑设计，即将数据按一定的分类、分组系统 和逻辑层次组织起来，是面向用户的。数据库设计时需要综合企业各个部门的存 档数据和数据需求，分析各个数据之间的关系，按照 dbms 提供的功能和描述工 具，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多 种查询要求的数据模型 表 3-1 用户表 列名数据类型长度是否为空 用户名 char10 否 密码 char10 否 权限 nchar15 否 说明：这张表存放的目前用户的权限信息，其中用户名设为主键。每个登录 用户必定属于以上一个权限。该权限直接关系到在系统中所具有的权限，并且用 户名必须唯一并不能为空。 表 3-2 员工基本信息表 列名数据类型长度是否为空 员工编号 char10 否 员工姓名 nvarchar10 否 性别 nvarchar10 否 出生年月 smalldatetime4 否 参加工作时间 smalldatetime4 否 部门名称 nvarchar20 否 政治面貌 nvarchar20 否 婚姻状况 nvarchar20 否 说明：员工信息表中包含了员工的基本信息，其中员工编号是该表的主键。 - - 11 字段出生年月和参加工作时间必须按照相应的时间格式（yyyy-mm-dd）进行填写 否则将出现字符转换的错误。 表 3-3 员工工资信息表（wages） 列名数据类型长度是否为空 员工编号 char10 否 时间 datetime8 否 基本工资 int4 否 岗位工资 int4 否 住房补贴 int4 否 津贴 int4 否 工会会费 int4 否 水电费 int4 否 住房公积金 int4 否 养老保险 int4 否 奖金 int4 否 罚金 int4 否 应发金额 int4 是 应扣金额 int4 是 实发金额 int4 是 说明：员工工资信息表包含该企业所有员工的工资信息，包括每位员工所得 得每项奖励和罚款，其中员工编号是根据员工信息表中的员工编号一致的。字段 应发金额、应扣金额、实发金额都是根据前面的值进行自己计算的。这就省去了 人工计算的麻烦和相应的错误。 表 3-4 部门信息表 12 列名数据类型长度是否为空 部门编号 char20 否 部门名称 nvarchar20 否 部门负责人 nrarchar20 否 部门人数 int4 否 说明：部门信息表中包含了改企业中所有的部门和该部门的管理人和名称。 其中部门人数是根据员工信息管理中各部门人数自动累加的。 .2 数据库中各个表的触发器的建立数据库中各个表的触发器的建立 触发器是保证数据完整性的有效方法。在很多情况下，用户希望把一行数据 插入表中后，某个业务规则能够建立立即执行；或者，用户删除一行数据后，应 该立即把其他表中与该行数据相关的数据也删除掉；或者更新某个表中的一条数 据后，能立即实现所有相关数据的必要更新。要实现这些目的，一个很有效的手 段就是触发器。 员工管理系统要求员工信息必须是同步的，当员工信息表中添加员工信息时 相应的员工工资信息表、考勤信息表中也应该添加相应的数据。 1.当员工信息表中发生变化时，比如删除员工基本信息，对应的员工基本 工资信息表里的员工信息也应该删除。这是就需要 delete 触发器： create trigger employee_delete on dbo.员工基本信息表 for delete as declare num int select num=部门信息表.部门人数 from 部门信息表,deleted where 部门信息表.部门编号=deleted.部门编号 - - 13 begin update 部门信息表 set 部门人数=部门人数-1 from 部门信息表,deleted where 部门信息表.部门编号=deleted.部门编 号 delete 员工工资信息表 from deleted where deleted.员工编号=员工工 资信息表.员工编号 delete 用户表 from deleted where deleted.员工编号=用户表.用户名 end 2.当员工信息表中添加员工信息时，部门人数应该增加所以应该有 insert 触发器： create trigger employee_insert on dbo.员工基本信息表 for insert as declare num int select num=部门信息表.部门人数 from 部门信息表,inserted where 部门信息表.部门编号=inserted.部门编号 begin update 部门信息表 set 部门人数=部门人数+1 from 部门信息表,inserted where 部门信息表.部门编号=inserted.部 门编号 end 3.如果部门信息表里记录的部门人数不正确，数据库应该有自动计算出人数 并修改的功能，这就需要 update 触发器： create trigger employee_update on dbo.员工基本信息表 14 for update as update 部门信息表 set 部门人数=( select count(员工基本信息表.员工编号) from 员工基本信 息表,inserted where 员工基本信息表.部门编号=inserted.部门编号) from 部门信息表,inserted where 部门信息表.部门编号=inserted.部门编号 update 部门信息表 set 部门人数=( select count(员工基本信息表.员工编号) from 员工基本 信息表,deleted where 员工基本信息表.部门编号=deleted.部门编号) from 部门信息表,deleted where 部门信息表.部门编号=deleted.部门编号 - - 15 应用程序设计应用程序设计 4.2 登录模块设计登录模块设计 系统封面显示完毕后，系统创建主窗体，即登陆界面。登陆界面包含用户名、 密码、用户登录按钮、职工登录按钮，注册按钮，如下图所示： 图 4-2 4.2.1 身份验证身份验证 输入：输入用户名称，填写正确的密码。 处理： （1) 用户登录窗体启动。 （2) 用户填写用户名并输入密码。 （3) 从用户清单表中检查是否有相应的用户名和密码。 （4) 如果输入的用户名或相应密码错误，进行提示。 （5) 如果输入的用户名和相应密码正确，判断用户的权限并且进入主控制 平台 16 输出：主控制平台 除了必要的控件外还需要一数据库控件 tadtable，设置 connectionstring 连接到工资管理数据库。 登陆验证部分代码为： form2.adotable1.locate(用户名;密码;权限,vararrayof(edit1.text, edit2.text,管理员)/button1 按钮事件(管理员)，验证用户登录 信息 由于管理员和职工进入的主界面相同，所以只需要设置一些按钮的 enable 为 false 即可，这样做减少了窗体，相应的程序所占用的空间也减少。 因为“良好的交互性有利于提高人机匹配效率“，所以，除以上代码之外， 还需设置提醒信息：如“登陆失败” ， “请重新登陆”等字样，这样，出现错误的 时候可以友好的提示用户。 4.3 主窗体设计主窗体设计 用户登录后进入系统的主界面，如图 4-3 所示： - - 17 图 4-3 在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更 加有条理。对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统 资源。 主窗体设计的界面是用菜单编辑器做的，主要信息录入、信息查询、信息修 改、信息打印四部分组成。主窗体是进行相关操作的主界面。 该界面是系统的主界面，通过主界面进入其他的功能界面。其中用户能够显 示登录的用户名而权限显示的该用户所具有的权限。如果是管理员权限能够对整 个系统进行所有的操作，而普通用户权限只能进入信息查寻、录入和修改自己的 信息。 在住窗体中进入信息录入(员工信息录入，员工工资录入，部门信息录入) 时，进入的是同一个窗体(form4)，所以在单击菜单编辑器时就需要用代码对 format4 窗体进行必要的修改，如 form4 的 caption，adotabel 连接的数据表， 还有 edit 和 label 的可见度和 label 的 caption，form4 的大小等。 18 4.5 信息查询管理窗体设计信息查询管理窗体设计 信息查询窗体员工信息查询，图 4-5 图 4-5 4.5.1 查询模块设计查询模块设计 该窗体是三个窗体集成的窗体 form6，它包括:员工信息查询，员工工 资查询，部门信息查询三个部分。管理员和员工进入这个界面时的操作时相同的 在查询到信息时还可以把所查询的信息进行打印。通过该窗体，企业可以掌握员 工的姓名，出生日期，参加工作时间等，这有助于对员工的了解，同时员工可以 通过该窗体自己的个人信息和工资信息进行确认，了解部门信息等 在该窗体中查询的设计总共用到两次：指定相应信息的查询设计和查询所有 的信息。 使用 radiobutton 设置了不同的选择条件，当选择员工编号时，其他的信息输入 - - 19 栏变为不可用，同样选择其他的另外两个不可用，查询时根据选定的 radiobutton 而判断查询的条件。 主要源码： if form6.caption=员工信息查询 then/确定标题用于连接数据表 begin form6.adotable1.close; form6.adotable1.open; form6.adotable1.active:=true; if form6.radiobutton1.checked then/判断查询的方式 begin /按员工编号查询 if form6.adotable1.locate(员工编号,edit1.text,) then showmessage(找到信息) else showmessage(没有此项记录); end; if form6.radiobutton2.checked then/按姓名查询 begin if form6.adotable1.locate(姓名,edit2.text,) then showmessage(找到信息) else showmessage(没有此项记录); end; end; 20 4.6 信息修改模块信息修改模块 信息修改模块员工基本信息修改，图 4-6 和图 4-7 图 4-6 图 4-7 - - 21 4.6.1 修改模块设计修改模块设计 该窗体也是三个窗体集成与一个窗体 form7，包括：员工基本信息修改， 员工工资信息修改，部门信息修改三个部分。当职工进入时如果要修改就必须通 过员工姓名查找出该员工（图 4-6） ，如果输入的员工名字是正确的 edit 表中就 有内容，否则，出现提示信息没有该员工的记录。当管理员进入时（图 4-7） ， 会有 dbgrid 表，单击这张表中的内容会自动赋值到 edit 中 部分代码： a查找出要修改的员工： if form7.caption=员工信息修改 then begin if form7.adotable1.locate(员工姓名,edit13.text,) then begin edit1.text:=dbgrid1.fields0.asstring;/省略 end else showmessage(没有该员工的记录); bdbgrid 的单击事件（单击 dbgrid 把内容赋值到 edit）： if form7.adotable1.tablename=员工工资信息表 then begin edit1.text:=dbgrid1.fields0.asstring;/省略 end； c修改，保存： form7.adotable1.edit;/系统进入修改状体 form7.adotable1.fieldbyname(员工编号). 22 asstring:=edit1.text;/字符串类型修改 form7.adotable1.fieldbyname(出生年月). asdatetime:=strtodatetime( edit4.text);/时间类型修改 adotable1.post;/修改后保存 showmessage(修改成功); 4.7 数据导出模块设计数据导出模块设计 数据导出时必不可少的功能，同样数据的导入也必须有的。该系统设计并没 有设计打印功能，而是设计了数据的导出。导出的数据是直接导入到 excel，这 样又可以对数据进行进一步的整理，同时也可利用 excel 的打印和打印预览功能 。这样减少了系统所耗得系统资源。有利于系统的快速运行，优化了系统。 导出分导出所有和导出单条，其中导出所有就是导出员工信息表中所有的数 据而导出单条是建立在查询的基础上的，也就是说首先需要查询，当你查询到某 条数据后，在可以导出所查到得数据。 导出的源代码如下： procedure tform3.n15click(sender: tobject); var h,k:integer; excelid: olevariant; s: string; begin try excelid := createoleobject(excel.application); except - - 23 application.messagebox(excel 没有安装！, 提示信息, mb_ok+mb_iconasterisk+mb_defbutton1+mb_applmodal); exit; end; try adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select * from 员工基本信息表); adoquery1.open; k:=adoquery1.recordcount; excelid.visible := true; excelid.workbooks.add; excelid.worksheets1.rangea1:i1.merge(true); excelid.worksheets1.cells1,1.value :=员工基本信 息表 ; excelid.worksheets1.rangea1:a1.horizontalalignment := $ffffeff4; excelid.worksheets1.rangea1:a1.verticalalignment := $ffffeff4; excelid.worksheets1.cells2,1.numberformat:=1-1; excelid.worksheets1.cells2,1.value := 员工编号; excelid.worksheets1.cells2,2.value := 姓 名; 24 excelid.worksheets1.cells2,3.value := 性 别; excelid.worksheets1.cells2,4.columnwidth:=10; excelid.worksheets1.cells2,4.value := 出生年月; excelid.worksheets1.cells2,5.columnwidth:=10; excelid.worksheets1.cells2,5.value := 参加工作时间; excelid.worksheets1.cells2,6.value := 部门编号; excelid.worksheets1.cells2,7.value := 职 务; excelid.worksheets1.cells2,8.value := 政治面貌; excelid.worksheets1.cells2,9.value := 婚姻状况; excelid.worksheets1.rangea1:i1.font.name := 宋体; excelid.worksheets1.rangea1:i1.font.size:=14; excelid.worksheets1.rangea1:i2.font.bold:=true; excelid.worksheets1.rangea2:i2.font.size:=10; excelid.worksheets1.rangea2:i2.horizontalalignment:= $ffffeff4; excelid.worksheets1.rangea2:i2.verticalalignment := $ffffeff4; h:=3; adoquery1.first; while not adoquery1.eof do begin excelid.worksheets1.cellsh,1.value:=adoquery1.fieldbyname(员 工编号).asstring; - - 25 excelid.worksheets1.cellsh,2.value:=adoquery1.fieldbyname(姓 名).asstring; excelid.worksheets1.cellsh,3.value:=adoquery1.fieldbyname(性 别).asstring; excelid.worksheets1.cellsh,4.value:=adoquery1.fieldbyname(出 生年月).asstring; excelid.worksheets1.cellsh,5.value:=adoquery1.fieldbyname(参 加工作时间).asstring; excelid.worksheets1.cellsh,6.value:=adoquery1.fieldbyname(部 门编号).asstring; excelid.worksheets1.cellsh,7.value:=adoquery1.fieldbyname(职 务).asstring; excelid.worksheets1.cellsh,8.value:=adoquery1.fieldbyname(政 治面貌).asstring; excelid.worksheets1.cellsh,9.value:=adoquery1.fieldbyname(婚 姻状况).asstring; inc(h); adoquery1.next; end; s := a2:i+ inttostr(k+2); excelid.worksheets1.ranges.font.name := 宋体; excelid.worksheets1.ranges.borders.linestyle := 1; except application.messagebox(导入数据出错！请检查文件的格式是否正确！, 26 提示信息, m