怎樣在Paradox表中加密碼 (2000年8月17日) 

本站更新  分類:   作者:srw  推薦:   閱讀次數(shù):598  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

下面給出的函數(shù) AddMasterPassword 完成添加PARADOX表
主口令的工作
AddMasterPassword(Table1, 'MyNewPassword') 

procedure AddMasterPassword(Table: TTable; pswd: string);
const
RESTRUCTURE_TRUE = WordBool(1);

var
TblDesc: CRTblDesc;
hDb: hDBIDb;

begin
{表打開？表是獨(dú)占嗎？}
if (Table.Active = False) or (Table.Exclusive = False) then
raise EDatabaseError.Create('數(shù)據(jù)表必須在獨(dú)占方式才可以添加口令');

{初始化表描述區(qū) }
FillChar(TblDesc, SizeOf(CRTblDesc), 0);

with TblDesc do
begin
{ 把表名放到描述區(qū) }
StrPCopy(szTblName, Table.TableName);
{ 把表類型放到描述區(qū) }
StrCopy(szTblType, szPARADOX);

StrPCopy(szPassword, pswd);

{ 設(shè)置BPROTECTED為TRUE }
bProtected := RESTRUCTURE_TRUE;
end;

{ 從當(dāng)前的HANDLE里得到DATABASE的HANDLE }
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
{ 關(guān)閉表 }
Table.Close;
{ 添加主口令到PARADOX表里}
Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, FALSE));
{添加一個(gè)新口令到SESSION}
Session.AddPassword(pswd);
{重新打開表 }
Table.Open;
end;

添加副口令的辦法與此類似