<b>第十四章　简单数据库利用的成立及MASTAPP介绍（三）</b>[Delphi编程]

    操纵GotoNearest办法履行不切确查找

窗体中的"不切确查找"按钮的事件处理历程代码以下:

procedure TForm1.Button1Click(Sender: TObject);

begin

with table1 do

begin

IndexFieldNames:='Company';

setkey;

FieldByName('Company').AsString:=Edit1.text;

GotoNearest;

label3.caption:=FieldByName('Company').AsString;

end;

end;

    读者可以操纵 FindNearest 办法履行上面的不切确查找, 具体利用办法可以参看Findkey办法的利用.

在上面的例子中要设置table1的IndexFieldNames属性为Company.

GotoNearest办法举行不切确查找

14.6 改正数据库中的记录　

    我们掌握了字段对象的概念和若何查找数据库中的记录之后,下面我便可以很便利地改正数据库中现存的记录了,普通来说,在程序中改正数据库中的记录包含下面这些步骤:

１、在数据库中找到要改正的记录,并将记录指针移至该记录.

２、调用Edit办法将与数据库表相连的TTable部件设置成编辑状况.

３、改正一个或多个字段.

４、调用post办法将改正后的记录写入数据库.

    以上这几个步骤只是概述性的,具体实现时还有很多细节需求留神,我们通过一个例子来演示上面的全历程,以便让读者进一步地理解和掌握改正记录的办法.

   例14.6 我们为四个按钮辨别编写了事件处理历程,用来遍历数据库中的记录并对每个客户记录的Company字段举行改正,在程序对记录举行更新操作时窗口中的控件都是无效的,在这个例子中我们还编写了一个简单的非常代码块用来确保在更新历程中呈现非常时使控件恢复正常操作.　

改正数据库记录

14.6.1 Edit办法Post办法　

    为了能让用户通历程序改正数据库表中的记录,TTable部件必必要处在编辑状况下.在大大都情形下,数据库表都是以浏览（只读方法）方法翻开的,也就是说它的每一个字段可以被读取介不能被编辑改正.调用Edit 办法可以将 TTable 部件置成编辑状况, 当TTable部件处于编辑状况后,我们才可以通历程序改合理前记录指针所指向的记录,但这样改正后的记录不会当即被写入到磁盘上的实际数据库表中.要想保存对记录的改正,必必要调用Post办法,Post办法才真正将我们对记录的改正写入实际的数据库表中.

普通来说,用来扫描整个数据库表并改正每个记录的某一个字段的程序以下所示:

with Table Do

begin

DisableControls;{在改正记录的历程中,使别的部件无效}

First; {将记录指针指向第一条记录}

while not EOF do

begin

<读取记录的一个字段值到一个变量中>

<做得当的改正>

Edit; {将TTable部件置成编辑状况}

<将改正后的字段值写回到其对应的字段>

post; {将改正后的记录写回数据库}

next; {改正下一条记录}

end;

enablecontrols; {恢复别的部件的功效}

end;

    程序都是对TTable部件举行操作,因此利用With语句来避免错误的散布是很有意义的.在这里要注意Disablecontrols办法和EnableControls办法的利用.DisableControls办法是在程序改正TTable部件中的记录时,堵截TTable部件与数据拜候部件TDatasource 部件的接洽.不然,在对TTable中的每一改正之后,TDataSource 部件城市更新窗体中全部数据浏览部件的显示内容,这样会急剧减慢处理历程并且浪费时间.EnableControls办法是与DisableControle办法履行相反的操作,它是用来恢复TTable部件与TDatasource部件的接洽并促使全部的数据浏览部件更新显示.

    调用First办法是将记录指针移到数据库表中的第一条记录,确保程序从表中的第一条记录开始举行改正.调用Next办法是将记录指针从当前的记录移到下一条记录,这样保证了从表中的第一条记录开始逐条记录举行改正,直到改正完最后一条记录.假如不调用Next办法,程序将会陷入无穷的死循环.