yjmxtj.pas

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

unit yjmxtj;

interface

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

type
  TyjmxtjForm = class(TForm)
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    Query1: TQuery;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yjmxtjForm: TyjmxtjForm;

implementation
uses dataproc,ryyjtj, slmxtj,zymxprin;
{$R *.DFM}

procedure TyjmxtjForm.BitBtn1Click(Sender: TObject);
begin
 if (ryyjtjForm.query2.Active)and (ryyjtjForm.query2.RecordCount<>0) then
 begin
     application.CreateForm(Tzymxprinform,zymxprinform);
     zymxprinform.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);
     zymxprinform.QRLabel7.Caption:=ryyjtjForm.query1.fieldbyname('Name').asstring;
     zymxprinform.hide;
     zymxprinform.qr1.Preview;
     zymxprinform.Close;
     zymxprinform.free;
  end;
  { 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 TyjmxtjForm.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 TyjmxtjForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TyjmxtjForm.N1Click(Sender: TObject);
begin
 if (ryyjtjForm.query2.Active)and (ryyjtjForm.query2.RecordCount<>0) then
 begin
  query1.Active:=false;
  query1.SQL.Clear;
  query1.SQL.Add('select distinct  djcode,handno,accno,cuscode,(select cusname from cusitem where cusitem.cuscode=t.cuscode) as 项目名称,');
  query1.SQL.Add(' cusprice,cusnum,money,regtime,moditime as 结帐时间,proid,pdid as 服务员,jsj as 站点 from customls as t where  ');
  query1.SQL.Add(' cuscode=:pcuscode and (t.proid=:pzyry or t.pdid=:pzyry) and  regtime>=:pbeg and regtime<=:pend and ismd<>1 ');
  query1.ParamByName('pcuscode').asstring:=ryyjtjForm.query2.fieldbyname('商品编号').asstring;
  query1.ParamByName('pbeg').asdatetime:=strtodatetime(formatdatetime('yyyy-MM-dd',ryyjtjForm.begdate.Date)+' '+formatdatetime('hh:mm:ss',ryyjtjForm.begtime.Time));
  query1.ParamByName('pend').asdatetime:=strtodatetime(formatdatetime('yyyy-MM-dd',ryyjtjForm.enddate.Date)+' '+formatdatetime('hh:mm:ss',ryyjtjForm.endtime.Time));
  query1.ParamByName('pzyry').asstring:=ryyjtjForm.query1.fieldbyname('Name').asstring;
  query1.Open;
  Application.CreateForm(TslmxtjForm, slmxtjForm);
  chinesegrid(slmxtjForm.dbgrid1);
  slmxtjForm.showmodal;
  slmxtjForm.free;
  end ;

end;

end.