ziadallaghi / delphinexusdb Goto Github PK

nit U_procedures;
interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, frxClass, frxDBSet,
Vcl.StdCtrls, Vcl.Buttons, ABSMain, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls,
frxExportBaseDialog, frxExportImage, Vcl.Mask, Vcl.DBCtrls, Data.Win.ADODB,
Vcl.ComCtrls;
procedure savetable(var d1:TABSTable);
procedure Deletetable( d1:TABSTable;var s1:string);

implementation

procedure Deletetable( d1:TABSTable;var s1:string);
begin

if not  d1.IsEmpty then

 if MessageDlg('هل تريد حذف المستند ؟ '+s1,mtConfirmation,[MBYES,MBNO],0)=MRYES then
   bEGIN
     d1.delete;
     ShowMessage('تمت عملية الحذف ');
   end;

 end;

procedure savetable(var d1:TABSTable);
begin

if NOT(d1.State=DSBROWSE) then

 if MessageDlg('هل تريد حفظ البيانات ',mtConfirmation,[MBYES,MBNO],0)=MRYES then
   bEGIN
     d1.Post;
     ShowMessage('تمت عملية التخزين');
   end;

 end;

end.