slmxtj.pas

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

unit slmxtj;

interface

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

type
  TslmxtjForm = class(TForm)
    Panel3: TPanel;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  slmxtjForm: TslmxtjForm;

implementation
uses dataproc,ryyjtj,yjmxtj,zyslmxprin;
{$R *.DFM}

procedure TslmxtjForm.BitBtn1Click(Sender: TObject);
begin
 if (yjmxtjForm.query1.Active)and (yjmxtjForm.query1.RecordCount<>0) then
 begin
     application.CreateForm(Tzyslmxprinform,zyslmxprinform);
     zyslmxprinform.QRLabel6.Caption:=' '+formatdatetime('yyyy''年''MM''月''dd''日''',ryyjtjForm.begdate.date)+' '+formatdatetime('hh''时''mm''分''ss''秒''',ryyjtjForm.begtime.time)
              +' 到 '+formatdatetime('yyyy''年''MM''月''dd''日''',ryyjtjForm.enddate.date)+' '+formatdatetime('hh''时''mm''分''ss''秒''',ryyjtjForm.endtime.time);
     zyslmxprinform.QRLabel7.Caption:=ryyjtjForm.query1.fieldbyname('Name').asstring;
     zyslmxprinform.hide;
     zyslmxprinform.qr1.Preview;
     zyslmxprinform.Close;
     zyslmxprinform.free;
  end;
end;

procedure TslmxtjForm.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 TslmxtjForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.