p_csh.pas

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

unit p_csh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, StdCtrls, ExtCtrls, TFlatGaugeUnit,p_mc, Buttons;

type
  Tf_csh = class(TF_mc)
    GroupBox1: TGroupBox;
    rk: TsuiCheckBox;
    sp: TsuiCheckBox;
    ck: TsuiCheckBox;
    kc: TsuiCheckBox;
    yg: TsuiCheckBox;
    spxh: TsuiCheckBox;
    kh: TsuiCheckBox;
    ygbm: TsuiCheckBox;
    rz: TsuiCheckBox;
    ygzw: TsuiCheckBox;
    czy: TsuiCheckBox;
    Panel1: TPanel;
    jd: TFlatGauge;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure rkClick(Sender: TObject);
    procedure ckClick(Sender: TObject);
    procedure kcClick(Sender: TObject);
    procedure spClick(Sender: TObject);
    procedure ygClick(Sender: TObject);
    procedure ygzwClick(Sender: TObject);
    procedure ygbmClick(Sender: TObject);
    procedure spxhClick(Sender: TObject);
    procedure czyClick(Sender: TObject);
    procedure rzClick(Sender: TObject);
    procedure khClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    js:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_csh: Tf_csh;

implementation

uses p_dm;

{$R *.dfm}

procedure Tf_csh.FormCreate(Sender: TObject);
begin
  js:=0;
end;

procedure Tf_csh.BitBtn4Click(Sender: TObject);
begin
  close;
end;

procedure Tf_csh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  dm.Query.Close;
  dm.T_USER.Close;
end;

procedure Tf_csh.BitBtn3Click(Sender: TObject);
begin
  rk.Checked:=true;
  ck.Checked:=true;
  kc.Checked:=true;
  sp.Checked:=true;
  spxh.Checked:=true;
  ygbm.Checked:=true;
  ygzw.Checked:=true;
  yg.Checked:=true;
  czy.Checked:=true;
  rz.Checked:=true;
  kh.Checked:=true;
end;

procedure Tf_csh.BitBtn2Click(Sender: TObject);
begin
  rk.Checked:=false;
  ck.Checked:=false;
  kc.Checked:=false;
  sp.Checked:=false;
  spxh.Checked:=false;
  ygbm.Checked:=false;
  ygzw.Checked:=false;
  yg.Checked:=false;
  czy.Checked:=false;
  rz.Checked:=false;
  kh.Checked:=false;
end;

procedure Tf_csh.rkClick(Sender: TObject);
begin
  if rk.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.ckClick(Sender: TObject);
begin
  if ck.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.kcClick(Sender: TObject);
begin
  if kc.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.spClick(Sender: TObject);
begin
  if sp.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.ygClick(Sender: TObject);
begin
  if yg.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.ygzwClick(Sender: TObject);
begin
  if ygzw.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.ygbmClick(Sender: TObject);
begin
  if ygbm.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.spxhClick(Sender: TObject);
begin
  if spxh.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.czyClick(Sender: TObject);
begin
  if czy.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.rzClick(Sender: TObject);
begin
  if rz.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.khClick(Sender: TObject);
begin
  if kh.Checked then
     js:=js+1
  else
     js:=js-1;
end;

procedure Tf_csh.BitBtn1Click(Sender: TObject);
begin
  if js=0 then
  begin
    application.MessageBox('请选择要初始化的表！','选择',mb_ok+mb_iconinformation);
    exit;
  end;
  if application.MessageBox('您确认初始化选择表吗？这样会清空选择表中的数据！','初始化',mb_okcancel+mb_iconwarning)=idcancel then
  begin
    exit;
  end;
  jd.MaxValue:=js;
  with dm do
  begin
    if rk.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from rk_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if ck.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from ck_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if kc.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from kc_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if sp.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from sp_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if yg.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from ffry_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if ygzw.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from zw_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if ygbm.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from bm_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if spxh.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from spxh_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if czy.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from user_info where name<>:name');
      query.Parameters[0].Value:='SYSTEM';
      QUERY.ExecSQL;
      query.SQL.Clear;
      query.SQL.Add('delete from QX_info where USER_name<>:name');
      query.Parameters[0].Value:='SYSTEM';
      QUERY.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if rz.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from jrrz_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    if kh.Checked then
    begin
      query.SQL.Clear;
      query.SQL.Add('delete from kh_info');
      query.ExecSQL;
      jd.Progress:=jd.Progress+1;
      jd.Refresh;
    end;
    application.MessageBox('初始化完成！','完成',mb_ok+mb_iconinformation);
    jd.Progress:=0;
  end;// with .. end
end;

end.