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

在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 中 查 看 到。

离了你地球照样转,谷歌地图并非苹果的必需品 面试必备的9大成功秘诀 Chuck Goldman:乔布斯从来不会说苹果不是企业应用的公司 全球最大的图片社交分享网站Pinterest发布首个API UX设计程序的五个谬论 研发周报:2013年美国开发者薪资调查报告 【开源推荐】PredictionIO:构建预测功能的机器学习服务器 只需4步 百度SiteApp助力京华网移动版落地 Windows Azure开放公测5个月的收获 RDS添加PostgreSQL支持 几家欢喜几家忧 首届智能硬件峰会:解读硬件创业机遇与挑战(下) 平台与技术专题论坛(二):游戏开发实践分享及IE11新体验 看Twitter上市后的入职面试题 六届中国大数据技术大会PPT精粹(三) AMD推多款异构计算开发工具 着力打造APU软件生态系统 Ceylon 1.0发布:又一个“Java语言替代品”? HTML5开发工具:英特尔XDK New 苹果公司为何“情系”PrimeSense 微App专场:不同平台下微App开发运营那些事 25载工程经验,HBase七年——BDTC2013讲师Michael Stack 或许对你创业有所启示:10个英国快速增长的科技创业公司 小米游戏中心10月报告:分析各种手游活动之优劣 欢网王智勇:传统电视厂商须补互联网基因 透露与百度合作细节 支付宝声波支付之初体验 首款使用HSA架构的Kaveri APU、多款异构计算开发工具APU13上齐亮相 分享10段实用的HTML5代码 十条建议送给那些初入职场的小白 这是要灭掉DC的节奏?谷歌欲推Android摄像头API 支持RAW 专访产品经理Markus Spiering:冬眠多年后的Flickr如何在夹缝中生存? 创业与投资专题论坛:硬件的现在!创业的未来? 造就Office新用法:微软推WP应用 可遥控Office文件 请学c++builder 有份量的人推荐一本经典的教材(适合初学者) 欢迎大家访问我们公司的网址! 关于分页的问题 请帮我看看这个小程序 欢迎大家访问我公司的网站! 已知一个文件夹的路径,如何得到该文件夹中的文件的名字? 关于StreamReader的问题 欢迎大家访问我公司的网站! 有关编辑框的问题 各位大侠一个很菜的问题,来帮帮忙! 关于集合的一个小问题 最菜的问题,100分白送!!! 很基础问题,脑子不清楚,大家帮忙看看 紧急问题! 终于 知道MESSENGER 只是 WIN2K 的服务了! 那么 这 个怎么办?? 请问以下我如何实现一个带滚动条的子窗口 问一下,resin和iis集成后class文件放在什么目录下 用 http://www.rc80.com (c# + sqlserver2000) 只想换一个.net 的完整的分页代码! 一个Corba客户端连接的问题! 如何在resin中设置wap服务器功能 大家帮忙!! 什么时候用DataGrid,什么时候用DataList? 怎么样从数据库里取得某字段的值??? 昆腾的硬盘修理找谁啊?急,UP有分........ www.webmatrixhosting.net免费空间中FTP文件上传问题 Apache 2.0.43 +Tomcat 4.1.24+mod_jk2-2.0.43.dll整合问题出现:The servlet container is temporary unavailable or being upgraded 我装的Delphi7好像丢了一个文件:Proxies.pas,哪位好心人给我一个? 人,真脆弱! 开水房追女之呕心沥血计划 (超暴笑) 孤独 急!!Image对象如何设置成为透明的???Thanks! 【憋的慌】大头、阳光呢!!! 关于FLASHMX的遮罩问题 一个问题,想不通! 【憋的慌】死水、一辉呢!!! 急!!!急!!!怎么在建表时使用一个时间函数??就是指出加这条这条文件的时间?? 【憋的慌】蓝心、风呢!!! 怎么获得一个应用程序的图标,比如我用进程ID,获得其主模块,然后怎么办! 【憋的慌】冰冰、贝贝呢!!! 我获得一个服务,可以检验综的状态什么的,可我想获得除了这个以后的东西比如:.... 【憋的慌】珊珊艾、CoolSlob呢!!! 关于adodc控件删除的求救 【憋的慌】冰儿、江风呢!!! 关于Apache wuxuan、kingzai、jemmylau各位版主,请问怎样才能得更多的可用分?我看有些人有几千分,真不解。 提示问题!菜鸟问题马上送分 请问哪有php安装程序下载? [散分]探望qxjavajava 使用gdiplus.lib出现下面的错误? 讨论MVC--Model这块的实现方法(不用EJB的情况)??还有那里有可以自动生成DAO和VO的比较不错的工具吗? 关于网络传销 He ie a new teacher.(变为复数形式) 有人曾于6月上旬早晨,从川西高原阿坝出发南行,进入成都平原时,路过海拔3600米处,水沟尚未结冰.行至海拔2700米处,看到小麦生长旺盛.但到了海拔1503米处,小麦已黄熟.再行至海拔1360米处的茂 最爱吃老鼠的动物是什么 I hurt you more than you heartache中文 Are you aware you have hurt my feelings.她的说说! 哪个洲濒临四个大洋?哪两个洲濒临三个大洋? 赤眼蜂将卵产在玉米螟的卵内,这是一种什么方法,可以干什么? my mother made me a teacher.开头的完型填空答案 世界有几个洲?每个州包括哪几个国家.我预习新高一数学课本,发现有这样的问题.我汗.我地理就考了几分而已啊. 合唱队中男生人数占女生人数的六分之五,后来,又增加了三名女生,此时男生人数占合唱队人数的十二分之五男女各级人? if she doesn't visit the doctor,neither will he解释一下为什么用will 而不用 does啊 你能举出例子,说明地球不是平面而是球体? I have e____hamburgers.根据首字母填空 滑雪时 ,滑雪板与雪地之间的摩擦是哪种摩擦 (注:滑动或滚动) ________they are twin sisther,they don't look like each other.A.Because B.Since C.Though D.However请问选哪个 为什么选这个 它们分别是什么意思 这句话的全部意思 谢谢 He doesn 't like chicken or strawberry.(改为复数) ----- ------like--------or--------.They have (some bananas and eggs )for lunch.(划线提问)( )( )they( )or( ).He plays (volleyball)every morning.(就划线部分提问)( they,but i think they are good man 模具制造业属于金属冶炼加工 还是机械设备制造业 帮忙梗概(缩写)急!在线等在远古时代,这里没有人,也没有河,只有一片荒原,住着一个名叫”浑”的白龙. 后来,由于秦始皇的横征暴敛,一大批的逃荒的难民,逃到这里,居住下来,他们用辛勤 you have to ()for my feelings中间填一个r打头的字母 请问0.1克千浓度多效唑对多少水使用、用于疏菜简单的告诉我多少水就可以疏菜的 缩写与概括的区别 tickets怎么读要谐音,在线等!很急很急的!快!最快给分啊—— they books are their at tow are school not boy the 连词成句they books are theirat tow are school not boy the 是分开的 可是我害怕得糊涂了在文中有什么作用 tickets的音标.写到纸上拍成照片发给我, 英语翻译 11.最后一段中说"可是我害怕得糊涂了","我"怕什么 中国名字前边的"老"字如何翻译成英语,比如说老王,还有小强 英语翻译 自然课上,同学们做实验:平衡架左3格处挂2个砝码问:(1)甲在右1格个挂6个砝码; (2)乙在右2格处挂3个砝码;(3)丙在3格处挂2个砝码; (4)丁在右4格处挂1个砝码.其中不能使平衡架 Linda can ______ a kite in the skyA watch B look at C see 英语翻译 同学们在科学课中做过许多实验,以下是某同学对几个实验的认识,正确的是( )A.在低倍镜下观察到细胞物像模糊,应立即转动转换器换成高倍镜进行观察.B.若不慎将染着的酒精灯碰倒,洒出的 在教育界常说到因材施教,但实际上因材施教在平时的教学中体现了多少?真正的因材施教应该是怎样的? 英语翻译 I think they are interesting中的they为什么不用宾格?再举几个相同的 例子 I can see a kite .A kite is in the sky .(找错) 英语翻译有一天,有一个人来到了超市,汤姆和鲍勃也在超市,他们看见了 一个贼在偷一瓶水,然后出了门 他站在门口准备坐着车走 ,汤姆和鲍勃看见了一个警察,然后他们过去告诉了警察事情的 1.the boys think smoking shows they are older(改成一般疑问句)2.they want to be like them(改为否定句)3.when people start smoking,it is difficult to stop(翻译成英语)4.他们看起来很疲惫(翻译成中文) 大约一个小时以后,就有人走出了会场.修改病句 干煸菜花五花肉怎么做 I will never空myself if she is hurt by my behavior We like to be____.We help each other. do you love each other very much in your family怎么答 has the machine made by uncle wang?改错 为什么我安装proteus的时候加入KEY总是已经有老王的key,然后就怎么都装不成功 无论是 7.5还是7.3的 制造业中的“再制品”是什么意思? Do you know_____ the machine,Uncle Wang?A.what is wrong with B.what is wrong for C.what wrong is with D.what wrong is for我选的是C,但答案是A,这句话不是宾语从句吗,不就应该用陈述语顺,为什么是A呢 取信于人是古文 请解释一下为什么与胰岛素的产生有关的RNA一定只存在于胰岛B细胞中,而与之产生有关的DNA存在于所有细胞中从基因选择性表达来说下 Uncle Wang wants ______ the machine like a bike.选择B.riding D.to ride B为什么错了? 在制造业中pp是什么意思在产品量产前进行PP验证,问这个PP是哪个英文的缩写 什么是复杂制造业 not a single day 中文谐音 不要罗马文 制造业成本的定义 连词成句 in picture the you can wath ? see 求人帮忙截取Rain的Not a single day 00:8 至00:28的部分 我想做,铃声 求一句诗(词)的出处“一年冬近又添衣,平淡江山,欲问亲安.”出自哪啊? 先进制造业的内涵是什么? 白宫官员因网上匿名“吐槽”遭解雇马来西亚水坝泄洪引发水灾 3死3失踪韩国欲开设首个裸体海滩 以吸引外国游美俄防长将定期就安全问题进行视频协商奥巴马频接监听\"投诉\" 向默克尔安倍被指焦头烂额 年内或完不成集体自日执政党就修宪存在分歧 公明党称需获强台风逼近日本 东电加紧转移福岛核电美俄防长将定期就安全问题进行视频协商日岸舰导弹部队将现身宫古岛 拟搞大规打造智慧城管——访巴西里约运行中心安倍被指焦头烂额 年内或完不成集体自美“杀光中国人”节目在强烈抗议声中悄叙政府将在24小时之内提交叙消毁化武刺伤女友美华裔男子过堂 称情绪失控非加拿大华裔大妈地铁对骂 飚4种语言网加拿大华裔大妈地铁对骂 飚4种语言网温州“金改”或将上马市政债等多项措施叙利亚发电系统遭袭击全国停电 被指反安倍称在预算委员会上很累 自比乔布斯南京大学两位院士候选人就论文是否造假朝鲜称经济发展政策不动摇三镇本周办11场 企业储才招聘会万松园路小学走出3名国脚喜大普奔 “卷福”回来了A股痛失牛熊分界线鹦鹉洲长江大桥主跨合龙恒大苦练杀手锏盼奇迹 两队球员总身价社区好书记持续推荐中都江堰宝瓶口见底 将筑60米齿墙保护闪婚男意外娶到精神病女子古都南京梦与痛倒霉房东赔了房客7.8万元武汉暂无 车辆限牌计划中国股票投资时钟为股市建立“防空识别美女驾车“骑”上安全岛宫颈癌高危人群有望精确圈定丹麦女首相欲删自拍照 卡梅伦建议拍武商宣布解除武广租赁合同经历史上最严的休渔期后 渔民:这是最成都古墓出土西汉织机模型 或现失传扁七旬太婆为“避蜂”蒙面出门
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘