说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中利用Tbatch组件完成数据批处理

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中利用Tbatch组件完成数据批处理

---- 在 数 据 库 应 用 系 统 中, 常 常要 对 数 据 进 行 成 批 的 如 追 加、 删 除、 更 改 等操 作, 这 种 批 量 操 作 在 专 门 的 数 据 库 开 发 工 具 如VFP 中用APPEND 、COPY 命 令带 上 相 应 的 命 令 子 句 就 能 轻 易 完 成。 但 在 其 它 开 发 工具 中 并 没 有 类 似 的命 令, 而 是 提 供 能 完 成 类 似 功 能 的 控 件 或 对 象, 如 在PowerBuilder 中 就 是 利 用 Pipe Line( 数 据 管 道) 来 完 成 两 个 或 同 构 或 不 同 构 的 表之 间 的 数 据 批 处 理。

本 文 要 介 绍 的 是Delphi 中 用 来 完 成 数 据 批 处 理 任 务 的 组件TBatchMove。TBatchMove 组件 能 够:

将 一 个 数 据 集 中 的 数 据 追 加 到 一个 表 中。.

从 一 个 表 中 删 除 满 足 条 件 的 记 录。

按 旧 表 结 构 生 成 一 个 新 表, 若 欲 生成 的 新 表 已 存 在, 则 覆 盖。

---- 具 体 的 操 作 要 通 过 设 置TBatchMove 的Mode 属 性 后 再 调 用Execute 方 法 来 完 成。 为举 例 说 明 问 题, 我 们 在 别 名 数 据 库DBDEMOS 中 先 创 建 两 个dBase 格 式 的 表Test1.dbf

和Test2.dbf。 二 者 的 结 构 如 下 表:

Test1.dbf Test2.dbf

Name C 10 Name C 10

Code C 3 Code C 3

---- 其 中 表Test2.dbf 在 字 段code 上 建立 有 唯 一 索 引。 同 时 假 设 表 单 中 已 有 两 个 TABLE 控 件Tsource 和Tdest 和 一 个TbatchMove 组 件batchmove1。Tsource 和Tdest 的DatabaseName 属 性 均设 为DBDEMOS。batchmove1 的source 属 性 设 为Tsource,destination 属 性 设 为Tdest。

---- 在 使 用TbatchMove 组 件 时, 必 须 牢 记:所 有 的 操 作 都 是 以 源 表 为 标 准 针 对 目的 表 进 行 的, 下 面 就 分 别 举 例 说 明TbatchMove 的 各 种 操 作模 式:

batAppend 追 加 模 式 将 源 表 中 的 数据 追 加 到 目 的 表 中, 目 的 表 必 须 事 先 存在。 这 是 缺 省 模 式。

batchmove1.source=Tsource;

batchmove1.destination=Tdest2 ;

batchmove1.Mode:=batCopy;

batchmove1.Execute;

batUpdate 更 新 模 式 用 源 表 中 匹 配目 的 表 的 记 录 替 换 目 的 表 中 的 相 应 记录。 目 的 表 必 须 事 先 存 在 且 有 一 已 定 义 的 索 引 用 来 匹配 源 表 中 的 记录。

Tdest.IndexFieldNames:='code';

batchmove1.source=Tsource;

batchmove1.destination=Tdest ;

batchmove1.Mode:=batUpdate;

batchmove1.Execute;

batAppendUpdate 追 加 更 新 模 式 如 果 源表 中 有 与 目 的 表 匹 配 的 记 录, 则 替 换目 的 表 记 录, 否 则, 直 接 追 加 到 目 的 表 中。 目 的 表 必须 事 先 存 在 且 有 一已 定 义 的 索 引 用 来 匹 配 源 表 中 的 记 录。

Tdest.IndexFieldNames:='code';

batchmove1.source=Tsource;

batchmove1.destination=Tdest ;

batchmove1.Mode:=batAppendUpdate;

batchmove1.Execute;

batCopy 拷 贝 模 式 按 源 表 结 构 生 成新 表, 源 表 中 的 数 据 同 时 拷 贝 到 目 的新 表 中。 如 果 要 生 成 的 新 表 已 存 在, 则 覆 盖。

// 按Test1.dbf 生 成 新 表xxx.dbf

// 如 果 不 指 定 扩 展 名dbf, 生 成 的 新 表 将 是Paradox 格 式 的xxx.db。

Tdest.TableName:='xxx.dbf';

batchmove1.source=Tsource;

batchmove1.destination=Tdest ;

batchmove1.Mode:=batCopy;

batchmove1.Execute;

batDelete 删 除 模 式 删 除 目 的 表 中与 源 表 匹 配 的 记 录。 目 的 表 必 须 事 先 存在 且 有 一 已 定 义 的 索 引 用 来 匹 配 源 表 中 的 记 录。

Tdest.IndexFieldNames:='code';

batchmove1.source=Tsource;

batchmove1.destination=Tdest ;

batchmove1.Mode:=batDelete;

batchmove1.Execute;

---- TBatchMove 还 有 一 个 重 要 属 性ChangedTableName,在 实 际 运 用 中, 通 过 指 定 ChangedTableName 属 性 可 以 创 建 一 个Paradox 表, 该 表 用 来 保 存 目的 表 中 被 更 改 数 据的 原 始 备 份, 有 了 这 个 备 份 表 就 可 以 确 保 恢 复 目 的 表中 的 数 据。

---- 顺 便 提 一 句,如 果 要 删 除 某 一 个 表 中 的 全 部 记 录, 可 以 采 用Table 组件 的 EmptyTable 方 法, 例 如Tdest.EmptyTable 将 清 空Tdest 所 指 定 的 表test2.dbf。

---- 本 文 中 是 以 同构 的dbf 表 进 行 的 示 例, 在 实 际 运 用 中, 源 表 和 目 的 表可 能同 购, 也 可 能 异 构, 异 构 时,Delphi 的BDE 会 自 动 进 行 类 型和 长 度 上 的 转 换, 具体 类 型 间 的 关 系 可 以 有 关BDE 的 帮 助。 本 文 中 各 种 操 作模 式 的 实 际 结 果 均可 以 从Delphi 的Database Desktop 中 查 看 到。

下一个被黑客攻击的对象—无线路由器 Windows Blue开始按钮或将回归,你怎么看? Evernote推孵化器 不占股权 基于C++和Lua的移动游戏引擎Leadwerks 3发布 苹果秘密测试iOS 7与iPhone 6 或将6月发布 酷6 CTO 陆坚:请先信任你的程序员 从电信联手i-Free,看运营商渠道的加速整合 “Animory”开发者分享HTML5游戏开发经验 Appflood SDK:连接中国与海外App流量交互平台 Apache Subversion 1.7.9正式发布! 微软IE浏览器5大动向 加速吸引开发者 开源的简繁转换库OpenCC支持Node.js 继Opera之后,Adobe表示将支持Google Blink 提高大型软件项目质量的一些实用型技术分享 谷歌推出Mirror API,开发者可为Google Glass开发应用 无需999,也不要499,99美元Linux超级计算机带回家 微软反击AWS:推出EC2并大幅降价,“价格战”正酣 Operation InVersion:拯救了LinkedIn的大修项目 五步走战略——Avocado在最初几周内迅速扩大30倍 NoSQL产品测评:Cassandra、MongoDB、Couchbase和Aerospike 谷歌眼镜开箱评测:比想象更精致 Pinterest谈实战经验:如何在两年内实现零到数百亿的月访问 初创公司Instart Logic:专为电子出版商和网站站长解决“痛点” 未来即卖芯片又卖服务!Intel收购软件厂商Mashery 继MSN之后,微软又开始整合Skype与Lync服务 阿里将推AMOS智能机 斥资10亿鼓励开发App AMPLab开发重构的Hadoop版本Tachyon:吞吐量要比HDFS高300多倍 一名理科生的创业路 十大界面原型与布局工具 Google产品经理Kenneth Norton:如何与工程师共事 如何创建自适应系统来增强用户体验 我第一次用asp连接数据库(access2000),是不是需要先设置一下呀,为什么网页显示出错呀 为什么我想保存图片(*.bmp *.jegp)时总是出错,请高人指点。 error C2653: 'CTestView' : is not a class or namespace name 怎么解决? NT4.0的局域网,如何将WIN2000 PRO加入域中,以便能够访问它提供给我的一部分空间。 请问有谁知道在xp怎样侦测网络中发送到本机的数据流 VC,BROLAND C都没有graphics.h?? 关于Access数据库性能的一个问题 如果不用指针,如何删除内存变量 关于InstallShield Express-Borland Limited Edition 3.03的几个菜鸟问题 高手帮我啊 我该不该跳槽?(回答有分) 博弈算法的高手请进,区区小分不成敬意(求得分函数) 存储过程的问题 有关报表问题,绝对简单,但是我不会? 在程序中如何使用tabel.filter语法来过滤不同类型的数据???小菜虫我是有分必加 怪事!CString类怎么了? 如何去掉记录中的怪字符? 困惑初学者的难题:如何在VC7.0中编译调试运行小程序?哪位大哥能说清楚高分送上!帮帮我们这些在地狱中水深火热的难兄。。,谢谢。。。 急死我了!!用Table连接时总要密码,那位大哥能帮帮我!!! 如何用SQL Plus查看Oracle中表间关联? CWnd中的声明空成员函数OnSize究竟有何作用? 有谁知道关于电子版的windows api相关的书下载的网址呀。我在线等呀。 怎样用网卡对接电脑 抗议!IE是否自动为收藏夹做过备份? 如何通过NDIS编程取得以太网地址 今晚有多少人通宵? socket客户端能发,不能收是怎么回事? FDISK不能用了吗?真是奇怪呀?谁能帮我啊!!! 想通过sql语句找出这样重复的记录?如何写这个语句? 如何在delphi中显示和编辑sql server中超过256字节的字段 《程序员》的合定本有卖了吗? 最近我防问了一个黑客网站。一下中啦。桌面没有图标我看完啦。有没有高人帮我一下啊。 现有一个dll转为静态库的问题 请问怎样添加一个从CObject继承而来的新类啊? 如何在VB中用Outlook发电子邮件??? 妈呀,上午54,下午33,有戏吗?我完了。 请教:通过VB+ADO访问SQL Server 7数据不能更新记录? 低分低级问题 简单问题,送分喽!!文件调用问题!!! 如何定义IOCTL代码: 谁能推荐一本有关网络与通信的入门书? 看官们注意HttpURLConnection!!! 如何获得Edit控件中当前输入的是第几个字符? 大家是如何调试WDM程序的 在游标中如何更新数据表的当前行 哪里有内幕新闻看? 怎么突然不能解析了,不只是什么原因,昨天我的asp.net都配好了,今天.aspx怎么又不能解释了? 好奇怪!为何不执行Page_Load()函数? 简单问题:关于一个控件,50个大洋。 广州的科友听过没有?听说是搞网络安全的,挺牛B的。全是C,unix高手。。。 如何使用vbs,javas,修改注册表??? 硫在氧气中燃烧的生气物是什么?是什么颜色 人类为什么要有感动这种感情?人类失去感动的话世界会变的怎么样·? 农家望晴 第三句运用比喻的修辞手法有什么表达效果?这首诗抒发了作者怎样的思想感情 地球和月亮有什么关系 世界上为什么要存在生物人类感情和你我世界上为什么要存在生物世界上为什么要存在人类世界上为什么会存在感情世界上为什么回存在你我晕,我都没恋爱过又怎么会失恋呢.呵呵.我只是无 知道功率100kw 知道铝线长度100m 电压是380v 求铝线的截面积 为何ABS塑料外壳喷漆后用普通油墨丝印,无附着力和不耐酒精?用那种油墨好呢?银色油墨+20%黑色,无附着力 三相电机,实测电压290,电流4.6,功率因数0.8,请问该电机实际功率是多少?怎么算?还有就是电机的效率是怎么算出来的!公式是什么? 功率100KW,3相4线380V电源要用多少平方的线车间用电总功率100KW,3相4线380V电源,使用设备有工业机器和加热炉子,空调,日光灯等,请问要用多少平方的线?每相负载电流有多大? 丝网油墨有耐酒精的吗 地球上为什么要出现人类,还要赋予它思想、感情? 已知电流电压怎么算功率 电压380V电流60A功率是多少kw是潜水泵啊,电压是380v,电流是60A,电费是每度电0.36元,我用一小时应该是多少电费呢?三项平衡 ABS注塑产品印刷油墨后,用酒精擦拭会把油墨擦掉,是什么原因?ABS注塑产品印刷油墨后,用95%的酒精擦拭会把油墨擦掉,以前也是用这种油墨(英国阿波罗GV系列)没有问题.ABS是一般级的PA-757K染 电机实际功率除了用公式:1.732*线电压*线电流*功率因数 计算之外,有没有估算的算法? 与山穷水复疑无路,柳暗花明又一村有关的成语是什么 急需增加油墨耐酒精的助剂! 人类情感本质希望能从脑科学、生物化学或者量子力学方面解释,越本质越好,描述性的回答就不必了. 山穷水复疑无路柳暗花明又一村形容什么?急... 为了安全,机床上照明电灯用的电压是36V,这个电压是把380V的电压降压后得到的,如果变压器的原线圈是1140 :1.关于电流与电压关系,还有功率因数,还请大师知道:1.由I=U/R可知,任一时刻的电流可以记忆该时刻的电压,着句话正确吗?2为提高感性负载的功率因数,应在感性负载的两端并联一只适当容量的 山穷水尽疑无路 柳暗花明又一村 和 山穷水复疑无路 柳暗花明又一村 有什么不同 为什么人类有感情? 已知电动机功率、电源电压、功率因数、机械利率求电动机电流 山穷水复疑无路 柳暗花明又一村 作者是谁hjhhhh 月亮地球的关系 知道功率因数功率和电压怎么来计算电机电流 "山穷水复疑无路,柳暗花明又一村”的意思是什么 弯弯的月亮像什么 至少两种答案除了镰刀和小船 地球和月球的关系把一枚1元的硬币平放在桌面上代表地球,再在桌子上放一枚1角的硬币代表月球.在模拟月球绕地球运动时,使一角的硬币的1字顶端始终朝着1元的硬币.那么,1角硬币绕1元硬币 16克硫在20克氧气中燃烧可生成二氧化硫多少克? 硫在氧气中燃烧产生蓝紫色火焰,说淡蓝色火焰对吗? 人类为什么会有思想和感情? 8克硫在8克氧气中燃烧一定生成16克二氧化硫? 硫在空气中燃烧产生淡蓝色的火焰,在氧气中燃烧产生明亮的蓝紫色火焰,对比这两种现象可得出的结论是什么? 一个电机额定功率为18.5kw,频率50Hz,电压380v,当电流为30A时,其实际用电量是多少,怎么算?,当电流为80A时,其实际用电量是多少? 16克硫在20克氧气中燃烧可生成二氧化硫多少克?... 油墨的成分及其作用这是关于印刷方面的问题 一台普通车床的电机额定功率为7.5kw,频率50Hz,电压380v,当电流为30A时,其实际用电量是多少?为什么同时接两个电表,每月抄表数据相差9度左右,80A的表后面再接30A的表,求解?一台普通车床的电机 cps什么单位?我们公司用的XRF里面有个单位是cps,是有害物质强度单位.与有害物质浓度有关系! 酒精在水性油墨中的作用 有一台三相异步电动机,额定功率10kW,转速1440r/min,额定电压380V,额定频率50Hz,额定效率0.90,额定功率因数0.85(1)电动机的磁极对数P为多少?(2)电动机接于380V电源时,定子绕组应采用什么接法? 求解高手放射性单位CPM、CPS、μSv/h、μR/h意思是什么 醋酸正丙酯用于油墨中起什么作用 额定功率359KW,电压380V,50Hz.电路最小容量810A,最大过载电流1200A,麻烦给我算电缆并附详细计算公式.从低配到设备控制箱原图是两根3*240+1*120 能不能改为3*185+1*120 放射性测量仪器中灵敏度单位:cps / 350cps/μSv大概相当于多少γ?FD-3013B智能化伽玛辐射仪 氯化橡胶在油墨中起什么作用 地球跟月球的关系 关于月球形成科学家门说 地球年龄46亿年 月球是45.27亿年 地球年龄大些 但月球怎么形成的呢 有2种说法 1月球是当初地球分裂出去的 2地球的引力将无数陨石拉入轨道从而 将16克硫在给定量的氧气中燃烧第1,2,3次给定量氧气质量为15,16,20克生成二氧化硫的质量为15,16,20克,生成SO2的质量为30,52,32克【1】这次试验中那一次恰好完全反应?【2】第几次实验中硫有剩余, 请问硅粉在油墨中起什么作用w我是做热转印膜的···正在学习配料加硅粉怎么加到适量··· 把4克硫粉放在给定质量的氧气中燃烧,有关实验数据如下表所示.请回答下列问题第一次 第二次 第三次氧气质量(克) 3 4 6问:1.第一次实验中,参加反应的硫的质量,氧气的质量与生成SO2的质 农家望晴抒发了作者怎样的思想感情 220V2.2KW电加热管,380V供电结成星形40KW,电路中电流怎么计算? 谢谢 【九年级化学】把4g硫粉放在给定质量的氧气中燃烧,有关实验数据如下表所示(1)第一次实验中,参加反应的S、O2、生成的SO2三种物质的质量比为?(2)通过计算求出第二次实验生成SO2多少克 农家望晴这首诗抒发了作者怎样的思想感情 电机功率40kw,电压380v,距离变压器300米,需用多大铝电缆?环境温度在25°以上 把3g硫粉放在给定质量的氧气中燃烧,有关试验数据如下表所示:求:(1)请你通过计算求出第二次所生成的二氧化硫质量?(列化学方程式计算)(2)在表中填写第三次实验生成二氧化硫的质 农家望晴中第三句运用比喻有什么表达效果 这首诗抒发了作者什么思想感情 功率是40KW.380V.核定电流76A求它的电阻,静止状态是这样求的不呢?R=V/I交流的,我知道静止可以量,但是静止量出来的不知道是正确的吗 用收集到的氧气完成硫粉燃烧的实验后,还需向集气瓶内加入适量的氢氧化钠溶液的目的是什么. 在《农家望晴》和《观刈麦》中,抒发的思想感情有什么相同点
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn