pfm_sysinit.pas

POS收银系统

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('系统初始化将清空所有数据，是否要开始？'),
     pchar('警告'),MB_YESNO)<>IDYES then
     begin
        exit;
     end;
     stable:=TStringlist.create;
     stabledes:=Tstringlist.create;
     stable.Add('t_bmxx');
     stabledes.Add('部门信息表');
     stable.Add('t_ckxx');
     stabledes.Add('仓库信息表');
    // stable.Add('t_datadict');
    // stabledes.Add('下拉数据表');
     stable.Add('t_fendianxx');
     stabledes.Add('分店信息表');
     stable.Add('t_gysxx');
     stabledes.Add('供应商信息表');
     stable.Add('t_gzxx');
     stabledes.Add('柜组信息表');
     stable.Add('t_khxx');
     stabledes.Add('客户信息表');
     stable.Add('t_spbmlb');
     stabledes.Add('商品编码对照表');
     stable.Add('t_spxx');
     stabledes.Add('商品信息表');
     stable.Add('t_stocksp');
     stabledes.Add('库存信息表');
     stable.Add('t_user');
     stabledes.Add('系统用户信息表');
     stable.Add('t_userright');
     stabledes.Add('用户操作权限表');
     stable.Add('t_ygxx');
     stabledes.Add('员工信息表');
     stable.Add('TAB_chinesename');
     stabledes.Add('部门信息表');
     stable.Add('tab_fdtcd');
     stabledes.Add('分店申请退仓单');
     stable.Add('tab_fdthd');
     stabledes.Add('分店申请提货单');
     stable.Add('tab_xsrz');
     stabledes.Add('销售日志表');
     stable.Add('tb_jhd');
     stabledes.Add('进货入库单');
     stable.Add('tb_jhdmx');
     stabledes.Add('进货入库明细单');
     stable.Add('tb_mdtcd');
     stabledes.Add('门店退仓单');
     stable.Add('tb_mdtcdmx');
     stabledes.Add('门店退仓明细单');
     stable.Add('tb_pfd');
     stabledes.Add('批发单');
     stable.Add('tb_pfdmx');
     stabledes.Add('批发明细单');
     stable.Add('tb_sptuihuod');
     stabledes.Add('商品退货单');
     stable.Add('tb_sptuihuodmx');
     stabledes.Add('商品退货明细单');
     stable.Add('tb_syd');
     stabledes.Add('仓库损溢单');
     stable.Add('tb_sydmx');
     stabledes.Add('仓库损溢明细单');
     stable.Add('tb_thd');
     stabledes.Add('分店提货单');
     stable.Add('tb_thdmx');
     stabledes.Add('分店提货明细单');
     stable.Add('tb_tjd');
     stabledes.Add('商品调价单');
     stable.Add('tb_tjdmx');
     stabledes.Add('商品调价明细单');
     stable.Add('tb_tuihuod');
     stabledes.Add('客户退货单');
     stable.Add('tb_tuihuodmx');
     stabledes.Add('客户退货明细单');
     stable.Add('tb_yfkcl');
     stabledes.Add('应付款处理单');
     stable.Add('tb_yfkmx');
     stabledes.Add('应付款明细单');
     stable.Add('tb_yskcl');
     stabledes.Add('应收款处理单');
     stable.Add('tb_yskmx');
     stabledes.Add('应收款明细单');
     stable.Add('tb_zengpind');
     stabledes.Add('赠品单');
     stable.Add('tb_zengpindmx');
     stabledes.Add('赠品明细单');
     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('初始化','系统初始化','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('系统初始化');
    memo1.lines.add('系统初始化成功！共有'+inttostr(stable.count)+'个数据库表');
    stable.free;
    stabledes.free;
end;

end.