| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Установка пароля на файлы Парадокса программно (inside). [D6, Paradox]

Fellomena ©   (2002-05-07 16:12:00) 

Всем привет! Как при создании файла БД типа Paradox установить на него пароль?
В Database Desctop-e это можно сделать ручками, но я так и не нашла - как же это можно сделать программно?
В SDK по API BDE этого нет 8( Но ведь наверняка это возможно.
И ещё - можно ли воспрепятствовать "инженерному" паролю jIGGAe при создании и открытии БД Парадокса ?
На всякий случай и для ориентации мой код при создании таблица и файла БД:

procedure TForm1.FormShow(Sender: TObject);
var
i, temp: integer;
begin
with Table1 do
begin
Active := False;
DatabaseName := GetCurrentDir+"\DB";
TableType := ttParadox;
TableName := "ABook";

{ Проверка на существование базы, если не существует, то создаю }
if not Table1.Exists then begin
{ The Table component must not be active }
{ First, describe the type of table and give }
{ it a name }
{ Next, describe the fields in the table }
with FieldDefs do begin
Clear;

with AddFieldDef do begin
Name := "Имя";
DataType := ftString;
Size := 35;
Required := True;
end;

with AddFieldDef do begin
Name := "Телефон";
DataType := ftString;
Size := 25;
Required := False;
end;

with AddFieldDef do begin
Name := "Оператор";
DataType := ftString;
Size := 12;
Required := False;
end;

with AddFieldDef do begin
Name := "Дополнительная информация";
DataType := ftMemo;
Required := False;
end;

end; { FieldDefs }

{ Next, describe any indexes }
with IndexDefs do begin
Clear;
{ The 1st index has no name because it is
{ a Paradox primary key }

with AddIndexDef do begin
Name := "";
Fields := "Имя";
Options := [ixPrimary];
end;

with AddIndexDef do begin
Name := "Телефон";
Fields := "Телефон";
Options := [ixCaseInsensitive];
end;

end; { IndexDefs }
CreateTable;
end; { if not Table1.Exists }
{ Call the CreateTable method to create the table }
try
Active := True;
except
Table1.Free;
end; { try }
end; { with Table1 do}
end;


---

Lusha   (2002-05-08 10:41:00) [1]

>Fellomena (07.05.02 16:12)
В SDK по API BDE этого нет 8(...

Да, ну? Смотрите примеры к dbiDoRestructure... Там есть ответ на Ваш вопрос...

---

deleon   (2002-05-08 09:28:00) [2]

Это делается только при помощи DbiCreateTable или DbiDoRestructure!

---

Fellomena   (2002-05-07 16:31:00) [3]

2 Val © (07.05.02 16:23):
хех, батенька, TSession.AddPassword; - это совсемне то, о чём я спрашивала.
TSession.AddPassword; - добавляет пароль для данной сесии, и уж никак не устанавливает его для файла БД.

2 Reindeer Moss Eater (07.05.02 16:20):
...хм, попробуем-попробуем

---

Val   (2002-05-07 16:23:00) [4]

TSession.AddPassword;
и повторю за Reindeer Moss Eater (07.05.02 16:14) - есть еще пароли кроме названного.

---

Reindeer Moss Eater   (2002-05-07 16:20:00) [5]

А добавить пароль это
DbiDoRestructure + соответствующий CRTblDesc

---

Reindeer Moss Eater   (2002-05-07 16:14:00) [6]

Джигга не для всех версий Парадокса катит. Но для всех версий Парадокса все равно есть инженерные пароли

---

Наверх