Как сменить пароль (master password) для таблицы Paradox

Delphi , Базы данных , Paradox

Автор: Nomadic

var
  db: TDatabase;
  Desc: CRTblDesc;
begin
  db := PriceTable.OpenDatabase;
  FillChar( Desc, SizeOf( Desc ), #0 );
  StrCopy( Desc.szTblName, PChar( PriceTable.TableName ) );
  StrCopy( Desc.szTblType, szParadox );
  StrCopy( Desc.szPassword, 'password' );
  Desc.bProtected := TRUE;
  Check( DbiDoRestructure( db.Handle, 1, @Desc, nil, nil, nil, FALSE ) );
end;

Here's the translation of the code into Russian:

Код, предоставленный ниже, написан на Delphi и используется для изменения пароля мастера для таблицы базы данных Paradox.

Вот что каждый часть кода делает:

• var db: TDatabase; Desc: CRTblDesc; : эти строки объявляют две переменные, db, которая является обрабатываемым handle к базе данных, и Desc, которая является экземпляром типа CRTblDesc. Тип CRTblDesc содержит информацию о таблице в базе данных Paradox.

• begin db := PriceTable.OpenDatabase; : эта строка открывает базу данных, указанную в PriceTable.

• FillChar(Desc, SizeOf(Desc), #0); StrCopy(Desc.szTblName, PChar(PriceTable.TableName)); StrCopy(Desc.szTblType, szParadox); StrCopy(Desc.szPassword, 'пароль'); Desc.bProtected := TRUE; : эти строки заполняют структуру Desc информацией о таблице. Имя таблицы берется из PriceTable.TableName, и оно устанавливается в виде таблицы Paradox. Пароль мастера для таблицы также устанавливается в 'пароль', а таблица маркируется как защищенная.

• Check(DbiDoRestructure(db.Handle, 1, @Desc, nil, nil, nil, FALSE)); : эта строка изменяет пароль мастера для таблицы в базе данных. Функция DbiDoRestructure используется для изменения различных свойств базы данных Paradox. В этом случае она используется для изменения пароля мастера.

Обратите внимание, что вы должны заменить 'пароль' на ваш желаемый пароль мастера. Кроме того, убедитесь, что база данных не открыта при изменении пароля мастера.

В статье описывается, как сменить пароль (master password) для таблицы Paradox в Delphi с помощью функции DbiDoRestructure.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Paradox ::