企业考勤管理系统的设计说明书.doc

广西大学数学与信息科学学院

《数据库开发与应用》
课程设计报告

题目 ： 公司考勤管理系统

班 级： 信息与计算科学121
学 号： 1211100xxx
姓 名： xxxxx

日 期： 六月
一、 背景与意义
考勤管理系统是公司单位管理系统中最重要的信息。通过员工考勤考核管理，反映员工在一定阶段的工作成绩。而我国众多的公司都是采用传统的手工方式记录公司员工每日的出勤情况，这种方式繁琐易错，准确性、透明度、实时性差，受人为因素影响过大，增长了公司的人力资源成本。随着现代科技的进步，运用信息和计算机技术来进行公司员工考勤的管理也成为现代化公司运作必不可少的一部分。一个公司对其职工的正常上下班、延时工作及加班工作进行考勤，通过报表的形式输出，合理调整员工工作安排，用计算机对考勤数据进行记录分析解决，得到我们所需要的各种记录报表和考勤原始数据，方便了公司对员工的管理。因此，开发一个合适的、高质量的、界面和谐、易于操作的公司考勤管理系统进行公司员工的考勤管理，对公司的长远发展有重大的意义。
本考勤管理系统的开发，是为了规范公司中考勤的管理工作，为考勤管理部门提供一套高效、快捷的应用软件。
使用计算机进行考勤信息的解决，具有如下优点：
（1） 及时信息交流，改善管理质量
通过本系统对考勤信息的规范管理，可以及时掌握员工的信息，也能让员工及时了解部门主管发布的告知信息。
（2） 方便查询，提高工作效率。

二、需求分析
本系统要实现的功能模块重要有：基本信息设立模块、档案管理模块、审批模块、查询模块、考勤记录模块、汇总记录模块和系统管理模块。规定提供数据输入、输出和整理功能，满足平常工作的需要；具有查询、记录等功能，方便用户快捷使用和管理信息，提高工作效率；采用一定的安全保护措施，应分有不同的使用权限，保证系统的实用性；具有系统备份和恢复功能，使系统使用者能容易进行维护，同时软件功能完整、运营稳定、界面和谐、操作简便。
1. 对功能的规定
针对公司的考勤管理业务，本系统要实现以下功能：
（1） 基本信息设立
拥有对系统中的基本信息，涉及：部门信息、员工职称信息、请假类型信息、加班类型信息、出差类型信息的添加、修改、删除、查询等操作的功能，当大量新的信息需要录入时，可以通过EXCEL表格导入方式实现，同时也可将相应信息分别导出到EXCEL表格中。
（2） 档案管理
拥有对系统中的员工信息、考勤制度信息、告知信息进行增长、修改、删除、查询等操作的功能。在录入员工信息时，输入员工的身份证号，进行回车操作即可自动填充员工性别，年龄，身份属地，生日信息。当有大量新的员工信息、告知信息需要录入时，可以通过EXCEL表格导入方式实现，同时也可将相应信息导出到EXCEL表格中。
（3） 审批管理
拥有对系统中的请假信息、加班信息、出差信息进行审批的功能。查询出相应的记录，对该记录进行审批，审批通过则说明该条请假记录生效，否则为无效记录。此功能只有考勤主管和部门主管有操作权限。
（4） 查询管理
拥有对系统中员工信息、公司考勤制度、出勤信息、请假信息、加班信息、出差信息进行查询的功能。可以按照员工编号，姓名，部门名等条件对员工具体信息进行模糊/精确查询。
（5） 考勤记录管理
拥有对公司员工中的出勤信息、请假信息、加班信息、出差信息进行增长、修改、删除、查询等操作，同时具有将相应信息导出到EXCEL表格中的功能。其中只有可以对出勤信息进行操作，当有大量员工考勤相关信息需要录入时，只有考勤管理员可以通过EXCEL表格导入方式实现。
（6） 汇总记录管理
拥有对考勤情况进行记录以及报表查看的功能。选择某一时间段，可对该时间段员工的考勤信息进行记录，其中只有审核通过的请假记录，加班记录，出差记录可以参与到考勤情况记录中。可以对记录过的考勤情况通过报表来查看到具体信息。
（7） 系统管理
拥有密码修改、用户管理、系统初始化、数据备份/恢复、日记查看的功能。密码修改供当前登录用户修改自己的密码，修改时需要对新密码提供二次输入校对。用户管理提供用户的添加，修改，删除，用户名使用的是员工的编号。系统初始化将系统中的数据都删除，初始化前需对系统中的数据进行备份。数据备份/恢复拥有对系统中的数据进行备份和恢复的功能。日记查看拥有对使用本系统的用户的登录及退出信息进行查看的功能，以维护系统的正常操作。
2. 对性能的规定
为保证本系统可以长期、安全、稳定、可靠、高效的运营，系统须满足以下性能规定：
（1） 实用性：本系统应可以系统，便捷，快速的实现对员工作休时间的管理，从而保障公司的高效运营。
（2） 操作简朴：本系统应合用于不同计算机水平的使用者，系统的操作尽也许简朴易行。
（3） 技术先进：产品的系统设计和开发应紧跟计算机的发展潮流，产用目前较先进的设计思想，运用最先进的开发技术和开发工具。
（4） 安装使用简便：服务器端安装简洁明了，客户机无需再装任何软件，可直接使用。
（5） 适应性和可扩充性：应能广泛使用与不同的公司，开发过程中，应充足考虑可扩充问题。
3. 数据管理能力的规定
为保证公司使用本系统中数据的完整性，须满足以下数据管理规定：
（1） 尽也许减少故障的发生，保障好数据的备份，数据的备份采用数据库服务器的备份功能实现。
（2） 当系统发生故障时，当重新启动的时候，系统可以正常运营，若有数据遗失，可以通过备份来还原。
（3） 要保证数据的安全性，只有授权的人员才干进入系统进行相应的操作。
（4） 发现有错误的数据，及时地进行修改。

三、 系统总体分析与设计
1. 解决方案
为公司中的员工分别分派一个用户号和密码及相应角色，员工可用该用户名和密码登录进入公司考勤管理系统。不同的角色相应有不同的使用权限：普通员工可以进入系统可以对各类信息进行查询，录入自己的请假，加班及出差的记录，对考勤的记录报表进行查看以及对自己的登录密码进行修改；部门主管除拥有普通员工所有权限外，还可对员工信息，告知信息进行添加，修改，删除的操作，对员工输入的请假，加班，出差记录进行审批，对员工某一阶段的考勤进行记录；考勤管理员除拥有普通员工所有权限外，还可对公司的考勤制度进行设立，对员工的出勤信息进行录入或导入，同时也可对员工的请假，加班及出差记录进行批量导入；考勤主管具有系统的完全管理权限，要定期对系统进行检查和备份，以维护系统的安全。
系统设计分八个模块：主菜单模块，登录模块，档案管理模块，审批管理模块，查询管理模块，考勤记录管理模块，汇总记录管理模块和系统管理模块。具体的功能结构图如图1-1所示。
图3-1 公司考勤管理系统功能结构图

本系统采用Delphi技术，以及SQL Server数据管理技术进行重要的设计，数据库用SQL Server进行设计和管理。
系统使用分三种角色，涉及：员工，考勤管理员，部门主管，考勤主管。体现各角色的使用权限的功能结构图如图1-2。

图3-2 体现各角色使用权限的功能结构图
2. 数据库设计
(1) Personal(员工信息表)
员工信息表重要存放员工的基本信息，具体字段信息如表3-1。

表3-1 员工信息表
字段
名称
类型
长度
码
说明
Pno
员工编号
CHAR
14
PK
P+日期+序号
Pname
姓名
VARCHAR
10

Not null
Dno
部门编号
CHAR
14
FK
Not null
PTno
职务编号
CHAR
14
FK
Not null
IDCard
身份证
CHAR
18

ShuDi
身份属地
CHAR
20

Sex
性别
CHAR
2

Age
年龄
INT
-

Birth
生日
DATE
-

Tel
电话号码
VARCHAR
20

Photo
相片
VARBINARY
50

(2) PersonalType(职称表)
职称表重要存放员工职称信息，被员工信息表所调用，具体字段信息如表4-9。
表4-9 职称表
字段
名称
类型
长度
码
说明
PTno
职称编号
CHAR
14
PK
PT+序号
PTname
职称名称
VARCHAR
20

Not null

(3) Department(部门信息表)
部门信息表重要存放部门基本信息，提供应员工信息表调用，具体字段信息如表4-10。
表4-10 部门信息表
字段
名称
类型
长度
码
说明
Dno
部门编号
CHAR
14
PK
D+序号
Dname
部门名称
VARCHAR
20

Not null
Introduce
部门简介
VARCHAR
100

(4) Attendance(考勤登记表)
考勤登记表重要存放员工平常的出勤信息，具体字段信息如表4-11。
表4-11 考勤登记表
字段
名称
类型
长度
码
说明
Ano
记录编号
CHAR
14
PK
A+日期+序号
Pno
员工编号
CHAR
14
FK
Not null
InOut
出入情况
CHAR
2

Not null
ATime
时间
DATETIME
-

Not null

(5) Overwork(加班登记表)
加班登记表重要存放员工平常加班的记录信息，只有主管审批通过后才干生效，才干进行相应的加班记录，具体字段信息见表4-12。
表4-12 加班登记表
字段
名称
类型
长度
码
说明
Ono
记录编号
CHAR
14
PK
O+日期+序号
Pno
员工编号
CHAR
14
FK
Not null
StartTime
开始时间
DATETIME
-

EndTime
结束时间
DATETIME
-

OTno
加班类型编号
CHAR
14
FK
Not null
APProval
审核结果
CHAR
1

(6) OverworkType(加班类型表)
加班类型表重要存放加班类型信息，提供应加班登记表调用，具体字段信息如表4-13。
表4-13 加班类型表
字段
名称
类型
长度
码
说明
OTno
加班类型编号
CHAR
14
PK
OT+序号
OTname
加班类型名
VARCHAR
20

Not null

(7) Errand(出差登记表)
出差登记表重要存放出差记录信息，只有主管审批通过后才干生效，才干进行相应的出差记录，具体字段如表4-14。
表4-14 出差登记表
字段
名称
类型
长度
码
说明
Eno
记录编号
CHAR
14
PK
E+日期+序号
Pno
员工编号
CHAR
14
FK
Not null
StartTime
开始时间
DATETIME
-

EndTime
结束时间
DATETIME
-

Place
出差地点
VARCHAR
20

ETno
出差类型编号
CHAR
14
FK
Not null
APProval
审核结果
CHAR
1

(8) ErrandType(出差类型表)
出差类型表重要存放加班类型信息，提供应出差登记表调用，具体字段信息如表4-15。
表4-15 出差类型表
字段
名称
类型
长度
码
说明
ETno
出差类型编号
CHAR
14
PK
ET+序号
ETname
出差类型名
VARCHAR
20

Not null

(9) Leave(请假登记表)
请假登记表重要存放请假记录信息，只有主管审批通过后才干生效，才干进行相应的请假记录，具体字段如表4-16。
表4-16 请假登记表
字段
名称
类型
长度
码
说明
Lno
记录编号
CHAR
14
PK
L+日期+序号
Pno
员工编号
CHAR
14
FK
Not null
StartTime
开始时间
DATETIME
-

EndTime
结束时间
DATETIME
-

LTno
请假类型编号
CHAR
14
FK
Not null
Demo
情况说明
VARCHAR
100

APProval
审核结果
CHAR
1

(10) LeaveType(请假类型表)
请假类型表重要存放加班类型信息，提供应请假登记表调用，具体字段信息如表4-17。
表4-17 请假类型表
字段
名称
类型
长度
码
说明
LTno
请假类型编号
CHAR
14
PK
LT+序号
LTname
请假类型名
VARCHAR
20

Not null

(11) AttendanceCount(出勤情况登记表)
出勤情况登记表重要记录的是员工出勤，请假，加班，出差的一些记录信息，提供应公司管理着进行查看，具体字段信息如表4-18。

表4-18 出勤情况登记表
字段
名称
类型
长度
码
说明
ACno
记录编号
CHAR
14
PK
G+日期+序号
Pno
员工编号
CHAR
14
FK
Not null
ARno
制度编号
CHAR
14
FK
Not null
YearMonth
年月
CHAR
7

Not null
ShouldTime
应工作时间
INT
-

小时
ActualTime
实际工作时间
INT
-

小时
LeaveTime
累计请假时间
INT
-

半天
OverworkTime
累计加班时间
INT
-

小时
ErrandTime
累计出差时间
INT
-

半天
Late
迟到次数
SMALLINT
-

次
LateTime
迟届时间累计
INT
-

小时
Early
早退次数
SMALLINT
-

次
EarlyTime
早退时间累计
INT
-

小时
Absence
旷工次数
SMALLINT
-

次
AbsenceTime
旷工时间累计
INT
-

小时

(12) Logdb(日记信息表)
日记信息表重要记录的是公司中的员工登录到系统以及退出系统的信息，具体字段信息如表4-19。
表4-19 日记信息表
字段
名称
类型
长度
码
说明
Logno
日记编号
INT
-
PK
自动编号
Uno
用户编号
CHAR
14
FK
Not null
LoginTime
登录时间
DATETIME
-

LogoutTime
退出时间
DATETIME
-

(13) Userdb(用户信息表)
用户信息表重要存储用户的信息，其中员工编号作为用户名进行登录，密码默认为‘123456’，同时也定义了用户的角色，具体字段信息如表4-20。
表4-20 用户信息表
字段
名称
类型
长度
码
说明
Uno
用户编号
CHAR
14
PK
U+日期+序号
Pno
员工编号
CHAR
14
FK
Not null
Authority
角色
CHAR
2

Passwd
密码
VARCHAR
20

默认为‘123456’

(14) ARegulation(考勤制度表)
考勤制度表重要存储的是公司的考勤制度，具体字段信息如表4-21。
表4-21 考勤制度表
字段
名称
类型
长度
码
说明
ARno
制度编号
CHAR
14
PK
AR+序号
ComeTime
上午上班时间
TIME
-

Not null
GooffTimepm
上午下班时间
TIME
-

Not null
ComeTimepm
下午上班时间
TIME
-

Not null
GooffTime
下午下班时间
TIME
-

Not null
Amemo
考勤制度
VARCHAR
10000

(15) ShuDi(属地表)
属地表重要存储的是身份证前6位所相应的属地名称的信息，录入员工数据中身份证数据时快速得出员工性别，年龄，身份属地，生日信息，减小因手工输入产生的信息错误概率，具体字段信息如表4-22。
表4-22 属地表
字段
名称
类型
长度
码
说明
ID
编号
CHAR
6
PK
Not null
BM
属地编号
CHAR
14

Not null
DQ
属地名称
VARCHAR
30

Not null

(16) Notice(告知表)
告知表重要存储的是公司中的一些告知信息，具体字段信息如表4-23。
表4-23 告知表
字段
名称
类型
长度
码
说明
Nno
告知编号
CHAR
14
PK
N+日期+序号
NTime
告知时间
Datetime
-

Title
告知标题
VARCHAR
30

Not null
Content
告知内容
CHAR
5000

四、系统的实现
1. 界面设计
系统设计中的界面设计不同于一般的平面设计，拥有自身的设计特性。网页设计应时刻围绕“信息传达”这一主题来进行。界面力求清楚、准确、有力地传达信息。
本系统重要采用的的界面模板重要涉及：登录界面、主菜单界面、基本信息设立界面、档案管理界面、查询管理界面、考勤记录管理界面、审核管理界面、汇总记录界面、系统管理设立界面。
（1）. 登录界面
运营本系统后，出现如图4-1的登录界面，输入用户名和密码，选择用户角色，点击“登录”按钮，假如输入的信息不对的，会有“用户名或密码错误，请检查!”的错误提醒 ，假如三次登陆错误，会有“你无权使用本系统!”的错误提醒，即每次登录，最多允许有三次登录错误的机会。当所有信息都输入对的后，可以登录到主界面，不用的用户角色进入的主界面中的功能菜单不同。登录界面允许效果图如图4-1。

4-1 登录界面

(2). 主菜单界面
用户登录后，可进入到如图4-2的主菜单界面，在主菜单界面中，用户可以看到公司中发布的告知信息，这有助于让公司中的员工尽也许快而全面地掌握公司中消息的动态。主菜单界面如图4-2

图4-2 主菜单界面
(3).查询管理界面
在主菜单上点击查询菜单下的“请假情况查询”，即可进入到如下图4-3请假情况查询界面，在界面中输入员工号或员工姓名、部门名称、请假类型等信息，以及选择时间范围的信息，即可进行组合查询以及模糊查询。其他信息的查询功能跟此功能基本一致，在此不再赘述。请假情况查询界面如图4-3。

图4-3 请假情况查询界面
(4). 信息管理界面
信息管理界面涉及：基本信息设立界面（图4-4）、档案管理界面（图4-5）、考勤记录管理界面（图4-6）。点击信息管理界面中的“添加”按钮，相应的记录信息将自动编号，在输入相应信息即可。以员工信息管理为例，点击“添加”按钮，编号处将自动填充，编号规则为：:“P+年月日+001”，输入省份证号后，回车即可得出性别、年龄、省份属地、生日等信息，在部门的编辑框处双击，即可得出公司中的部门信息，选择相应的部门，则可在该编辑框中得出相应的部门编号，也可手动输入对的的部门编号，职称的填写方式和部门的填写方式相同，再相应地填写其他信息，点击保存，假如信息填写无误，会有“保存成功！”的提醒，添加信息完毕。同时也可选中相应的员工信息，对其进行删除操作。也可导入/导出Excel表格。其他信息管理的功能跟此功能类似，不再赘述。档案管理界面如图4-4。

图4-4 档案管理界面

图4-5 基础信息设立界面

图4-6 考勤记录管理界面
(5). 审批界面
在主菜单上点击查询菜单下的“出差审批”，即可进入到出差审批界面，如图4-7。查询出相应的员工出差信息，觉得员工的出差信息无误后即可进行审批，点击“拟定”按钮后，会出现“审批完毕！”的提醒。出差审批界面如图4-7。

图4-7 审批界面
(6). 记录界面
在主菜单上点击查询菜单下的“出差审批”，即可进入到出差审批界面，如图4-8。选择需要记录的起始时间，点击记录，即可得到员工考勤情况的登记表（记录的信息涉及：应工作时间（小时），实际工作时间（小时），累计请假时间（半天），累计加班时间（小时），累计出差时间（半天），迟到次数（次），迟届时间累计（小时），早退次数（次），早退时间累计（小时），旷工次数（次），旷工时间累计（小时））。记录需要一些时间，进度条会显示记录的进度。记录界面如图4-8。

图4-8 记录界面

2. 系统实现关键技术
(1). 添加数据时自动编号
运营系统时，当需要新增信息时，点击“添加”按钮，即可进行自动对记录的ID进行编号，以实现编号的规范性。添加数据时自动编号的代码如下：
1. 自定义函数：根据本来编号bh,构造新编号：年月日+3位序列。
function xbh(bh:string):string;
var
d0,d1,c : string;
begin
d0:=copy(bh,2,8); //取8位日期数码
c:=copy(bh,10,3); //取最后3位数码
d1:=formatdatetime('yyyymmdd',now); //获取当天日期
if d0 <> d1 then // 假如不是同一天
bh:=d1+ '001' //构造当天第一个编号
else
begin
c:='00'+inttostr(strtoint(c)+1); //在本来基础上加1
bh:=d1+copy(c,length(c)-2,3); //构造编号：日期+3位整数
end;
xbh:= bh;
end;

(2). 员工信息管理中“添加”按钮的点击事件代码。
procedure TDanganForm.SpeedButton1Click(Sender: TObject);
var bm:string;
begin
if adotable1.IsEmpty then
bm:='P'+formatdatetime('yyyymmdd',now)+ '001' //构造第一个编号
else
begin
adotable1.Last;
bm:=adotable1['Pno']; // 读取数据表末尾记录的编号
bm:='P'+xbh(bm);
end;
adotable1.Append; //在表尾添加新纪录
DBedit11.Text:=bm; //在编辑框中填写新编号
DBGrid2.Fields[0].Text:=bm; //在表格框中填写新编号
DBedit12.SetFocus; //将光标移到填写姓名框
end;
员工信息添加为例，效果如图4-9。

图4-9 员工信息添加页面

(3). 输入身份证号回车显示其他相关信息
运营系统，添加员工信息时，输入身份证号，回车即可显示该身份证号相应员工的身份属地、性别、年龄及生日信息。使用此功能减小了录入信息的人员因失误输入错误信息的概率，保证了信息的对的性。运营效果图如图5-1所示，具体代码如下：
1. 身份证号相应编辑框回车事件代码。
procedure TDanganForm.DBEdit13KeyPress(Sender: TObject; var Key: Char);
const
W:array [1..18] of integer = (7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1); //位权
A:array [0..10] of char = ('1','0','x','9','8','7','6','5','4','3','2'); //校验码
Var i, j, S: integer;
NewID, shud: string;
da:Tdatetime;
kk:boolean;
begin
kk:= (key=#8) or (key=#13) or (key='x') or (key='X') or (key>=#48) and (key<=#57);
if not kk then key:=#0; //键盘输入过滤掉非身份证号码
if key=#13 then
begin
NewID:= DBedit13.Text;
//1. 检查长度
if Length(NewID) <> 18 then
begin
messageDlg('输入的数字不是18位，请重新输入!',mtError,[mbOK],0);
DBedit13.SetFocus;
exit;
end;
//2.检查属地
ADOquery1.close;
ADOquery1.Parameters.ParamByName('sd').Value:= copy(NewID,1,6); //给动态SQL语句赋值
ADOquery1.open; //打开，查询记录
if ADOquery1.RecordCount=0 then //假如找不到sd相同的记录
begin
MessageDlg('前面六位数字无效，请检查！',mtinformation,[mbok],0);
DBedit13.SetFocus;
exit;
end
else
shud :=ADOquery1.FieldByName('DQ').Value; //获取属地
//3. 检查年年份
i:=strtoint(copy(NewID,7,4)); //获取年份
if ( i<1900) or ( i>2023) then
begin
MessageDlg('年份号码无效，请检查！',mtinformation,[mbok],0);
DBedit13.SetFocus;
exit;
end ;
j:=strtoint(copy(NewID,11,2)); //获取月份
if ( j<1) or ( j>12) then
begin
MessageDlg('月份号码无效，请检查！',mtinformation,[mbok],0);
DBedit13.SetFocus;
exit;
end ;
s:=strtoint(copy(NewID,13,2));
if ( s<1) or ( s>31) then
begin
MessageDlg('日数号码无效，请检查！',mtinformation,[mbok],0);
DBedit13.SetFocus;
exit;
end ;
da:= EncodeDate(i,j,s); //构造生日

//4. 检查校验码
s:= 0;
for i:=1 to 17 do
begin
j:= StrToInt(NewID[i]) * W[i];
s:= s + j;
end;
s:= s mod 11;
if NewID[18]='X' then NewID[18]:='x'; //将大写字母X变成小写字母x
if NewID[18]<>A[S] then
begin
messageDlg('校验码错！请重新输入!',mtError,[mbOK],0);
showmessagefmt('校验码错！应当是%s！请重新输入!',[A[S]]);
DBedit13.SetFocus;
exit;
end;
//5. 填写证件的具体信息
ADOTable1.Edit;
DBedit16.Text :=shud; //属地
DBedit17.Text :=formatdatetime('ddddd',da); //生日
DBedit18.Text :=formatdatetime('yy',date-da); //年龄
if NewID[17] in ['1','3','5','7','9'] then //以下是判别性别
DBedit15.Text :='男'
else
DBedit15.Text :='女';
end;
end;
(4). 导出EXCEL表格
运营系统时，可以对系统中的相应数据信息导出到excel表格中，方便用户使用相应的数据信息。
1. 将某个数据表导出成Excel表的通用函数
function ExportDBGrid(DBGrid: TDBGrid; SheetName: string): boolean; //直接保存，不显示EXCEL
Var
c, r, i, j: integer;
app: Olevariant;
TempFileName, ResultFileName: string;
begin
try
result := True;
app := CreateOLEObject('Excel.application');
app.WorkBooks.Add(xlWBatWorkSheet);
except
Application.MessageBox('Excel没有对的安装！','警告',MB_OK);
result := False;
exit;
end;
mainForm.SaveDialog1.DefaultExt:='xls';
mainForm.SaveDialog1.FileName := SheetName;
if mainForm.SaveDialog1.Execute then
TempFileName := mainForm.SaveDialog1.FileName
else
Exit;
app.Workbooks.add;
app.Visible := false;
Screen.Cursor := crHourGlass;
DBGrid.DataSource.DataSet.First;
c := DBGrid.DataSource.DataSet.FieldCount;
r := DBGrid.DataSource.DataSet.RecordCount;
Application.ProcessMessages;
for i := 0 to c - 1 do
app.cells(1, 1 + i) := DBGrid.DataSource.DataSet.Fields[i].DisplayLabel;
for j := 1 to r do
begin
for i := 0 to c - 1 do
app.cells(j + 1, 1 + i) := DBGrid.DataSource.DataSet.Fields[i].AsString;
DBGrid.DataSource.DataSet.Next;
end;
ResultFileName := TempFileName;
if ResultFileName = '' then
ResultFileName := '数据导出';
if FileExists(TempFileName) then
DeleteFile(TempFileName);
app.Activeworkbook.saveas(TempFileName);
app.Activeworkbook.close(false);
app.quit;
app := unassigned;
end;
2. 调用导出Excel数据的函数，“导出Excel表格”按钮的点击事件代码。
procedure TDanganForm.SpeedButton5Click(Sender: TObject);
begin
try
Screen.Cursor := crHourGlass; //将鼠标成沙漏状
main.ExportDBGrid(DBGrid2,''); //调用函数导出数据
finally
Screen.Cursor := crDefault; //回复鼠标原状
end;
end;

(5).导入EXCEL表格
运营系统时，当需要新增大量数据时，可以通过导入Excel表格实现批量增长的操作。注意：需要导入的Excel表格中的数据一定要与数据表中的数据类型一致，否则会出现导入失败的情况。导入Excel表格中数据的代码如下：
procedure TDanganForm.SpeedButton9Click(Sender: TObject);
var
oe:variant;
str:string;
i,j,n:integ