Авторизация в программе - Базы данных - Все о Delphi

10.06.2014, 02:25

Alegun

LMD-DML

Регистрация: 12.07.2009

Адрес: Богородское

Сообщения: 3,025

Версия Delphi: D7E

Репутация: 1834

Как вариант

Код:

...
if ADOQuery1.FieldByName('Dostup').AsString = 'Администатор' then Form2.ShowModal
 else
  with Form2 do
   begin
    Edit1.Visible:= false;
    Edit2.Enabled:= false;
 
    Button1.Visible:= false;
    Button2.Enabled:= false;
 
    {...}
 
    ShowModal;
   end;
 
...

__________________

Я не понял Вашего вопроса, но всё же Вам на него отвечу!

Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
poison-bla (10.06.2014)

« Предыдущая тема | Следующая тема »

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ваши права в разделе
Вы не можете создавать темы Вы не можете отвечать на сообщения Вы не можете прикреплять файлы Вы не можете редактировать сообщения BB-коды Вкл. Смайлы Вкл. [IMG] код Вкл. HTML код Выкл.

Быстрый переход

Часовой пояс GMT +3, время: 12:03.

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты