На первый взгляд ненужная запятая в "SQL.Add('SELECT
, KL_vards, KL_uzvards, Tel, Pak_veids');" (после SELECT)
Во-вторых, уберите
with и напишите без него.
В-третьих, "
form1.Query1" form1. убрать. Не гоже использовать имя класса в его реализации.
В-четвертых, дайте другие имена переменным, а то путаница с KL_vards.
И в-пятых, не ясно зачем вообще:
Цитата:
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1 // ioia?aceou ?ac-o auiieiaiey cai?ina
else begin
ShowMessage('DB nav pierakstus ar tadiem Vardiem un uzvardiem');
DataSource1.DataSet:=Table1;
|