ug_mb.pas

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

unit ug_mb;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids,u_main, Db, DBTables;

type
  Tg_mb = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    sc: TBitBtn;
    mb: TTable;
    mbBh: TIntegerField;
    mbBm: TStringField;
    mbXt: TStringField;
    mbMbmc: TStringField;
    mbMbnr1: TStringField;
    mbMbnr2: TStringField;
    d_mb: TDataSource;
    procedure BitBtn4Click(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  g_mb: Tg_mb;

implementation

uses ug_mb_scq, uz_yhyd, uz_ckgl, uy_yycx, uz_rygl;

{$R *.DFM}

procedure Tg_mb.BitBtn4Click(Sender: TObject);
begin
 g_mb_scq.showmodal;
 if mb.RecordCount<>0 then
    sc.Enabled:=true
   else
    sc.Enabled:=false;
end;

procedure Tg_mb.scClick(Sender: TObject);
begin
 if messagebox(handle,'您真的要删除该模板吗?','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
    g_mb.mb.delete;
 if g_mb.mb.RecordCount<>0 then
    sc.Enabled:=true
   else
    sc.Enabled:=false;
end;

procedure Tg_mb.FormShow(Sender: TObject);
begin
 if g_mb_scq=NIL then g_mb_scq:=Tg_mb_scq.Create(self);
 if not mb.Active then mb.Active:=true;
 if s_mb='01' then
    caption:='营业查询-模板';
 if s_mb='02' then
    caption:='宴会预定-模板';
 if s_mb='03' then
    caption:='常客管理-模板';
 if s_mb='04' then
    caption:='人员管理-模板';
 if mb.RecordCount<>0 then
    sc.Enabled:=true
  else
    sc.Enabled:=false;
end;

procedure Tg_mb.BitBtn1Click(Sender: TObject);
begin
if s_mb='01' then
 try
   y_yycx.cd1.Filter:=g_mb.mb.fieldbyname('mbnr2').asstring;
  except
   messagebox(handle,'模板查询设置有误!','系统提示信息',MB_OK+MB_ICONWARNING);
   y_yycx.cd1.Filter:='';
   exit;
 end;
if s_mb='02' then
 try
   z_yhyd.yhyd.Filter:=g_mb.mb.fieldbyname('mbnr2').asstring;
  except
   messagebox(handle,'模板查询设置有误!','系统提示信息',MB_OK+MB_ICONWARNING);
   z_yhyd.yhyd.Filter:='';
   exit;
 end;
if s_mb='03' then
 try
   z_ckgl.ckzl.Filter:=g_mb.mb.fieldbyname('mbnr2').asstring;
  except
   messagebox(handle,'模板查询设置有误!','系统提示信息',MB_OK+MB_ICONWARNING);
   z_ckgl.ckzl.Filter:='';
   exit;
 end;
if s_mb='04' then
 try
   z_rygl.rygl.Filter:=g_mb.mb.fieldbyname('mbnr2').asstring;
  except
   messagebox(handle,'模板查询设置有误!','系统提示信息',MB_OK+MB_ICONWARNING);
   z_rygl.rygl.Filter:='';
   exit;
 end;
 y_n:=1;
 close;
end;

procedure Tg_mb.BitBtn2Click(Sender: TObject);
begin
  y_n:=0;
  close;
end;

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

end.