ctxstj.pas

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

unit ctxstj;

interface

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

type
  TctxstjForm = 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;
    bgtime: TMaskEdit;
    edtime: TMaskEdit;
    custype: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ctxstjForm: TctxstjForm;

implementation

uses dataproc;

{$R *.DFM}

procedure init;
begin
with ctxstjform do
   begin
     query1.Active :=false;
     query1.sql.clear;
     query1.sql.add('select sum(Money),count(accno) from lslscustom where Regtime>='''+trim(bgtime.Text)+''' and Moditime<='''+trim(edtime.Text)+''' 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(accno),sum(CusNum) ,sum(Money) as money1 from lscustom  where Regtime>='''+trim(bgtime.Text)+''' and Moditime<='''+trim(edtime.Text)+''' and custype='''+trim(custype.Items[TabControl1.TabIndex])+''' and lc='+lc+' group by lscustom.cuscode');
     query1.Open;
    ChineseGrid(DBGrid1);
//    DBGrid1.SelectedIndex:=1;
//    dbgrid1.Columns[0].width:=30;
//    dbgrid1.Columns[1].width:=60;
    DBGrid1.fields[1].displaylabel:='  次数';
    DBGrid1.fields[2].displaylabel:='  数量';
//    DBGrid1.fields[0].displaylabel:='代码';

 end;

 end;

procedure TctxstjForm.FormCreate(Sender: TObject);
begin
     Caption:='   '+formatdatetime('yyyy-mm-dd ',now)+'  销售统计表';
{     if trim(curper.curbc)='早' then
     begin
        bgtime.Text:=formatdatetime('yyyy-mm-dd',now)+' 00:00';
        edtime.Text:=formatdatetime('yyyy-mm-dd',now)+' 10:00';
     end;
     if trim(curper.curbc)='午' then
     begin
        bgtime.Text:=formatdatetime('yyyy-mm-dd',now)+' 10:00';
        edtime.Text:=formatdatetime('yyyy-mm-dd',now)+' 16:00';
     end;
     if trim(curper.curbc)='晚' then
     begin
        bgtime.Text:=formatdatetime('yyyy-mm-dd',now)+' 16:00';
        edtime.Text:=formatdatetime('yyyy-mm-dd',now)+' 23:59';
     end;   }
      bgtime.Text:=formatdatetime('yyyy-mm-dd',now)+' 00:00';
      edtime.Text:=formatdatetime('yyyy-mm-dd',now)+' 23:59';

     query1.Active :=false;
     query1.sql.clear;
     query1.sql.add('select sum(Money),count(accno) from lslscustom where Regtime>='''+trim(bgtime.Text)+''' and Moditime<='''+trim(edtime.Text)+'''');
     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;
     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;
     init;

end;

procedure TctxstjForm.TabControl1Change(Sender: TObject);
begin
  init;
end;

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

end.