Delphi - база знаний


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


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




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, nilnilnil, FALSE ) );
end;

Автор: Nomadic


Взято из





Начало  Назад  Вперед