u_ctyl_yj.pas

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

unit u_ctyl_yj;

interface

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

type
  Ty_ctyl_yj = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    t_cd: TToolButton;
    ck: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    MainMenu1: TMainMenu;
    L1: TMenuItem;
    X1: TMenuItem;
    H1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    ToolButton5: TToolButton;
    ToolButton9: TToolButton;
    ImageList1: TImageList;
    C1: TMenuItem;
    C2: TMenuItem;
    N3: TMenuItem;
    S1: TMenuItem;
    N4: TMenuItem;
    DBGrid1: TDBGrid;
    sb: TStatusBar;
    N5: TMenuItem;
    N6: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure tcClick(Sender: TObject);
    procedure t_cdClick(Sender: TObject);
    procedure ckClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure S1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure cxjs;
  end;

var
  y_ctyl_yj: Ty_ctyl_yj;

implementation

uses uz_ckgl_xz, ug_dcd, ug_ckxx, uy_yyt, uy_ctyl;

{$R *.DFM}
procedure Ty_ctyl_yj.cxjs;
begin
with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.add(s_sql);
   active:=true;
   sb.panels[2].text:=inttostr(fieldbyname('ds').value);
   sb.panels[4].text:=Format('%*.*f', [8, 2,fieldbyname('zj').ascurrency]);
   sb.panels[6].text:=Format('%*.*f', [8, 2,fieldbyname('xj').ascurrency]);
   sb.panels[8].text:=Format('%*.*f', [8, 2,fieldbyname('fwf').ascurrency]);
   sb.panels[10].text:=Format('%*.*f', [8, 2,fieldbyname('zkf').ascurrency]);
   sb.panels[12].text:=Format('%*.*f', [8, 2,fieldbyname('zsje').ascurrency]);
   sb.panels[14].text:=inttostr(fieldbyname('krs').asinteger);
  end;
end;
procedure Ty_ctyl_yj.tcClick(Sender: TObject);
begin
  close;
end;

procedure Ty_ctyl_yj.t_cdClick(Sender: TObject);
begin
 if y_ctyl.cd.RecordCount=0 then
   begin
     messagebox(handle,'请确认将要显示的菜单!','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 if g_dcd=NIL then g_dcd:=Tg_dcd.Create(self);
 with y_ctyl.cd do
  begin
   c_zj:=FieldByName('zj').ascurrency;
   c_xj:=FieldByName('xj').ascurrency;
   c_fwf:=FieldByName('fwf').ascurrency;
   c_zkf:=FieldByName('zkf').ascurrency;
   c_zsje:=FieldByName('zsje').ascurrency;
   s_th:=FieldByName('th').asstring;
   s_tht:=FieldByName('tht').asstring;
   s_krs:=FieldByName('krs').asstring;
   s_ycrq:=formatdatetime('yyyy.mm.dd',FieldByName('ycrq').value);
   s_ycsj:=formatdatetime('hh:mm',FieldByName('ycsj').value);
   s_fwyh:=FieldByName('fwyh').asstring;
   g_dcd.cdmx.Filter:='cdbh='+FieldByName('cdbh').asstring;
  end;
 g_dcd.db.datasource:=g_dcd.d_cdmx;
 g_dcd.showmodal;
end;

procedure Ty_ctyl_yj.ckClick(Sender: TObject);
begin
 if y_ctyl.cd.FieldByName('ckbh').asstring='' then
   begin
    messagebox(handle,'请选择签单结帐单!','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
 y_n:=3;
 s_ckbh:=y_ctyl.cd.fieldbyname('ckbh').asstring;
 if g_ckxx=NIL then g_ckxx:=Tg_ckxx.Create(self);
 g_ckxx.showmodal;
//  在常客查看（g_ckxx）中加过滤条件,然后在查看窗口关闭时去掉过滤条件
end;

procedure Ty_ctyl_yj.FormShow(Sender: TObject);
begin
 s_sql:='SELECT count(cdbh) as ds,sum(zj) as zj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje,sum(krs) as krs  FROM cd where jzfs is not NULL';
 y_ctyl.cd.Filter:='jzfs='+'1'+' or jzfs='+'2'+' or jzfs='+'3'+' or jzfs='+'4'+' or jzfs='+'5'+'or jzfs='+'6';
 cxjs;
end;

procedure Ty_ctyl_yj.DBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
 if y_ctyl.cd.FieldByName('ckbh').asstring='' then ck.Enabled:=false else ck.Enabled:=true;
end;

procedure Ty_ctyl_yj.S1Click(Sender: TObject);
begin
PrinterSetup.Execute;
end;

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

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

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

end.