databack.pas

大型分布式销售管理系统,DELPHI编写,商业源代码,现在已经商用,下载者严禁出售该代码,只可以自己学习,包含数据库文件

unit databack;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, CheckLst, ExtCtrls, DBTables, DB,StrUtils,DateUtils;

type
  Tform_databack = class(TForm)
    Panel2: TPanel;
    GroupBox4: TGroupBox;
    CkLBox1: TCheckListBox;
    Panel3: TPanel;
    BBtnNoall: TBitBtn;
    BBtnSelall: TBitBtn;
    Panel4: TPanel;
    GroupBox3: TGroupBox;
    Edit1: TEdit;
    Button2: TButton;
    BitBtn1: TBitBtn;
    Button1: TButton;
    Table2: TTable;
    BatMove1: TBatchMove;
    Table3: TTable;
    table1: TQuery;
    query1: TQuery;
    Panel5: TPanel;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure BBtnSelallClick(Sender: TObject);
    procedure BBtnNoallClick(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
    procedure OpenFile(tempFile:string);
    procedure ModifyRecord(tableName:string;i:integer);
    procedure AddBackUpFields(tablename:string);         
  public
    { Public declarations }
  end;

var
  form_databack: Tform_databack;
  stable,stabledes,AcceptTableName:TStringlist;
  myFileName:TextFile;
  filePath,FromOffice,fromtime:string;

implementation

uses pfm_selectdir, Unit_wxp;

{$R *.dfm}

procedure Tform_databack.FormCreate(Sender: TObject);
var
i:integer;
begin
     stable:=TStringlist.create;
     stabledes:=Tstringlist.create;


     stable.Add('PartLeft');
     stabledes.Add('配件库存信息');


     stable.Add('pub_z_part');
     stabledes.Add('配件基本信息');

      stable.Add('std_machine');
     stabledes.Add('机型标准表');



     stable.Add('pub_z_partsell');
     stabledes.Add('配件回笼信息');

     stable.Add('pub_z_partorder');
     stabledes.Add('配件订单表');

     stable.Add('pub_z_partin');
     stabledes.Add('零件入库单信息');

     stable.Add('pub_z_partout');
     stabledes.Add('零件出库信息');

     stable.Add('pub_z_test');
     stabledes.Add('试机报告信息');

     stable.Add('pub_z_maintain');
     stabledes.Add('机器维修信息');


     stable.Add('pub_z_contract');
     stabledes.Add('合同主表');


     stable.Add('pub_z_contract_machine');
     stabledes.Add('标的物');


     stable.Add('pub_z_contract_project');
     stabledes.Add('特别工程款表');


     stable.Add('pub_z_contract_specialties');
     stabledes.Add('合同的其他特殊装置');



     stable.Add('pub_z_contract_payment_before');
     stabledes.Add('合同预期付款');



     stable.Add('pub_z_contract_payment_record');
     stabledes.Add('合同付款记录');



     stable.Add('pub_z_contract_machine_requisition');
     stabledes.Add('宁波震雄出机单');



     stable.Add('pub_z_contract_machine_requisition_ys');
     stabledes.Add('亚塑机械出机单');



     stable.Add('pub_z_machine_out');
     stabledes.Add('产品出库通知');



     stable.Add('pub_z_machine_in');
     stabledes.Add('产品入库通知');



     stable.Add('pub_z_machine_outpay');
     stabledes.Add('出机应付款汇总表');


     stable.Add('pub_z_hk_in');
     stabledes.Add('货款回收汇总表');


     stable.Add('pub_z_cjqk');
     stabledes.Add('出机情况汇总表');


     stable.Add('pub_z_thqk');
     stabledes.Add('退货情况汇总表');


     stable.Add('pub_z_client');
     stabledes.Add('客户登记表');


     stable.Add('pub_c_client_person');
     stabledes.Add('客户联系人 ');


     stable.Add('pub_z_visitold');
     stabledes.Add('客户回访表');


     stable.Add('pub_z_complaint');
     stabledes.Add('客户投诉表');


     stable.Add('crttbl_mainpay');
     stabledes.Add('佣金基本信息生成表');

     stable.Add('crttbl_monthdeliver');
     stabledes.Add('月佣金发放表');

     stable.Add('crttbl_officepay');
     stabledes.Add('月佣金校核表');

     stable.Add('pub_z_bonusratio1');
     stabledes.Add('总公司人员权重表');

     stable.Add('pub_z_checkmark');
     stabledes.Add('总公司人员平分表');

     stable.Add('pub_z_fare');
     stabledes.Add('费用表');

     stable.Add('pub_z_foryearbonus');
     stabledes.Add('年终奖金表');

     stable.Add('pub_z_mainpay');
     stabledes.Add('佣金基本信息表');

     stable.Add('pub_z_monthpaycheck');
     stabledes.Add('月佣金校核表');



     stable.Add('pub_z_stuff');
     stabledes.Add('职工基本信息表');

     stable.Add('pub_z_payin');
     stabledes.Add('职工工资个人信息表');

     stable.Add('pub_z_payinbase');
     stabledes.Add('职工工资基本信息表');

     stable.Add('pub_z_payratio');
     stabledes.Add('个人权重表');


     stable.Add('pub_z_salededuct');
     stabledes.Add('零件计提登记表');


     stable.Add('pub_z_saledistribute');
     stabledes.Add('零件计提分配表');


     stable.Add('pub_z_saleratio');
     stabledes.Add('零件计提权重表');


     stable.Add('pub_z_saleregister');
     stabledes.Add('回笼货款登记表');


     stable.Add('pub_z_ybnsdeliver');
     stabledes.Add('年终奖金发放表');

     stable.Add('pub_z_ybnsdeliver1');
     stabledes.Add('总公司人员奖金发放个人信息表');

     stable.Add('pub_z_ybnsdeliverall1');
     stabledes.Add('总公司人员奖金发放综合信息表');

     stable.Add('pub_z_yearratio');
     stabledes.Add('年终奖金权重表');

     stable.Add('std_office_station');
     stabledes.Add('职位标准表');

     stable.Add('std_pay_bonus');
     stabledes.Add('吨位奖罚标准表');

     stable.Add('std_pay_coefficient');
     stabledes.Add('货款回笼系数表');

     stable.Add('std_pay_deduct');
     stabledes.Add('零配件计提率表');

     //stable.Add('std_pay_float');
     //stabledes.Add('公司佣金浮动率表');

     stable.Add('std_pay_maintain');
     stabledes.Add('维修人工费计提率');

     stable.Add('std_pay_office');
     stabledes.Add('公司佣金率表 [] ');

     stable.Add('std_pay_upper');
     stabledes.Add('佣金发放上限表');

//     stable.Add('view_mainpay');
//     stabledes.Add('佣金基本登记表视图');

     stable.Add('t_userright');
     stabledes.Add('用户权限');

     stable.Add('pub_z_acceptrecord');
     stabledes.Add('日志信息');





     for i:=0 to stable.count-1 do
     begin
        cklbox1.Items.Add(stabledes.strings[i]);
        cklbox1.Checked[i]:=true;
     end;

     edit1.Text :=leftstr(application.ExeName ,length(application.ExeName)-8)+'updata';
     if not DirectoryExists(edit1.Text) then
        mkdir(edit1.Text );

end;

procedure Tform_databack.BBtnSelallClick(Sender: TObject);

var
i:integer;
begin
    for i:=0 to cklbox1.items.count-1 do
    begin
        cklbox1.Checked[i]:=true;
    end;

end;

procedure Tform_databack.BBtnNoallClick(Sender: TObject);
var
i:integer;
begin
    for i:=0 to cklbox1.items.count-1 do
    begin
        cklbox1.Checked[i]:=false;
    end;
end;

procedure Tform_databack.RadioGroup1Click(Sender: TObject);
begin
{     if  RadioGroup1.ItemIndex =0 then
     begin
         bitbtn1.Enabled :=true;
         bitbtn2.Enabled :=false;
         button1.Visible :=true;
         button2.Visible :=false;
         edit1.Text :=leftstr(application.ExeName ,length(application.ExeName)-8)+'updata';
     end
     else
     begin
         bitbtn1.Enabled :=false;
         bitbtn2.Enabled :=true;
         button1.Visible :=false;
         button2.Visible :=true;
         edit1.Text :='';
     end;
           }
end;

procedure Tform_databack.Button1Click(Sender: TObject);
begin
     Application.CreateForm(tfm_selectdir, fm_selectdir);