unit pfm_updatefdspxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Db, StdCtrls, Buttons, pvar_lib;

type
  Tfm_updatefdspxx = class(TForm)
    BatMove1: TBatchMove;
    Query1: TQuery;
    Table1: TTable;
    GroupBox1: TGroupBox;
    BBtnSpxx: TBitBtn;
    Memo1: TMemo;
    BBtnSomespxx: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BBtnSpxxClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BBtnSomespxxClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_updatefdspxx: Tfm_updatefdspxx;

implementation

uses pfm_updatespxx;

{$R *.DFM}

procedure Tfm_updatefdspxx.BBtnSpxxClick(Sender: TObject);
begin
    if application.messagebox(pchar('導出商品明細表所有的記錄將花一定的時間，確定要導出？'),
        pchar('警告！'),MB_OKCANCEL)<>IDOK then
    begin
        exit;
    end;
    memo1.Lines.add('導出商品明細表所有的記錄......');
    if fileexists('comdata\spmx\spmx.db') then
    begin
        deletefile('comdata\spmx\spmx.db');
    end;
    with BatMove1.Mappings do
    begin
        add('spbm=spbm');
        add('sptxm=sptxm');
        add('spmc=spmc');
        add('baozhuangdw=baozhuangdw');
        add('ggxh=ggxh');
        add('wsdj=wsdj');
        add('yhl=yhl');
    end;
    query1.databasename:='posdb';
    query1.sql.Clear;
    query1.sql.Add('select * from t_spxx');

    batMove1.mode:=batCopy;
    batMove1.source:=query1;
    batmove1.destination:=table1;
    table1.Tablename:='comdata\spmx\spmx.db';
    batMove1.Execute;
    memo1.Lines.add('導出完畢，共導出商品明細表記錄'+
    inttostr(batMove1.movedcount)+'條');
    AddOptRecord('導出商品明細表');
end;

procedure Tfm_updatefdspxx.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=CaFree;
end;

procedure Tfm_updatefdspxx.BBtnSomespxxClick(Sender: TObject);
begin
    if application.messagebox(pchar('導出商品明細表所有的記錄將花一定的時間，確定要導出？'),
        pchar('警告！'),MB_OKCANCEL)<>IDOK then
    begin
        exit;
    end;
    memo1.Lines.add('導出商品明細表所有的記錄......');
    if fileexists('comdata\spmx\updatespmx.db') then
    begin
        deletefile('comdata\spmx\updatespmx.db');
    end;
    with BatMove1.Mappings do
    begin
        add('spbm=spbm');
        add('sptxm=sptxm');
        add('spmc=spmc');
        add('baozhuangdw=baozhuangdw');
        add('ggxh=ggxh');
        add('wsdj=wsdj');
        add('yhl=yhl');
    end;
    query1.databasename:='posdb';
    query1.sql.Clear;
    query1.sql.Add('select * from t_spxx where spbm in (select spbm from tab_updatespmx)');

    batMove1.mode:=batCopy;
    batMove1.source:=query1;
    batmove1.destination:=table1;
    table1.Tablename:='comdata\spmx\updatespmx.db';
    batMove1.Execute;
    memo1.Lines.add('導出完畢，共導出商品明細表記錄'+
    inttostr(batMove1.movedcount)+'條');
    query1.SQL.clear;
    query1.sql.Add('delete from tab_updatespmx');
    query1.ExecSQL;
    AddOptRecord('導出用于更新的部分商品明細表');
end;

procedure Tfm_updatefdspxx.BitBtn1Click(Sender: TObject);
begin
      Application.CreateForm(Tfm_updatespxx, fm_updatespxx);
      fm_updatespxx.showmodal;
      fm_updatespxx.free;
      AddOptRecord('編輯用于更新的部分商品明細表');
end;

end.