uz_bz.pas

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

unit uz_bz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImgList, Menus, ComCtrls, StdCtrls, Grids, DBGrids, ToolWin,u_main, Db,
  DBTables;

type
  Tz_bz = class(TForm)
    sb: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    bj: TToolButton;
    sc: TToolButton;
    fg2: TToolButton;
    yl: TToolButton;
    dy: TToolButton;
    fg3: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    mz_bz_xz: TMenuItem;
    mz_bz_bj: TMenuItem;
    mz_bz_sc: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    ImageList1: TImageList;
    N1: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    bzc: TTable;
    bzcBzbh: TStringField;
    bzcBzmc: TStringField;
    bzcBzbz: TFloatField;
    bzcZzr: TStringField;
    bzcZzrq: TDateTimeField;
    bzcBz: TStringField;
    d_bzc: TDataSource;
    bzccd: TTable;
    bzccdBh: TIntegerField;
    bzccdBzbh: TStringField;
    bzccdCh: TStringField;
    bzccdCm: TStringField;
    bzccdGg: TStringField;
    bzccdDj: TFloatField;
    bzccdSl: TFloatField;
    bzccdDzl: TFloatField;
    bzccdHj: TFloatField;
    bzccdClh: TStringField;
    bzccdLbh: TStringField;
    d_bzccd: TDataSource;
    PopupMenu1: TPopupMenu;
    yl1: TMenuItem;
    yl2: TMenuItem;
    PopupMenu2: TPopupMenu;
    dy1: TMenuItem;
    dy2: TMenuItem;
    cl: TTable;
    clClh: TStringField;
    clClm: TStringField;
    clDzl: TFloatField;
    clLBH: TStringField;
    bzccdclm: TStringField;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure tcClick(Sender: TObject);
    procedure xzClick(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure mbClick(Sender: TObject);
    procedure xsClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormShow(Sender: TObject);
    procedure MenuItem76Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bzccdSlChange(Sender: TField);
    procedure bzccdAfterPost(DataSet: TDataSet);
    procedure yl1Click(Sender: TObject);
    procedure dy1Click(Sender: TObject);
    procedure yl2Click(Sender: TObject);
    procedure dy2Click(Sender: TObject);
    procedure MenuItem74Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_bz: Tz_bz;

implementation

uses uz_bz_xz, uabout, ug_dc, ug_wait, uzp_yh;

{$R *.DFM}

procedure Tz_bz.tcClick(Sender: TObject);
begin
 close;
end;

procedure Tz_bz.xzClick(Sender: TObject);
begin
 y_n:=1;
 z_bz_xz.showmodal;
end;

procedure Tz_bz.bjClick(Sender: TObject);
begin
 if bzc.RecordCount=0 then exit;
 y_n:=0;
 z_bz_xz.showmodal;
end;

procedure Tz_bz.scClick(Sender: TObject);
begin
 if bzc.RecordCount=0 then exit;
 if messagebox(handle,'您真的要删除此包桌吗?','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
  begin
    s_sql:='delete from bzccd where bzbh="'+bzc.fieldbyname('bzbh').asstring+'"';
    main.h_del(s_sql);
    bzc.delete;
  end;
end;

procedure Tz_bz.mbClick(Sender: TObject);
begin
//
end;

procedure Tz_bz.xsClick(Sender: TObject);
begin
//
end;

procedure Tz_bz.bzClick(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpJump('tasbzgl');
end;

procedure Tz_bz.MenuItem18Click(Sender: TObject);
begin
  PrinterSetup.Execute;
end;

procedure Tz_bz.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if (bzc.fieldbyname('bzbh').asstring='') or (bzc.RecordCount=0)  then
   begin
     bj.Enabled:=false;
     sc.Enabled:=false;
     mz_bz_bj.Enabled:=false;
     mz_bz_sc.Enabled:=false;
   end
  else
   begin
     bj.Enabled:=true;
     sc.Enabled:=true;
     mz_bz_bj.Enabled:=true;
     mz_bz_sc.Enabled:=true;
   end;
end;

procedure Tz_bz.FormShow(Sender: TObject);
begin
 if not bzc.Active then bzc.Active:=true;
 if not bzccd.Active then bzccd.Active:=true;
 if g_dc=NIL then g_dc:=Tg_dc.Create(self);
 if z_bz_xz=NIL then z_bz_xz:=Tz_bz_xz.Create(self);
 if zp_yh=NIL then zp_yh:=Tzp_yh.create(self);
 if not bzc.Active then bzc.Active:=true;
 sb.Panels[2].text:=inttostr(bzc.RecordCount);
 g_wait.close;
end;

procedure Tz_bz.MenuItem76Click(Sender: TObject);
begin
 if about=NIL then about:=Tabout.Create(self);
 about.showmodal;
end;

procedure Tz_bz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;         z_bz:=NIL;
 z_bz_xz.Release; z_bz_xz:=NIL;
 g_dc.Release; g_dc:=NIL;
 zp_yh.Release; zp_yh:=NIL;
end;

procedure Tz_bz.bzccdSlChange(Sender: TField);
begin
 if main.fdxx.fieldbyname('bzcldz').asboolean then
   bzccd.fieldbyname('hj').value:=bzccd.fieldbyname('dj').value*bzccd.fieldbyname('sl').value-bzccd.fieldbyname('dj').value*bzccd.fieldbyname('sl').value*bzccd.fieldbyname('dzl').value
  else
   bzccd.fieldbyname('hj').value:=bzccd.fieldbyname('dj').value*bzccd.fieldbyname('sl').value;
end;

procedure Tz_bz.bzccdAfterPost(DataSet: TDataSet);
begin
 if main.fdxx.fieldbyname('bzcldz').asboolean then
   begin
    bzccd.edit;
    bzccd.fieldbyname('hj').value:=bzccd.fieldbyname('dj').value*bzccd.fieldbyname('sl').value-bzccd.fieldbyname('dj').value*bzccd.fieldbyname('sl').value*bzccd.fieldbyname('dzl').value;
   end
  else
   begin
    bzccd.edit;
    bzccd.fieldbyname('hj').value:=bzccd.fieldbyname('dj').value*bzccd.fieldbyname('sl').value;
   end; 
end;

procedure Tz_bz.yl1Click(Sender: TObject);
begin
 zp_yh.QuickRep4.preview;
end;

procedure Tz_bz.dy1Click(Sender: TObject);
begin
 zp_yh.QuickRep4.print;
end;

procedure Tz_bz.yl2Click(Sender: TObject);
begin
 zp_yh.bz_bt.caption:=bzc.fieldbyname('bzmc').asstring;
 zp_yh.QuickRep5.preview;
end;

procedure Tz_bz.dy2Click(Sender: TObject);
begin
 zp_yh.bz_bt.caption:=bzc.fieldbyname('bzmc').asstring;
 zp_yh.QuickRep5.print;
end;

procedure Tz_bz.MenuItem74Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_Finder,0);
end;

procedure Tz_bz.N3Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_PartialKey,0);
end;

end.