ux_xtcsh.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

unit ux_xtcsh;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ExtCtrls,u_main;

type
  Tx_xtcsh = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    czyxx: TCheckBox;
    ctbz: TCheckBox;
    yycp: TCheckBox;
    ckzl: TCheckBox;
    ydxx: TCheckBox;
    GroupBox5: TGroupBox;
    spsx: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    bdmx: TCheckBox;
    Label4: TLabel;
    bzxx: TCheckBox;
    gtch: TCheckBox;
    GroupBox4: TGroupBox;
    yysj: TCheckBox;
    Label1: TLabel;
    Image1: TImage;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  x_xtcsh: Tx_xtcsh;

implementation

uses uxtxx;

{$R *.DFM}

procedure Tx_xtcsh.BitBtn2Click(Sender: TObject);
begin
 close;
end;

procedure Tx_xtcsh.BitBtn1Click(Sender: TObject);
begin
 if (not czyxx.Checked) and (not ctbz.Checked) and (not yycp.Checked) and (not ckzl.Checked) and (not ydxx.Checked) and (not bzxx.Checked) and (not spsx.Checked) and (not bdmx.Checked) and (not gtch.Checked) and (not yysj.Checked) then
   begin
    messagebox(handle,'没有选中任何将被初始化的数据!','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
 if messagebox(handle,'真的要对所选中的数据进行初始化吗?！','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDCANCEL then  exit;
 g_xtxx.show;
 g_xtxx.Update;
 try
 if czyxx.Checked then
  begin
   g_xtxx.m1.Caption:='正在对操作员信息进行初始化，请稍侯......';
   g_xtxx.Update;
   s_mess:='操作员信息';
   g_xtxx.ProgressBar1.StepBy(10);
   main.h_del('delete from czy where del=false');
  end;
 if ctbz.Checked then
  begin
   g_xtxx.m1.Caption:='正在对餐厅布置信息进行初始化，请稍侯......';
   g_xtxx.Update;
   g_xtxx.ProgressBar1.StepBy(20);
   s_mess:='餐厅布置信息';
   main.h_del('delete from t ');
   main.h_del('delete from tai ');
  end;
 if yycp.Checked then
  begin
   g_xtxx.m1.Caption:='正在对营业菜菜谱数据进行初始化，请稍侯......';
   g_xtxx.Update;
   g_xtxx.ProgressBar1.StepBy(20);
   s_mess:='营业菜菜谱数据';
   main.h_del('delete from cl ');
   main.h_del('delete from cy ');
  end;
 if ckzl.Checked then
  begin
   g_xtxx.m1.Caption:='正在对常客资料进行初始化，请稍侯......';
   g_xtxx.Update;
   g_xtxx.ProgressBar1.StepBy(20);
   s_mess:='常客资料';
   main.h_del('delete from ckzl');
  end;
 if ydxx.Checked then
  begin
   g_xtxx.m1.Caption:='正在对宴会预定数据进行初始化，请稍侯......';
   g_xtxx.Update;
   g_xtxx.ProgressBar1.StepBy(10);
   s_mess:='宴会预定数据';
   main.h_del('delete from yhyd ');
   main.h_del('delete from yhydcd ');
  end;
 if bzxx.Checked then
  begin
   g_xtxx.m1.Caption:='正在对包桌信息进行初始化，请稍侯......';
   g_xtxx.Update;
   g_xtxx.ProgressBar1.StepBy(10);
   s_mess:='包桌信息';
   main.h_del('delete from bzc ');
   main.h_del('delete from bzccd ');
  end;
 if yysj.Checked then
  begin
   g_xtxx.m1.Caption:='正在对餐厅营业数据进行初始化，请稍侯......';
   g_xtxx.Update;
   g_xtxx.ProgressBar1.StepBy(10);
   s_mess:='餐厅营业数据';
   main.h_del('delete from cd ');
   main.h_del('delete from cdmx ');
   main.h_del('delete from cd1 ');
   main.h_del('delete from cdmx1 ');
  end;
  except
   g_xtxx.close;
   s_mess:='"'+s_mess+'"初始化失败!';
   messagebox(handle,pchar(s_mess),'系统提示信息',MB_OK+MB_ICONWARNING);
   exit;
 end;
 g_xtxx.ProgressBar1.StepBy(10);
 g_xtxx.close;
 messagebox(handle,'系统初始化完毕!','系统提示信息',MB_OK+MB_ICONWARNING);
 close;
end;

procedure Tx_xtcsh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 x_xtcsh:=NIL;
end;

end.