uz_ckgl_ls.pas

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

unit uz_ckgl_ls;

interface

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

type
  Tz_ckgl_ls = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    cd: TToolButton;
    ToolButton2: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    H1: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    ImageList1: TImageList;
    fg1: TToolButton;
    fg2: TToolButton;
    DBGrid1: TDBGrid;
    P1: TMenuItem;
    sb: TStatusBar;
    PrinterSetup: TPrinterSetupDialog;
    q_ckls: TQuery;
    q_cklscdbh: TStringField;
    q_cklsycrq: TDateTimeField;
    q_cklsycsj: TDateTimeField;
    q_cklsth: TStringField;
    q_cklstht: TStringField;
    q_cklszj: TFloatField;
    q_cklsxj: TFloatField;
    q_cklsfwf: TFloatField;
    q_cklszkf: TFloatField;
    q_cklszsje: TFloatField;
    q_cklskrs: TIntegerField;
    q_cklsfwyh: TStringField;
    q_cklsskyh: TStringField;
    q_cklspzrh: TStringField;
    dq_ckls: TDataSource;
    q_cklsyylx: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure tcClick(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure cdClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_ckgl_ls: Tz_ckgl_ls;

implementation

uses ug_dcd, uabout, uz_ckgl;

{$R *.DFM}

procedure Tz_ckgl_ls.BitBtn1Click(Sender: TObject);
begin
  close;
end;

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

procedure Tz_ckgl_ls.N4Click(Sender: TObject);
begin
 close;
end;


procedure Tz_ckgl_ls.cdClick(Sender: TObject);
begin
 if trim(q_ckls.FieldByName('cdbh').asstring)='' then
   begin
     messagebox(handle,'请确认将要显示的签单菜单!','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 if g_dcd=NIL then g_dcd:=Tg_dcd.Create(self);
 with q_ckls 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.cdmx1.Filter:='cdbh='+FieldByName('cdbh').asstring;
  end;
 g_dcd.db.datasource:=g_dcd.d_cdmx1;
 g_dcd.showmodal;
end;

procedure Tz_ckgl_ls.dyClick(Sender: TObject);
begin
//
end;

procedure Tz_ckgl_ls.bzClick(Sender: TObject);
begin
//
end;

procedure Tz_ckgl_ls.FormShow(Sender: TObject);
begin
 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.add('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 cd1 where ckbh=:s_ckbh');
   ParamByName('s_ckbh').asstring:=s_ckbh;
   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;
 q_ckls.Active:=false;
 q_ckls.ParamByName('s_ckbh').asstring:=s_ckbh;
 q_ckls.Active:=true;
end;

procedure Tz_ckgl_ls.N6Click(Sender: TObject);
begin
  PrinterSetup.Execute;
end;

procedure Tz_ckgl_ls.N10Click(Sender: TObject);
begin
 about.showmodal;
end;

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

end.