ub_cyxs.pas

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

unit ub_cyxs;

interface

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

type
  Tb_cyxs = class(TForm)
    cyxs: TQuery;
    d_cyxs: TDataSource;
    cy: TTable;
    cyLbh: TStringField;
    cyCH: TStringField;
    cyClh: TStringField;
    cyZjm: TStringField;
    cyMc: TStringField;
    cyGg: TStringField;
    cyDj: TFloatField;
    cyBz: TStringField;
    cyDzl: TFloatField;
    cyCb: TFloatField;
    cyLl: TFloatField;
    cyxsch: TStringField;
    cyxsxh: TIntegerField;
    cyxscm: TStringField;
    cyxsmll: TFloatField;
    cyxscb: TFloatField;
    cyxscb1: TFloatField;
    cyxsml: TFloatField;
    cyxsje: TFloatField;
    cyxssl: TIntegerField;
    DBGrid1: TDBGrid;
    CoolBar2: TCoolBar;
    Panel1: TPanel;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    MenuItem18: TMenuItem;
    P1: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    ImageList1: TImageList;
    px: TComboBox;
    Label5: TLabel;
    tp1: TDateTimePicker;
    Label6: TLabel;
    tp2: TDateTimePicker;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    zx: TToolButton;
    yl: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    sb: TStatusBar;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure tcClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure zxClick(Sender: TObject);
    procedure pxChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cyxsCalcFields(DataSet: TDataSet);
    procedure ylClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure MenuItem76Click(Sender: TObject);
    procedure MenuItem74Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure sb_sz;
  end;

var
  b_cyxs: Tb_cyxs;

implementation

uses ug_wait, ubp_1, uabout;

{$R *.DFM}
procedure Tb_cyxs.sb_sz;
var
 c_je,c_cb,c_ml:currency;
begin
 c_je:=0;c_cb:=0;c_ml:=0;
 with  cyxs do
  begin
   active:=false;
   ParamByName('p_rq1').asdate:=tp1.date;
   ParamByName('p_rq2').asdate:=tp2.date;
   active:=true;
   DisableControls;
   first;
   while not eof do
    begin
     c_je:=c_je+fieldbyname('je').ascurrency;
     c_cb:=c_cb+fieldbyname('cb1').ascurrency;
     c_ml:=c_ml+fieldbyname('ml').ascurrency;
     next;
    end;
   EnableControls;
   sb.panels[2].text:=Format('%*.*f', [9, 2,c_je]);
   sb.panels[4].text:=Format('%*.*f', [10, 4,c_cb]);
   sb.panels[6].text:=Format('%*.*f', [10, 4,c_ml]);
  end;
end;

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

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

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

procedure Tb_cyxs.FormShow(Sender: TObject);
begin
 if not cy.Active then cy.Active:=true;
 if not cyxs.Active then cyxs.Active:=true;
 if bp_1=NIL then bp_1:=Tbp_1.Create(self);
 tp1.Date:=date();
 tp2.Date:=date();
 sb_sz;
 g_wait.close;
end;

procedure Tb_cyxs.zxClick(Sender: TObject);
begin
 if tp1.date>tp2.date then
  begin
    messagebox(handle,'系统不能按所设的时间段设置进行查询！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
  end;
 sb_sz;
 px.ItemIndex:=0;
end;

procedure Tb_cyxs.pxChange(Sender: TObject);
begin
 with cyxs do
  begin
   DisableControls;
   active:=false;
   sql.Clear;
   case px.ItemIndex of
    0:sql.add('select ch,sum(hj) as je,count(bh) as sl from cd1,cdmx1 where cd1.cdbh=cdmx1.cdbh and ycrq>=:p_rq1 and ycrq<=:p_rq2 group by ch order by sl');
    1:sql.add('select ch,sum(hj) as je,count(bh) as sl from cd1,cdmx1 where cd1.cdbh=cdmx1.cdbh and ycrq>=:p_rq1 and ycrq<=:p_rq2 group by ch order by je');
   end;
   ParamByName('p_rq1').asdate:=tp1.date;
   ParamByName('p_rq2').asdate:=tp2.date;
   active:=true;
   EnableControls;
  end;
end;

procedure Tb_cyxs.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 b_cyxs:=NIL;
 bp_1.Release;
 bp_1:=NIL;
end;

procedure Tb_cyxs.cyxsCalcFields(DataSet: TDataSet);
begin
 with cyxs do
  begin
   fieldbyname('xh').value:=RecNo;
   fieldbyname('cb1').value:=fieldbyname('cb').value*fieldbyname('sl').value;
   fieldbyname('ml').value:=fieldbyname('mll').value*fieldbyname('je').value;
  end;
end;

procedure Tb_cyxs.ylClick(Sender: TObject);
begin
 bp_1.cy_rq1.caption:=datetostr(tp1.date);
 bp_1.cy_rq2.caption:=datetostr(tp2.date); 
 bp_1.QuickRep2.preview; 
end;

procedure Tb_cyxs.dyClick(Sender: TObject);
begin
 bp_1.cy_rq1.caption:=datetostr(tp1.date);
 bp_1.cy_rq2.caption:=datetostr(tp2.date); 
 bp_1.QuickRep2.print; 
end;

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

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

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

end.