popup в dbgrid

[drakhar]

Извиняюсь за новую тему, но поиском мало что нашел что мне требуется.
Вообщем суть дела такова: при нажатии правой кнопки на дбгриде выползает попап менюшка, главная функция одной из кнопок этой менюшки, перенос записи из одной таблицы в другую.Например, таблица "мониторы" и "лицевой счет", при нажатии ПКМ на любой строке в таблице "мониторы" необходимо копировать текст из колонки "наименование" в таблицу "лицевой счет" в столбец "наим-ие выданных", причем запись из таблицы "мониторы" необходимо удалить.
Подскажите пожалуйста, или подкиньте идею как это реализовать в ацессовской бд. Есть некоторые мысли, но мало опыта...

[Stilet]

как это реализовать в ацессовской бд.

ДБгриду по бобику с какой СУБД ты работаешь. Если знаеш как прикрутить меню к ДБГриду то задача решена

Есть некоторые мысли

Дык это наверное страшная военная тайна. Не вздумай их публиковать.

[drakhar]

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

[Stilet]

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

Че там реализовывать то? либо SQL-INSERT либо штатными методами и свойствами TdataSet'ов. Как делаеш то?

[dron-s]

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

insert into Table2
select t.Field1, t.Field2 from Table1

[drakhar]

у меня вот такой вопрос: если у меня дбгрид1 и дбгрид2, в первом дбгриде несколько таблиц с переключением, а во второй лицевой счет идет, получается надо 2 adoquery если делать через insert? если не так, не могли бы вы разьеснить что к чему

[mihali4]

Не надо два. Нужен один, только для выполнения SQL.
Набросал для вас примерчик:
Пусть у вас уже есть Table1(его вы попеременно подключаете к names1, names2, names3...)->DataSource1->DBGrid1 и Table2(licschet)->DataSource2->DBGrid2.
Добавляем один Query1.
Пишем обработчик:

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Text:= 'insert into licschet (nams) values(' +
QuotedStr(DBGrid1.DataSource.DataSet.FieldByName('Nam').AsString) + ')';
Query1.ExecSQL;
Query1.SQL.Text:= 'delete from '+(DBGrid1.DataSource.DataSet as TTable).TableName +
' where nam=' + QuotedStr(DBGrid1.DataSource.DataSet.FieldByName('Nam').Value);
Query1.ExecSQL;
Table1.Refresh;
Table2.Refresh;
end;

(пришлось разбить, т.к. Парадокс не захотел почему-то выполнять в одном запросе...)

[drakhar]

Спасибо большое всем кто помогал, вопрос решён!