皮皮网
皮皮网

【php音乐上传源码】【错题app源码】【宅音乐源码】企业考勤 源码_企业考勤 源码是什么

时间:2024-12-27 15:29:04 来源:NameValuePair 源码

1.基于天翎低代码平台开发的企业企业OA系统
2.考勤管理系统
3.考勤作弊APP创始人二审改判4年,这样的考勤考勤判决是否太轻了?
4.考勤作弊APP创始人二审改判四年,法院为何会改判?
5.考勤作弊APP创始人二审改判4年,源码源码你赞成这一判决吗?
6.急求pb考勤管理系统(pb+access)论文

企业考勤 源码_企业考勤 源码是企业企业什么

基于天翎低代码平台开发的OA系统

       本文介绍基于天翎低代码平台的OA系统,其涵盖功能包括公文管理、考勤考勤考勤管理、源码源码php音乐上传源码报销管理、企业企业物资管理、考勤考勤人事管理等,源码源码旨在提高工作效率、企业企业辅助决策,考勤考勤从而优化工作环境。源码源码通过天翎平台,企业企业企业不仅能够实现本地化部署,考勤考勤而且能结合群晖NAS保障数据安全。源码源码通过开发OA系统,企业能够实现以下价值:

       促进信息资源共享,提升工作执行效能,规范工作流程,提高沟通效率,积累有效知识。

       选择天翎低代码平台开发OA系统的原因在于,相较于传统标准版OA系统,其功能虽然标准化、易于快速应用,但对个性化需求的适应性较差,且成本相对较高。传统代码开发方式则周期长、成本高、技术门槛高、开发效率低。相比之下,天翎低代码平台具备按企业实际需求进行个性化定制调整的灵活性,支持快速开发,节省时间成本,且提供私有化部署选项,无需额外部署,免维护,开箱即用。MyApps平台采用低代码开发模式,支持积木式可视化快速配置,错题app源码即使非专业人士也能高效完成开发。

       天翎MyApps低代码开发平台具有显著优势,包括开发过程的可视化、无需编码即可完成打包、编译及发布,以及高效率、高成本效益的特性。平台的可视化表单引擎提供丰富的组件和模板,实现快速配置应用,而自主研发的流程引擎则专为中国市场设计,符合中国人的思维方式与操作习惯。天翎平台还具备强大的集成整合能力,支持与第三方业务系统的无缝对接,确保接口集成过程安全可靠。此外,平台全面兼容国产化软硬件,支持私有化部署,提供源码交付机制,保障企业灵活使用并自主维护系统。

       天翎OA办公系统的特点包括公文管理、考勤管理、报销管理、物资管理、人事管理等功能,以及提供天翎低代码开发后台,允许用户根据自身需求调整或新增功能。系统通过特定流程与日常事务紧密结合,提高办公管理与信息管理的效率,实现办公管理的规范化和信息规范化,有效降低企业运行成本。

       系统具体功能如下:

       公文管理:包含新建收文单、已归档收文、新建发文、已归档发文等功能,支持流程提交、查看流程状态、流程历史信息与流程图。

       考勤管理:包括排班管理、请假管理、补卡管理、宅音乐源码加班申请管理等,支持流程提交与手签。

       考勤查询:提供打卡记录查询、企微考勤记录、钉钉考勤记录功能,并支持Excel导出。

       移动办公:支持多端适配,可在Android、iOS操作系统下的手机和平板设备上运行,兼容钉钉、企业微信、飞信以及独立APP。

       总结,基于天翎低代码平台的微鳄OA办公管理系统实现办公管理与信息管理的规范化,降低企业运行成本,免费提供开箱即用的体验。用户可利用自由调整或新增功能满足个性化需求,并通过低代码后台支持灵活调整,同时支持更多流程相关的管理系统。微鳄OA办公系统已经与群晖NAS无缝整合,确保数据安全,用户无需额外安装。

考勤管理系统

       考勤系统,在包含薪资计算模块的情况下,可以灵活定义各个工资项目的计算公式,自动调用员工的出勤数据、人员资料、就餐等与工资相关的数据,计算出员工的工资情况,可提供银行代发工资所需的相关文件。同时提供丰富的统计分析报表,可即时掌握企业工资支出情况。

       RQHR基于拥有自主版权的RQBuilder开发平台开发,它具有鲜明的技术特点及众多成熟的解决方案。

       1. 真正在线式二次开发,面向对象的脚本语言,可视化开发环境,功能可无限扩充,客户可轻松摆脱对源代码的依赖;

       2. 系统界面可自由定义,界面布局大方得体,exoplayer 源码下载操作方式全面符合Windows标准,操作灵活方便;

       3. C/S体系架构, 具有强大的SQL Sever数据库管理功能;可以控制管理数据库, 表,索引,触发器,规则约束及存储过程等,我们提供的RQHR系统标准数据库具有详尽的数据完整性约束,杜绝非法数据进入系统。

       4. 整个系统中所有的繁杂的计算工作全部交由SQL Server后台计算。

       5. 多语言支持,自适应简体、繁体及英文操作系统等;

       6. 录入资料方便快捷,全面支持批量录入资料;

       7. 自定义的界面, 实现个性化的操作向导, 动态切换操作风格以满足不同的需求

       8. 自定义的功能模块, 添加新的模块控制极为轻松愉快;

       9. 自定义的报表与统计图,可对报表数据进行动态变换, 统计分析以及作图形输出;

       . 自定义的代码表,使用各种人事资料的录入更为轻松;

       . 强大快捷的动态化查询无处不在,自动保存历史查询,众多友好的操作向导;

       . 所有的数据都可与Excel, Access等数据作双向导入导出;

       . 全面严谨的系统权限及安全控制,审核机制完善;

       . 支持多个帐套,可以动态切换帐套,方便集团化的企业管理。

       . 万能适应各种人力资源管理模式,快速上线,可维护性很好;

       . 全面支持无限层次的部门组织架构,可快速对任一层的数据进行统计报表

       . 对各种人事资料进行分析、统计、预警;

       . 全面、精确、快捷的考勤分析,包罗万象的上班模式,大大简化考勤效率;

       . 考勤单据的录入全面支持人个,群组录入及反录入,大幅提升工作效率。

       . 考勤规则全面,深入,细致,体贴。

       . 自定义工资表,工资项目计算方法及形形色色的工资报表;

       . 方便的厂牌、工卡制作,万能挂接各型号的刷卡机器;

       . 考勤、就餐、xscript源码分享门禁一卡通,支持IC卡消费卡模式;

       . 自定义的统计结算周期

       . 无限层次的组织架构图

       . 工号,卡号的变更处理

       . 照片的显示及打印处理

       . 培训,绩效与考核的管理

       . 动态的异动、离职资料处理方案

       . 新员工的自动转正及定期调薪的处理方案

       . 待聘员工资料库的管理

       . 人才储备资料库的管理

       . 工号变更,部门变更及离职对汇总报表影响的解决方案

       . 薪资异动对薪资计算的影响解决方案

       . 计件计时异动对考勤、薪资计算的影响解决方案

       . 部门异动对考勤、薪资计算的影响解决方案

       . 实时可靠采集刷卡数据的方案

       . 累计项目(如按金,积假,年休)的薪资自动设置

       . 超长时间上下班打卡的可靠解决方案

       . 电脑自动化排班或不排班的解决方案

       . 各种模式的轮班解决方案

       . 无限制的加班类别及请假类别

       . 动态的班别(如大夜班,小夜班等)的算法定义

       . 对劳动法规的合理解决方案

       . 薪资发放报表所需各种货币的数据报表

       . 对薪资尾数的处理方案

       . 自定义的个人所得税税率

       . 多供应商的就餐汇总

       . 可选的界面风格,报表风格

       . 其它的子系统的如图书管理,水电管理,宿舍管理,停车管理,巡更管理等

考勤作弊APP创始人二审改判4年,这样的判决是否太轻了?

       我觉得这样的判决非常合理,毕竟这个软件并没有给社会带来危害,并没有给整个计算机网络系统带来破坏性,所以这样的判决还是非常公正合理。

       我认为这一个软件APP并没有社会危害性,它只是通过不改变源代码的情况下,通过虚拟位置的信息修改了客户个人的位置,客户不想暴露自己位置时,就可以对位置进行遮挡,当客户觉得这个位置不合适时,可以随意进行修改,并没有给社会带来危害性,也没有利用软件特性带来严重后果,并且在这一起案件中,该公司的整个营业性收入并不是很高。

       一、案件始末是什么?

       整个案情非常简单,嫌疑人制作的这一款软件名字是大牛助手是一款APP通过APP客户可以进行一个前期试用,试用期过后客户需要缴纳包月费用或者包年费用费用收取并不高,客户通过APP可以对个人位置进行遮挡,别人看不到用户位置,当客户觉得对位置信息需要修改时,可以通过软件修改个人位置信息,模拟任何一个地方的定位,在地图上可以随意定位,法院认为该软件已经影响了整个计算机信息系统属于破坏计算机信息系统罪。所以对该软件创始人进行逮捕并判刑。

       二、网络上议论纷纷。

       我看到网络上很多网友在留言并且讨论这些案件,很多人认为该软件创始人并没有利用这个软件进行任何违法犯罪行为,他只是制作了一款可以修改定位的APP而已,至于用户如何使用是用户的事情,和软件创始人并没有任何关系,法院的判决有些连带责任过重,并且啊,该名创始人的软件并没有对社会造成危害,也没有造成重大损失,所以判刑有些过重,也有些人认为很多人利用软件修改定位打卡骗取工资,造成了很不好的影响,所以应该判刑。

       三、应该双面性看待这个问题。

       我觉得看待这个问题应该双面性,如果说软件开发者有些无辜,其实这种双法也并不是很准确,因为软件开发者在开发这款软件是已经会前期预料的,客户会利用软件性质进行修改定位,但是他并没有制止,并且利用这个功能开始进行包月,甚至包年公司利用这些功能进行收入,说明已经前期预料到,会有人利用这款软件的功能进行不恰当使用,虽然软件的开发和其他日常定位的APP一样,但是在功能县志上却有些不一样,所以这样的判刑也非常准确。

考勤作弊APP创始人二审改判四年,法院为何会改判?

       我认为法院之所以在二审判决中改判原因是一审法院是根据该名男子破坏计算机信息系统罪进行量刑,而二审法院则认为,这款软件不属于刑法中的破坏性程序,所以该名男子虽然依然是涉嫌这项罪名,但是罪行减轻了,随之在二审判决中就判处有期徒刑4年决定。

       我认为法院在这次量刑中改判的十分合理,毕竟这款软件并没有在网络上造成恶性传播,也没有攻击网络程序,没有造成人员信息丢失,泄露甚至重大互联网恶性事件出现,只是让用户个人使用时会通过修改定位功能来满足个人目的,这种目的满足对社会并没有危害性,也没有给社会带来隐患以及损失,所以根据这种情况,二审法院所判的4年有期徒刑属于减刑判决,认为软件不属于破坏性程序,所以改判。

       一、案件始末是什么?

       在这起案件中,该男子通过购买其他公司软件源代码,并且修改数据后制作成了一款名叫大牛助手的APP,并在网络上售卖传播,软件的主要盈利方式是通过用户下载后包月或者包年会员方式来进行收费,软件其实并没有什么问题,只不过用户在下载软件后可以隐藏个人定位,并且可以自行修改个人位置,在法律上认为该名男子软件属于破坏计算机信息系统罪,所以一审判决该名男子判处有期徒刑5年6个月,男子表示不服进行二次申诉,二次法院认为该名男子软件不属于法律中的破坏性程序,于是将判决减轻到有期徒刑4年。

       二、希望该名男子汲取教训。

       我认为该名男子的行为已经涉嫌法律,在软件制作过程中,自己已经可以预见性的知道后果,自己在购买软件源代码后再对源代码进行修改,开发的过程中指定了软件可以遮挡个人定位以及修改个人定位,软件主要功能也是这样,男子内心明白用户会使用软件修改个人定位前提下,依然开了会员并以此谋利,所以这种方式属于违法犯罪。

       三、法院判决非常公道。

       我认为这次法院判决非常公平公正,虽然律师认为该男子可以做无罪辩解,但是我认为该男子在开发软件时,就是利用软件可以修改定位的这一特性来进行牟利,其开会员以及包年包月的付费方式,就决定了它是以这种软件特性来进行谋利,他自己内心清楚用户会使用这款软件做什么,但他没有下架软件,也没有进行阻拦,也没有提示,所以该男子的行为属于破坏网络信息系统罪,法院判决也十分公平,考虑到软件不属于破坏性程序,已经进行减刑。

考勤作弊APP创始人二审改判4年,你赞成这一判决吗?

       随着社会的发展、任何单位和组织都有一定的制度、这样才能保证工作的正常进行、比如很多企业都实行打卡制、需要你到现场进行录入头像或者其他的方式、才能算作里来了或者走了、而我们知道没有任何程序是不可攻破的、毕竟“天外有天、人外有人”、前段时间一款非常火的App被下架、因为他被购买者用来作弊打卡、给很多的企业和单位造成了损失、而这个考勤作弊App的创始人二审改判四年、你赞成这一判决吗?首先不赞成这一判决、因为我们知道这个App开发出来并不是为了进行考勤作弊、而是被购买者用来做了这方面的工作、而且他的源代码只是改变了服务器的位置信息、这是一项技术、对于开发者来说被用于违法犯罪还应该追究这些使用者的责任、毕竟还要看他是否从内心就是去做考勤作弊的初衷。

       现代化的发展、涌现了一批又一批的人才、著名学者曾经说过“改变未来的人可以来自任何的地方”、就像以前我们没有汽车、而发明汽车的莱特兄弟也不过初中毕业、特别是现代技术的发展、不仅让我们的生活更加的便利、更让很多事情变得复杂、我们知道违法犯罪不能去做、但并不代表你所创造的东西没有去违法犯罪、就比如我们平时做菜所用的菜刀、它可以帮我们更方便的烹饪食物、但是也有持刀杀人抢劫的、我们并不能去怪罪厂家的错误、而在这一次考勤作弊App创始人被判两年的案件中、很多人认为这一项技术并没有直接指向考勤作弊的功能、创始人也没有在功能上解释和说明这一些、而他所给相关单位和企业带来的损失是那些个人的行为、所以不赞成这一次的判决、也希望这些人的初衷并不是去违法犯罪、而是被误会、毕竟技术是改变世界用在正道的东西。

       我们都知道“人之初性本善”、但其实人是否是善良的并不能完全确定、或者说出生的时候应该是一张白纸、只是在后面的教育和交流中改变他、所以应该从这些方面来考虑。

急求pb考勤管理系统(pb+access)论文

       文字自己想办法

        一:变量说明

       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(), 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!, "odbcjt.dll")

       RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "DriverId" , ReguLong!, )

       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))

       :函数名: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

       :函数名: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

更多内容请点击【焦点】专栏