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 ;
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 ;
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 ;