pfm_main.pas

< Delphi网络通信协议分析与应用实现>>一书的源代码。

    table1.Active:=true;
    //销售日志
    filelist1:=mySearchfile(myclientset.mCltDataPath+'updata\xsrz-*-*.db');

    if filelist1.Count=0 then
    begin
        memo1.lines.add('分店控制程序没有要上传的【销售日志】文件');
    end;


    for i:=0 to filelist1.count-1 do
    begin
        if not table1.Locate('fname',filelist1.Strings[0],[]) then
        begin//如果该文件已经被下载了，就不考了
            if copyfile(pchar(myclientset.mCltDataPath+'updata\'+filelist1.Strings[i]),
                pchar('sendfile\'+filelist1.Strings[i]),false) then
            begin
                deletefile(myclientset.mCltDataPath+'updata\'+filelist1.Strings[i]);
                memo1.lines.add('【销售日志】文件'+filelist1.Strings[i]+'考到发送目录');
            end;
        end;
    end;
    //分店提货单
    filelist1:=mySearchfile(myclientset.mCltDataPath+'updata\fdthd-*-*.db');
    if filelist1.Count=0 then
    begin
        memo1.lines.add('分店控制程序没有要上传的【提货单】文件');
    end;

    for i:=0 to filelist1.count-1 do
    begin
        if not table1.Locate('fname',filelist1.Strings[0],[]) then
        begin//如果该文件已经被下载了，就不考了
            if copyfile(pchar(myclientset.mCltDataPath+'updata\'+filelist1.Strings[i]),
                pchar('sendfile\'+filelist1.Strings[i]),false) then
            begin
                deletefile(myclientset.mCltDataPath+'updata\'+filelist1.Strings[i]);
                memo1.lines.add('【分店提货单】文件'+filelist1.Strings[i]+'考到发送目录');
            end;
        end;
    end;
    //分店退仓单
    filelist1:=mySearchfile(myclientset.mCltDataPath+'updata\fdtcd-*-*.db');
    if filelist1.Count=0 then
    begin
        memo1.lines.add('分店控制程序没有要上传的【分店退仓单】文件');
    end;
    for i:=0 to filelist1.count-1 do
    begin
        if not table1.Locate('fname',filelist1.Strings[0],[]) then
        begin//如果该文件已经被下载了，就不考了
            if copyfile(pchar(myclientset.mCltDataPath+'updata\'+filelist1.Strings[i]),
                pchar('sendfile\'+filelist1.Strings[i]),false) then
            begin
                deletefile(myclientset.mCltDataPath+'updata\'+filelist1.Strings[i]);
                memo1.lines.add('【分店退仓单】文件'+filelist1.Strings[i]+'考到发送目录');
            end;
        end;
    end;
    table1.Active:=false;
end;
procedure Tmain.BBtnCltfile2Click(Sender: TObject);
var
filelist1:tstringlist;
i:integer;
begin
    if not fileexists(myclientset.mcltDatapath+'ini\frontadmin.ini') then
    begin
        showmessage('分店控制程序的数据路径设置不对，请重新设置');
        exit;
    end;

    //查找下载文件
    //分店提货单
    filelist1:=mySearchfile('revfile\retfdthd-*-*.db');

    if filelist1.Count=0 then
    begin
        memo1.lines.add('没有从总部下载的【分店确认提货单】文件');
    end;

    for i:=0 to filelist1.count-1 do
    begin
        if copyfile(pchar('revfile\'+filelist1.Strings[i]),
                pchar(myclientset.mCltDataPath+'downdata\'+filelist1.Strings[i]),false) then
        begin
            deletefile('revfile\'+filelist1.Strings[i]);
            memo1.lines.add('【分店确认提货单】文件'+filelist1.Strings[i]+'考到回收目录');
        end;
    end;
    //分店退仓单
    filelist1:=mySearchfile('revfile\retfdtcd-*-*.db');
    if filelist1.Count=0 then
    begin
        memo1.lines.add('没有从总部下载的【分店确认退仓单】文件');
    end;

    for i:=0 to filelist1.count-1 do
    begin
        if copyfile(pchar('revfile\'+filelist1.Strings[i]),
                pchar(myclientset.mCltDataPath+'downdata\'+filelist1.Strings[i]),false) then
        begin
            deletefile('revfile\'+filelist1.Strings[i]);
            memo1.lines.add('【分店退仓单】文件'+filelist1.Strings[i]+'考到回收目录');
        end;
    end;
    //分店员工信息
    filelist1:=mySearchfile('revfile\fdygxx-*-*.db');
    if filelist1.Count=0 then
    begin
        memo1.lines.add('没有从总部下载的分店【员工信息表】文件');
    end;


    for i:=0 to filelist1.count-1 do
    begin
        if copyfile(pchar('revfile\'+filelist1.Strings[i]),
                pchar(myclientset.mCltDataPath+'downdata\'+filelist1.Strings[i]),false) then
        begin
            deletefile('revfile\'+filelist1.Strings[i]);
            memo1.lines.add('分店【员工信息表】文件'+filelist1.Strings[i]+'考到回收目录');
        end;
    end;
    //分店商品信息
    filelist1:=mySearchfile('revfile\spmx-*-*.db');

    if filelist1.Count=0 then
    begin
        memo1.lines.add('没有从总部下载的【商品信息表】文件');
    end;

    for i:=0 to filelist1.count-1 do
    begin
        if copyfile(pchar('revfile\'+filelist1.Strings[i]),
                pchar(myclientset.mCltDataPath+'downdata\'+filelist1.Strings[i]),false) then
        begin
            deletefile('revfile\'+filelist1.Strings[i]);
            memo1.lines.add('【商品信息表】文件'+filelist1.Strings[i]+'考到回收目录');
        end;
    end;
    //部分商品信息
    filelist1:=mySearchfile('revfile\udspmx-*-*.db');
    if filelist1.Count=0 then
    begin
        memo1.lines.add('没有从总部下载的【部分商品信息表】文件');
    end;


    for i:=0 to filelist1.count-1 do
    begin
        if copyfile(pchar('revfile\'+filelist1.Strings[i]),
                pchar(myclientset.mCltDataPath+'downdata\'+filelist1.Strings[i]),false) then
        begin
            deletefile('revfile\'+filelist1.Strings[i]);
            memo1.lines.add('【部分商品信息表】文件'+filelist1.Strings[i]+'考到回收目录');
        end;
    end;

end;

procedure Tmain.BBtnSvrfile2Click(Sender: TObject);
var
filelist1:tstringlist;
i:integer;
begin
    if not fileexists(myserverset.mSevDatapath+'ini\admin.ini') then
    begin
        showmessage('总部程序的数据路径设置不对，请重新设置');
        exit;
    end;

    //销售日志
    filelist1:=mySearchfile('revfile\xsrz-*-*.db');
    if filelist1.Count=0 then
    begin
        memo1.lines.add('没有分店上载的【销售日志】文件');
    end;
    for i:=0 to filelist1.count-1 do
    begin
        if copyfile(pchar('revfile\'+filelist1.Strings[i]),
                pchar(myserverset.mSevDatapath+'comdata\xsrz\'+filelist1.Strings[i]),false) then
        begin
            deletefile('revfile\'+filelist1.Strings[i]);
            memo1.lines.add('【销售日志】文件'+filelist1.Strings[i]+'考到回收目录');
        end;
    end;
    //分店提货单
    filelist1:=mySearchfile('revfile\fdthd-*-*.db');
    if filelist1.Count=0 then
    begin
        memo1.lines.add('没有分店上载的【分店要货单】文件');
    end;

    for i:=0 to filelist1.count-1 do
    begin
        if copyfile(pchar('revfile\'+filelist1.Strings[i]),
                pchar(myserverset.mSevDatapath+'comdata\fddata\'+filelist1.Strings[i]),false) then
        begin
            deletefile('revfile\'+filelist1.Strings[i]);
            memo1.lines.add('【分店要货单】文件'+filelist1.Strings[i]+'考到回收目录');
        end;
    end;
    //分店退仓单

    filelist1:=mySearchfile('revfile\fdtcd-*-*.db');
    if filelist1.Count=0 then
    begin
        memo1.lines.add('没有分店上载的【分店退仓单】文件');
    end;
    for i:=0 to filelist1.count-1 do
    begin
        if copyfile(pchar('revfile\'+filelist1.Strings[i]),
                pchar(myserverset.mSevDatapath+'comdata\fddata\'+filelist1.Strings[i]),false) then
        begin
            deletefile('revfile\'+filelist1.Strings[i]);
            memo1.lines.add('【分店退仓单】文件'+filelist1.Strings[i]+'考到回收目录');
        end;
    end;
end;
end.