База данных в Lazarus

[АнтонКурышов]

У меня есть БД в IBexpert, мне нужно создать приложение в Lazarus'е для работы с этой БД, и так подключил базу данных начал создавать, и вот такая проблема. Не знаю как добавить новою записи в таблицу, так как одно из значений должно браться из другой таблицы. Помогите пожалуйста, очень надо, курсовая на кону.

[Utkin]

Доступ через какие компоненты?

так как одно из значений должно браться из другой таблицы.

Это ничего не меняет. Сначала получаете все сведения, а потом уже готовите запись. Откуда получены сведения - из файла, из другой таблицы или с клавиатуры, какая разница?
Опять же проблем-то в чем? Вы не можете получить данные "из другой таблицы". Или Вы не можете создать запись?

[АнтонКурышов]

Доступ через какие компоненты?

Доступ через компонент SQLquery, то есть у меня на форме два DBGrid к каждой свой запрос, в одной отображается информация о покупателях(у каждого свой ID). а во второй отображается таблица накладные, где и есть запись ID-покупателя. Вообщем я добавляю запись в таблицу покупатель, а при добавлении записи в таблицу накладные, мне нужно указать ID'шник покупателя, которого я только что добавил, в предыдущую таблицу. вот я и не знаю как брать ID'шник из таблицы покупатели и добавлять его в таблицу накладные.

[Stilet]

Ну вообще все зависит от самой базы. Нужно смотреть твой код.
Так что лучший вариант: Написать хранимую процедуру, внутри которой упаковать добавление. Если нет то например можно делать так:

...SQL.Text:='Insert into ... (...) VALUES (..., (Select Добавляемое From Таблица Where некое поле = Чему-то),...)';

Т.е. использовать подзапрос в запросе для получения данных.

[АнтонКурышов]

вот здесь происходит добавление других полей в таблицу накладные, и что еще нужно чтоб добавлялись ID'шники покупателя?

procedure TForm2.Button1Click(Sender: TObject);
begin
  SQLQuery1.Close;
   SQLQuery1.SQL.Clear;
   SQLQuery1.SQL.Add('select max(NAKLADNAY_id) from NAKLADNAY');
   SQLQuery1.Open;
   SQLQuery1.First;
   NAKID:=LongInt(SQLQuery1.FieldByName('max').AsInteger);
   SQLQuery1.Next;
   if (Edit8.Text <> '') and (Edit9.Text <>'')  then
    begin SQLQuery1.Close;
   SQLQuery1.SQL.Clear;
   SQLQuery1.SQL.Text:='insert into NAKLADNAY (NAKLADNAY_ID, NAKLADNAY_DATA, NAKLADNAY_SUMMA) values (:ID, :DATA, :SUMMA )';
   SQLQuery1.Params.ParamByName('ID').Value:=LongInt(NAKID)+1;
   SQLQuery1.Params.ParamByName('DATA').Value:=Edit8.Text;
   SQLQuery1.Params.ParamByName('SUMMA').Value:=Edit9.Text;
   SQLQuery1.ExecSQL;
   SQLQuery1.SQL.Text:='select * from NAKLADNAY';
     SQLQuery1.Open;
     end
    end;

Ну вообще все зависит от самой базы.

В самой базе таблицы покупатель и накладные связаны при помощи внешнего ключа, то есть таблица накладные ссылается на таблицу покупатель, а точнее на запись pokupatel_ID

[evg_m]

вот я и не знаю как брать ID'шник из таблицы покупатели

т.е. где-то в программе(форме/DBgrid-e) уже ЕСТЬ выставленный (выбранный) покупатель ?

SQLQuery1.SQL.Text:='insert into NAKLADNAY (..., id_pokup) values (...., :pok);
.....
SQLQuery1.ParamByName('pok').AsInteger:=FormX.DBgridP.DataSource.DataSet('id').AsInteger;

[АнтонКурышов]

т.е. где-то в программе(форме/DBgrid-e) уже ЕСТЬ выставленный (выбранный) покупатель ?

ДА в DBgrid-е уже есть покупатель и там виден его id-шник

[АнтонКурышов]

Тема по-прежнему актуальна, я так и не решил этот вопрос, помогите!!