ub_xspm.pas

一个针对酒店大堂管理的delphi应用管理软件

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;
    cdmx1: TTable;
    cdmx1Bh: TIntegerField;
    cdmx1CDBH: TStringField;
    cdmx1CLH: TStringField;
    cdmx1Ch: TStringField;
    cdmx1Cm: TStringField;
    cdmx1Dj: TFloatField;
    cdmx1Sl: TFloatField;
    cdmx1Hj: TFloatField;
    cdmx1Dzl: TFloatField;
    cdmx1Tsl: TFloatField;
    cdmx1GG: TStringField;
    cdmx1SRLB: TStringField;
    cdmx1Cz: TStringField;
    cdmx1Tcyyh: TStringField;
    cdmx1TCYY: TStringField;
    cdmx1Pzrh: TStringField;
    cdmx1Lbh: TStringField;
    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;
    procedure tcClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure zxClick(Sender: TObject);
    procedure pxChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure sb_sz;
  end;

var
  b_cyxs: Tb_cyxs;

implementation

uses ug_wait;

{$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
   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;
   sb.panels[2].text:=Format('%*.*f', [9, 2,fieldbyname('je').ascurrency]);
   sb.panels[4].text:=Format('%*.*f', [10, 4,fieldbyname('cb1').ascurrency]);
   sb.panels[6].text:=Format('%*.*f', [10, 4,fieldbyname('xj').ascurrency]);
  end;
end;

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

procedure Tb_cyxs.bzClick(Sender: TObject);
begin
 //
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 cdmx1.Active then cdmx1.Active:=true;
 if not cyxs.Active then cyxs.Active:=true;
 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;
 with cyxs do
  begin
   active:=false;
   active:=true;
  end;
end;

procedure Tb_cyxs.pxChange(Sender: TObject);
begin
 with cyxs do
  begin
   active:=false;
   sql.Clear;
   case px.ItemIndex of
    0:sql.add('select ch,sum(hj) as je,count(ch) as sl from cdmx1 group by ch order by sl');
    1:sql.add('select ch,sum(hj) as je,count(ch) as sl from cdmx1 group by ch order by sl');
    2:sql.add('select ch,sum(hj) as je,count(ch) as sl from cdmx1 group by ch order by sl');
    3:sql.add('select ch,sum(hj) as je,count(ch) as sl from cdmx1 group by ch order by sl');
   end;
   active:=true;
  end;
 sb_sz; 
end;

end.