企业员工考勤制度是为维护企业的正常工作秩序，并通过规范员工的工作作息时间、工作纪律来提高其办事效率的公司纪律制度。当然，考勤制度的具体制定方案也要依据企业自身的运行环境以及管理特色来具体设计，但其核心目标都是在于通过制定明确的公司工作纪律要求来规范员工的工作行为，并通过评分系统以及相应的赏罚制度来提高企业员工的自律能力和积极性，同时也科学的管理和规范了企业合理运行的工作流程，从而实现了提高企业运行效率、经济效益这一最终目标。
一、企业员工考勤管理现状
1.评分制度是员工考核的重要依据
在我国大多数企业的员工考勤管理工作中，评分制度都是员工考核的重要依据，而其评分准则主要包含以下几个方面：一是严格规定企业员工的正常工作时间，并且企业全体职工都必须进行打卡登记等措施来记录其是否遵守工作作息时间，而且必须保证所有员工都是亲自打卡登记，不得由他人代劳，否则记录在案并采取扣分处理。二是严格规范企业员工迟到、早退、出差、请假等情况的处理办法，一般来说，全体职工只有在打卡登记后方能外出办理业务，并且在公司正式上班后5分钟到30分钟内才打卡等级的员工按迟到处理，如果超过30分钟，则以旷工半天论处员工，而无故旷工半日者，给予扣发当月全勤奖处理以及一次警告处分；当月旷工累计3天者，则扣除当月工资，并给予记过一次处分；无故旷工达一周及以上员工，直接除名；而职员外出办公也必须登记相关表格，并经过有关管理部门审批通过后才能进行，否则不予报销出差费用，并给予相应处分。当然，具体的公司条案还有许多细节要求，也是结合不同企业的管理特色和员工构成结构来制定的，就不一一赘述了。总之，企业对全体职工的日常行为规范都有明确的明文要求，而在月度、季度或者年度的员工工资支付工作也主要依据员工在此计分制度下的表现来进行的。
2.考勤标识多种多样
对于企业员工的日常工作行为规范遵守情况，通常采用表格统计，而其中的考勤标识非常多样化，这主要是由于企业岗位的复杂性以及考勤表格需要考量生活工作中的不同情况而产生的。而其一般采用汉语拼音的英文缩写来代替汉语表示，能减少一定的工作量，如在员工请假方面的考勤标识就包括，计生假(JS)、婚假(H)、丧假(SJ)、带薪年休假(D)、探亲假(T)，疗养假(LY)、工伤(GS)、借出(JC)、休息(X)、事假(SH)、病假(BT)、产假(CJ)、哺乳假(BR)、公假(GJ)、公出(GC)、工时假(GSH)、护理假(HL)等，而因为除上述各类原因外的情况则用QT表示，同时在处理这些特殊的请假情况时要注意在相应考勤标识后注明原因，并且由于考勤管理统计的最后结果关系到对于员工的工资结算，所以在这一方面的工作要十分规范和科学化。
3.工时计算工作复杂
对于员工总体工时的统计和计算工作也是考勤管理中非常重要的一个环节，而在实际工作中，由于轮班情况时常发生且有一定的复杂性，如二班一转、三班一转、三班二转、四班一转、四班二转、四班三转以及员工之间协定的在规定允许下的替班情况等，导致了对于员工工时统计和计算工作的不易操作和复杂性。并且，在不同行业企业的具体工作环境中，处理这类问题也要有不同的针对性，如在餐饮行业员工的轮班情况具有较强的不稳定性；并且在一些大型企业中，由于岗位繁多且职能复杂，对于员工工时的统计和计算工作要耐心、细致，需要在合理、系统的统计方法下，进行科学的计算，从而确保员工的具体权益以及企业的科学规范化管理工作合理开展。
二、当前企业员工考勤管理中的主要问题
1.考勤管理理念、制度需要更新
一个成功的改革往往是从理念的求变上开始的，就目前我国大部分企业员工考勤管理工作而言，管理理念方面还有诸多需要改进的地方。考勤工作一个重要的职能是管理企业全体职工，其中包括企业领导以及员工，但目前存在的现象就是视企业领导为绝对权威，官本位思想严重，缺乏透明度，且缺乏管理效率和服务意识，没有完全做到公平公正处理企业中大大小小的问题，从而引起了部分员工的不满，服务意识和办事效率都不足，这是当前存在于考勤工作中的一个严重问题。并且在相关管理部门的具体考勤工作中也存在着管理分工不明确的现象，企业在发展的过程中新业务涌现，导致业务繁多，而现今大部分存在于企业办公室的现象是工作繁细分工不明确，很大程度上处于混沌状态，再就是管理人员的职能重复导致效率降低，从而会使管理人员的积极性不高，而进一步使得管理工作进程受阻。而在实际考勤管理工作中，应该秉承以人为本的具体方针，能做到公平对待，以真诚的态度来解决企业员工的具体问题；从而营造出一个比较和谐的管理环境，并就在当前考勤管理制度上存在的一些问题进行改善，才能高效率的完成对于企业全体职工的考勤管理工作。
2.考勤系统不够科学、统一
当前部分企业的考勤管理具体操作方法还在依靠手工登记这一方式，而随着社会日新月异的高速发展，考勤系统也必须具备科学化、信息化的特点，而人工登记这一方式不能实现自动化进行员工考勤数据统计和信息查询过程，已经完全不能适应现代高度信息化、自动化的管理方法。如今科学技术高度发达，在考勤技术的变革中也产生了射频IC卡打卡考勤，指纹打卡考勤、人脸识别考勤等科学方法，它们在处理岗位部门繁多、职能范围复杂的大企业时，员工上班报到时考勤登记工作简单，并且对于员工出勤情况的考勤工作也易于实施，同时也方便管理部门查询、统计和分析等工作的进行，这样才能帮助管理人员准确地掌握员工出勤情况，从而有效地管理企业员工的工作行为。当然，由于电脑的判决能力取决与其信息系统内的数据支撑，如果单一使用电子系统来进行企业员工考勤，难免会产生一些不可避免的失误，所以应该在一定程度上辅之以手动登记方法，才能进一步保证员工考勤工作中数据统计的准确性和科学性。总之，管理人员要秉承严谨的工作态度，结合自身的不同情况和经济环境，合理制定考勤系统实施方案。
3.考勤规定不明确
如果考勤规定中存在较大的争议，有不规范的现象并有失偏颇，那么其则会严重影响到员工的工作态度和积极性。而在实际的企业员工考勤工作中，考勤制度中对于工作时间计算、工作时间安排、轮班转换等的具体条例存在着一些问题，企业和员工之间主要存在的还是雇佣关系，而工作时间方面的问题直接影响到企业员工的经济收入，如果处理不当，会大幅度降低企业运行的效率。而在当前大部分企业的考勤规定没有具体规范和制定工作时间的统计及计算方法，而由于在实际工作中轮班情况时常发生以及不同企业工作环境的差异性使得对于员工工作时间的统计和计算工作有着较大的难度，如果在这方面没有明文规定的话，将大大增加争议发生的可能性，并且使得员工的工作精神状态都不会处在积极向上的层面。而在另一方面，在企业考勤规定中，对休息时间安排的合理性没有引起管理人员的高度重视。如果员工每天工作9小时，并且没有规定休息时间，那么员工的工作状态必然得不到良好的保持，并且也会对此产生异议以及开小差等现象，这种情况下违反了考勤规定应该是制度本身的责任，而不是员工的问题，所以对于工间休息时间必须有合理明确的规定。
4.考勤信息统计不够准确，并且疏于保管
员工因病假、事假等而缺勤是常有的事，而考勤管理存在的意义就是保证对于员工请假有明确的标准，并且对于其请假原因也在记录在案，确保员工请假缘由属实。但在实际情况中，这方面的工作还不够系统和全面，如果长期缺乏相应的缺勤记录，不仅影响到了其他员工的工作状态，企业也要为缺勤员工的人身安全负上一定的责任。并且，缺勤记录应注明事由，记录上也必须要有本人签名核对，并由有关部门审核通过并签字后才能生效。这样才能有效的维持企业的工作纪律，对于旷工等不良现象才能进行有效的`扼杀，而且，考勤记录的最后结果关系到员工的工资结算、休假等权益，要保证请假者事由的真实性，并由大家共同监督，并且保存好请假条，以便之后进行验证，总之要保证考勤记录的准确性和有效性。所以，要十分注意对于请假条等有关考勤记录的文件，以便产生劳资纠纷后充当有关证据，并且在员工发现考勤结果和自身情况严重不相符时，也可以拿来进行对照；但在目前的工作中，对于考勤记录文件的保护管理非常疏忽，没有成套的保存方案，这也是值得当前我们急需改进的地方，只有在大部分的工作细节上做的足够好，才能拥有一个让大多数人足够满意的结果。
三、结语
企业作为一个经济实体，考勤管理的主要目标则是最终能为企业带来更大的经济效益。而考勤管理工作的核心目标是通过加强企业员工的综合素质和工作效率来提高整个企业的运营效率。而在当前大部分企业的考勤管理工作中，不仅在考勤数据统计、文件管理、考勤规定等一些工作细节上有一些不足之处，而在管理理念和方法上也或多或少存在这一些问题。在新时代的现代化管理策略中，考勤管理应该不仅是止于管理，也同样是一项服务于企业员工的工作，应秉承着“理解人、关心人、尊重人”的原则来处理实践管理工作中产生的一些实际问题，并能做到公平对待，以真诚的态度来解决企业员工的具体问题；从而营造出一个比较和谐的管理环境；进而在具体的管理流程中，完善考勤数据的统计、计算方法以及考勤规定，并合理制定考勤系统的运用方案，才能有效的实施考勤管理工作，并且真正提升了企业个体员工的工作精神状态以及工作效率，使得整个企业的运营效率得到稳步的提高。
参考文献：
[1]徐培.浅谈员工绩效考核与企业管理[J].经营管理者，2010，(2)：142.
[2]曹晓继.企业员工绩效考核的误区及改进措施[J].消费导刊，2010，(6)：65-68.
1.1引言
目前，计算机辅助管理已在我国的各行各业得到了广泛地应用，但总的来说，计算机在我国管理中的应用，还处于初级阶段，尽管近两年发展较快，但还需要不断地探索和研究。尤其是计算机辅助考勤管理仅是近几年才在我国得到普及和发展，而在许多发达国家计算机辅助考勤管理已十分普及。各个行业都在积极使用现代化的手段，不断改善服务质量，提高工作效率，这些都在很大程度上给企业提出越来越严峻的挑战，对企业体系无论是在行政职能、企业管理水平以及优质服务上都提出更高的要求。建设一个科学高效的信息管理系统是解决这一问题的必由之路。考勤管理作为企业内部的一种管理也是如此，由于企业职工人数较多，每一位职工的具体实际情况也不尽相同，日常的考勤工作，如果没有一个完整的管理，后果将不堪设想。
然而，随着我国市场经济的不断成熟，企业的竞争也在不断的加剧，同时企业组织管理观念的变革以及业务流程标准化也在不断完善，开发考勤管理信息系统，正是完善企业信息化管理的重要环节，不但能够识别进入企业的职员的身份，还具备企业员工请假、休假、加班等相关出勤情况的记录和分析汇总功能。
本设计以Microsoft Visual Studio 2005为开发环境，采用当前比较流行的C#编程语言进行编码，数据库采用的是MicrosoftSQL Server 2005。
1.2研究的背景和意义1.2.1研究的背景
我国众多的企业都是采用传统的手工方式记录企业员工每日的出勤情况。这种方式繁琐易错，准确性、透明度、实时性差，受人为因素影响过大，增加了企业的人力资源成本。同时使用传统人工记录考勤管理容易出现疏漏，甚至可能存在考勤监管人员因人情导致考勤不平等的情况，造成企业员工存在侥幸心理，无法解决代考、脱岗的问题，不利于企业的人员管理。
当今社会信息化已经成为一种潮流，信息技术革命的发展正在促使工业资本经济向信息经济、知识经济转变。而利用计算机技术，通讯技术等现代化的信息技术手段来实现企业信息化建设与新型现代化管理，更是企业不可避免的生存竞争所要面对的当务之急。随着现代科技的进步，利用信息和计算机技术来进行企业员工考勤的管理也成为现代化企业运作必不可少的一部分。现代企业员工人数的激增与员工的频繁变动，使得企业的考勤统计管理工作日益繁杂，传统的企业考勤管理方法很难保证数据的准确与实时。与此同时，计算机技术飞速发展，计算机在企业管理中应用逐渐普及，利用计算机实现企业职工考勤管理势在必行。
1.2.2研究的意义
随着计算机的普及和计算机科学技术的飞速发展，人们开始越来越多地利用计算机解决实际问题。考勤管理是商业信息管理的重要部分，面对大量的商品信息，采用人力处理将浪费大量的时间、人力和物力，而且统计数据麻烦。一个企业对其职工的正常上下班、延时工作及加班工作进行考勤，通过报表的形式输出，合理调整员工工作安排，用计算机对考勤数据进行统计分析处理，得到我们所需要的各种统计报表和考勤原始数据。，方便了企业对员工的管理如今的企业的管理者，拥有一个良好的企业管理信息系统，可加强职工的管理，增强企业的管理，对企业的发展有着一定的促进作用。因此，开发一个合适的、高质量的企业考勤管理系统进行企业员工的考勤管理，对企业的长远发展有重大的意义。开发一个界面友好，易于操作的考勤管理软件进行自动化处理变得十分重要，这正是本系统开发的目的和意义。通过此考勤管理系统的开发锻炼了学生的实际动手能力，对以后的学习和工作能力的培养也具有重要意义。
1.3国内外发展状况
长期以来，我国众多的企业都是采用传统的手工方式记录企业员工每日的出勤情况。这种方式繁琐易错，准确性、透明度、实时性差，受人为因素影响过大，增加了企业的人力资源成本。同时使用传统人工记录考勤管理容易出现疏漏，甚至可能存在考勤监管人员因人情导致考勤不平等的情况，造成企业员工存在侥幸心理，无法解决代考、脱岗的问题，不利于企业的人员管理。；随着信息化社会的到来，国民素质的相应提高，企业员工的信息素养普遍增强，为企业合理的运用考勤管理系统提供了有力的人员保障。从现在出现的一些企业考勤管理系统分析，我们可以把企业考勤管理系统从管理功能上大致分为两种：第一种是门禁安全系统。门禁安全管理系统主要是解决重要部门出入口实现安全防范管理的有效措施，集微机自动识别技术和现代安全管理措施为一体。它能够自动识别出入的人员身份，记录人员出入时间等，但一般没有综合的考勤分析功能。第二种是综合考勤管理系统。这种考勤管理系同主要针对公司的员工的上下班考勤记录等相关情况的管理。一般为企业管理部门使用，掌握并管理企业的员工出勤动态，一般包括考勤记录和考勤分析两大总体功能。不但能够识别进入企业的职员的身份，还具备企业员工请假、休假、加班等相关出勤情况的记录和分析汇总功能。根据系统制定的考勤规则，自动分析出考勤结果。综上所述，考勤管理系统的研究开发，企业对它的引进都需要因地制宜。采用条码的考勤管理信息系统通过在线对职工的考勤、考勤数据统计、职工信息管理等功能，
vb+sql企业人事管理系统(论文+程序)
摘 要企业人事管理是相对企业内部员工的管理。设计集人员、考勤、工资、评价等于一体的管理系统,
vb+sql企业人事信息管理系统的设计与实现(开题报告+论文+程序)
文字自己想办法
一：变量说明
1:application :
test
2:窗体
login:登陆窗口
w_main：考勤管理系统的主界面，选择操作
w_chuli：个人考勤记录处理
w_shengding：缺勤类型设定
w_tongji：员工考勤统计
w_yuangong：员工基本信息
3：数据窗口
dw_chuli1：个人考勤记录处理
dw_shengding：缺勤类型设定
dw_chuli：员工考勤统计
w_yuangong：员工基本信息
二：函数说明
一：application test中的函数
1． 函数名：test：：open( )
作用：将test这个数据库注册为当前机器的用户的数据源
代码：
String ls_odbc //数据库名
String currdir = Space(100), key//数据库“test”的完整路径
Environment env
string gs_currdir = GetCurrentDirectory()//得到运行程序的当前路径
GetEnvironment(env)
ls_odbc = "test"//数据库名为“test”
currdir=GetCurrentDirectory() + "\" + ls_odbc + ".mdb"//当前运行程序路径加上数据库名就是数据库“test”的完整路径
RegistryGet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources", ls_odbc, RegString!, key)
if key="" then
CHOOSE CASE env.OSType//判断操作系统的类型，注册响应的数据源的驱动
CASE Windows!//为Windows
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources", ls_odbc, RegString!, "Microsoft Access Driver (*.mdb)")
CASE WindowsNT!//为WindowsNT
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources", ls_odbc, RegString!, "Driver do Microsoft Access (*.mdb)")
CASE ELSE
END CHOOSE
// 将数据库test注册为用户的数据源
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "", RegString!, "")
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "DBQ", RegString!, "" + currdir )
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "Driver", RegString!, "odbcjt32.dll")
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "DriverId" , ReguLong!, 25 )
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "FIL" , RegString!, "MS Access;" )
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "SafeTransactions", RegString!, "0" )
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "UID" , RegString!, "" )
end if
open(login)// 打开登陆窗口
二：登陆窗口中的函数
1：函数名：login.open()
作用：连接到本机器数据源为test的数据库
代码：
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=test;UID=;PWD='"
connect;
if sqlca.sqlcode<>0 then
Messagebox("错误!,无法连接数据库:",sqlca.sqlerrtext)
halt close
end if
2：函数名：cb1。Clicked（） 即点击登陆按钮的事件
作用：当用户输入帐号和密码后，判断是否在“操作员表”中 ，存在就打开考勤管理系统主界面
代码：
//定义两个变量
string password,usename
// 数据库连接参数
//检索用户名和密码记录
SELECT 操作员表.用户名,
操作员表.密码
INTO :usename,
:password
FROM 操作员表
WHERE 操作员表.用户名 = :sle_1.text ;
//判断用户输入的用户名是否正确
if sle_1.text="" or sle_2.text="" then
messagebox("错误！","用户名或密码不能为空！",exclamation!,ok!,2)
else
if usename=sle_1.text and password=sle_2.text then
messagebox("通过验证！","用户名和密码正确，欢迎您使用本系统！",Information!,ok!,2)
open(w_main)// 打开考勤管理系统主界面
close(parent)
else
messagebox("错误！","用户名或密码错误，请重新输入！",exclamation!,ok!,2)
end if
end if
3：函数名：cb2。Clicked（） 即点击取消按钮的事件
作用：关闭窗口
代码：
close(parent)
二：主窗口中的函数
1：函数名：rb_1。Clicked()
作用：关闭当前窗口，打开员工基本信息窗口
代码：open(w_yuangong)
close(parent)
2：函数名：rb_2。Clicked()
作用：关闭当前窗口，打开考勤信息处理窗口
代码：open(w_chuli)
close(parent)
3：函数名：rb_3。Clicked()
作用：关闭当前窗口，打开缺勤类型设定窗口
代码：open(w_shengding)
close(parent)
4：函数名：rb_4。Clicked()
作用：关闭当前窗口，打开员工考勤统计窗口
代码：open(w_tongji)
close(parent)
5：函数名：pb_1。Clicked()
作用：关闭当前窗口
代码：close(parent)
三：考勤信息处理窗口中的函数
1：函数名：open( )
作用：将数据窗口和数据库连接，并且显示数据库存在的数据
代码：dw_1.settransobject(sqlca)
dw_1.retrieve()
2：函数名：pb_1。Clicked()
作用：插入一条新记录
代码：dw_1.insertrow(0)
3：函数名：pb_2。Clicked()
作用：删除一条当前记录
代码：dw_1.deleterow(0)
4：函数名：pb_3。Clicked()
作用：向数据库提交插入，删除和修改的操作，如果成功就发到数据库
代码：
integer returncode
returncode=dw_1.update()
if returncode>0 then
commit using sqlca;
else
rollback using sqlca;
end if
4：函数名：pb_4。Clicked()
作用：关闭当前窗口，回到主界面
代码：
open(w_main)
close(parent)
四：缺勤类型设定窗口中的函数
1：函数名：open( )
作用：将数据窗口和数据库连接，并且显示数据库存在的数据
代码：dw_1.settransobject(sqlca)
dw_1.retrieve()
2：函数名：pb_1。Clicked()
作用：插入一条新记录
代码：dw_1.insertrow(0)
3：函数名：pb_2。Clicked()
作用：删除一条当前记录
代码：dw_1.deleterow(0)
4：函数名：pb_3。Clicked()
作用：向数据库提交插入，删除和修改的操作，如果成功就发到数据库
代码：
integer returncode
returncode=dw_1.update()
if returncode>0 then
commit using sqlca;
else
rollback using sqlca;
end if
4：函数名：pb_4。Clicked()
作用：关闭当前窗口，回到主界面
代码：
open(w_main)
close(parent)
五：员工基本信息窗口中的函数
1：函数名：open( )
作用：将数据窗口和数据库连接，并且显示数据库存在的数据
代码：dw_1.settransobject(sqlca)
dw_1.retrieve()
2：函数名：pb_1。Clicked()
作用：插入一条新记录
代码：dw_1.insertrow(0)
3：函数名：pb_2。Clicked()
作用：删除一条当前记录
代码：dw_1.deleterow(0)
4：函数名：pb_3。Clicked()
作用：向数据库提交插入，删除和修改的操作，如果成功就发到数据库
代码：
integer returncode
returncode=dw_1.update()
if returncode>0 then
commit using sqlca;
else
rollback using sqlca;
end if
4：函数名：pb_4。Clicked()
作用：关闭当前窗口，回到主界面
代码：
open(w_main)
close(parent)
六：员工考勤统计窗口中的函数
1：函数名：open( )
作用：将数据窗口和数据库连接，并且显示数据库存在的数据
代码：dw_1.settransobject(sqlca)
dw_1.retrieve()
2：函数名：ddlb_1。Selectchange()
作用： 改变数据窗口中数据的大小
代码：dw_1.modify('DataWindow.Zoom = '+ trim(ddlb_1.text))
3：函数名：cb1。Clicked（）
作用： 回到数据窗口中上一页
代码：dw_1.scrollpriorpage()
4：函数名：cb2。Clicked（）
作用： 回到数据窗口中下一页
代码：dw_1.scrollnextpage()
5：函数名：cb3。Clicked（）
作用： 打印数据窗口
代码：dw_1.print()
6：函数名：cb4。Clicked（）
作用： 打印设置
代码：printsetup()
7：函数名：cb5。Clicked（）
作用： 打印预览
代码：
dw_1.Modify("DataWindow.Print.Orientation = '1'") //横向
dw_1.Modify("DataWindow.Print.Orientation = '2'") //纵向
dw_1.Modify("DataWindow.Print.Preview = yes")
dw_1.Modify("DataWindow.Print.Preview.Rulers = yes")
dw_1.modify('DataWindow.Print.Preview.Zoom = '+ trim(ddlb_1.text))
8：函数名：cb5。Clicked（）
作用： 打印预览
9：函数名：ddlb_2。Selectchange()
作用： 改变打印预览窗口的大小
代码：
dw_1.modify('DataWindow.Print.Preview.Zoom = '+ trim(ddlb_2.text))
10：函数名：cb6。Clicked（）
作用： 将数据窗口中的数据保存为表格形式的文件
代码：string ls_path, ls_file
int li_rc
ls_path = sle_1.Text
li_rc = GetFileSaveName ( "Select File", ls_path, ls_file, "xls", "*.xls,*.xls" )
//得到路径名
IF li_rc = 1 Then
OLEObject ole_object , ole_workbooks
ole_object = CREATE OLEObject
//创建Excel对象
IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF
ole_object.workbooks.add
ole_object.Visible = True
ole_workbooks = ole_object.Worksheets(1)
ole_workbooks.cells(1,1).value="员工号"
ole_workbooks.cells(1,2).value="时间"
ole_workbooks.cells(1,3).value="天数"
ole_workbooks.cells(1,4).value="类型"
ole_workbooks.cells(1,5).value="原因"
long l_row
for l_row = 2 to dw_1.rowcount()+1
ole_workbooks.cells(l_row,1).value=dw_1.getitemstring(l_row - 1,1)
ole_workbooks.cells(l_row,2).value=dw_1.getitemstring(l_row - 1,2)
ole_workbooks.cells(l_row,3).value=dw_1.getitemstring(l_row - 1,3)
ole_workbooks.cells(l_row,4).value=dw_1.getitemstring(l_row - 1,4)
ole_workbooks.cells(l_row,5).value=dw_1.getitemstring(l_row - 1,5)
next
ole_workbooks.SaveAs ( ls_path)
ole_object.quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
destroy ole_workbooks
messagebox("!","文件保存到"+ ls_path)
End If
11：函数名：sel。modify（）
作用： 将数据窗口中的数据按输入的员工号显示
代码：
string emp_no
string condition
if sle_1.text <> "" then
emp_no=trim(sle_1.text)
condition="emp_no="+"'"+ emp_no+"'"
dw_1.setfilter( condition)
filter(dw_1)
dw_1.retrieve()
end if
