Текущий архив: 2002.05.30;
Скачать: CL | DM;
Вниз
Установка пароля на файлы Парадокса программно (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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.013 c
