databack_nowuse.pas

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

unit databack_nowuse;

interface

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

type
  Tform_cover = class(TForm)
    Panel2: TPanel;
    GroupBox4: TGroupBox;
    CkLBox1: TCheckListBox;
    Panel3: TPanel;
    BBtnNoall: TBitBtn;
    BBtnSelall: TBitBtn;
    Panel4: TPanel;
    GroupBox3: TGroupBox;
    Edit1: TEdit;
    Button2: TButton;
    BitBtn2: TButton;
    Table2: TTable;
    BatMove1: TBatchMove;
    Table3: TTable;
    table1: TQuery;
    query1: TQuery;
    Panel5: TPanel;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    Button3: TButton;
    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);
    procedure Button3Click(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_cover: Tform_cover;
  stable,stabledes,AcceptTableName:TStringlist;

  filePath,FromOffice,fromtime:string;

implementation

uses pfm_selectdir, Unit_wxp;

{$R *.dfm}

procedure Tform_cover.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('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('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_cover.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_cover.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_cover.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_cover.Button1Click(Sender: TObject);
begin
     Application.CreateForm(tfm_selectdir, fm_selectdir);
     if (fm_selectdir.Showmodal=IDOK)  then
     edit1.text:=fm_selectdir.retpath;
     fm_selectdir.free;
end;

procedure Tform_cover.Button2Click(Sender: TObject);
var
i:integer;
fileName:string;
begin
     for i:=0 to stable.count-1 do
     begin
        cklbox1.Items.Add(stabledes.strings[i]);
        //cklbox1.Checked[i]:=true;
     end;

     OpenDialog1.Filter  :='文本文件(*.txt;)|*.txt';
     OpenDialog1.InitialDir:='updata\';
     if opendialog1.Execute then
     begin
        //edit1.Text :=opendialog1.FileName ;
        if rightstr(opendialog1.FileName,15) <>'zxjx_backup.txt' then
        begin
           showmessage('文件名必须为zxjx_backup.txt');
           edit1.Text :='';
           bitbtn2.Enabled :=false;
           exit;
        end
        else
        begin
            fileName :=opendialog1.FileName ;
            filePath:=midstr(edit1.Text ,1,(length(edit1.Text)-15));
            OpenFile(fileName );
            edit1.Text :=fileName;

        end;
     end;
end;


procedure   Tform_cover.OpenFile(tempFile:string);
var
i :integer;
TableName:string;
fileContent:string;
fileName:string;
myFileName:TextFile;
begin
     fileName:=tempFile;
     //使所有的选项失效
     //for i:=0 to stable.count-1 do
     //begin
          //CkLBox1.ItemEnabled[i]:=false;
     //end;
     //CloseFile(myFileName);
     //读出文件中的内容
     memo1.Lines.Clear ;
     memo1.Lines.Add('以下为打开的文件信息:');
     AssignFile(myFileName,'G:\震雄销售\code\updata\zxjx.txt');
     reset(myFileName);
     //读出备份的时间

     readln (myfilename,filecontent);
     if leftstr(filecontent,8)<>'备份时间' then
     begin
        showmessage('文件可能已经破坏');
        memo1.Lines.Clear ;
        edit1.Text :='';
        closeFile(myFileName);
        exit;