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

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

OpenFeint绝迹后,开源项目OpenKit继续前进 美FDA通过搜索引擎和社交平台预警药品副作用 挖坟三星“眼球追踪技术”背后的技术团队 为什么开发者热衷在Stack Overflow上查阅API文档? Facebook推新News Feed 欲造就“个性化报纸” 女神程序员的一天:暴力测试social爬虫代码 2013IBM云存储路线图:更快,更简单,更安全 二战大数据故事:数学家、物理学家、概率论击败德国潜艇 软件定义网络服务商Pertino B轮融资2000万 Scringo社交组件,让你的应用“热闹”起来! Android开发必备:Eclipse 4.2 SR2版本发布 32场!2013年360HTML5校园行首站告捷 移动周报:不做内容,只钻技术的快播 一周消息树:中国开源发展缓慢的“病因” 百度应用引擎BAE正式开放 新增支持Node.js CloudVelocity,下一个VMware? Buffer创始人谈开发:先验证,后编程! 谷歌可穿戴式产品再度来袭:会说话的鞋子 未来Chrome OS或取得Android般成功 云落地@北京,北京市北斗公共平台或开放API? GitHub再遭攻击 主要服务中断约一小时 移动开发者将有望拥有.app域名使用权 微信将推“游戏中心”?移动互联网入口圈地加剧 美国航空公司首次开放API 并举办“黑客马拉松”编程大赛 谷歌数据中心设计的10条“黄金法则” GitHub时代:为什么我们都在开源 VMware发布Horizon Suite 三款应用打包折扣低 TOP30+应用排行榜:二月份国内外综合榜单 开源是否意味着不需要负任何责任? 微软年度科技展 酷炫技术知多少 图解Hadoop生态系统 又是字符串,怎么总与我过不去 怎样把文件写入服务器端中映射的驱动器中,急 在线等。。。 [我贴我灌]世锦赛罗雪娟夺第三金 关于用户离职和升级后的处理? 代码问题,高手进 急,在线等待 DNS服务器的问题,高手救命!!!问题解决不了,老板要我走人了!!!!!(痛哭中 &&&&&&&&&) 鼠标当前位置的值与窗体位置如me.left 的值是怎么样换算的? 英文OS,我加一个中文字库,我要在我的程序中显示中文,该做些什么? 一个硬件问题,来看看吧!问了好多人多不明白 bcb6自带的install??? 简单要求 CSDN出的《JBuilder实用技术手册》到底怎么样呀?我看目录怎么像垃圾? 在jsp怎么取得用javabean连接得数据库中得记录总数 请教各位大师,如何用VB做一个象ComboBox一样的控件 web Service里的Application的问题 有没有能够打印固定行数的报表? 对XML不太熟悉,麻烦大家再看看! 关于bho及控制ie行为的问题, 如何动态的设置datawindow的计算域的表达式,及从程序中如何得到该计算域的值 [我贴我灌]巴塞罗那凯旋归来 “花样姑娘”泪洒观澜湖 一个到现在还没有解决的问题!我着急用啊!请哪位高手帮忙解决了,有高分相送! WIN32 CONSOLE APPLICATION 中怎么调用DLL (动态连接库) 怎么增加不了行,插入不了了?请大虾给个提示 50美元求作业! 如果没有学过C语言,能不能学J2SE啊? 100分请教:一个串行接口通信的问题————在线等待?!!!! 急,给个jb8中解决编辑jsp问题的补丁。谢谢 关于sendmail的设置以及PostNuke的安装 关于XML,XSL的兼容性问题 在SQL SERVER的视图不支持CASE语句吗?若要实现该如何写呢? 现在最标准的软件开发预算,各阶段的百分比是多少? ==========天哪!怎么会这样呢?我在全屏窗口中打开的任何窗口都是全屏显示的,可我不希望在全屏幕窗口中打开的窗口也是全屏怎么办啊?== 如何在远程服务器上安装web服务程序? 考虑到类的属性(表的字段)以后会增加,应该用怎样的设计模式或设计方法。 如何在子目录下获得根目录的网络路径? 急,IE每次打开都是最小化状态,怎样实现每次打开时将其最大化! 希望和大家讨论一下关于WebService的事务继承性的问题 请教一个关于日期使用的问题 急!!一个建表问题 WSAD怎么显示代码行号?? 50美元求作业!access 有没有能够打印固定行数的报表? 请教接收视频信号的问题 VBscript转换为JScript? treeview的初级问题(解决立刻给分),关于节点的OnSelectedIndexChanged事件? 如何知道Clientdataset中哪些记录改变了? 如何构建Access数据库? 有没有soap client for ce 呀? 关于在不同环境下的时钟问题!!! 关于在一张图上标识位置的问题 放了节育环是不是对身体不好我今年29岁,生有一个儿子.放环一年多了,但每个月3号左右月经干净后,到11号左右身上又有点像来了月经一样,但量不多.请问是不是和我放了节育环有关.另:我的月 塑料节育环能在体内放几年要换? 节育环最多带几年 《石灰吟》的重点字,重点词,或问题比较大的短语的解释一定要最全的 高分求几何题(可能有点难)我用百分的悬赏,百分的诚意求您解出此题解得漂亮的再加分 有点难的几何题已知等腰Rt三角形abc中,角A等于90度,如图(1)E为AB上任意一点,以CE为斜边作等腰Rt三角形CDE,连接AD,则有AD平行于BC.(1)若等腰Rt三角形ABC改为等边三角形ABC,如图2 E为任意一点,三 有点难的呢如图,已知等腰直角△ABC的斜边AB上有D,E两点,且∠DCE=45°.求证:DE^2=AD^2+BE^2 几何题怎么写啊 对我来说有点难~ ∠A是30°∠EDF是45° BC是5 DE是3 ∠DEF和∠BCA都是90° 三角形DEF向B点运动,直到E覆盖住B.①问何时DB的连线平行AC这时AE多长?②何时∠DBA等于22.5°,这时AE多长? 昙花一现,是在什么时候开花的,有什么动人故事 CH4泄露会有什么后果 科比魔兽关系如何? 贾米森爆料:他俩香港保安局局长:马尼拉人质事件处理步圈内人曝刘翔赴美实为退役准备 商业利武林CBD将启动推进11大项目 新增孙杨承认无证驾驶 致歉希望给其改正错宁波东钱湖畔800年古塔惊现盗洞 发浙大教授发明“隐身衣” 记者现场看隐印度将发射环火星探测器 否认与华“太俄罗斯军事动作令邻国不安 北约军演以日福岛核电站污水量激增 储罐计划20太平洋岛国被指有日本沉船宝藏 价值826岁半 “黄金年龄”?超800日本人诉安保法违宪俄罗斯飞行表演出事故机毁人亡防病人踩上滑倒 医生擦地上汤汁江门广告宣传分类大黄页鸣枪示警流弹穿窗伤人海马牌床垫纵情欧洲杯 “竞彩”够精彩让每一位倒在海外的军人都体面地回家26岁半 “黄金年龄”?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘