Добавление записей

[IvaNNN]

Здраствуйте. Есть проблемма с добавленем нескольких ключевых полей. Необходим сделать так чтобы при нажатии на кнопку заполнялось две таблицы БД, в обоих содержаться ключевые поля. Для вывода таблиц использую DBGrid, ADOQuerty, DataSourse, ADOConnection.
Код:

ADOQuery1.Active:=false;
ADOQuery1.SQL.Text:='Select * from Diskont inner join Klient on Diskont.id_Klienta=Klient.id_Klienta';
ADOQuery1.Active:=true;

Для добавления записи использую DBLookupComboBox, Edit-ы
Код:

procedure TDiskont.PostClick(Sender: TObject);
begin
BD.ADOQuery1.AppendRecord([nil, DBLookupComboBox1.Text,
StrToInt(Edit1.Text), StrToInt(Edit2.Text)]);
BD.ADOQuery1.AppendRecord([nil,Edit3.Text, Edit4.Text, Edit5.Text,
Edit6.Text, Edit7.Text, StrToInt(Edit8.Text), StrToInt(Edit9.Text)]);
 BD.ADOQuery1.Refresh;
end;

From Stilet: Код у нас оформляется по кнопке #

[artemavd]

Добавляйте через запрос. Так проще. P.S. Оформите код как положено!

[IvaNNN]

Сообщение от artemavd

Добавляйте через запрос. Так проще. P.S. Оформите код как положено!

а не поскажете примерный запрос для добавление, я так думаю это через insert into?

[Sparky]

insert into t_table(списко полей) values (список параметров)
перед параметрами :

[IvaNNN]

procedure TDiskont.PostClick(Sender: TObject);
begin
BD.ADOQuery7.Close;
BD.ADOQuery7.SQL.Text:='insert into Diskont, Klient (id_Prodavca,Skidka,Summa_pokup,Familia,Imia,Otchestvo,Mesto_rog,Mesto_reg,Pasport_ser,Pasport_nom) values (:s1, :s2, :s3, :s4, :s5, :s6, :s7, :s8, :s9, :s10)';
BD.ADOQuery7.Parameters.ParamByName('s1').Value:=DBLookupComboBox1.Text;
BD.ADOQuery7.Parameters.ParamByName('s2').Value:=StrToInt(Edit1.Text);
BD.ADOQuery7.Parameters.ParamByName('s3').Value:=StrToInt(Edit2.Text);
BD.ADOQuery7.Parameters.ParamByName('s4').Value:=Edit3.Text;
BD.ADOQuery7.Parameters.ParamByName('s5').Value:=Edit4.Text;
BD.ADOQuery7.Parameters.ParamByName('s6').Value:=Edit5.Text;
BD.ADOQuery7.Parameters.ParamByName('s7').Value:=Edit6.Text;
BD.ADOQuery7.Parameters.ParamByName('s8').Value:=Edit7.Text;
BD.ADOQuery7.Parameters.ParamByName('s9').Value:=StrToInt(Edit8.Text);
BD.ADOQuery7.Parameters.ParamByName('s10').Value:=StrToInt(Edit9.Text);
BD.ADOQuery7.ExecSQL;
end;

попробывал через запрос пишет не могу найти параметр s1, кроме перечисленных полей в таблице Diskont есть поля id_Disk-счетчик id_Klienta-числовое и в таблице Klient есть поле id_Klienta-счетчик.

[Stilet]

Если я не ошибаюсь прежде чем использовать параметры их нужно создать.

with BD.ADOQuery7.Parameters.AddParameter do begin
 Name:='s1';
 Value:=DBLookupComboBox1.Text;
end;

[Sparky]

Подскажу у вас ошибка с DBLookupComboBox1, почитайте внимательно про этот компонент. Если так ничего и не найдете пишите, объясню