Как можно упростить ??

← →
dj0n © (2005-11-19 12:03) [0]

Тут записи истекшие по дате переносятся в другую таблицу!
как это можно упростить?

procedure TForm1.Button2Click(Sender: TObject); // Удаление записи из 1ой табл
//var n,t,v,s:integer;
begin

table1.DisableConstraints;
table1.First;
table1.Filtered := false;
while not table1.Eof do
begin
if form1.table1.fieldbyname("srok").asdatetime < date then
begin
if form1.table1.fieldbyname("srok").asstring <> "" then
begin

table3.Insert;
table3.fieldbyname("gosnom_del").asstring := table1.fieldbyname("gosnom").asstring;
table3.fieldbyname("marka_del").asstring := table1.fieldbyname("marka").asstring;
table3.fieldbyname("fam_del").asstring := table1.fieldbyname("fam").asstring;
table3.fieldbyname("name_del").asstring := table1.fieldbyname("name").asstring;
table3.fieldbyname("otch_del").asstring := table1.fieldbyname("otch").asstring;
table3.fieldbyname("dacha_del").asstring := table1.fieldbyname("dacha").asstring;
table3.fieldbyname("tip_del").asstring := table1.fieldbyname("tip").asstring;
table3.fieldbyname("poct_del").asstring := table1.fieldbyname("poct").asstring;
table3.fieldbyname("srok_del").asstring := table1.fieldbyname("srok").asstring;
table3.fieldbyname("mest_del").asstring := table1.fieldbyname("mest").asstring;
table3.fieldbyname("str_del").asstring := table1.fieldbyname("str").asstring;
table3.post;
table1.delete;
table1.next;

end
else
begin
table1.next;
end
end
else table1.next;

end;

← →
Sens © (2005-11-19 12:13) [1]

Select * from основная_таблица into имя_таблицы_для_просроченных
where
условие_по_дате

//=================================================
delete from основная_таблица
where
условие_по_дате

← →
dj0n © (2005-11-20 18:51) [2]

а если у меня нет Sql таблица.

← →
Virgo_Style © (2005-11-20 19:00) [3]

для начала примерно так

for i := 0 to Table3.FieldCount - 1 do begin FieldName:=Table3.Fields[i].FieldName; table3.fieldbyname(FieldName).asstring := table1.fieldbyname(FieldName).asstring; end;

> а если у меня нет Sql таблица.
как это нет? у тебя же BDE используется, значит есть. и от того положиш ты на форму компонент (Query) или нет ничего не изменится, он как был в BDE так и останентся. просто используя BDE ты не будеш использовать часть его - SQL вот и все.

Как можно упростить ?? Найти похожие ветки