zyryyj.pas

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

unit zyryyj;

interface

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

type
  TzyryyjForm = class(TForm)
    TabControl1: TTabControl;
    DataSource1: TDataSource;
    Query1: TQuery;
    Panel1: TPanel;
    Label7: TLabel;
    Label2: TLabel;
    begdate: TDateTimePicker;
    enddate: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    DBGrid1: TDBGrid;
    Query2: TQuery;
    Label4: TLabel;
    zyr: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zyryyjForm: TzyryyjForm;

implementation

{$R *.DFM}
  uses dataproc;
procedure TzyryyjForm.BitBtn1Click(Sender: TObject);
begin
 close;
end;

procedure TzyryyjForm.FormShow(Sender: TObject);
begin
    begdate.DateTime:=now;
    enddate.DateTime:=now+1;
    Label3.Caption:='0';
    zyr.Text:='';
    zyr.Items.Clear;
    query2.Active:=false;
    query2.SQL.Clear;
    query2.SQL.Add('select distinct name from zyry ');
    query2.Prepare;
    query2.Open;
    while not query2.Eof do
    begin
      zyr.Items.Add(query2.fields[0].asstring);
      query2.Next;
    end;

   // DataSource1.DataSet:=nil;

end;

procedure TzyryyjForm.BitBtn2Click(Sender: TObject);
 var hj:real;
begin
    hj:=0;
    DataSource1.DataSet:=nil;
    query1.Active:=false;
    query1.SQL.Clear;
    query1.SQL.Add('select distinct cuscode as 消费代号,cusname as 名称,price as 单价,(select sum(cusnum) from lscustom where lscustom.cuscode=zyxm.cuscode and regtime>:pbegin and regtime<:pend and ltrim(lscustom.proid)=:pzyry) as 数量,');
    query1.SQL.Add('(select sum(money) from lscustom where lscustom.cuscode=zyxm.cuscode and regtime>:pbegin and regtime<:pend and lscustom.proid=:pzyry) as 金额 ');
    query1.SQL.Add(' from zyxm ');
    query1.ParamByName('pzyry').asstring:=trim(zyr.Text);
    query1.ParamByName('pbegin').asstring:=formatdatetime('yyyy-mm-dd',begdate.DateTime)+' 00:00:00';
    query1.ParamByName('pend').asstring:=formatdatetime('yyyy-mm-dd',enddate.DateTime)+' 23:59:59';
    query1.Prepare;
    query1.Open;
    while not query1.Eof do
    begin
      hj:=hj+query1.fieldbyname('金额').asfloat;
      query1.Next;
    end;
    Label3.Caption:=floattostr(hj);
    DataSource1.DataSet:=query1;
 end;

end.