Подключение программы к запароленным таблицам

← →
Алексей (2004-08-11 14:15) [0]

Здравствуйте.
Вопросов по паролям даже несколько.
1. Как Подключить программу к базе данных (запуск программы) если некоторые её таблицы запароленны. Т.е. как програмно передать таблице пароль зашитый в программе?
2. При запуске программы её тоже запаролил и ввод пароля произвожу с помощью InputQeri, а там в поле ввода этот пароль виден как есть, не замещается на *, как это сделать или есть другая функция для вводов паролей?
3. И вопрос немного не в тему. Уважаемые люди на форуме высказались, что BDE технология умирающая, и Borland от неё отказался, на что посоветуете переучиться(переквалифицироваться) чтобы не отстать от жизни?

← →
Алхимик © (2004-08-11 14:46) [1]

> 1. Как Подключить программу к базе данных (запуск программы)
> если некоторые её таблицы запароленны. Т.е. как програмно
> передать таблице пароль зашитый в программе?

Session.AddPassword("пароль"); см Help по Session

> При запуске программы её тоже запаролил и ввод пароля произвожу
> с помощью InputQeri, а там в поле ввода этот пароль виден
> как есть, не замещается на *, как это сделать или есть другая
> функция для вводов паролей?

Написать свой диалог ввода паролей.
см.TEdit.PasswordChar

> И вопрос немного не в тему. Уважаемые люди на форуме высказались,
> что BDE технология умирающая, и Borland от неё отказался,
> на что посоветуете переучиться(переквалифицироваться) чтобы
> не отстать от жизни?

Правильно мыслишь. Чтоб укрепиться в вере см.
http://www.delphimaster.ru/articles/client_server.html

> что посоветуете :
InterBase(FireBird,Yaffil)

← →
Соловьев © (2004-08-11 14:51) [2]

1. Т.е. пароль на таблицу парадокс?
2. TEdit.PasswordChar
3. Я бы посоветовал занятся клиент-серверной технологией, в частности бесплатный сервер есть Firebird - http://firebird.sourceforge.net
Документации море - http://ibase.ru

← →
Алхимик © (2004-08-11 15:12) [3]

Удалено модератором

← →
Алексей (2004-08-11 15:14) [4]

Спасибо за направление :)
А Теперь по паролям.
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:18) [5]

Ну если для INTERBASE пишут Оды... тогда всё понятно... вариантов нет.. :)

← →
Алхимик © (2004-08-11 15:19) [6]

Собственно паролить Парадокс пустое занятие. Есть парочка "универсальных" паролей.

← →
Алексей (2004-08-11 15:21) [7]

>Есть парочка "универсальных" паролей
плохо... икак быть, не меняя таблиц в данном случае?

← →
Алхимик © (2004-08-11 15:24) [8]

Настаиваю.
http://www.delphimaster.ru/articles/client_server.html

← →
Алексей (2004-08-11 15:31) [9]

С удовольствием читаю в данный момент, в перерывах между общением с Вами, но программа уже есть и люди сней общаются, надо просто доделать, чтож теперь делать...
Так как быть с запароливанием программы на том этапе? Или есть только вариант дать запуститься программе, скрыть её и вывести свою форму ввода пароля?

← →
Алхимик © (2004-08-11 15:45) [10]

Создать главную форму
Создать форму ввода пароля
Показать форму ввода пароля
Если пароль верен, то продолжить выполнение
иначе уничтожить форму ввода пароля,
уничтожить главную форму.

что то вроде
Application.Initialize; with TfrmLogin.Create(nil) do begin try // выполним процедуру Login, результат TRUE, если // пользователь и пароль верны if not Execute then // если не выполнили , закрываем программу frmMain.Free; finally free; end; end; Application.Run;

После Application.Initialize;
Создание главной формы пропустил.

← →
Алексей (2004-08-11 15:48) [12]

Весьма познавательная статья... Буду изучать вопрос...

← →
Алексей (2004-08-11 15:55) [13]

про процедуру Login, несколько не уловил...

← →
Алексей (2004-08-11 16:22) [14]

Чегото не получается... опыта маловато...

Подключение программы к запароленным таблицам Найти похожие ветки