حفظ قاعدة البيانات Absolute database - نسخة قابلة للطباعة

كود :

procedure TFLaCloture.SpeedButton2Click(Sender: TObject);
begin
Sleep(1000);
data.OnDestroy(sender);
copyfile(pchar('..\..\Pstock\Stock.ABS'),pchar('..\..\Pstock\Stock')+(Edit1.Text)+ '.ABS');//,False);
data.OnCreate(sender);
sleep(1000);
showMessage('l''Opération de sauvgarde est réussie avec succés' );
FLaCloture.Close;
end;

كود :

function CopyFile(Source, Destination: String ) : boolean;
var
  fos : TSHFileOpStruct;
begin
  FillChar(fos, SizeOf(fos),0);
  with fos do
  begin
    wFunc := FO_COPY;
    pFrom := PChar(Source+#0);
    pTo   := PChar(Destination+#0);
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
  end;
  result := (0 = ShFileOperation(fos));
end;


procedure TFLaCloture.MaCloture;
begin
  Chemin := ExtractFilePath(Application.ExeName);
   screen.cursor := crHourGlass;
   CopyFile(Chemin + '..\..\Pstock\Stock.ABS',Chemin + '..\..\Pstock\Stock' + Edit1.Text + '.ABS');
   Sleep(1000);
   Sleep(1000);
   ShowMessage('Terminer...');
   screen.cursor := crDefault;
   close;
end;




procedure TFLaCloture.SpeedButton2Click(Sender: TObject);
begin
Sleep(1000);
data.OnDestroy(sender);
copyfile(pchar('..\..\Pstock\Stock.ABS'),pchar('..\..\Pstock\Stock')+(Edit1.Text)+ '.ABS');//,False);
data.OnCreate(sender);
sleep(1000);
showMessage('l''Opération de sauvgarde est réussie avec succés' );
FLaCloture.Close;
end;

procedure TFLaCloture.SpeedButton3Click(Sender: TObject);
begin

 Chemin := ExtractFilePath(Application.ExeName);

   if FileExists(Chemin+ '\'+ 'Stock'+ Edit1.Text + '.ABS') then

   begin
      messagedlg('L''exercice  '+ Edit1.Text + '  est déjà clôturer',mtWarning,[mbYes],0);
   end
   else
      if messagedlg('Confirmer la Cloture de l''exercice  '+ Edit1.Text +'  ? ',mtconfirmation,[mbYes,mbNo],0) = mrYes then
      begin

         MaCloture;

      end;

end;

كود :

data.OnDestroy(sender);

كود :

data.OnCreate(sender);

كود :

procedure TForm1.MenuItem3Click(Sender: TObject);
begin
Sleep(1000);
DModule.OnDestroy(sender);
copyfile(pchar('teste.ABS'),pchar(Form2.ComboBox1.Text+Form2.SpinEdit1.Text),False);
DModule.OnCreate(sender);
Sleep(10000);
showMessage('تمت عملية الحفظ بنجاح');
end;

كود :

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
Sleep(1000);
DModule.OnDestroy(sender);
copyfile(pchar(ComboBox1.Text+SpinEdit1.text),pchar('teste.ABS'),false);
DModule.OnCreate(sender);
Sleep(10000);
showMessage('تمت علية الإسترجاع بنجاح');
Close;
end;