BED 连接 Paradox

 

procedure TForm1.FormCreate(Sender: TObject);
begin
   with  Session1  do
  begin
    ConfigMode : =  cmSession;
    try
    AddStandardAlias( ' bendix', ExtractFilePath(ParamStr(0))+'db', 'PARADOX');
    finally
    ConfigMode : =  cmAll;
     end ;
   end ;
  Query1.DatabaseName : =   ' bendix';
  Session1.AddPassword( ' password');
  Query1.SQL.Clear;
  Query1.SQL.Add( ' select * from make');
  Query1.Active : =   true ;
end ;

 

检查别名

procedure TForm1.FormCreate(Sender: TObject);
var
  strAlias:TStringList; 
begin
  strAlias: = TStringList.Create;
   with  Session1  do
  begin
    GetAliasNames(strAlias);
     if  (strAlias.IndexOf( ' A3') = -1) then
    begin
      ConfigMode : =  cmSession;
      try
      AddStandardAlias( ' A3', ExtractFilePath(ParamStr(0))+'db', 'PARADOX');
      finally
      ConfigMode : =  cmAll;
       end ;
     end ;
   end ;
  Query1.DatabaseName : =   ' A3';
  Session1.AddPassword( ' password');
  Query1.SQL.Clear;
  Query1.SQL.Add( ' select * from Product');
  Query1.Active : =   true ;
end ;