Форум: "Базы";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];

Вниз

Установка пароля на файлы Парадокса программно (inside).   Найти похожие ветки 

← →
Fellomena   (2002-05-07 16:12) [0]

Всем привет! Как при создании файла БД типа 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;


---

← →
Reindeer Moss Eater   (2002-05-07 16:14) [1]

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

---

← →
Reindeer Moss Eater   (2002-05-07 16:20) [2]

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

---

← →
Val   (2002-05-07 16:23) [3]

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

---

← →
Fellomena   (2002-05-07 16:31) [4]

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

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

---

← →
deleon   (2002-05-08 09:28) [5]

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

---

← →
Lusha   (2002-05-08 10:41) [6]

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

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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.005 c