إضافة إسم مستعار Alias لقاعدة بيانات بارادوكس Paradox بالدلفي

[مهدي]

يمكنك إضافة إسم مستعار Alias لقاعدة بيانات بارادوكس Paradox بالدلفي بالكود التالي

PHP كود :

uses DBTables;
...
procedure TForm1.Button1Click(Sender: TObject);
var
 Params: TStringList;
begin
if not Session.IsAlias('Mahdi') then
  begin
  Params := TStringList.Create;
  with Params do
    begin
    Add('DEFAULT DRIVER=PARADOX');
    Add('ENABLE BCD=True');
    Add('PATH=c:\Dir');         // مسار الإسم المستعار
    end;
  Session.AddAlias('Mahdi', 'PARADOX', Params);     //  هو الإسم المستعار المراد إضافته"Mahdi"
  Session.SaveConfigFile;
  Params.Free;
  showmessage('تم إضافة الإسم المستعار بنجاح');
  end else Showmessage('الإسم المستعار موجود');
end;