![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сменить пароль ( 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 );