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

利用Tbatch组件完成数据批处理-Delphi资料

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

在 数 据 库 应 用 系 统 中, 常 常 要 对 数 据 进 行 成 批 的 如 追 加、 删 除、 更 改 等操 作, 这 种 批 量 操 作 在 专 门 的 数 据 库 开 发 工 具 如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 中 查 看 到。

Cloud Connect大会Day2:开源与云数据中心 CTO俱乐部第110期下午茶:利用麦肯锡7S模型构建管理框架 跨平台打造移动原生应用的10大武器 iOS与Android本地数据库新选择:使用Objective-C和Java编写 Cloud Connect大会day3:Intel的大数据与Metacloud私有云 农民也玩数据挖掘:基于物联网的高端种菜模式 前谷歌Android开源项目主管Queru加盟雅虎 Windows 8.1售价出来了!分别是119.99美元、199.99美元 对AngularJS进行性能调优的7个建议 为什么说UX设计师的黄金时代已来临? 豌豆荚:“应用内搜索”是打通移动互联网最具竞争力的入口 苹果发布会后的冷思考,64位芯片为开发者带来了什么? 中兴Geek评测:高性价比的英特尔处理器智能机 SAE的资源、安全隔离与Container 平板电脑悬了 Phablets或成为未来移动设备的主流 拿什么拯救你:黑莓今年将裁员4500人 推荐10款免费的在线UI测试工具 最好的Java IDE之争:Eclipse PK IntelliJ IDEA Intel发布E5 2600 v2处理器 开放硬件监控信息 XP寿终大限将近 微软再次呼吁用户尽早“分手” Dropbox CTO:离开办公室就焦虑的技术宅男 看雪学院“走进企业看安全”活动百度站落幕 九大设计技巧+作品赏析 激发你的创作灵感! 排名前十CEO的工资条,你怎么看? 麻省理工TR35之IT界年轻有为创新者(下) Storm的“翻版”:LinkedIn开源实时数据处理系统Samza 呼吸监测耳机:一个在“呼吸”上做文章的可穿戴设备 谷歌7年210亿美元的基础设施建设,及可供17万家庭使用的风电 Touch ID很安全?德国黑客宣布已绕过苹果指纹识别系统 纽约警方鼓励用户升级iOS 7 你想好了吗? Android开发者不可或缺的四大工具 问一个蠢问题:控件何时获得焦点 请问一下哪里再收购软件呢? 请问一下在哪里可以找到收购软件的公司呢? 想作一个DOS程序,实现多台电脑间通过网卡传输文件. 辞职信 application.initialize完成了什么 高手来帮忙啊~ 看看java的魅力 如何通过自制程序的编辑框向现有一般应用程序编辑框传送内容? 窗口执行顺序问题,请多帮助,谢谢 如何自动取得server的日期和时间 怎样让文件指针指到文件末尾,必须skipline一行一行跳吗? 我想在菜单前添加图标,使用Bitmap属性但是为何只能载入*.bmp文件而不能使用*.ico文件,我只有*.ico的图标,请问该如何解决。 有新建一个文本文件并给其命名的函数吗,怎么用 我还真不懂呀? 这个COLTYPE是怎么用的呀?你说它怎么得到表中字段的类型呀? 有关存储器(ram,rom)的编址问题。以及32位或更多位芯片的问题。 一些汇编问题。想来问bcb的兄弟{bcb里好象有不少汇编高手} 救命:在安装了sco openserver之后,系统不能启动,先前安装的win98和win2k也不能。 请问如何进行URL译码??? 请问怎样截取一个string中的一段? 请问delphi做的exe最小可以到多少?怎么做? 我想请问一下WINGATE的具体怎样在WIN2000服务器版中进行设置。 ASP的同志们,能不能留一下QQ号码? 请问何处有破解ACCESS2000的程序或源代码呢? 请问要在TEdit.text组件文本串中找出当前光标在第几个字符上怎么办?谢谢! 请问关于dbImage控件的使用方法? 关于HDC及双缓冲的问题? xxxbird(*说你行,你就行,不行也行*),来领“我遇到几个怪问题。。。。。。”中的分 为什么ASP没法向SQL Server中写入数据?代码什么地方错了 大家帮忙找一下,找到我给50分 exe 捆绑机怎么做? 大家谈谈JSP的设计模式怎末了?我有个题目,设计好的大大有奖! 浏览器下的那个进度条是怎么弄出来的? C中的typedef struct和C++中的 struct有何区别? C中的typedef struct和C++中的 struct有 什么区别?谢谢 lastlove(本栏位广告招商中,欢迎投放!),jjdelphi(我真的不懂),jinesc(杂牌军)-(人民军队为人民) 开利息了 一个网页的原代码可以保存到字符串里吗? 有没有各种C++编译器都支持的字符串类型或字符串类? <@> 关于 ProcessMessages 一个想不如大家想,请各位帮忙想个主页的名字吧。 女友23岁,她会选择前途还是爱情?-----一个VB程序员的痛苦 如何实现应用程序与动态库通信??? ----myxfang----偶来贷款了!!!--- myxfang(大富翁银行~业务员~~),都给你了,我可把赌注都压到你身上了 我存钱,没人受理吗?银行业务员在哪? CMainFrame主框架是用来干什么的? myxfang(大富翁银行~业务员~~),我已经结账了,到哪里去取贷款? 怎么释放它? ----myxfang---我给手续费了,我的贷款呢??http://www.csdn.net/expert/topic/203/203903.shtm--- myxfang(大富翁银行~业务员~~),来拿我的骚扰费~ 老师!! 这个动态查询为何总出错? 如图所示(单位:厘米),图形中阴影部分的面积是多少平方厘米?正方形的宽是2厘米请在2013年12月15日20:30之前尽快回答 三个圆的半径都是5CM.三个圆两两相交于圆心.求阴影部分的面积之和?阴影面积明显要大于半个圆的面积,其实是半圆面积加上三个小的阴影面积,再加上等边三角形面积呀很多人说此题切割法 圆的周长是25.12厘米,求圆的面积 阴影部分图形的面积是40平方厘米,大圆面积比小圆面积大多少平方厘米?(说明理由) 半径力10cm的圆的面积,是半径为5cm的圆的面积的4倍,对还是错 一个小圆的半径是6厘米,一个大圆的直径是8厘米,大圆和小圆的面积比是: 求下面图形阴影部分面积.单位:厘米画的不好,请见谅 圆的半径从5cm减少到3cm,圆的面积减少了多少 小圆的半径是3厘米,大圆的直径是8厘米,大圆和小圆的面积的最简整数比是( 求下面各图形阴影部分的面积.单位厘米. 半径为5cm的圆比半径4cm的圆的面积大百分之几 在周长是48厘米的正方形内画一个圆,这个圆的周长是多少厘米,面积是多少平方厘米? 图形面积 如图,已知线段DE与AC平行,且与圆的半径相等都等于3厘米,O为圆的圆心.求图中阴影部分的面积.连接DO,EO,因为DE‖AC,根据三角形同底等高,面积相等的性质,即得S△DAE=S△DOE,因此阴 一个半圆的周长是25.7cm,他的面积是多少平方厘米? 在周长是12厘米的正方形内画一个最大的圆,圆的周长是多少厘米? 两个半径相等的圆相交,两个圆心间的距离正好等于半径,半径等于10厘米,求阴影部分的面积. 一个半圆的周长是25.7厘米,求半圆的面积方程 如下图,圆的周长是50.24厘米,圆的面积与长方形的面积相等,求阴影部分的面积. 3.一块草地的形状如下图的阴影部分,它的周长和面积各是多少? 已知半圆的周长是25.7CM,求半圆的面积. 图中圆的周长是25.12cm,BC=10cm 阴影部分的面积是( ) 一种螺丝的垫子如右图阴影部分,外圆半径2厘米,内圆半径1.5厘米 一个半圆的周长是25.7厘米,它的面积是多少平方厘米 图中圆的周长是25.12cm,圆的面积正好等于长方形oabc的面积的2倍.求阴影部分的面积 如图,园O的半径是5cm,求阴影部分的面积是多少?O和P是两个圆心,画的不是很好,圆形是顶着长方形的,要求的阴影部分是长方形的四个角 一个半圆的周长为15.42厘米,这个半圆的面积是( )平方厘米高手快来,一定采纳! 如图,圆的面积与长方体的面积相等,圆的周长是25.12cm,求阴影部分的周长 一个环形零件,内圆半径是5cm,外圆半径是8cm,这个零件的阴影部分的面积是多少? 知道半圆的周长,怎样求半圆的面积.已知半圆的周长是25.7、要求详细,, 图中的4个圆的周长都是37.68厘米,求阴影部分的面积. 如图,圆A 圆B 圆C 两两不相交且半径都是0.5cm 求图中三个扇形(阴影部分)面积之和 一个半圆的周长是10.28cm,半圆的面积是多少平方厘米还没搞明白, 如图长方形与圆的面积相等,圆的周长是37.68CM,求阴影部分的面积是多少.π取3.14 如图,已知扇形OAB的圆心角为90度,分别以OA.OB为直径在扇形内作半圆,P和Q分别表示两个阴影部分的面积,那么P和Q的大小关系是( )A. P=Q B.P>Q C.P画不了图啊,我再试试! 如图,已知阴影部分面积是5cm平方,求圆环的面积. 大、小两个圆的周长比是5:3.已知两个圆的面积相差32平方厘米,这两个圆的面积各是多少? 如图:ABCD是正方形,扇形半径是60毫米,求阴影部分面积.我知道答案是3600π/4 - 60 x 30 = 900π - 1800为什么这么做啊?扇形里的正方形面积如何求出来的啊? 已知:如图,三个圆的半径都是5cm,求阴影部分的面积是多少平方厘米?(三个都是一样的园)求写出详细过程 为什么这样做 有大小两个圆,它们的面积差是160平方厘米,已知两圆的周长比是5:3,大圆的面积是多少平方厘米? 如图,四边形ABCD是菱形,角A=60度,AB=2,扇形BEF的半径为2,圆心角为60度,则图中阴影部分的面积是——三分之二π-根号三 为什么? 下图中阴影部分的面积为5cm².求环形的面积.底下还有个图,大虾们快来ooo! 请问大、小两个圆的周长比是5:3 .已知两个圆的面积相差32平方厘米,这两个圆的面积各是多少? 如图,是4个正方形组成的图形,求阴影部分的面积. 在四个半径为2厘米的圆围成的图形中,求阴影部分的面积和周长 大小两个圆的周长之比是5:3,它们的面积相差48平方厘米,两个圆的面积分别是多少平方厘米? 两个正方形组成的1和图形,求图中的阴影面积 图中圆的半径是1厘米求阴影部分的周长和面积, 大、小两个圆的周长比是5:3.已知两个圆的面积相差32平方厘米,这两圆的面积各是多少? 6张大小不同的正方形纸片拼成的图形,已知最小的正方形面积是1,则图中阴影部分的正方形的面积是多少? 下面三个圆的半径都为5cm求阴影部分的面积和空白部分的周长 两个圆的周长之和是94.2厘米,已知大圆半径与小圆半径的比是4∶1.这两个圆的面积各是多少平方厘米? 一道图形数学题:下面阴影部分是35cm2,求圆环面积; 三个圆的半径都是5cm,求阴影部分的面积和中间空白部分的周长.切记, 一个圆的周长是94.2厘米,半径增加1厘米,这个圆的面积增加了多少平方厘米? 请教理科高材生 以下图形怎样求阴影部分面积(小学四年级数学题)图中涂黑的部分原来是没有东西的,是我后来涂黑的,为了方便教小孩。原来的条件是(一个边长为18的正方形减去中间 下面三个圆的半径都为五厘米,求阴影部分的面积和中间空白部分的周长 甲,乙两个圆的周长比是2比3,其中一个圆的面积是12平方厘米,另一个圆的面积可能是多少,也可能是多少? 求下面图形的阴影部分面积.(单位:厘米) (图上半径是8cm)半径是8cm,求阴影面积,实在不会做, 三个半径都是5cm的圆两两相交于圆心,求阴影部分的面积 甲乙两圆的周长比是3:4,其中一个圆的面积是15平方厘米,另一个圆的面积可能是( ),也可能是( )
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn