Paradox数据库别名的问题

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  vDatabaseName: string;
begin
  vDatabaseName := ExtractFileDir(ParamStr(0)); //paradox可以直接用路径做别名
  Table1.DatabaseName := vDatabaseName;
  Table2.DatabaseName := vDatabaseName;
  Table3.DatabaseName := vDatabaseName;
end;

Answer 1

两种方法。
1、是分发程序时打包，此时加上别名就可以了。
2、就是在程序上建立。
   Database1.close;
   Database1.DatabaseName:='NewAlias6';
   Database1.DriverName:='STANDARD';
   Database1.Params.Clear;
   Database1.Params.Add('path='+extractfilepath(application.exename)+'data');
   table1.DatabaseName:='NewAlias6';
   DataSource1.DataSet:=table1;
   table1.close;
   table1.TableName :='rscontrol.DB';

Answer 2

table1.close;
   table1.TableName :=yourpath+'rscontrol.DB';

Answer 3

建议你在源程序的目录中建一个子目录如data，把表文件放在data目录下，在table,query等的databasename设为data\就可以了。