请问如何在程序中打开一个加密码的Paradox表啊,在线结帖;

Question

请问如何在程序中打开一个加密码的Paradox表啊,在线结帖;

Answer 1

Table1.DBSession.AddPassword('your password');
Table1.Open;

Answer 2

var
  Session1:tSession;
begin
   Session1:=TSession.Create(Self);
   Session1.SessionName :='TempSession1';
   Session1.Active :=true;
   Session1.DeleteAlias('DBTODBF');
   Session1.AddStandardAlias('DBTODBF',ExtractFilePath(Application.ExeName)+'DBTODBF' , 'FOXPRO');
//   Session1.SaveConfigFile;
   Session1.AddPassword('818505');
   userTbl.DatabaseName :=ExtractFilePath(Application.ExeName)+'TempData';
   UserTbl.SessionName :='TempSession1';
   UserTbl.Open;
//--你的代码
   Session1.Free;
end