| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подключение программы к запароленным таблицам [D7, Paradox]
Алексей © (2004-08-11 14:15:00)Здравствуйте.
Вопросов по паролям даже несколько.
1. Как Подключить программу к базе данных (запуск программы) если некоторые её таблицы запароленны. Т.е. как програмно передать таблице пароль зашитый в программе?
2. При запуске программы её тоже запаролил и ввод пароля произвожу с помощью InputQeri, а там в поле ввода этот пароль виден как есть, не замещается на *, как это сделать или есть другая функция для вводов паролей?
3. И вопрос немного не в тему. Уважаемые люди на форуме высказались, что BDE технология умирающая, и Borland от неё отказался, на что посоветуете переучиться(переквалифицироваться) чтобы не отстать от жизни?
Алексей (2004-08-11 16:22:00) [1]Чегото не получается... опыта маловато...
Алексей (2004-08-11 15:55:00) [2]про процедуру Login, несколько не уловил...
Алексей (2004-08-11 15:48:00) [3]Весьма познавательная статья... Буду изучать вопрос...
Алхимик (2004-08-11 15:47:00) [4]После Application.Initialize;
Создание главной формы пропустил.
Алхимик (2004-08-11 15:45:00) [5]Создать главную форму
Создать форму ввода пароля
Показать форму ввода пароля
Если пароль верен, то продолжить выполнение
иначе уничтожить форму ввода пароля,
уничтожить главную форму.
что то вроде
Application.Initialize;
with TfrmLogin.Create(nil) do begin
try
// выполним процедуру Login, результат TRUE, если
// пользователь и пароль верны
if not Execute then
// если не выполнили , закрываем программу
frmMain.Free;
finally
free;
end;
end;
Application.Run;
Алексей (2004-08-11 15:31:00) [6]С удовольствием читаю в данный момент, в перерывах между общением с Вами, но программа уже есть и люди сней общаются, надо просто доделать, чтож теперь делать...
Так как быть с запароливанием программы на том этапе? Или есть только вариант дать запуститься программе, скрыть её и вывести свою форму ввода пароля?
Алхимик (2004-08-11 15:24:00) [7]Настаиваю.
http://www.delphimaster.ru/articles/client_server.html
Алексей (2004-08-11 15:21:00) [8]>Есть парочка "универсальных" паролей
плохо... икак быть, не меняя таблиц в данном случае?
Алхимик (2004-08-11 15:19:00) [9]Собственно паролить Парадокс пустое занятие. Есть парочка "универсальных" паролей.
Алексей (2004-08-11 15:18:00) [10]Ну если для INTERBASE пишут Оды... тогда всё понятно... вариантов нет.. :)
Алексей (2004-08-11 15:14:00) [11]Спасибо за направление :)
А Теперь по паролям.
1. Я решил запаролить саму таблицу парадокс, сделал это, всё нормально таблицу не открыть, запускаю программу, думал что выскочит диалог ввода паролей, он и выскочил, да потом пошло множиться сообщение об ошибке запуска программы. Т.е. пароль надо передать до подключения программы к базе данных.
2. Пароль программы стоит на этапе запуска программы, типа:
program Password;
uses
Forms,
Dialogs,
Unit1 in 'Unit1.pas' {MainForm};
{$R *.RES}
var
Passwrd: String;
begin
// Запрашиваем пароль:
if InputQuery('Окно ввода пароля','Введите пароль:',Passwrd) then
// Проверяем его:
if Passwrd='Delphi' then
begin // Все в порядке, пароль верен
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end else
ShowMessage('Пароль не верен!');
end.
и как там создать свой диалог я не знаю, форм то ещё нет.
Алхимик (2004-08-11 15:12:00) [12]Удалено модератором
Соловьев (2004-08-11 14:51:00) [13]1. Т.е. пароль на таблицу парадокс?
2. TEdit.PasswordChar
3. Я бы посоветовал занятся клиент-серверной технологией, в частности бесплатный сервер есть Firebird - http://firebird.sourceforge.net
Документации море - http://ibase.ru
Алхимик (2004-08-11 14:46:00) [14]
> 1. Как Подключить программу к базе данных (запуск программы)
> если некоторые её таблицы запароленны. Т.е. как програмно
> передать таблице пароль зашитый в программе?
Session.AddPassword('пароль'); см Help по Session
> При запуске программы её тоже запаролил и ввод пароля произвожу
> с помощью InputQeri, а там в поле ввода этот пароль виден
> как есть, не замещается на *, как это сделать или есть другая
> функция для вводов паролей?
Написать свой диалог ввода паролей.
см.TEdit.PasswordChar
> И вопрос немного не в тему. Уважаемые люди на форуме высказались,
> что BDE технология умирающая, и Borland от неё отказался,
> на что посоветуете переучиться(переквалифицироваться) чтобы
> не отстать от жизни?
Правильно мыслишь. Чтоб укрепиться в вере см.
http://www.delphimaster.ru/articles/client_server.html
> что посоветуете :
InterBase(FireBird,Yaffil)
| |
