f_update.pas

仓库管理系统 仓库管理系统

unit f_update;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids,
  DBTables;

type
  Tdfmupdate = class(TForm)
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Panel3: TPanel;
    postbtn: TBitBtn;
    BatchMove1: TBatchMove;
    Table1: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Label1: TLabel;
    ADOTable1: TADOTable;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    table2: TTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure postbtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmupdate: Tdfmupdate;

implementation

uses dbmRainbowMis;

{$R *.dfm}

procedure Tdfmupdate.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tdfmupdate.postbtnClick(Sender: TObject);
begin
  label1.Caption :='开始导入数据......';

  table1.TableName :='DBA.flda';
  table2.TableName :='flda';
  BatchMove1.Execute ;

  table1.TableName :='DBA.spda';
  table2.TableName :='spda';
  BatchMove1.Execute ;

{  table1.TableName :='DBA.flda';
  table2.TableName :='flda';
  BatchMove1.Execute ;}

//  table1.TableName :='DBA.sysparm';
//  table2.TableName :='sysparm';
//  BatchMove1.Execute ;

  table1.TableName :='DBA.zgda';
  table2.TableName :='zgda';
  BatchMove1.Execute ;

  table1.TableName :='DBA.bmda';
  table2.TableName :='bmda';
  BatchMove1.Execute ;

  table1.TableName :='DBA.kcz';
  table2.TableName :='kcz';
  BatchMove1.Execute ;

  table1.TableName :='DBA.lslsz';
  table2.TableName :='lslsz';
  table2.EmptyTable;
  table1.Open;
  table1.First;
  table2.Open;
  while not table1.Eof do
  begin
    table2.Append;
    table2['bmh']:=table1['bmh'];
    table2['rq']:=table1['rq'];
    table2['sj']:=table1['sj'];
    table2['jyh']:=table1['jyh'];
    if table1['yyyh']='' then
      table2['yyyh']:=null
    else
      table2['yyyh']:=table1['yyyh'];
    table2['skyh']:=table1['skyh'];
    table2['spbh']:=table1['spbh'];
    table2['sl']:=table1['sl'];
    table2['lsj']:=table1['lsj'];
    table2['sjje']:=table1['sjje'];
    table2['zke']:=table1['zke'];
    table1.Next;
  end;
  table1.Close;
  table2.Close;



//  BatchMove1.Execute ;

  label1.Caption :='导入数据完毕！';
end;

procedure Tdfmupdate.BitBtn1Click(Sender: TObject);
begin
  label1.Caption :='开始升级数据库......';
  with Table2 do
  begin
    tablename :='t_store' ;
    EmptyTable;
    tablename :='t_saledet' ;
    EmptyTable;
    tablename :='man' ;
    EmptyTable;
    tablename :='t_branch' ;
    EmptyTable;
    tablename :='t_ware' ;
    EmptyTable;
    tablename :='t_spec' ;
    EmptyTable;
    tablename :='t_class' ;
    EmptyTable;
  end;

  with adoquery1 do
  begin
    close;
    SQL.clear;
    SQL.add('insert into t_class(cclass,cname,clabel) select flh,flmc,"ATOA" from flda where len(trim(flh))=2');
    ExecSQL;

    close;
    SQL.clear;
    SQL.add('insert into t_spec(cstyle,cname,cclass,clabel) select flh,flmc,ssdl,"ATOA" from flda where len(trim(flh))=6');
    ExecSQL;

    close;
    SQL.clear;
    SQL.add('insert into man(freno,fname) select mid(zgh,1,4),xm from zgda');
    ExecSQL;

    close;
    SQL.clear;
    SQL.add('insert into t_ware(spbh,jldw,flh,lsj,jj,clabel) select spbh,jldw,flh,lsj,jj,"ATOA" from spda');
    ExecSQL;

    close;
    SQL.clear;
    SQL.add('insert into t_branch(bmh,bmmc,cid) select bmh,bmmc,"1" from bmda');
    ExecSQL;

    close;
    SQL.clear;
    SQL.add('insert into t_saledet (bmh, rq, sj, jyh, yyyh, skyh, spbh, sl, lsj, sjje, zke, clabel) SELECT bmh, rq, sj, jyh, yyyh, skyh, spbh, sl, lsj, sjje, zke, "ATOA" FROM lslsz');
    ExecSQL;

    close;
    SQL.clear;
    SQL.add('insert into t_store(bmh,spbh,sqsl,sqcb,sqsje,dqsl,kccb,clabel) SELECT bmh,spbh,sqsl,sqcb,sqsje,dqsl,kccb,"ATOA" FROM kcz where [kcz.mont_]="05"');
    ExecSQL;

    label1.Caption :='升级数据库完毕！';
  end;
end;

end.