[Настюфка]

Здравствуйте всем!Как сделать, чтобы из таблицы Номенклатура щёлкнув на товар, он переходил в рядом открытую таблицу Накладная вместе с ценой, а в Накладной указать количество, и чтобы посчиталась стоимость и общая сумма заказа?

[Страдалецъ]

Пригласить продвинутого сокурсника и всех делов

[Настюфка]

Сообщение от Страдалецъ

Пригласить продвинутого сокурсника и всех делов

Ну подскажите, пожалуйста. Вам же не сложно.

[Konrad]

Сообщение от Настюфка

Ну подскажите, пожалуйста. Вам же не сложно.

Несложно.
И что дальше?

Вот не понимаю таких тем.
Незнаешь и хочешь готовую программу - в раздел работа и плати деньги.

А на шару - не то время.

[Страдалецъ]

Мне несложно ответить, но ваш вопрос подразумевает несколько слабое знание основ работы с БД. Если я так вам отвечу:

Код:

AdoQuery1.SQL.Text := 'insert into Накладная (Товар, Цена) 
Values (Номенклатура.Товар, Номенклатура.Цена * :Количество)
 from Номенклатура where Номенклатура.КодТовара = :КодТовара';
AdoQuery1.Parameters.ParamValues['Количество'] ':= StrToInt(Edit1.Text);
AdoQuery1.Parameters.ParamValues['КодТовара'] ':= AdoQuery2.FieldValues['КодТовара'];
AdoQuery1.ExecSQL;

Вы поймете?

[deltas]

Сообщение от Настюфка

Здравствуйте всем!Как сделать, чтобы из таблицы Номенклатура щёлкнув на товар, он переходил в рядом открытую таблицу Накладная вместе с ценой, а в Накладной указать количество, и чтобы посчиталась стоимость и общая сумма заказа?

Ну, я думаю для начала Вы должны сказать какая база данных используется... А потом думаю где-то так :

Код:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
ВашаТаблицаНакладная.append:
ВашаТаблицаНакладная.FieldValues['Товар'] := ВашаТаблицаНоменклатура.Название;
ВашаТаблицаНакладная.Post;
end;

Надеюсь суть уловили?