Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Delphi

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Может кто нибудь знает: как можно в делфи организовать временную блокировку приложения, т.е. что бы появилось окно для ввода пароля, после чего приложение снова восстанавливалоь и начинало работу, при этом все окна программы должны быть скрыты. Заранее благодарен

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 14:49 01-05-2006
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vovanzp
делай для главной формы WindowState = wsMinimized, затем у формы с поролем выставля модальность высшим приоритетом...
в том случае, если логин и пароль были введены правильно, то восстанавливаешь форму и снимаешь модальность, в противном случае, закрываешь приложение, т.е. Application.Terminate

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 21:34 01-05-2006
vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DroN_S
я новичок. можно по подробнее на счет модальности?

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 14:06 02-05-2006
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
я новичок. можно по подробнее на счет модальности?

при показе формы, пишешь не Show а ShowModal и усё

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 18:25 02-05-2006
vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DroN_S
спасибо

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 21:39 02-05-2006
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vovanzp DroN_S
Может быть лучше Hide а не wsMinimized?
 

Всего записей: 3923 | Зарегистр. 31-03-2002 | Отправлено: 04:16 03-05-2006
vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Пробовал wsMinimized, но окно что-то не восстановилось. А вот если методом Hide - вроде оконо нормально восстанавливалось. Возник такой вопрос: есть главная форма (папример main.pas и окно с паролем - pass.pas). В main.pas в uses прописал pass, доступ к форме получил. А вот если наоборот нужно - получить доступ с формы pass к главной - прописать main в uses в pass - выдает ошибку. Как сделать?

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 15:20 03-05-2006
AlxMonster



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vovanzp

Цитата:
А вот если наоборот нужно - получить доступ с формы pass к главной - прописать main в uses в pass - выдает ошибку. Как сделать?

 
В unit первой формы нужно uses второго модуля написать в разделе interface, во второй форме uses первого модуля в разделе implementation. Или наоборот.

Всего записей: 1644 | Зарегистр. 14-02-2006 | Отправлено: 17:34 03-05-2006
vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
AlxMonster
спасибо работает
 
Добавлено:
Знаю вопрос не потеме, но все же: если прога использует базы данных, то что необходимо с ней поставлять что бы она работала на пк, где нету delphi. Т.к. на пк с delphi, она грузиться прекрасно, а без - вообще не грузиться, выдает ошибку.

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 17:45 03-05-2006
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vovanzp
какая база данных?
всё зависит от того, какой используешь метод доступа к базе данных!!!!!

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 18:49 03-05-2006
vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DroN_S
Я использую файлы базы данных с расширением *.db, т.е. как я понял Paradox 7
 
Добавлено:
А метод: кидаю на форму Table, DataSet, DBGrid и соединаю их. А потом в Table указываю в TableName имя базы данных

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 18:50 03-05-2006
AlxMonster



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vovanzp
Похоже, что ты используешь BDE для доступа к данным.
Создай инсталлятор для своей программы с помощью InnoSetup. В этой статье _http://www.jrsoftware.org/iskb.php?bde написано как в инсталлятор добавить установку BDE. Наверное, это самый простой путь.

Всего записей: 1644 | Зарегистр. 14-02-2006 | Отправлено: 18:58 03-05-2006
vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Спасибо, попробую. Такой вопрос появился: имеется база с различными полями в т.ч. с полем типа Graphic (BLOB). Как можно в базу поместить изображение которое выбирается при помощи OpenPictureDialog.
 
P.S.
 
Table1.Edit;
DBImage1.Image.LoadFromFile(OpenPictureDialog1.FileName);
Table1.Post;
 
ничего не дает

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 19:29 03-05-2006
AlxMonster



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Такое выражение не поможет  
TGraphicField(Table1.FieldByName('Graphic')).LoadFromFile(OpenPictureDialog1.FileName); ?

Всего записей: 1644 | Зарегистр. 14-02-2006 | Отправлено: 20:14 03-05-2006
vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
TGraphicField - а это что?
 
Добавлено:
Какой код мне нужно вставить, что бы выбранная картинка пользователем помещалась в DBGrid?

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 20:19 03-05-2006
AlxMonster



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код примерно такой
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then begin
    Table1.FieldByName('Graphic').ReadOnly:=False;
    Table1.Edit;
    TGraphicField(Table1.FieldByName('Graphic')).LoadFromFile(OpenPictureDialog1.FileName);
    Table1.Post;
  end;
end;
 
Тем самым нужная картинка будет помещена в базу данных, а в DBImage она обновится скорее всего автоматически.  
class TGraphicField - TGraphicField represents a graphics field in a dataset.  
Подробнее в хелпе.

Всего записей: 1644 | Зарегистр. 14-02-2006 | Отправлено: 20:37 03-05-2006
vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
спасибо. попробую




соблюдаем тематику поста, по БДЕ либо новую тему, либо в Вопросы по Дельфи

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 20:38 03-05-2006 | Исправлено: ShIvADeSt, 01:51 04-05-2006
AlxMonster



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот есть еще ручной способ установить BDE - надо найти у себя папку Borland Shared\BDE, найти в ней файл bdeinst.cab (если его там нет, то взять из дистрибутива delphi), распаковать из него файл bdeinst.dll. Унести эту папку на целевой компьютер и запустить из нее следующую команду regsvr32 bdeinst.dll (можно сразу в виде bat файла оформить). После этого появится диалог с вопросом куда установить BDE. Если требуется установить BDE на одном компьютере - то это лучший вариант. Если требуется устанавливать программу с BDE на многих компьютерах, то лучше использовать способ который я предложил выше.

Всего записей: 1644 | Зарегистр. 14-02-2006 | Отправлено: 00:36 04-05-2006
vovanzp



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Хорошо. соблюдаем. Второй способ работает, спасибо.

Всего записей: 64 | Зарегистр. 29-04-2006 | Отправлено: 13:13 04-05-2006
Aquarius2909

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Собственно для уменьшения размера файлов, при инсталяции BDE - можешь выбрать библиотеки относящиеся только к Paradox 7

Всего записей: 22 | Зарегистр. 17-05-2003 | Отправлено: 00:20 14-05-2006
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Delphi


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru