groupxfcx.pas

集成酒店桑拿食管管理的完整程序

unit groupxfcx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, Db, DBTables;

type
  Tgroupxfcxform = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    totje: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    hzquery: TQuery;
    DataSource2: TDataSource;
    mxquery: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  groupxfcxform: Tgroupxfcxform;

implementation
uses dataproc;
{$R *.DFM}

procedure Tgroupxfcxform.FormCreate(Sender: TObject);
begin
  shortdateformat:='yyyy-mm-dd';
  totje.Text :='0';
  comadd(combobox1,1,'select groupname from groupnowin');
  groupxfcxform.BitBtn1Click(nil);
end;

procedure Tgroupxfcxform.BitBtn1Click(Sender: TObject);
var
  aa:array [0..1] of string;
begin
  if length(trim(combobox1.items[combobox1.itemindex]))>0 then
     begin
     getvalue(aa,'select groupid from groupnowin where groupname='''+trim(combobox1.items[combobox1.itemindex])+'''');
     hzquery.Active :=false;
     hzquery.sql.clear;
     hzquery.sql.add('select sum(money) as mm from groupcustom where (groupid=:pid) and (isxj=:pxj) and (ismd=:pmd)');
     hzquery.ParamByName ('pid').asstring:=trim(aa[0]);
     hzquery.ParamByName ('pxj').asboolean:=false;
     hzquery.ParamByName ('pmd').asboolean:=false;
     hzquery.Prepare;
     hzquery.open;
     totje.text:=floattostr(hzquery.fieldbyname('mm').asfloat);
     hzquery.Active :=false;
     hzquery.sql.clear;
     hzquery.sql.add('select cusname,sum(money) as hzmoney from groupcustom where (groupid=:pid) and (isxj=:pxj) and (ismd=:pmd) group by cusname ');
     hzquery.ParamByName ('pid').asstring:=trim(aa[0]);
     hzquery.ParamByName ('pxj').asboolean:=false;
     hzquery.ParamByName ('pmd').asboolean:=false;
     hzquery.Prepare;
     hzquery.open;
     chinesegrid(dbgrid1);
     mxquery.Active :=false;
     mxquery.sql.clear;
     mxquery.sql.add('select cusname,money,isxj,ismd,regtime,regid from groupcustom where groupid=:pid');
     mxquery.ParamByName ('pid').asstring:=trim(aa[0]);
     mxquery.Prepare;
     mxquery.open;
     chinesegrid(dbgrid2);
     end;
end;

procedure Tgroupxfcxform.ComboBox1Click(Sender: TObject);
begin
  Groupxfcxform.BitBtn1Click(nil);
end;

procedure Tgroupxfcxform.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tgroupxfcxform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  hzquery.free;
  mxquery.free;
   action:=cafree;
end;

end.