VPF::dbgrid есть вопросы! - Форум программистов

bossru

Дата 27.10.2009, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 5.6.2007
Где: Уфа

Репутация: нет
Всего: нет

Здравствуйте уважаемые!
На форме имеется 2 радиопереключателя 2 таблицы 2 датасорса, в зависимости от выбора переключателей отображается таблица в dbgrid,
в каждой из таблиц имеется столбец с числами от 1 до 3, в зависимости от наименования, нужно чтобы при нажатии на кнопку открывалась форма( всего их три) то есть где число 1 в таблице, открывается первая форма, число 2-вторая форма и т.д
Подскажите как это реальзовать?
Заранее большое спасибо !

база парадокс7

Это сообщение отредактировал(а) bossru - 27.10.2009, 18:33

Akella

Дата 27.10.2009, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Код


if dbgrid1.datasource.dataset.FieldByName('pole1').asinteger := 1 then
  begin
    Form1 := TForm1.Create(appliacation);
    Form1.ShowModal;
    FreeAndNil(Form1);
 end;

if dbgrid1.datasource.dataset.FieldByName('pole1').asinteger := 2 then
  begin
    Form2 := TForm2.Create(appliacation);
    Form2.ShowModal;
    FreeAndNil(Form2);
 end;

и т.д.

или

Код


case dbgrid1.datasource.dataset.FieldByName('pole1').asinteger of
  1: begin
         Form1 := TForm1.Create(appliacation);
         Form1.ShowModal;
         FreeAndNil(Form1);
     end;//1
  2: begin
         Form2 := TForm2.Create(appliacation);
         Form2.ShowModal;
         FreeAndNil(Form2);
     end;//1

else//если не 1 и не 2
  Showmessage('Ошибка, выбрано не 1 и не 2');
end;//case

Akella

Дата 27.10.2009, 20:12 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

bossru, курсовая?

bossru

Дата 28.10.2009, 08:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 5.6.2007
Где: Уфа

Репутация: нет
Всего: нет

огромное спасибо...все сделал

Да, курсовая!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »