21-02-2019, 10:08 AM
المشكل كان بمكان أخر غير الكود....
عدل ما يلي
وايضا
ولا تنسى تغيير Connected الى False للمكون ABSDatabase1
عدل ما يلي
كود :
procedure TDM.DataModuleCreate(Sender: TObject);
var i:integer;
begin
ABSDatabase1.Open;
for i := 0 to ComponentCount-1 do
if( Components[ i ] is TABSTable )then
(Components[ i ] as TABSTable).Open;
end;
procedure TDM.DataModuleDestroy(Sender: TObject);
var i:integer;
begin
for i := 0 to ComponentCount-1 do
if( Components[ i ] is TABSTable )then
(Components[ i ] as TABSTable).Close;
ABSDatabase1.Close;
end;كود :
procedure TForm1.Button1Click(Sender: TObject);
var sPath,Pdir:string;
begin
sPath:=ExtractFilePath(ParamStr(0));
Pdir:=sPath+'\Archives';
if not DirectoryExists(Pdir) then CreateDir(Pdir);
DM.OnDestroy(sender);
Sleep(200);
copyfile(pchar(sPath+'sbase\teste.ABS'),pchar(Pdir+'\'+ComboBox1.Text+SpinEdit1.text),false);
DM.OnCreate(sender);
Sleep(500);
showMessage('ok');
Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
var sPath,Pdir:string;
begin
sPath:=ExtractFilePath(ParamStr(0));
Pdir:=sPath+'\Archives';
if MessageDlg('إسترجاع',mtWarning,mbOKCancel,0)=mrOK then begin
DM.OnDestroy(sender);
Sleep(200);
copyfile(pchar(Pdir+'\'+ComboBox1.Text+SpinEdit1.text),pchar(sPath+'sBase\Teste.ABS'),false);
Sleep(500);
DM.OnCreate(sender);
ShowMessage('تم');
end else begin
ShowMessage('عذرا');
end;
Close;
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ