01-08-2013, 09:04 AM
01-08-2013, 09:25 AM
السلام عليكم و رحمة الله تعالى و بركاته
أخي يمكنك إنشاء الألياس عند تشغيل البرنامج بهذه الطريقة
أخي يمكنك إنشاء الألياس عند تشغيل البرنامج بهذه الطريقة
procedure TForm1.FormCreate(Sender: TObject);
var alias
tring;
begin
alias := ExtractFilePath(Application.ExeName) + 'bd';
table1.Active:=false;
table1.DatabaseName:=alias ;
table1.Active:=true;
end;
بالتوفيقvar alias
tring;begin
alias := ExtractFilePath(Application.ExeName) + 'bd';
table1.Active:=false;
table1.DatabaseName:=alias ;
table1.Active:=true;
end;
01-08-2013, 10:29 AM