Избор на документ

3 отговора 0 прегледа
#1

Избор на документ

Здравейте на всички!
Имам следния проблем. Искам потребителите на една млака програмка да могат да си избират документа(мастер-детаил таблици), който да могат да разглеждат.За целата съм пуснал едно просто параметрично Query, което се обръща само към мастер таблицата. Искам след като си избере потребителя документа, чрез двойно кликане той да му се зареди. За целта ми трябва първичния ключ, но незнам как да го получа, след двойното кликане върху ред от грида.
Благодаря предварително!

Отговор
в отговор на stupid_555 #2

Re: Избор на документ


procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
ID:=query1.FieldByName('ID').As....
end;


?

Отговор
в отговор на eмил #3

Re: Избор на документ

Идеята е следната:
Имам си таблица продажби и неината детайлна таблица. В продажбите имам информация за самата продажба: дата, продавач, купувач и т.н., а в детайлната таблица съответно списък на закупените артикули. Написал съм едно просто параметрично куери към таблицата с продажбите. мозе да се филтрира по полета дата, продавач, купувач и др. Резултата от куерито показвам в грид. Искам като се кликне два пъти на някой ред от грида, тази форма да се скрива и да се зарежда избрания от потребителя докумет, т.е продажбата и детайлната и таблица. За тази цел ми трябва, след двойния клик върху някой ред да мога да взема стойността на първичния ключ и да заредя по него избраноия документ.
Ама нещо не ми се отдава. Може и дане съм избрал правилното събитие. Незнам.

Благодаря предварително!

Отговор
в отговор на stupid_555 #4

Re: Избор на документ

Във формата която ще показва детайлният документ си правиш процедура
procedure FormD.LoadDoc(id:integer);
begin
qDetail.ParamByName('DOC_ID').asInteger:=id;
qDetail.Close;qDetail.Open;
end;
това куери ти изкарва инфо за детайлите на документа
Във формата която дига детайла пишеш нещо от сорта

try
f:=FormD.create(Aplication);
f.LoadDoc(ID); //това ид си го извлякъл както ти е отговорил голегата по-горе
f.ShowModal;
finally
f.free;
end

Отговор