jbcx.pas

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

unit jbcx;

interface

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

type
  Tjbcxform = 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;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    Label10: TLabel;
    Label14: TLabel;
    DBText10: TDBText;
    DBText11: TDBText;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    Panel7: TPanel;
    Panel4: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton1: 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
  jbcxform: Tjbcxform;

implementation
uses dataproc, jkcxpt, jbcxpt;

{$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 jbcxform do
  begin
   cxquery.Active :=false;
   cxquery.sql.clear;
   cxquery.sql.Add('select CurBeg,GiveTime,newBc,newname=(select name from stuff where code=changebc.newRegid),oldname=(select name from stuff where code=changebc.oldRegid),xjjz,zpjz,cardjz,gzjz,mfjz,hjjz=xjjz+zpjz+cardjz+gzjz+mfjz,zbj,zsk,yj,jbj,jsk,jcs,zp,card,gz,mf ');
   cxquery.sql.Add('from changebc where ((GiveTime>=:pbegtime) and (CurBeg<=:pendtime)) 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.fields[11].displaylabel:='租包间';
  DBGrid1.fields[12].displaylabel:='租散客';
  DBGrid1.fields[13].displaylabel:='收押金';
  DBGrid1.fields[14].displaylabel:='结包间';
  DBGrid1.fields[15].displaylabel:='结散客';
  DBGrid1.fields[16].displaylabel:='结超时';
  DBGrid1.fields[17].displaylabel:='支票出租的房间';
  DBGrid1.fields[18].displaylabel:='信用卡出租的房间';
  DBGrid1.fields[19].displaylabel:='挂帐的房间';
  DBGrid1.fields[20].displaylabel:='免费的房间';
  dbgrid1.Columns[0].width:=100;
  dbgrid1.Columns[1].width:=100;
//  dbgrid1.Columns[8].width:=50;}
   cxquery.Active :=true;
  end;
end;


procedure formini;
begin
with jbcxform 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('GiveTime');

  end;
end;


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

procedure Tjbcxform.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 Tjbcxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  cxquery.Free;
end;

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

end;

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

procedure Tjbcxform.cxClick(Sender: TObject);
begin
   cxpx('GiveTime');
   Panel1.Enabled:=false;
end;

procedure Tjbcxform.SpeedButton1Click(Sender: TObject);
begin
   cxquery.Free;
   jbcxform.close;

end;

procedure Tjbcxform.SpeedButton2Click(Sender: TObject);
begin
     application.CreateForm(Tjbcxpform,jbcxpform);
     jbcxpform.hide;
     jbcxpform.qr1.print;
     jbcxpform.Close;
     jbcxpform.free;

end;

procedure Tjbcxform.SpeedButton3Click(Sender: TObject);
begin
     application.CreateForm(Tjbcxpform,jbcxpform);
     jbcxpform.hide;
     jbcxpform.qr1.preview;
     //
     //print;
     jbcxpform.Close;
     jbcxpform.free;

end;

end.