Delphi数据库编程应用实践

Delphi数据库编程应用实践 Delphi 数据库编程应用实践 宋豫军 730070) 兰州 ( 甘肃交通职业技术学院, 甘肃 摘要: 简要介绍了使用 Delphi 的编程命令来建立数据库及 0:tabletype:=ttascii; 1:tabletype:=ttdbase; 数据库间记录的批量移动的 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 。 2:tabletype:=ttfoxpro; 关键词: 数据库 建立 元件 特性 记录 移动 3:tabletype:=ttparadox; end; Delphi 有强大的数据库功能, 众所周知, 通过它内置的数据 为防止产生覆盖, 先判断数据集表是否存在, 不 存 在 则 库引擎(BDE), 可以很容易访问 paradox, dBase, FoxPro, Access, Or- { acle 数据库, 并可以快速开发功能强大的数据库应用程序。在此, 建立 } 就有关 Delphi 数据库的建立方法及数据库间数据的移动同大家 if not Table1.Exists then begin with FieldDefs do begin 一同探讨。 Clear; 1 建立数据库 with AddFieldDef do begin 一是通过外部Name := 'name'; Delphi 一般有三种方式: 对于数据库的建立, DataType := ftstring; 如 dBase、Access、FoxPro ; 数据库系统来建立数据库二是通过 Size:=10; Delphi 自带的 database desktop 来建立和管理数据; 三是通过程 end; , 在这里就第三 序命令方式来建立。前二种方式大家都比较熟悉 with AddFieldDef do begin 种方式想和大家交流。这种方式主要是利用 Delphi 的 TTable 元件的 CreateTable 过 Name := 'sex'; 程, 通过该过程可以创建一个数据库的空表。在建立数据库表要 DataType := ftString; 用到一些 TTable 的特性我们先作一个了解: Size := 2; end; 一般为目录路( 1) DataBaseName: ( 用来指定要访问的数据库 end; 径) 。 CreateTable; ( 2) TableName: 用来指定要访问的表, 在此之前, 必须己指定 end; 要访问的数据库。( 3) TableType: 该 特 性 的 默 认 值 是 ttDefault, Delphi 将 根 据 文 end; ttPara- 件的扩展名自动区分表的类型。该特性还可以分别设为 ( ) 运 行 应 用 程 序 , 在 中 分 别 输 入 相 关 内 容 如 : 3Edit1,Edit2 dox, ttDBase,ttFoxpro或 ttASCII。 中 输 入 , 中 输 入 , 在 的 列 表 中 选 择 edit1 d:\edit2 testcombobox1 ( 4) Exists: 用于判断表是否存在, 若存在则返回 true, 否则返 , 点击“建立数据库”即建立相应数据库。 ttparadox回 false。 2 批量数据的移动 计算字段除5) FieldDefs: 用来操纵数据集中的每一个字段( ( 在其它的数据库系统中, 对数据库表如结构的复制、数据记 外) 。 ( 6) AddFieldDef: 作 为 FieldDefs 的 一 个 属 性 , 用 来 定 义 数 据 录的移动很容易实现, 那么在 Delphi 中是不是很难实现? 其实只 库的一个新字段。要 利 用 的 元 件 就 很 容 易 完 成 这 些 操 作 。 Delphi Tbatchmove 若希望在建立表时建立索引, IndexDefs 和 In- 则还要用到 TBatchMove 元件能够以复制、添加、删除和更新等四种方式来移 动数据, 能够在目标数据集中建立一个新表, 能够自动映射源表 dexDefs.AddIndexDef。 应用示例: 中的字段名和字段类型。 要能熟练进行数据数据集的操作, TBatchMove 首先要熟悉 :的一些主要特性和方法 ( 1) Source : , 特性用于指定批量操作的源数据集可以是 或 元件。 TQuery TTable ( 2) Destination 特性: 用于指定批量操作的目标数据集, 只能 是 TTable 元件。 ( 3) Mappings 特性: 用于确定批量移动记录时源数据集和目 标数据集之间的字段对应关系。图 1 ( 1) 在 form1 上 加 入 Table1、Label1、Label2、Edit1、Edit2 和 ( 4) Mode 特性: 用于指定批量移动的操作方 式 , 可 以 取 如 下 : Button1, 分 别 设 置 Label1 的 Caption 为 : 请 输 入 数 据 库 名 , Label2 值 batAppend: 把源数据集的记录添加在目标表的最后, 目标数 的 Caption 为: 请输入表名, Button1 的 Caption 为: 建立数据库, 在 ; combobox1 的 items 中加入 ttascii、ttdbase、ttfoxpro、ttparadox。 据集必须存在 ( ) 在 的 事件中加入如下代码: batUpdate: 用源数据集的记录替换目标表中匹配的记录, 但 2Button1 Click with Table1 do begin 目标数据集必须存在且已建立了索引。Active := False; batAppendUpdate: 用源数据集的记录替换目标表中匹配的记 DatabaseName := edit1.text; 录, 不匹配的记录就添加在目标数据表的最后, 但目标数据集必 TableName := edit2.text; 须存在且已建立了索引。batCopy: 建立一个与源表结构一致的新的目标( 下转 24 页) case combobox1.ItemIndex of 13 的现象。3.3 安全性问题 安全性也是一个棘手的问题。因为 RFID 系统很可能成为黑 对供应链管理的影响4 客攻击的新目标, 而丢失一些机密的数据。目前, RFID 要在对信 , 还面临着信息安全方面的障碍, 息有保密要求的领域展开应用降低库存水平, 提高库存管理能力 4.1 在最初的应用过程中, 由于安全问题并不是非常重要, 因此在原 现代供应链管理以降低物流成本和提高服务水平为主要目, 并且较难再将安全规范添加 有的技术标准对安全问题考虑欠缺, 的。库存成本是物流成本的重要组成部分因此降低库存水平成 进去。 为现代供应链管理的一项核心内容。将 RFID 技术应用于库存管 如果安全问题无法保证, 在使用射频系统时就有被人窃取信 理中, 企业能够实时掌握商品的库存信息, 从中了解每种商品的 息的可能性。目前, RFID 阅读器中的惟一标识符容易被人复制, , 结合自动补货系统以及供应商管理库存 需求模式及时进行补货RFID 的基本验证机制也存在严重的安全缺陷, 同时某些 RFID 标 (VMI)解决 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 , 提高库存管理能力, 降低库存水平。 签一旦接近 RFID 阅读器, 就会无条件 地 开 始 发 射 信 号 , 极 易 被 窃取信息。这样一来, 设想若有人坐在某家大公司总部的大厅里, 增加供应链的可视性, 提高供应链的适应性能力 4.2 只要利用藏在公文包里的阅读设备就能轻易地收集情报。 通过在供应链全过程中使用 RFID 技术, 从商品的生产完成 由于无源 RFID 系统没有读写能力, 所以无法使用公钥 / 私 , 商品在整个供应链上的分布情况以及商到零售商再到最终用户钥, 用来验证口令发问 / 应答机制以及其他的各种主动验 证 方 品本身的信息, 都完全可以实时、准确地反映在企业的信息系统 , 能够大大提高 法。有源标签由于可以收到不断变化的验证密钥中, 大大增加了企业供应链的可视性, 使得企业的整个供应链和 其安全性, 但是它们的成本较昂贵。目前, 人们已经开始研制采用 物流管理过程都将变成一个完全透明的体系。快速、实时、准确的 信息使得企业乃至整个供应链能够在最短的时间内对复杂多变 , 提高供应链对市场变化的适应能力。 的市场作出快速的反应/ 应答系统, RFID 的 一次性口令的发问 这会在很大程度上解决 有助于物流企业资产实现可视化管理 4.3 安全问题。在物流企业资 产 管 理 中 使 用 RFID 技 术 , 对 叉 车 、运 输 车 辆 3.4 消费者对隐私的疑虑 , 便 等设备的生产运作过程都通过标签化的方式进行实时的追踪 另一个制约射频技术在供应链管理中应用的问题是隐私问可以实时地监控这些设备的使用情况, 实现对企业资产的可视化 题。随着 RFID 的发展与应用, 一些隐私权保护团体对其侵犯人 管理, 有助于企业对其整体资产进行合理的规划应用。 , 一些商品在售出后, 由于其 们隐私权的问题产生了极大的疑虑加快物流企业信息化进程, 提高客户服务水平 4.4 电子标签未被清除, 仍然会向由某些阅读器发来的、相频率匹配 的无线电波发送信息, 这样, 那些使用这些商品的消费者的行踪 信息化是现代物流的主要特征及其发展趋势。RFID 技术的 , 侵犯了他们的隐私权。因此, 消费者担心 与活动无疑将受到跟踪使用, 能大大加快企业信息化进程, 促进企业内部各部门间的信 在消费商品中使用 RFID 芯片最终将引起不必要的麻烦。据国外 息共享, , 使得企业能够更有效地整合其业务流程提高对市场变 , 人们对于在出售 入 RFID 服装上嵌标签的做法表示不 的报道, 企业能够为客户提供准确、实时的 化的快速反应能力。与此同时满, 认为这会对消费者造成人身跟踪, 侵犯了消费者的隐私权, 并 物流信息, 并能降低运营成本, , 实现为客户提供个性化服务大大 , 在沃尔玛和英国最大的零售 且号召广大消费者予以抵制。同样 商 tesco 的初期试验中, 在个别的产品上加入 RFID 标签时就受到 提高了企业的客户服务水平。 抵制与抗议。 3.5 储存超载的问题 5 结语在供应链运行中, 特别是在零售环节需要处理零售营运所产 我们相信, RFID 技术在世界范围内必将引起一场重大变革, 生的庞大数据, 这也是一个棘手的问题。如果所有商品均采用了 , 它将成为未来一个新的经济增长点。在现今激烈的市场竞争中RFID 标签, 而每个标签中又储存有众多的信息, 会使原有系统出 快速、准确、实时的信息获取及处理将成为企业获得竞争优势的 现储存超载的问题, 如果在初建射频系统时没有考虑到对系统升 关键。RFID 技术的应用对于以信息化为基础的现代供应链管理 级, 会导致整个系统出现麻烦。美国佛罗里达州的一家公司在采 来说尤为重要; RFID 技术将同条码技术一样深入到供应链管理 用射频技术系统时, 其数据库系统就曾出现被 RFID 数据所灌爆的方方面面, 尤其对提高物流配送作业效率和经济效益起到关键 性作用。 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ( 为上接 13 页) 表, 如果目标表已存在则产生覆盖。 的 items : batappend、batupdate、batappendupdate、batcopy、bat- Batdelete: 删除目标表中与源数据集中记录匹配的记录, 但 delete 目标表必须存在且建立了索引。?给 button1 的 click 事件添加如下代码: begin ( 5) Excute 过程: 用于执行批量移动操作。 table1.DatabaseName:=edit1.text; 应用示例见图 2 。 table1.TableName:=edit2.Text; table2.DatabaseName:=edit3.Text; table2.TableName:=edit4.Text; case combobox1.ItemIndex of 0:batchmove1.Mode:=batappend; 1:batchmove1.Mode:=batupdate; 2:batchmove1.Mode:=batappendupdate; 3:batchmove1.Mode:=batcopy; 4:batchmove1.Mode:=batdelete; end; 图 2 batchmove1.Execute; ?在 form1 上 分 别 加 入 table1, table2, batchmove1, label1, la- end; bel2, label3, label4, label5, edit1, edit2, edit3, edit4,combobox1 和button1 元件 运行程序, 按要求输入如图所示数据, 即可实现数据集表 ? 间批量记录的移动: 复制、追加、更新等操作。?依次把各 label 的 caption 设成如图所示, 设置 combobox1 24