![]() |
|
Модераторы: Poseidon |
![]()
|
|
| Sunfrag |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 20.5.2012 Репутация: нет Всего: нет |
вобщем пытаюсь написать АИС на делфи. в основе база акцеса. но при переносе таблиц на форму, они начинают перекрывать друг друга. как на синтаксисе будет выглядеть описание кнопки, попеременно присваивающей атрибуты visible и enabled соответствующим таблицам? или если есть другой способ, опишите, пожалуйста.
|
|||
|
||||
| Данкинг |
|
|||
![]() Yersinia pestis ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: нет Всего: 130 |
Каких таблиц? Каким образом "перекрывать"?
-------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| Telepyz |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 119 Регистрация: 9.7.2007 Репутация: нет Всего: 1 |
Зная что такое АИС, ты не можешь нормально сформулировать вопрос...??
--------------------
обновить драйвер |
|||
|
||||
| Sunfrag |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 20.5.2012 Репутация: нет Всего: нет |
таблицы access при переносе на форму получаются одна поверх другой. как бы так и должно быть, чтобы они находились, так сказать, в рабочей зоне будущей программы, но не могу реализовать попеременную их видимость и доступность
|
|||
|
||||
| Данкинг |
|
|||
![]() Yersinia pestis ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: нет Всего: 130 |
А нельзя сделать один грид, в который запросом выводить нужную таблицу и нужные поля?
-------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| Telepyz |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 119 Регистрация: 9.7.2007 Репутация: нет Всего: 1 |
Код в студию..
--------------------
обновить драйвер |
|||
|
||||
| Sunfrag |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 20.5.2012 Репутация: нет Всего: нет |
unit X;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, DBTables, StdCtrls; type TForm1 = class(TForm) ds1: TADODataSet; ds2: TDataSource; dbgrd1: TDBGrid; ds3: TADODataSet; ds4: TDataSource; dbgrd2: TDBGrid; tbl1: TTable; tbl2: TTable; Next: TButton; procedure NextClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.NextClick(Sender: TObject); begin if dbgrd2 (Visible=True and Enabled=True); then dbgrd2:=(visible:=False and Enabled:=False); else dbgrd1:=(visible:=true and Enabled:=true); end; end. Добавлено через 1 минуту и 21 секунду
если вам не сложно, опишите, пожалуйста, пошагово? |
|||
|
||||
![]()
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |