uz_ckgl.pas

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

unit uz_ckgl;

interface

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

type
  Tz_ckgl = class(TForm)
    sb: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    bj: TToolButton;
    sc: TToolButton;
    ls: TToolButton;
    mb: TToolButton;
    dy: TToolButton;
    xs: TToolButton;
    yl: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    m_xz: TMenuItem;
    m_bj: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    CoolBar2: TCoolBar;
    ToolBar2: TToolBar;
    DBGrid1: TDBGrid;
    m_sc: TMenuItem;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ImageList1: TImageList;
    fg1: TToolButton;
    fg2: TToolButton;
    fg3: TToolButton;
    P1: TMenuItem;
    C1: TMenuItem;
    z_ckgl_cls: TMenuItem;
    z_ckgl_mb: TMenuItem;
    z_ckgl_cxs: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    zl: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    N1: TMenuItem;
    z_ckgl_zl: TMenuItem;
    N2: TMenuItem;
    c_mb: TComboBox;
    ckzl: TTable;
    ckzlCkbh: TStringField;
    ckzlDwmc: TStringField;
    ckzlZjm: TStringField;
    ckzlXfcs: TIntegerField;
    ckzlXfze: TFloatField;
    ckzlXydj: TStringField;
    ckzlDwxz: TStringField;
    ckzldwxz1: TStringField;
    ckzlDwdz: TStringField;
    ckzlYzbm: TStringField;
    ckzlKhyh: TStringField;
    ckzlZh: TStringField;
    ckzlDbxm: TStringField;
    ckzlXb: TStringField;
    ckzlDh: TStringField;
    ckzlChh: TStringField;
    ckzlSj: TStringField;
    ckzlEmail: TStringField;
    ckzlCsrq: TDateTimeField;
    ckzlQldj: TStringField;
    ckzlZw: TStringField;
    d_ckzl: TDataSource;
    dwxz: TTable;
    dwxzBh: TStringField;
    dwxzDwxz: TStringField;
    d_dwxz: TDataSource;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure MenuItem20Click(Sender: TObject);
    procedure tcClick(Sender: TObject);
    procedure xzClick(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure lsClick(Sender: TObject);
    procedure xsClick(Sender: TObject);
    procedure mbClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure ylClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure zlClick(Sender: TObject);
    procedure c_mbChange(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure MenuItem76Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MenuItem74Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_ckgl: Tz_ckgl;

implementation

uses uz_ckgl_xz, uz_ckgl_ls, uz_ckgl_xs, ug_mb, uabout, ug_wait, uzp_ck;

{$R *.DFM}


procedure Tz_ckgl.MenuItem20Click(Sender: TObject);
begin
  close;
end;

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


procedure Tz_ckgl.xzClick(Sender: TObject);
begin
  y_n:=1;
  z_ckgl_xz.showmodal;
  z_ckgl.FormShow(Sender);
end;

procedure Tz_ckgl.bjClick(Sender: TObject);
begin
  if ckzl.FieldByName('ckbh').asstring='' then exit;
  y_n:=0;
  z_ckgl_xz.showmodal;
end;

procedure Tz_ckgl.scClick(Sender: TObject);
begin
 if messagebox(handle,'您真的要删除该常客吗?','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
   begin
    ckzl.delete;
    z_ckgl.FormShow(Sender);
   end;
 if ckzl.RecordCount=0 then
    begin
     sc.Enabled:=false;
     m_sc.Enabled:=false;
    end
   else
    begin
     sc.Enabled:=true;
     m_sc.Enabled:=true;
    end;
end;
procedure Tz_ckgl.ComboBox1Change(Sender: TObject);
begin
with ckzl do
 begin
  case  ComboBox1.itemindex of
   0:IndexName:='ckzl_ckbh';
   1:IndexName:='ckzl_dwjc';
   2:IndexName:='ckzl_xfcs';
   3:IndexName:='ckzl_xfze';
   4:IndexName:='ckzl_xydj';
   5:IndexName:='ckzl_dwxz';
   6:IndexName:='ckzl_dbxm';
   7:IndexName:='ckzl_xb';
   8:IndexName:='ckzl_csrq';
   9:IndexName:='ckzl_qldj';
   end;
 end;
end;

procedure Tz_ckgl.lsClick(Sender: TObject);
begin
 s_ckbh:=ckzl.fieldbyname('ckbh').asstring;
 if z_ckgl_ls=NIL then z_ckgl_ls:=Tz_ckgl_ls.Create(self);
 z_ckgl_ls.showmodal;
end;

procedure Tz_ckgl.xsClick(Sender: TObject);
begin
 z_ckgl_xs.showmodal;
end;

procedure Tz_ckgl.mbClick(Sender: TObject);
var
 st:string;
begin
 if not mb.Down then
  begin
   mb.Down:=true;
   z_ckgl_mb.Checked:=true;
  end;
 y_n:=0;
 if g_mb=NIL then g_mb:=Tg_mb.Create(self);
 g_mb.showmodal;
 if y_n=0 then
  begin
   zl.Down:=true;
   z_ckgl_zl.Checked:=true;
   exit;
  end;
 st:=g_mb.mb.fieldbyname('bh').asstring+'.'+g_mb.mb.fieldbyname('mbmc').asstring;
 g_mb.mb.first;
 c_mb.Items.Clear;
 while not g_mb.mb.Eof do
  begin
    c_mb.Items.Add(g_mb.mb.fieldbyname('bh').asstring+'.'+g_mb.mb.fieldbyname('mbmc').asstring);
    g_mb.mb.next;
  end;
 c_mb.ItemIndex:=c_mb.Items.IndexOf(st);
 c_mbChange(sender);
end;
procedure Tz_ckgl.FormShow(Sender: TObject);
begin
 if not dwxz.Active then dwxz.Active:=true;
 if not ckzl.Active then ckzl.Active:=true;
 if zp_ck=NIL then zp_ck:=Tzp_ck.Create(self);
 if g_mb=NIL then g_mb:=Tg_mb.Create(self);
 if z_ckgl_xz=NIL then z_ckgl_xz:=Tz_ckgl_xz.Create(self);
 if z_ckgl_xs=NIL then z_ckgl_xs:=Tz_ckgl_xs.Create(self);
 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.Add('select count(ckbh) as zs,sum(xfcs) as xfcs,sum(xfze) as xfze from ckzl');
   active:=true;
   sb.Panels[2].text:=fieldbyname('zs').asstring;
   sb.Panels[4].text:=fieldbyname('xfcs').asstring;
   sb.panels[6].text:=Format('%*.*f', [8, 2,fieldbyname('xfze').ascurrency]);
  end;
 with g_mb.mb do
  begin
   s_mb:='03';
   filter:='bm='+s_mb;
   first;
   c_mb.Items.Clear;
   while not Eof do
    begin
      c_mb.Items.Add(fieldbyname('bh').asstring+'.'+fieldbyname('mbmc').asstring);
      next;
    end;
  end;
 zl.Down:=true;
 g_wait.close;
end;

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

procedure Tz_ckgl.ylClick(Sender: TObject);
begin
 zp_ck.QuickRep1.preview;
end;

procedure Tz_ckgl.dyClick(Sender: TObject);
begin
 zp_ck.QuickRep1.print;
end;

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

procedure Tz_ckgl.zlClick(Sender: TObject);
begin
 if not zl.Down then
  begin
   zl.Down:=true;
   z_ckgl_zl.Checked:=true;
   ckzl.filter:='';
  end;
 FormShow(Sender);
end;

procedure Tz_ckgl.c_mbChange(Sender: TObject);
var
 i,ii,i_xfcs:integer;
 s_filter:string;
 c_xfze:currency;
begin
 i:=1;ii:=1;i_xfcs:=0;c_xfze:=0;
 repeat
   try
     strtoint(copy(c_mb.text,i,i+1));
     i:=i+1;
    except
      ii:=0;
   end;
 until ii = 0;
 if not g_mb.mb.FindKey([copy(c_mb.text,1,i)]) then
   begin
     messagebox(handle,'模板查询操作有误!请删除此模板，然后重新生成！','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 s_filter:=ckzl.Filter;
 try
   ckzl.Filtered:=true;
   ckzl.Filter:=g_mb.mb.fieldbyname('mbnr2').asstring;
  except
   messagebox(handle,'模板查询操作有误!请删除此模板，然后重新生成！','系统提示信息',MB_OK+MB_ICONWARNING);
   ckzl.Filter:=s_filter;
 end;
 with ckzl do
  begin
   DisableControls;
   first;
   while not eof do
     begin
      i_xfcs:=i_xfcs+fieldbyname('xfcs').asinteger;
      c_xfze:=c_xfze+fieldbyname('xfze').ascurrency;
      next;
     end;
    sb.panels[2].text:=inttostr(recordcount);
    sb.panels[4].text:=inttostr(i_xfcs);
    sb.panels[6].text:=Format('%*.*f', [8, 2,c_xfze]);
   EnableControls
  end;
 if not mb.Down then
  begin
   mb.Down:=true;
   z_ckgl_mb.Checked:=true;
  end;
end;

procedure Tz_ckgl.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if ckzl.RecordCount=0 then
    begin
     sc.Enabled:=false;
     m_sc.Enabled:=false;
     bj.Enabled:=false;
     m_bj.Enabled:=false;
    end
   else
    begin
     sc.Enabled:=true;
     m_sc.Enabled:=true;
     bj.Enabled:=true;
     m_bj.Enabled:=true;
    end;
end;

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

procedure Tz_ckgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;           z_ckgl:=NIL;
 z_ckgl_xz.Release; z_ckgl_xz:=NIL;
 z_ckgl_xs.Release; z_ckgl_xs:=NIL;
 g_mb.release;      g_mb:=NIL;
 zp_ck.release;     zp_ck:=NIL;
end;

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

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

end.