[Dima]

1.Пишу курсовую и чтобы потом не было притензий у преподавателя,делаю по его шаблонам.
ID_kl поле int,но это вроде ничего не меняет.

Всеже выложу весь юнит:

Код:

procedure TFormIstKl.FormActivate(Sender: TObject);
var s1,s2,s3:string;
begin
s1:='Âçÿë òîâàð:';
s2:='Ïîïîëíèë ñ÷åò';
s3:='Óïëàòèë ïåíè çà òîâàð:';
Label1.Caption:=FormMain.Edit2.Text+' '+FormMain.Edit3.Text+' '+FormMain.Edit4.Text+' ';
Qtxt:= 'Create table IstKl (Data datetime,Sum numeric,Deistvie varchar(20)) ';
With Query1 do begin Sql.Clear; Sql.Add(Qtxt); execSQL; end;

qtxt:='Select Data,Stoim,t.Name '+
'From Tovari t,Vidacha v,Klienti k '+
'Where t.ID_tov=v.ID_tov and k.ID_kl=v.ID_kl and k.ID_kl='''+FormMain.Edit9.Text+'''';
With Query2 do begin Sql.Clear; Sql.Add(Qtxt); Open; end;

qtxt:='Select Data,Summa '+
'From KL_Schet c,Klienti k '+
'Where k.ID_kl=c.ID_kl and k.ID_kl='''+FormMain.Edit9.Text+'''';
With Query3 do begin Sql.Clear; Sql.Add(Qtxt); Open; end;

qtxt:='Select Data,Peni,T.Name '+
' From Tovari t,Vozvrat v,Klienti k '+
' Where t.ID_tov=v.ID_tov and k.ID_kl=v.ID_kl and k.ID_kl='''+FormMain.Edit9.Text+'''';
With Query5 do begin Sql.Clear; Sql.Add(Qtxt); Open; end;

while not Query2.Eof do
  begin
  Qtxt:= 'Insert into IstKl(Data,Sum,Deistvie)  '+
  'Values ( '''+DateToStr(Query2['Data'])+''','''+IntTostr(Query2['Stoim'])+''','''+s1+Query2['Name']+''')';
  With Query1 do begin Sql.Clear; Sql.Add(Qtxt); execSQL; end;
  Query2.Next;
  end;

while not Query3.Eof do
  begin
  Qtxt:= 'Insert into IstKl(Data,Sum,Deistvie)  '+
  'Values ( '''+DateToStr(Query3['Data'])+''','''+IntTostr(Query3['Summa'])+''','''+s2+''')';
  With Query1 do begin Sql.Clear; Sql.Add(Qtxt); execSQL; end;
  Query3.Next;
  end;

while not Query5.Eof do
  begin
  Qtxt:= 'Insert into IstKl(Data,Sum,Deistvie) '+
  'Values ( '''+DateToStr(Query5['Data'])+''','''+IntTostr(Query5['Peni'])+''','''+s3+Query5['Name']+''')';
  With Query1 do begin Sql.Clear; Sql.Add(Qtxt); execSQL; end;
  Query5.Next;
  end;

qtxt:='Select * From IstKl Order by data desc';
With Query4 do begin Sql.Clear; Sql.Add(Qtxt); Open; end;

qtxt:='Drop Table IstKl';
With Query1 do begin Sql.Clear; Sql.Add(Qtxt); ExecSQL; end;

end;

Отсюда видно,что выполняется 2 аналогичных операции и никаких ошибок не выдает,а когда добавил код из первого сообщения,появились проблемы.