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

[مهدي]

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



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;

[مهدي]

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


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;


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

[لانا]

ماشاء الله عليك مبدع أخي مهدي..

لا أنكر أن طريقتك كانت كالبلسم لمشكلتي..

لكن اقترح تعديل بسيط على الكود التالي ليكون أكثر ديناميكيه..ليتعرف على قاعدة المعطيات اينما وجد مجلد البرنامج..

Add('PATH=c:\Dir1');

ليصبح كالتالي:

var ِAlias:String;

Alias:=ExtractFilePath(Application.exename)+'Data' ;// مسار قاعدة المعطيات


if Session.IsAlias('Mehdi') then
Session.DeleteAlias('Mehdi');

if not Session.IsAlias('Mehdi') then
begin
Params := TStringList.Create;
with Params do
begin
Add('DEFAULT DRIVER=PARADOX');
Add('ENABLE BCD=True');
Add('PATH='+Alias);
end;
Session.AddAlias('Mehdi', 'PARADOX', Params);
Session.SaveConfigFile;
Params.Free;

end;

[مهدي]

Alias:=ExtractFilePath(Application.exename)+'Data' ;// مسار قاعدة المعطيات

هذا يعني أن مسار قاعدة البيانات متعلق بمسار البرنامج التنفيذي -تعديل موفق-

و هذا مثال آخر يساعد على تحديد مسار الإسم المستعار بشكل أحسن


uses FileCtrl, DBTables;

...

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

[مهدي]

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


procedure TForm1.Button3Click(Sender: TObject);
begin
if Session.IsAlias('Mahdi') then
begin
Session.DeleteAlias('Mahdi'); // هو الإسم المستعار المراد حذفه"Mahdi"
Session.SaveConfigFile;
showmessage('تم حذف الإسم المستعار بنجاح');
end else Showmessage('الإسم المستعار غير موجود');
end;

[مؤمن ملك]

السلام وعليكم
هو اى برنامج لابد أن أعرف الاسم المستعار بتاعة علشان اشغل البرنامج
معلش استفسار من مبتدء
مع الشكر

[مهدي]

و عليكم السلام و رحمة الله

الإسم المستعار يستعمل فقط عند إستخدام قواعد البيانات التي تعمل على محرك قاعدة بيانات بورلاند Dbe.

[daho28]

أشكرك أخي الكريم

[moh38]

جزاك الله خيرا...موفق

[كل محمد فؤاد]

شكرا.
..لكني أرى أن العمل بدون Alias أحسن
أعتمد الطريقة \.