Delphi7.0实现添加记录的“携带”实现

2016-01-29 14:27 39 1 收藏

Delphi7.0实现添加记录的“携带”实现,Delphi7.0实现添加记录的“携带”实现

【 tulaoshi.com - Delphi 】

　　在数据库管理系统中，数据录入是数据处理的基本功能，录入操作方便与否是衡量数据库应用程序交互良莠的指标之一。录入中除了应要对录入数据进行合法检验外，还应为用户提供更多的方便操作，即对于“规范性”数据，如：性别、职称等字段的数据，应尽可能供用户“选择”录入，而非直接文字输入，另外，如：出生年月、联系电话、邮编等类似名称的字段，程序应设置数据录入格式，这可以从一定程度
上“规范”数据，并提高录入速度。除此以外，在较大数据量的录入中，用户还希望更快速地进行相似数
据的批量录入，实现高效数据处理。本文只介绍“批量数据”的录入处理。

　　针对大多数的要录入的记录数据都与现有（即已录入）数据具有或多或少的相同内容，因此，修改记录的少量字段数据无疑要比逐个字段内容录入快得多。由于此方法源自Foxbase系统的“Set carry on”命令，因此取名为记录“携带”。以下具体介绍这种录入数据时采用的“携带”功能的实现方法。

　　一、建立一动态数组，用来存放整条记录的所有字段值（不含“备注型”等类型），定义如下：

MyDynamic_Record: Variant; //定义一个动态可变数组,来存放当前记录各字段值

　　注意此处不限定数组单元数和单元值类型，更具有通用性。

　　二、在表对象的InsertBefore事件中，完成源数据的读取并存入动态数组MyDynamic_Record中。

　　具体是，用户定位到要作为源的记录位置（可以是末记录或中间某一记录），使用Insert插入键（或其它应用程序提供的按键或按钮）进行插入操作前，为表对象的InsertBefore事件加入读取当前记录的各字段值的代码（见以下MyRecordScatTo()自定义函数），存入MyDynamic_Record中。

　　三、在表对象的InsertAfter事件中将MyDynamic_Record数组值写入新增的记录的各字段值（代码见以下My_GathFrom自定义函数）。

来源:http://www.tulaoshi.com/n/20160129/1493373.html

上一篇：《大掌门》攻略之联盟猜拳小BUG分享
下一篇： Delphi托盘编程实战演练

看过《Delphi7.0实现添加记录的“携带”实现》的人还看了以下文章更多>>

Delphi7.0实现添加记录的“携带”实现 01-29
用Delphi7.0实现漂亮的汉字窗口 02-19
Delphi与DirectShow&DSPack/在Delphi7.0下安装DSPack 02-19
Delphi实现Singleton模式 02-19
delphi实现关闭Windows 02-19
用Photoshop 7.0实现飞车效果 01-30
Delphi中正常窗口的实现 02-19
delphi实现控制声音音量 02-19
用Delphi实现文件关联 01-29
用Delphi实现壁纸更换 02-19

用Delphi实现打印功能

标签： Delphi

给单位开发软件，涉及一打印模块，我感到颇有兴趣，就拿来其中的一个小功能模块与读者共享。下面以打印在纸张的矩形框内为例简单介绍：程序要求：单击[打印]按钮，把Memo的内容最多分三行打印出来，每行最多能容纳22个三号字，限定汉字上限为50个汉字。编程思路：用LineTo和MoveTo函数画一矩形框，根...

变速齿轮Delphi实现

标签：编程语言网络编程

{D7+Win98,不能用于2000} unit MainUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sende...

Delphi编程实现Ping操作

标签：编程语言网络编程

在Delphi中使用TidIcmpClient控件可以非常简单的实现图形界面的Ping！新建一个工程，命名为 PingGUI.dpr ，窗口命名为“frmPing”，加入如下组件： lstReplies: TListBox; ICMP: TIdIcmpClient; Panel1: TPanel; btnPing: TButton; &nbs...

Delphi实现远程串口的数据采集

标签： Delphi

摘要：本文介绍了在Windows平台下串口开发的方法，并给出一个使用Delphi设计的远程数据采集的实例。关键词：远程数据采集 AcitiveX MSComm控件 1 引言在工业生产实践中，使用PC机对Inprise公司推出的Delphi是一种功能强大的高级编程语言，其具有可视化面向对象的特征，特别适合Windows平台下的图形界面和用户程序的编制...

DELPHI中自适应表单的实现

标签：编程语言网络编程

我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是800*600，而最终要分发应用的机器分辨率为640*480，或1024*768，这样你原先设计的表单在新机器上势必会走样。这时你一定希望表单能自己适应不同的分辨率，下面就有两种方法可供你参考。一、根据新的分辨率自动重画表单及控件先在表单单元的Interface部...

查看更多精彩>>