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

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

王淮,大城小胖论辩HTML5 局部有小雨 技术人员创业后就不再适合继续编码了? Google Dremel vs Apache Hadoop 低功耗之争:英特尔 VS ARM NEIC-诺基亚体验创新中心 助力开发者创享新移动互联时代 Google地图主管Daniel Graf:新设计,新目标 浴火重生:OpenFeint创始人推开源平台OpenKit 紧随AWS数据仓库服务 Rackspace力鼎Cloudant 创业者谈:畏惧失败,但也要拥抱失败 谷歌赢得一场战斗 苹果能否赢得战争? 走进大学校园:是什么让学生成为独立开发者? 移动周报:为什么说独立开发者才是光明康途? MapFan eye:看日本地图导航应用的新玩法 数据会被清空:部分三星、魅族手机存安全漏洞 IE10简化文件访问 支持FileReader API 从MySQL迁移到MariaSQL Wikipedia力求开放 奥巴马筹款网站的制作过程 国内芯片厂商发力4G 新岸线2013年将推LTE方案 CMDN Club 23期:开放平台和O2O移动产品开发 花旗调低Apple股票评级 不信iPhone5会卖得好 2012年Linux Journal读者选择奖结果公布 百度云SiteApp:三步轻松创建移动网站 Twitter跨数据中心图片存储系统Blobstore解析 摩托罗拉携手中国移动发布Intel Inside智能机新锋丽i MT788 第五届“英特尔杯”全国大学生软件创新大赛圆满落幕 Appro推出液冷超级计算机 Dell:曾敦促微软WinRT放弃Windows品牌 IE10十大优点:渲染页面比Chrome快8% 法国电信:开放平台下的O2O移动产品怎么玩? 客如云创始人彭雷:寻找O2O“失落的半圆” 中国电信宋鹏飞:天翼开放平台的服务及架构解析 有没有打印Tdecisiongrid的孔件 日记 情归何处?? 谁知道哪里可以弄到这本书"Windows Graphics Programming: Win32 GDI and DirectDraw" 程序员杂志第7期的程序擂台目前为止只有一个人做对了 分数不高,还请各位DX们指点以下:如何用DELPHI控制excel的格式(比如第一列的宽度,第五行的高度),以及如何在WORD中生成表格,其中填入数据库的数据. 各位情感高手请解答(没有谈过恋爱的免谈) 一个list控件,style设为checkbox,要怎样才能使列表中各项的默认值是选中状态,也就是说各项一开始都是打了勾的 阿虎菜问7:请问C与C++中的内封函数应该差不多吧? s_cube(竹子), s_cube(竹子)~!! 我爱你,s_cube(竹子) s_cube(竹子) ~!在哪里 简单问题(1) 如何不运行编译? 有谁知道怎么从perl里调用一个c库里的函数????????? 请问在CB中如何隐藏WINDOWS的任务栏呢? 今天不爽,下班后打星际,大家一起来。 指点!在PB中怎样用程序作成一张动态的交叉表 编辑控件怎样才能显示那些怪字符? 有没有人喜欢郑智化 大家推荐好听的几首歌吧! 请教:怎么学c++? 高手点拨! 各位网络高手.如何在程序里讲ip地址转化为域名 有什么方法,可使表单内的组件背景变成透明的而文字不透明,请看例子: 编辑控件怎样才能显示那些怪字符???? swall(壹心) 你还在深圳特区吗? 如何设置Session的密码?请高手指点迷经^^^^^ 哪位可以解释一下下面的代码? perl 的人气太差。罢了罢了。找本perl自己搞定 MsSQL7.0 当日志文件大小未限制而变得很大时,怎样清日志文件,使其减小? 请教诸位牛兄牛姐牛夫人---有难度哦(着急出活!) 基本问题:如何将一个.txt中的内容读入到内存再从内存中读出并存为另一个文件?谢了先!!!! 高手帮帮忙!!!!!!!!!!!!!! 又有台风了。。。。 在zip包中加入ASP推荐的PAD File有用吗????? PB连接SQL数数库,为什么显示的表会不全 如何把一个文件file.dat里的数据写入软盘0磁道0磁头1扇区. 我要骂人! chris2001(牛虻),不是东西 华为工程师 谁知道 vb 的序列号?????? VS.NET 有开了个新铺子。为什么我的ejb/j2ee还没有开张。气愤。 老大们:我是菜鸟,有问题要问,不过不要笑我。一定给分的 再次发问:关于在SQL SERVER中的某张表上建立触发器...... 没有有这样的病毒,或者文件 各位老大,如果有asp、sql基础学jsp和php是不是比较容易一些呀?言者有分哦! dll中怎样调用主程序中的函数? 新手请教接口聚合!!!!!!!!! 高分求教!有没有谁编写过WEB服务器程序? 微软OfficeXp女孩 请教一个报表问题? 小技巧!!! delphi中调用MessageBox出错,高手指点一下。 含水率98%的污泥怎样换算为含水率80%的污泥 焓是什么意思? 九年级物理知识点总结 对知识点有解释的 含水率反算公式,我只知道试验前重量和含水率,求试验后重量. 为什么等压下绝热反应中标准摩尔焓变等于零 九年级物理的知识点有哪些 绝干污泥量怎么计算的?一般绝干污泥的含水率多少?有机质含量等参数? 某化学反应在恒压,绝热和只做体积功的条件下,体系温度由T1升为T2,此过程的焓变为()A △H (2013•苏州一模)随着夏季的来临,小明想为家庭设计一个54L简易太阳能晒水箱.他随着夏季的来临,小明想为家庭设计一个淋浴用的能装54L的简易太阳能晒水箱,他从资料中得知,地球上与 已知:剩余污泥总量为737kg/d,剩余污泥含水率按99%计算湿污泥量为183m3/d.请问计算公式是什么?我要算的是2788kg/d为多少湿污泥量? 温度会改变为什么焓变还是等于零焓变不是状态函数 只跟温度有关吗?为什么温度变了 焓变还为零 太阳能热水器哪个牌子好?谁来说下?太阳能介绍啊dhi8com谁有更好的? 什么是熵,什么是焓,单位是什么? 气体等焓节流后会温度会变化,我想知道这个现象的微观解释是什么,详细点……理解能力有限有的气体节流后会降温,而有的气体会升温这是为什么?还有咱用的冰箱也利用了节流,给具体解释 谁知道2013年的气候预测上班年是冷还是热? PC的单位热流量是多少?质量焓是多少? 绝热节流前后,气体的焓不变,为什么温度还会变? 从现在到2013年的一月初三一共有多少天?看见的朋友要注明 从2008年的几月几号算起的 焓是什么,它的单位是什么? 什么叫节流?节流是个等焓过程,为什么? (2013连云港)27.下列关于氧气的说法中错误的是 A.氧气约占空气总体积的1/5 B.氧气可以支持燃烧,说明氧气具有可燃性 C.氧气供给呼吸,它和体内物质反应,释放能量,维持生命活动的需要 D 水头损失里面的水头是什么意思?水头损失是能量损失,水头是焓值?单位是什么 绝热可逆膨胀温度为什么变小 苏州地区哪里有的卖硫酸如题 谢谢了RT. 焓值 一个标准大气压下饱和液氮的焓值是多少? 焓值的计算公式? 焓变单位的含义 请问绝热可逆过程和绝热不可逆过程的焓变有什么区别? 焓变!问题解题思路!求助,谢谢 焓变的单位中每摩尔的含义是什么 湿空气在喷蒸汽加湿的过程中,含湿量,相对湿度,焓的变化 焓变怎么求像这样的方程式,2Fe(s) + 3Cl2(g) ==2FeCl3(s),然后求焓变,具体是怎么求出来的?公式怎么用?或者H2(g)+1/2O2(g)==H2O 最后是-241.8KJ/MOL-RXN...这个数字是怎么出来的? 焓变的单位为什么焓的单位要加一个每摩尔,H不是等于Q么 为什么循环水喷淋空气处理过程是等焓加湿过程 焓与焓变二者之间的区别 大学化学中焓变的单位是什么?怎么理解呢?和高中有没有不同? 为什么电热式加湿器会是等温加湿?而水洗加湿等是等焓加湿?等焓加湿说通俗点是什么意思?各位大侠们是怎么理解这个焓值的? 焓变符号的含义 焓变的定义是什么 物体温度越高,所含热量越多. 这句话为什么是错的?这句话指的应该是同一个物体吧,也就是说100g99度的水和100g100度的水比,为什么不是100度的水所含热量多? 键能跟焓变的符号怎么一样阿 ΔH=生成物能量-反应物能量ΔH=反应物键能总和-生成物键能总和 怎么回事 ΔH不是只表示焓变吗 而且怎么一个是生成物-反应物 一个是反应物-生成物 什么叫焓差? 温度越高物体含有的热量越多吗? 反应热通常用符号Q表示,与焓变△H有什么区别? 小焓差是什么意思?谢谢 物体的温度越高,它所含的热量就越多.这句话是对的还是错的 通常焓变与熵变在化学反应中的符号是相同的,请问这是为什么? 焓的物理意义具体是指什么?书上写焓是与内能有关的物理量,焓的具体的物理意义是什么? 物体的温度越高 它所含热量就越多吗?理由 物体吸收了热量 温度一定会升高吗?理由 七水硫酸镁的标准摩尔生成焓是多少?计算方法是什么? 焓差的定义是什么 物体的温度越高,它含有的热量就越多. 有关标准摩尔生成焓标准摩尔生成焓规定由最稳定的单质生成时的焓变有些单质 如氧化银(ag2o) 不能由氧与银直接得到而臭氧可以与银反应 但不是最稳定的氧化银的标准摩尔生成焓怎么测 焓值差由什么决定? 物理温度与内能的知识点填空 焓变公式是什么?关于ΔH的所有公式.我都忘没了···.比如温度是300度时候,H300怎么求?还有H''和H'都是什么意思啊?我全忘了····,我高中东西忘没了·· 等焓状态什么意思? 九年级物理知识点 求助饱和蒸汽焓的计算公式,详细的计算公式 任何一种物质都有焓吗?比如说,我用热空气干燥一种物质,热空气降温,这种物质升温,水份蒸发,利用焓来计算热量平衡,应该怎样算呢? 求初中物理内能详细知识点
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn