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

[مهدي]

الكود التالي يساعدك على تغيير مسار الإسم المستعار

PHP كود :

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


و في المرة القادمة نوضح كيفية حذف الإسم المستعار