|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.09.2008, 17:47 | #1 |
Пользователь
Регистрация: 10.05.2008
Сообщений: 41
|
Проверка на существование БД перед запуском приложения
Приведите, пожалуйста, программный код, с помощью которго можно было бы перед запуском самой программы, которая использует в своей работе базу данных, проверять наличие этой базы данных. И в случае отсутствия базы данных показывать модальное окно, содержащее сообщение о том, что файл базы данных не найден. На модальном окне должно быть две кнопки: Yes и No. Далее, при нажатии пользователем на кнопку Yes ничего не должно происходить, а при нажатии на кнопку No—приложение должно закрываться .
|
07.09.2008, 18:57 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
проверить возможность установки соединения с помощью компонента TADoConnection или аналогичного.
программа — запись алгоритма на языке понятном транслятору
|
07.09.2008, 20:40 | #3 |
Пользователь
Регистрация: 10.05.2008
Сообщений: 41
|
|
07.09.2008, 23:09 | #4 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
обычно такие проверки ставятся перед созданием главной формы, т.е. перед строкой
application.CretaeForm(mainform, TMainform); но если connection для проверки лежит на этой форме то проверку придется делать только после этой строки
программа — запись алгоритма на языке понятном транслятору
|
08.09.2008, 09:30 | #5 |
Пользователь
Регистрация: 06.04.2008
Сообщений: 22
|
по дефолту ставим IBDataBase1.Connected:=false;
Код:
и ставим им в свойствах ModalResult: mrYes и mrNo Код:
|
08.09.2008, 21:45 | #6 | ||
Пользователь
Регистрация: 10.05.2008
Сообщений: 41
|
Цитата:
На главной форме лежит компонент DBGrid. Таблица связана с DataSource. DataSource связан с DataTable. DataTable связан с ADOConnection. Компоненты DataSource, DataTable, AdoConnection я поместил в отдельный модуль DataModule1. Соединение с базой описано в свойстве ConnectionString компонента ADOConnection. Вот код исходника .dpr: Код:
Цитата:
Последний раз редактировалось Fantom; 08.09.2008 в 21:49. |
||
08.09.2008, 23:01 | #7 |
Пользователь Подтвердите свой е-майл
Регистрация: 04.07.2007
Сообщений: 75
|
просто по событию главной формы Form1.show ставиш
try ADO1.Open; except //создаеш свою форму с предупреждением form2:=Tform2.Create(nil); form2.Showmodal; exit; end; по событию form2.onclose ставиш form1.Close; если хочеш погляди этот проект, там я именно так сделал гляди unit6 и unit8 http://www.programmersforum.ru/attac...0&d=1184910335 Последний раз редактировалось sysyman; 08.09.2008 в 23:04. |
08.09.2008, 23:09 | #8 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
переместить Createform(Tdatamodule1....) на первое место среди создаваемых форм (руками) и после него делать проверки
программа — запись алгоритма на языке понятном транслятору
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Существование элемента в массиве | Carbon | Помощь студентам | 10 | 31.03.2008 19:03 |
Как поставить заставку перед запуском главной формы программы? | NiganInterCOM | Общие вопросы Delphi | 2 | 22.02.2008 16:11 |
Как проверить существование потока? | John_chek | Общие вопросы Delphi | 3 | 17.01.2008 15:16 |
Проверка на существование | Lonix | Общие вопросы Delphi | 2 | 19.03.2007 19:42 |