ctxsbtj.pas

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

unit ctxsbtj;

interface

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

type
  TctxsbtjForm = class(TForm)
    TabControl1: TTabControl;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    sllhj: TEdit;
    Label2: TLabel;
    jelhj: TEdit;
    Label3: TLabel;
    slzhj: TEdit;
    Label4: TLabel;
    jezhj: TEdit;
    Query1: TQuery;
    DataSource1: TDataSource;
    custype: TComboBox;
    Panel2: TPanel;
    Label5: TLabel;
    rq: TDateTimePicker;
    zao: TRadioButton;
    wu: TRadioButton;
    wan: TRadioButton;
    qt: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure TabControl1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ctxsbtjForm: TctxsbtjForm;

implementation

uses dataproc;

{$R *.DFM}
var begtime,endtime:string;

procedure TctxsbtjForm.TabControl1Change(Sender: TObject);
begin
     query1.Active :=false;
     query1.sql.clear;
     query1.sql.add('select sum(Money),count(accno) from lscustom where Moditime>='''+trim(begtime)+''' and Moditime<='''+trim(endtime)+''' and custype='''+trim(custype.Items[TabControl1.TabIndex])+''' ');
     query1.Open;
     if not query1.Fields[1].isnull then
     begin
       sllhj.Text:='0';
       jelhj.Text:='0';
     end
     else
     begin
       sllhj.Text:=query1.Fields[1].asstring;
       jelhj.Text:=query1.Fields[0].asstring;
     end;
     query1.Active :=false;
     query1.sql.clear;
     query1.sql.add('select (select cusname from cusitem where cuscode=lscustom.cuscode) as name,count(tabno),CusPrice,sum(CusNum) ,sum(Money) as money1 from lscustom  where Moditime>='''+trim(begtime)+''' and Moditime<='''+trim(endtime)+''' and custype='''+trim(custype.Items[TabControl1.TabIndex])+''' group by lscustom.cuscode,CusPrice');
     query1.Open;
    ChineseGrid(DBGrid1);
//    DBGrid1.SelectedIndex:=1;
//    dbgrid1.Columns[0].width:=30;
//    dbgrid1.Columns[1].width:=60;
    DBGrid1.fields[1].displaylabel:='  桌数';
    DBGrid1.fields[3].displaylabel:='  数量';
 //   DBGrid1.fields[3].displaylabel:='  金额';
//    DBGrid1.fields[0].displaylabel:='代码';
end;

procedure TctxsbtjForm.Button2Click(Sender: TObject);
begin
   close;
end;

procedure TctxsbtjForm.Button3Click(Sender: TObject);
begin
     if zao.Checked then
     begin
        begtime:=formatdatetime('yyyy-mm-dd',rq.DateTime)+' 00:00';
        endtime:=formatdatetime('yyyy-mm-dd',rq.DateTime)+' 10:00';
     end;
     if wu.Checked then
     begin
        begtime:=formatdatetime('yyyy-mm-dd',rq.DateTime)+' 10:00';
        endtime:=formatdatetime('yyyy-mm-dd',rq.DateTime)+' 16:00';
     end;
     if wan.Checked then
     begin
        begtime:=formatdatetime('yyyy-mm-dd',rq.DateTime)+' 16:00';
        endtime:=formatdatetime('yyyy-mm-dd',rq.DateTime)+' 23:59';
     end;
     if qt.Checked then
     begin
        begtime:=formatdatetime('yyyy-mm-dd',rq.DateTime)+' 00:00';
        endtime:=formatdatetime('yyyy-mm-dd',rq.DateTime)+' 23:59';
     end;
     query1.Active :=false;
     query1.sql.clear;
     query1.sql.add('select sum(Money),count(accno) from lscustom where Moditime>='''+trim(begtime)+''' and Moditime<='''+trim(endtime)+'''');
     query1.Open;
     if not query1.Fields[1].isnull then
     begin
       slzhj.Text:='0';
       jezhj.Text:='0';
     end
     else
     begin
       slzhj.Text:=query1.Fields[1].asstring;
       jezhj.Text:=query1.Fields[0].asstring;
     end;
     TabControl1Change(nil);
end;

procedure TctxsbtjForm.FormShow(Sender: TObject);
begin
     shortdateformat:='yyyy-mm-dd';
     if time<strtotime('10:00') then
         zao.Checked:=true;
     if (time>strtotime('10:00')) and (time<=strtotime('16:00')) then
         wu.Checked:=true;
     if (time>strtotime('16:00'))  then
         wan.Checked:=true;
     rq.DateTime:=now;
     query1.Active :=false;
     query1.sql.clear;
     query1.sql.add('select CusType,CusName from custype ');
     query1.Open;
     TabControl1.Tabs.Clear;
     custype.Items.Clear;
     while not query1.Eof do
     begin
        TabControl1.Tabs.Add(query1.Fields[1].asstring);
        custype.Items.Add(query1.Fields[0].asstring);
        query1.Next;
     end;
     query1.Active :=false;
     query1.sql.clear;

end;

end.