Пользовательская форма входа в БД

@white_fenix · Регистрация: 12.01.2011

Студворк — интернет-сервис помощи студентам

У меня возникла проблема следующего плана. Есть две формы: форма BOREY1 входа с полями "Логин", "Пароль" и кнопками "Войти" и "Закрыть", а также главная форма BOREY2 интерфейса отображения и редактирования данных БД. Используется Firebird 2.5.

Задумка следующая:
через форму входа вводятся данные доступа к БД и при нажатии кнопки "Войти" должна закрыться форма входа, открыться главная форма с уже доступной БД. Код события кнопки "Войти" следующий:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TBOREY1::Button1Click(TObject *Sender)
{
BOREY2->IBDatabase1->Params->Clear();
BOREY2->IBDatabase1->Params->DatabaseName=(BOREY1->Edit3->Text);
BOREY2->IBDatabase1->Params->Add("user_name="+(BOREY1->Edite1->Text);
BOREY2->IBDatabase1->Params->Add("password="+(BOREY1->Edite2->Text);
BOREY2->IBDatabase1->Open();
BOREY2->IBDataSet1->Open();
BOREY2->IBDataSet2->Open();
BOREY2->Show();
BOREY1->Close();
}

При такой реализации кода события доступ к БД получить не удается, т.е. параметры доступа не передаются компоненту IBDatabase1. Если указанный выше код (без BOREY1 и BOREY2) реализовать на главной форме, то проходит всё нормально.

Подскажите что я делаю не правильно.

@Fast126 · 12.01.2011, 21:47

А где у тебя IBDatabase1 расположена ??

Добавлено через 9 минут
хотя извени , я сразу не вник в в твой код

@white_fenix · 13.01.2011, 13:36 **[ТС]**

Вообщем проблему передачи параметров доступа в БД из BOREY1 в IBDatabase решил, сделав эту форму модальной - BOREY1->ShowModal(); (ранее была запись: BOREY1->Show()

, и записав следующий код в событие OnShow формы BOREY2:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TBOREY2::FormShow(TObject *Sender)
{
IBDatabase1->Params->Clear();
IBDatabase1->Params->Add("user_name="+BOREY1->Edite1->Text);
IBDatabase1->Params->Add("password="+BOREY1->Edite2->Text);
IBDatabase1->Open();
IBDataSet1->Open();
IBDataSet2->Open();
}

Но сразу же возникла другая проблема: как только форма BOREY1 стала модальной событие OnClick кнопки "Закрыть" в этой же форме закрывает лишь саму модальную форму, а не приложение в целом, т.е. код:

C++
1
2
3
4
5
void __fastcall TBOREY1::Button2Click(TObject *Sender)
{
BOREY2->Close();
BOREY1->Close();
}

работает только по части BOREY1->Close(), т.е. главная форма ещё функционирует, но она скрыта!!!

Подскажите пожалуйста как закрыть приложение из модальной формы.

@AlexSt · 13.01.2011, 14:07

Сообщение от white_fenix

Подскажите пожалуйста как закрыть приложение из модальной формы.

C++
1
Application->Terminate();

Или что то вроде того, не подайдет?

@white_fenix · 13.01.2011, 14:22 **[ТС]**

Сработало!!! Большое спасибо.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@Fast126 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 18
	12.01.2011, 21:47
	А где у тебя IBDatabase1 расположена ?? Добавлено через 9 минут хотя извени , я сразу не вник в в твой код 0

@white_fenix 2 / 2 / 0 Регистрация: 12.01.2011 Сообщений: 21
	13.01.2011, 14:22 [ТС]
	Сработало!!! Большое спасибо. 0