jkcx.pas

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

unit jkcx;

interface

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

type
  Tjkcxform = class(TForm)
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    cxquery: TQuery;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Label7: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    begdate: TDateTimePicker;
    begtime: TDateTimePicker;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    Panel1: TPanel;
    cx: TCheckBox;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    hjGrid: TStringGrid;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure begdateChange(Sender: TObject);
    procedure cxClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jkcxform: Tjkcxform;

implementation
uses dataproc, jkcxpt;

{$R *.DFM}

function hdq(dd:string;k:integer):string;
begin
   hdq:=copy(copy('                   ',1,k)+trim(dd),length(trim(dd))+1,k);

end;

procedure cxpx(dd:string);
begin
with jkcxform do
  begin
   cxquery.Active :=false;
   cxquery.sql.clear;
   cxquery.sql.Add('select jkTime,bcjxj,bcjzp,bcjcard,bcjgz,bcjmd,bcjother,xj=bcjxj+bcjzp+bcjcard+bcjgz+bcjmd+bcjother,name,GiveTime,bc from jkmx,stuff where ((jktime>=:pbegtime) and (jktime<=:pendtime) and (stuff.code=jkmx.jkregid)) order by '+dd);
   cxquery.ParamByName ('pbegtime').asstring:=datetostr(begdate.Date)+' '+timetostr(begtime.time);
   cxquery.ParamByName ('pendtime').asstring:=datetostr(enddate.Date)+' '+timetostr(endtime.time);
   cxquery.Prepare;
   cxquery.Open;
//   chinesegrid(dbgrid1);
  DBGrid1.fields[0].displaylabel:='  交 款 时 间';
  DBGrid1.fields[1].displaylabel:='  现金';
  DBGrid1.fields[2].displaylabel:='  支票';
  DBGrid1.fields[3].displaylabel:='  信用卡';
  DBGrid1.fields[4].displaylabel:='  挂帐';
  DBGrid1.fields[5].displaylabel:='  免单';
  DBGrid1.fields[6].displaylabel:='  其他';
  DBGrid1.fields[7].displaylabel:='  小计';
  DBGrid1.fields[8].displaylabel:='交款人';
  DBGrid1.fields[9].displaylabel:='  当 班 时 间';
  DBGrid1.fields[10].displaylabel:='班次';
  dbgrid1.Columns[0].width:=120;
  dbgrid1.Columns[8].width:=50;
   cxquery.Active :=true;
  end;
end;


procedure formini;
var i:integer;
begin
with jkcxform do
  begin
   cxquery.Active :=false;
   cxquery.sql.clear;
   cxquery.sql.Add('select sum(bcjxj),sum(bcjzp),sum(bcjcard),sum(bcjgz),sum(bcjmd),sum(bcjother),sum(bcjxj+bcjzp+bcjcard+bcjgz+bcjmd+bcjother) from jkmx where ((jkTime>=:pbegtime) and (jkTime<=:pendtime) )');
   cxquery.ParamByName ('pbegtime').asstring:=datetostr(begdate.Date)+' '+timetostr(begtime.time);
   cxquery.ParamByName ('pendtime').asstring:=datetostr(enddate.Date)+' '+timetostr(endtime.time);
   cxquery.Prepare;
   cxquery.Open;
   hjGrid.Cells[1,0]:='     合      计';
   //   edit1.text:=cxquery.Fields[0].asstring;
   for i:=0 to 6 do
     hjGrid.Cells[i+2,0]:=hdq(cxquery.Fields[i].asstring,10);
   cxquery.Active :=false;
   cxquery.sql.clear;
   cxquery.Active :=false;
   cxquery.sql.clear;
   cxpx('jkTime');

  end;
end;


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

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

procedure Tjkcxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  cxquery.Free;
end;

procedure Tjkcxform.DBGrid1TitleClick(Column: TColumn);
begin
  cxpx(Column.DisplayName);

end;

procedure Tjkcxform.begdateChange(Sender: TObject);
begin
   cx.Checked:=false;
   Panel1.Enabled:=true;
   cxquery.Close;
end;

procedure Tjkcxform.cxClick(Sender: TObject);
begin
   formini;
   Panel1.Enabled:=false;
end;

procedure Tjkcxform.SpeedButton1Click(Sender: TObject);
begin
   cxquery.Free;
   jkcxform.close;

end;

procedure Tjkcxform.SpeedButton2Click(Sender: TObject);
begin
     application.CreateForm(Tjkcxpform,jkcxpform);
     jkcxpform.hide;
     jkcxpform.qr1.print;
     jkcxpform.Close;
     jkcxpform.free;

end;

procedure Tjkcxform.SpeedButton3Click(Sender: TObject);
begin
     application.CreateForm(Tjkcxpform,jkcxpform);
     jkcxpform.hide;
     jkcxpform.qr1.preview;
     //
     jkcxpform.Close;
     jkcxpform.free;

end;

end.