pfm_fdthdhand.pas

这是一个用DELPHI7开发的大型超市管理系统

unit pfm_fdthdhand;

interface

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

type
  Tfm_fdthdhand = class(TForm)
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Table2: TTable;
    BatMove1: TBatchMove;
    BtnGetThd: TButton;
    Table1: TTable;
    BBtnquit: TBitBtn;
    Memo1: TMemo;
    BtnGetTcd: TButton;
    BtnGetxsrz: TButton;
    procedure BtnGetThdClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BBtnquitClick(Sender: TObject);
    procedure BtnGetxsrzClick(Sender: TObject);
    procedure BtnGetTcdClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_fdthdhand: Tfm_fdthdhand;

implementation

{$R *.DFM}
procedure Tfm_fdthdhand.BtnGetThdClick(Sender: TObject);
var
  fdthdlist:Tstringlist;
  sr: TSearchRec;
  FileAttrs: Integer;
  mDir:string;
  srstr:string;
  thdfile:string;
  i:integer;
begin
    //搜索分店提交的申请提货单文件
    memo1.lines.add('正在回收分店提交的申请提货单，请等待！');
    fdthdlist:=Tstringlist.create;
    FileAttrs:=faAnyFile;
    mDir:='';
    srstr:=mDir+'comdata\fddata\fdthd*.db';
    table2.tablename:='tab_fdthd';
    if FindFirst(srstr, FileAttrs, sr) = 0 then
    begin
       thdfile:=sr.Name;
       fdthdlist.add(thdfile);
       while FindNext(sr) = 0 do
       begin
          thdfile:=sr.Name;
          fdthdlist.add(thdfile);
       end;
       FindClose(sr);
    end;
    //将所有提货单的记录加入到sql server数据库中

    for i:=0 to fdthdlist.count-1 do
    begin
        table1.tablename:=mDir+'comdata\fddata\'+fdthdlist.strings[i];
        batMove1.Source:=table1;
        batMove1.destination:=table2;
        BatMove1.Mappings.add('spbm=spbm');
        BatMove1.Mappings.add('sptxm=sptxm');
        BatMove1.Mappings.add('spnum=thnum');
        batmove1.mappings.add('oldspnum=oldthnum');
        BatMove1.Mappings.add('fdmc=fdmc');
        batMove1.mode:=batappend;
        batmove1.execute;
        memo1.lines.add(fdthdlist.strings[i]+'提货单加入的行数:'+inttostr(batmove1.movedcount));
        if table1.active=true then
        begin
            table1.Active:=false;
        end;
        table1.deletetable;
    end;

    memo1.lines.add('分店提货单数据回收完毕！');
    AddOptRecord('回收分店提货单数据，共'+inttostr(fdthdlist.count)+'个文件');
    fdthdlist.free;
end;
procedure Tfm_fdthdhand.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=CaFree;
end;

procedure Tfm_fdthdhand.BBtnquitClick(Sender: TObject);
begin
    close;
end;

procedure Tfm_fdthdhand.BtnGetxsrzClick(Sender: TObject);
var
  xsrzlist:Tstringlist;
  sr: TSearchRec;
  FileAttrs: Integer;
  mDir:string;
  srstr:string;
  xsrzfile:string;
  i:integer;
begin
    //搜索分店提交的销售日志文件
    memo1.lines.add('正在回收分店提交的销售日志，请等待！');
    xsrzlist:=Tstringlist.create;
    FileAttrs:=faAnyFile;
    mDir:='';
    srstr:=mDir+'comdata\xsrz\xsrz*.db';
    table2.tablename:='tab_xsrz';
    if FindFirst(srstr, FileAttrs, sr) = 0 then
    begin
       xsrzfile:=sr.Name;
       xsrzlist.add(xsrzfile);
       while FindNext(sr) = 0 do
       begin
          xsrzfile:=sr.Name;
          xsrzlist.add(xsrzfile);
       end;
       FindClose(sr);
    end;
    //将所有销售日志的记录加入到sql server数据库中

    for i:=0 to xsrzlist.count-1 do
    begin
        table1.tablename:=mDir+'comdata\xsrz\'+xsrzlist.strings[i];
        batMove1.Source:=table1;
        batMove1.destination:=table2;
  	    BatMove1.Mappings.add('lsh=lsh');
	    BatMove1.Mappings.add('xh=xh');
	    BatMove1.Mappings.add('spbm=spbm');
	    BatMove1.Mappings.add('dj=dj');
	    BatMove1.Mappings.add('yhfs=yhfs');
	    BatMove1.Mappings.add('yhj=yhj');
	    BatMove1.Mappings.add('spnum=spnum');
	    BatMove1.Mappings.add('skje=skje');
	    BatMove1.Mappings.add('rq=rq');
	    BatMove1.Mappings.add('skym=skym');
	    BatMove1.Mappings.add('posid=posid');
	    BatMove1.Mappings.add('gzh=gzh');

        batMove1.mode:=batappend;
        batmove1.execute;
        memo1.lines.add(xsrzlist.strings[i]+'销售日志加入的行数:'+inttostr(batmove1.movedcount));
        if table1.active=true then
        begin
            table1.Active:=false;
        end;
        table1.deletetable;
    end;
    AddOptRecord('回收分店销售日志，共'+inttostr(xsrzlist.count)+'个文件');
    xsrzlist.free;
    memo1.lines.add('分店销售日志数据回收完毕！');
end;

procedure Tfm_fdthdhand.BtnGetTcdClick(Sender: TObject);
var
  fdtcdlist:Tstringlist;
  sr: TSearchRec;
  FileAttrs: Integer;
  mDir:string;
  srstr:string;
  tcdfile:string;
  i:integer;
begin
    //搜索分店提交的申请退仓单文件
    memo1.lines.add('正在回收分店提交的退仓单，请等待！');
    fdtcdlist:=Tstringlist.create;
    FileAttrs:=faAnyFile;
    mDir:='';
    srstr:=mDir+'comdata\fddata\fdtcd*.db';
    table2.tablename:='tab_fdtcd';
    if FindFirst(srstr, FileAttrs, sr) = 0 then
    begin
       tcdfile:=sr.Name;
       fdtcdlist.add(tcdfile);
       while FindNext(sr) = 0 do
       begin
          tcdfile:=sr.Name;
          fdtcdlist.add(tcdfile);
       end;
       FindClose(sr);
    end;
    //将所有退仓单的记录加入到sql server数据库中

    for i:=0 to fdtcdlist.count-1 do
    begin
        table1.tablename:=mDir+'comdata\fddata\'+fdtcdlist.strings[i];
        batMove1.Source:=table1;
        batMove1.destination:=table2;
        BatMove1.Mappings.add('spbm=spbm');
        BatMove1.Mappings.add('sptxm=sptxm');
        BatMove1.Mappings.add('spnum=spnum');
        batmove1.mappings.add('oldspnum=oldspnum');
        batmove1.Mappings.add('ckmc=ckmc');
        BatMove1.Mappings.add('fdmc=fdmc');
        BatMove1.Mappings.add('djhm=djhm');
        BatMove1.Mappings.add('rq=rq');
        BatMove1.Mappings.add('jsrm=jsrm');
        batMove1.mode:=batcopy;
        batmove1.execute;
        memo1.lines.add(fdtcdlist.strings[i]+'退货单加入的行数:'+inttostr(batmove1.movedcount));
        if table1.active=true then
        begin
            table1.Active:=false;
        end;
        table1.deletetable;
    end;
    AddOptRecord('回收分店退仓单数据，共'+inttostr(fdtcdlist.count)+'个文件');
    fdtcdlist.free;
    memo1.lines.add('分店退仓单数据回收完毕！');
end;

end.