Borrar clave en tabla paradox
 

Hola foro, nuevamente recurro a ustedes, uso este codigo tomado de trucomania (300)...ñ

procedure TForm1.Button1Click(Sender: TObject);

procedure PonClave(Const ADatabase, ATable:string; Clave:DbiName);
var
ADB :TDataBase;
SaveKC : Boolean;
PdxStruct : CRTblDesc;
begin

with TTable.Create(nil) do
try
DatabaseName := ADatabase;
TableName := ATable;
Exclusive := True;
Open;
ADB := DAtabase;
SaveKC := ADB.KeepConnection;
ADB.KeepConnection := True;
try
Close;
FillChar(PdxStruct,SizeOF(PdxStruct),0);
StrPCopy(PdxStruct.szTblName,ATable);
PdxStruct.bPack := False;
PdxStruct.bProtected:= TRUE;
{Esta es la clave que se pondrá en la tabla}
PdxStruct.szPassword:=Clave;
Check(DbiDoRestructure(ADB.Handle,1,
@PdxStruct,nil,nil,nil,False));
finally
ADB.KeepConnection := SaveKC;
end;
finally
Free;
end;
end;

begin
PonClave('DBDEMOS','BIOLIFE.DB','MiPassword');
end;

mi objetivo es agregarle una nueva clave a una tabla que ya tiene una, dicho codigo la agrega pero borra la clave anterior, que debo de hacele para que no ocurra esto ya que no deseo borrar la clave existente. GRACIAS.

Chaoooooooooooooooooooooooo

La tabla solamente puede tener una clave, si quieres que a a la aplicación se pude acceder con distintas claves tiens que guardarlas en una tabla debidamente codificadas y al acceder a cada usuario se le solicita su clave si es correcta se le da paso y sino se le impide.


Un Saludo.