xfxmtj.pas

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

unit xfxmtj;

interface

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

type
  TxfxmtjForm = class(TForm)
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    begdate: TDateTimePicker;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    begtime: TDateTimePicker;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    dy: TRadioButton;
    RadioButton2: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xfxmtjForm: TxfxmtjForm;

implementation
uses dataproc, xftjbbpt;
{$R *.DFM}

procedure TxfxmtjForm.BitBtn1Click(Sender: TObject);
begin
   DataSource1.DataSet:=nil;
   query1.Close;
   query1.Prepare;
   query1.ParamByName('pbegtime').asstring:=formatdatetime('yyyy-MM-dd',begdate.date)+' '+formatdatetime('hh:mm:ss',begtime.time);
   query1.ParamByName('pendtime').asstring:=formatdatetime('yyyy-MM-dd',enddate.date)+' '+formatdatetime('hh:mm:ss',endtime.time);
   query1.Prepare;
   query1.Open;
   query1.Fields[0].Visible:=false;
   DataSource1.DataSet:=query1;
   ChineseGrid(DBGrid1);
   DBGrid1.Fields[0].DisplayWidth:=8;
   DBGrid1.Fields[1].DisplayWidth:=8;
end;

procedure TxfxmtjForm.FormShow(Sender: TObject);
begin
  begdate.Datetime:=now-1;
  enddate.Datetime:=now;
  begtime.time:=strtotime('00:00:00');
  endtime.time:=strtotime('23:59:59');

end;

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

procedure TxfxmtjForm.BitBtn3Click(Sender: TObject);
begin
     application.CreateForm(Txftjptform,xftjptform);
     xftjptform.QRLabel1.Caption:=Panel1.Caption;
     xftjptform.QRLabel23.Caption:=formatdatetime('yyyy''年''MM''月''d''日'' hh:mm',begdate.Datetime)+'至'+formatdatetime('yyyy''年''MM''月''d''日'' hh:mm',enddate.Datetime);
     xftjptform.hide;
     if RadioButton2.Checked then
     xftjptform.qr1.Preview else
     xftjptform.qr1.Print;

     xftjptform.free;
end;

end.