ctdjcx.pas

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

unit ctdjcx;

interface

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

type
  Tctdjcxform = class(TForm)
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    Button2: TButton;
    q1: TQuery;
    DataSource1: TDataSource;
    Panel1: TPanel;
    cx: TCheckBox;
    Label2: TLabel;
    begdate: TDateTimePicker;
    begtime: TDateTimePicker;
    Label7: TLabel;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    Label1: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure begdateChange(Sender: TObject);
    procedure cxClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ctdjcxform: Tctdjcxform;

implementation
uses dataproc, ctdj;

{$R *.DFM}


procedure seemx(dd:string);
begin
with ctdjcxform do
  begin
  q1.Active :=false;
  q1.sql.clear;
  q1.sql.add('select ctnowin.tabno,tabtype.name,begtime,money,djcode,czy from ctnowin,tabtype,tabledb where ctnowin.tabno=tabledb.tabno and tabtype.code=tabledb.ztype');
  q1.sql.add(' and (begtime>=:pbegtime) and (begtime<=:pendtime) order by '+dd);
  q1.ParamByName ('pbegtime').asstring:=datetostr(begdate.Date)+' '+timetostr(begtime.time);
  q1.ParamByName ('pendtime').asstring:=datetostr(enddate.Date)+' '+timetostr(endtime.time);
  q1.Prepare;
  q1.open;
  DataSource1.DataSet:=q1;
  chinesegrid(ctdjcxform.dbgrid1);
  q1.Active :=true;
  DBGrid1.fields[0].displaylabel:='  桌 号';
  DBGrid1.fields[1].displaylabel:='  类型';
//  DBGrid1.fields[7].displaylabel:='用餐单位';
  dbgrid1.Columns[0].width:=60;
  dbgrid1.Columns[3].width:=30;
  dbgrid1.Columns[4].width:=30;
  dbgrid1.Columns[1].width:=70;
//  dbgrid1.Columns[7].width:=80;
  end;
end;


procedure Tctdjcxform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
     if xt=0 then help(2);
  end;
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
     ctdjcxform.close;
end;

procedure Tctdjcxform.FormCreate(Sender: TObject);
begin
   shortdateformat:='yyyy-mm-dd';
   begdate.date:=now;
   begtime.Time:=strtotime('00:00');
   enddate.datetime:=now;
   endtime.datetime:=now;
   seemx('begtime');
end;

procedure Tctdjcxform.Button2Click(Sender: TObject);
begin
  ctdjcxform.Close;
end;

procedure Tctdjcxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  q1.free;
end;

procedure Tctdjcxform.begdateChange(Sender: TObject);
begin
   cx.Checked:=false;
   Panel1.Enabled:=true;
   q1.Close;

end;

procedure Tctdjcxform.cxClick(Sender: TObject);
begin
   seemx('begtime');
   Panel1.Enabled:=false;

end;

procedure Tctdjcxform.DBGrid1TitleClick(Column: TColumn);
begin
   if Column.DisplayName='name' then seemx('tabtype.code')
   else
      seemx('ctnowin.'+Column.DisplayName);

end;

end.