Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сменить пароль ( Vfster Password ) таблицы Paradox?


Константинов ©   (2004-12-26 23:40:00) 

ашел следующий код, но он для меня словно китайская грамота.

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;

Где описан тип CRTblDesc?

Что делают строки
  db := PriceTable.OpenDatabase?
  Check( DbiDoRestructure( db.Handle, 1, @Desc, nil, nil, nil, FALSE ) );

Заранее спасибо!


sniknik   (2004-12-27 00:39:00) [1]

> Где описан тип CRTblDesc?
BDE

> Что делают строки
>  db := PriceTable.OpenDatabase?
получение или открытие и получение текушей базы для контретно вот этого (используемого) датасета.

>  Check( DbiDoRestructure( db.Handle, 1, @Desc, nil, nil, nil, FALSE ) );
реструктуризация таблици, здесь с внесением пароля в структуру.


Константинов   (2004-12-26 23:41:00) [2]

Сорри ( в теме читать Master Password );


Наверх

Титульная страница Поиск, карта сайта Написать письмо