Работа с записями

[Ernest027]

Посмотрите пожалуйста что я делаю не так...
Пытаюсь написать код,чтобы в 4ой таблице находилась строка такая же что и в 3ей. И если таковая есть,то не вставлять её,а переходить к следующей записи. Если нет,то вставить её. Вот код:

procedure TDataModule2.MyLocate(s: String);
begin
ADOQuery3.Locate('id_Оборудования', s, [loPartialKey]);
end;

procedure TDataModule2.Timer1Timer(Sender: TObject);
var
Y, M, D:Word;
begin
form1.ProgressBar1.Position:=form1.ProgressBar1.Position+ADOQuery3.RecNo;
MyLocate(ADOQuery4.FieldByName('id_Оборудования').AsString);
if ADOQuery4.FieldByName('id_Оборудования').AsString=ADOQuery3.FieldByName('id_Оборудования').AsString then
begin
ADOQuery4.Append;
ADOQuery3.Next;
end
else
begin
if Int(Date-3 ) = Int(DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime) then
begin
DataModule2.ADOQuery4.Edit;
dataModule2.adoquery4.FieldByName('Предприятие').Asstring:=dataModule2.adoquery1.FieldByName('Предприятие').Asstring;
dataModule2.adoquery4.FieldByName('Завод').Asstring:=dataModule2.adoquery2.FieldByName('Завод').Asstring;
dataModule2.adoquery4.FieldByName('Наименование единицы').Asstring:=dataModule2.adoquery3.FieldByName('Наименование единицы').Asstring;
dataModule2.adoquery4.FieldByName('Оперативный номер').Asstring:=dataModule2.adoquery3.FieldByName('Оперативный номер').Asstring;
dataModule2.adoquery4.FieldByName('Тип оборудования').Asstring:=dataModule2.adoquery3.FieldByName('Тип оборудования').Asstring;
dataModule2.adoquery4.FieldByName('Дата замеров').Asdatetime:=dataModule2.adoquery3.FieldByName('Дата замеров').AsDateTime;
dataModule2.adoquery4.FieldByName('Техническое состояние').Asstring:=dataModule2.adoquery3.FieldByName('Техническое состояние').Asstring;
dataModule2.adoquery4.FieldByName('Дата следующих замеров').AsDateTime:=dataModule2.adoquery3.FieldByName('Дата следующих замеров').AsDateTime;
dataModule2.adoquery4.FieldByName('id_Оборудования').Asstring:=dataModule2.adoquery3.FieldByName('id_Оборудования').Asstring;
dataModule2.adoquery4.Post;
end;
 DataModule2.ADOQuery3.Next;

end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[xxbesoxx]

И если таковая есть,то не вставлять её,

http://programmersforum.ru/showthread.php?t=279303