Protéger une table Paradox avec un mot de passe

procedure ChangeMasterPassword(Tbl: TTable; const APassword:String;
AFlag:Boolean);
var
hDb: hDbiDb;
TblDesc: CRTblDesc;
szDir : array[0..dbiMaxNameLen] of Char;
begin
Check(DbiGetDirectory(Tbl.DBHandle, False, szDir));
try
FillChar(TblDesc, sizeof(CRTblDesc), #0);
Tbl.DisableControls;
Tbl.Close;
Check(DbiOpenDatabase(nil, nil, dbiReadWrite, dbiOpenExcl, nil,
0, nil, nil, hDb));
Check(DbiSetDirectory(hDb,szDir));
TblDesc.bProtected:=AFlag;
if AFlag then StrPCopy(TblDesc.szPassword,APassword);
StrPCopy(TblDesc.szTblName, Tbl.TableName);
StrCopy(TblDesc.szTblType, szParadox);
Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, False));
finally
Check(DbiCloseDatabase(hDb));
Tbl.EnableControls;
Tbl.Open;
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour04/03/2002
VisualisationVu 2490 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Base de donnees
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur