initialize.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit initialize;

interface

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

type
  TForm_initial = class(TForm)
    GroupBox4: TGroupBox;
    CkLBox1: TCheckListBox;
    Panel3: TPanel;
    BBtnNoall: TBitBtn;
    BBtnSelall: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BBtnSelallClick(Sender: TObject);
    procedure BBtnNoallClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_initial: TForm_initial;
  stable,stabledes,AcceptTableName:TStringlist;

implementation

uses wxp_dm;

{$R *.dfm}

procedure TForm_initial.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('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_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('日志信息');

     stable.Add('pub_z_register');
     stabledes.Add('注册信息');
 }
     for i:=0 to stable.count-1 do
     begin
        cklbox1.Items.Add(stabledes.strings[i]);
        cklbox1.Checked[i]:=true;
     end;     
end;

procedure TForm_initial.Button1Click(Sender: TObject);
var
i:integer;
begin
     for i:=0 to stable.Count -1 do
     begin
          if  cklbox1.Checked[i] then
          begin
               memo1.Lines.Add('正在初始化表：'+stabledes.Strings[i]);
               self.ADOQuery1.Close ;
               self.ADOQuery1.SQL.Clear ;
               self.ADOQuery1.SQL.Add('truncate table '+ stable.Strings[i]);
               self.ADOQuery1.ExecSQL;
          end;
     end;
     memo1.Lines.Add('初始化结束'); 
end;

procedure TForm_initial.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_initial.BBtnNoallClick(Sender: TObject);
var
i:integer;
begin
    for i:=0 to cklbox1.items.count-1 do
    begin
        cklbox1.Checked[i]:=false;
    end;
end;

end.