invdataexpimp.pas

文件包含程序源原文件

unit InvDataExpImp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, Mask, ExtCtrls, dpConst;

type
  TfrmDataExpImp = class(TForm)
    stsBar: TStatusBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    btnBackup: TSpeedButton;
    lblExport: TLabel;
    Image1: TImage;
    edtFDate: TDateTimePicker;
    edtEDate: TDateTimePicker;
    Panel2: TPanel;
    btnRestore: TSpeedButton;
    lblImport: TLabel;
    Image2: TImage;
    edtImpFDate: TDateTimePicker;
    edtImpEDate: TDateTimePicker;
    Panel3: TPanel;
    Panel4: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnBackupClick(Sender: TObject);
    procedure btnRestoreClick(Sender: TObject);

  private
    { Private declarations }
    procedure SetMultilingual;

  public
    { Public declarations }
  end;

var
  frmDataExpImp: TfrmDataExpImp;

implementation

uses InvDM, Main;

{$R *.dfm}


procedure TfrmDataExpImp.FormCreate(Sender: TObject);
begin
  Top  := 0;
  Left := frmMain.Width;
  Height := Height;
  Width := Width;

  SetMultilingual;
end;

procedure TfrmDataExpImp.FormShow(Sender: TObject);
begin
  edtFDate.Date    := dm_inventory.LastYearFromDay;
  edtEDate.Date    := dm_inventory.LastYearEndDay;
  edtImpFDate.Date := dm_inventory.LastYearFromDay;
  edtImpEDate.Date := dm_inventory.LastYearEndDay;
end;

procedure TfrmDataExpImp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
end;

procedure TfrmDataExpImp.btnBackupClick(Sender: TObject);
var FDate,EDate: TDatetime;
begin
  FDate := StrToDatetime(formatdatetime('yyyy/mm/dd',edtFDate.Date)+' 00:00');
  EDate := StrToDatetime(formatdatetime('yyyy/mm/dd',edtEDate.Date)+' 23:59');

  case MessageDlg('Confirm Export data!',mtConfirmation,mbYESNOCANCEL,0) of
    mrYES: begin
             stsBar.Panels[0].Text := 'Export Data Status';
             stsBar.Panels[1].Text := 'Export Data Time: '+DatetimeToStr(Now);
             dm_Inventory.DataExpImp(0,FDate,EDate);
             MessageDlg('Export data is Successfull!',mtWarning,[mbOK],0);
             Exit;
           end;
    mrCancel: exit;
    mrNO:     exit;
  end;
end;

procedure TfrmDataExpImp.btnRestoreClick(Sender: TObject);
var FDate,EDate: TDatetime;
begin
  FDate := StrToDatetime(formatdatetime('yyyy/mm/dd',edtImpFDate.Date)+' 00:00');
  EDate := StrToDatetime(formatdatetime('yyyy/mm/dd',edtImpEDate.Date)+' 23:59');

  case MessageDlg('Confirm Import data!',mtConfirmation,mbYESNOCANCEL,0) of
    mrYES: begin
             stsBar.Panels[0].Text := 'Import Data Status';
             stsBar.Panels[1].Text := 'Import Data Time: '+DatetimeToStr(Now);
             dm_Inventory.DataExpImp(1,FDate,EDate);
             MessageDlg('Import data is Successfull!',mtWarning,[mbOK],0);
             Exit;
           end;
    mrCancel: exit;
    mrNO: exit;
  end;
end;

procedure TfrmDataExpImp.SetMultilingual;
begin
  self.Caption       := GetMultiLingalMsg(90174, 'Data Export/Import');
  lblExport.Caption  := GetMultiLingalMsg(90175, 'Data Export');
  lblImport.Caption  := GetMultiLingalMsg(90176, 'Data Import');
  btnBackup.Caption  := GetMultiLingalMsg(90177, 'Backup');
  btnRestore.Caption := GetMultiLingalMsg(90178, 'Restore');
end;

end.