FAQ - Вопросы - ответы - советы - Базы данных

Вопрос:

[PDX] Как сменить пароль (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, NIL, NIL, NIL, FALSE ));
END;