unit pfm_sysinit;

interface

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

type
  Tfm_sysinit = class(TForm)
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    BBtnsysinit: TBitBtn;
    Query1: TQuery;
    BatMove1: TBatchMove;
    Table1: TTable;
    Table2: TTable;
    procedure BBtnsysinitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_sysinit: Tfm_sysinit;

implementation

{$R *.DFM}

procedure Tfm_sysinit.BBtnsysinitClick(Sender: TObject);
var
stable,stabledes:TStringlist;
i:integer;
begin
     if application.messagebox(pchar('系統(tǒng)初始化將清空所有數(shù)據(jù)，是否要開(kāi)始？'),
     pchar('警告'),MB_YESNO)<>IDYES then
     begin
        exit;
     end;
     stable:=TStringlist.create;
     stabledes:=Tstringlist.create;
     stable.Add('t_bmxx');
     stabledes.Add('部門(mén)信息表');
     stable.Add('t_ckxx');
     stabledes.Add('倉(cāng)庫(kù)信息表');
    // stable.Add('t_datadict');
    // stabledes.Add('下拉數(shù)據(jù)表');
     stable.Add('t_fendianxx');
     stabledes.Add('分店信息表');
     stable.Add('t_gysxx');
     stabledes.Add('供應(yīng)商信息表');
     stable.Add('t_gzxx');
     stabledes.Add('柜組信息表');
     stable.Add('t_khxx');
     stabledes.Add('客戶(hù)信息表');
     stable.Add('t_spbmlb');
     stabledes.Add('商品編碼對(duì)照表');
     stable.Add('t_spxx');
     stabledes.Add('商品信息表');
     stable.Add('t_stocksp');
     stabledes.Add('庫(kù)存信息表');
     stable.Add('t_user');
     stabledes.Add('系統(tǒng)用戶(hù)信息表');
     stable.Add('t_userright');
     stabledes.Add('用戶(hù)操作權(quán)限表');
     stable.Add('t_ygxx');
     stabledes.Add('員工信息表');
     stable.Add('TAB_chinesename');
     stabledes.Add('部門(mén)信息表');
     stable.Add('tab_fdtcd');
     stabledes.Add('分店申請(qǐng)退倉(cāng)單');
     stable.Add('tab_fdthd');
     stabledes.Add('分店申請(qǐng)?zhí)嶝泦?#039;);
     stable.Add('tab_xsrz');
     stabledes.Add('銷(xiāo)售日志表');
     stable.Add('tb_jhd');
     stabledes.Add('進(jìn)貨入庫(kù)單');
     stable.Add('tb_jhdmx');
     stabledes.Add('進(jìn)貨入庫(kù)明細(xì)單');
     stable.Add('tb_mdtcd');
     stabledes.Add('門(mén)店退倉(cāng)單');
     stable.Add('tb_mdtcdmx');
     stabledes.Add('門(mén)店退倉(cāng)明細(xì)單');
     stable.Add('tb_pfd');
     stabledes.Add('批發(fā)單');
     stable.Add('tb_pfdmx');
     stabledes.Add('批發(fā)明細(xì)單');
     stable.Add('tb_sptuihuod');
     stabledes.Add('商品退貨單');
     stable.Add('tb_sptuihuodmx');
     stabledes.Add('商品退貨明細(xì)單');
     stable.Add('tb_syd');
     stabledes.Add('倉(cāng)庫(kù)損溢單');
     stable.Add('tb_sydmx');
     stabledes.Add('倉(cāng)庫(kù)損溢明細(xì)單');
     stable.Add('tb_thd');
     stabledes.Add('分店提貨單');
     stable.Add('tb_thdmx');
     stabledes.Add('分店提貨明細(xì)單');
     stable.Add('tb_tjd');
     stabledes.Add('商品調(diào)價(jià)單');
     stable.Add('tb_tjdmx');
     stabledes.Add('商品調(diào)價(jià)明細(xì)單');
     stable.Add('tb_tuihuod');
     stabledes.Add('客戶(hù)退貨單');
     stable.Add('tb_tuihuodmx');
     stabledes.Add('客戶(hù)退貨明細(xì)單');
     stable.Add('tb_yfkcl');
     stabledes.Add('應(yīng)付款處理單');
     stable.Add('tb_yfkmx');
     stabledes.Add('應(yīng)付款明細(xì)單');
     stable.Add('tb_yskcl');
     stabledes.Add('應(yīng)收款處理單');
     stable.Add('tb_yskmx');
     stabledes.Add('應(yīng)收款明細(xì)單');
     stable.Add('tb_zengpind');
     stabledes.Add('贈(zèng)品單');
     stable.Add('tb_zengpindmx');
     stabledes.Add('贈(zèng)品明細(xì)單');
     stable.add('t_optrecord');
     stabledes.Add('操作日志表');
     for i:=0 to stable.count-1 do
     begin
        query1.SQL.clear;
        query1.sql.add('delete from '+stable.strings[i]);
         memo1.lines.add('正在初始化【'+stabledes.strings[i]+'】......');
        query1.ExecSQL;
     end;
     query1.SQL.Clear;
     query1.sql.add('insert into t_user (username,pname,userpass)values(''admin'',''管理員'',''zhong'')');
     query1.ExecSQL;
    initsave2('初始化','系統(tǒng)初始化','1');
    batmove1.Source:=table1;
    batmove1.Destination:=table2;
    table2.Databasename:='posdb';
    batmove1.Mappings.Add('tablename=tablename');
    batmove1.Mappings.Add('englishname=englishname');
    batmove1.Mappings.Add('chinesename=chinesename');
    table2.TableName:='tab_chinesename';
    table1.TableName:='ini/chinesename.db';
    batmove1.Execute;
    stabledes.Add('系統(tǒng)初始化');
    memo1.lines.add('系統(tǒng)初始化成功！共有'+inttostr(stable.count)+'個(gè)數(shù)據(jù)庫(kù)表');
    stable.free;
    stabledes.free;
end;

end.