with sql_catv_db do begin first; param1=fieldbyname('field1').asvalue; ...... while not eof do begin insert_acc_catv_db(); end; end; procedure insert_acc_catv_db(param1,param2,...); begin with acct_catv_db do begin edit; fieldbyname('field1').asvalue=param1; ...... post; end; end;
begin
first;
param1=fieldbyname('field1').asvalue;
......
while not eof do
begin
insert_acc_catv_db();
end;
end;
procedure insert_acc_catv_db(param1,param2,...);
begin
with acct_catv_db do
begin
edit;
fieldbyname('field1').asvalue=param1;
......
post;
end;
end;