jbsrbb.pas

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

unit jbsrbb;

interface

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

type
  TjbbbForm = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    begdate: TDateTimePicker;
    begtime: TDateTimePicker;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    Table1: TTable;
    S1: TStoredProc;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    dy: TRadioButton;
    RadioButton1: TRadioButton;
    Splitter1: TSplitter;
    Query2: TQuery;
    Panel3: TPanel;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    Query3: TQuery;
    Label4: TLabel;
    Label5: TLabel;
    czyid: TComboBox;
    czyname: TComboBox;
    Label2: TLabel;
    Label6: TLabel;
    Panel4: TPanel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Query4: TQuery;
    Label7: TLabel;
    procedure rbdateKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jbbbForm: TjbbbForm;
implementation
uses dataproc,jbSrbbpt,bcmdunit ;
{$R *.DFM}

procedure TjbbbForm.FormShow(Sender: TObject);
var i:integer;
begin
   begdate.DateTime:=now;
   Query2.Active:=false;
   Query2.SQL.Clear;
   Query2.SQL.Add('select bcbegtime from bc where bcname='''+curper.curbc+'''');
   Query2.Open;
   begtime.Time:=strtotime(Query2.Fields[0].AsString);
   begdate.Time:=strtotime(Query2.Fields[0].AsString);
   Query2.SQL.Clear;
   Query2.Active:=false;
   enddate.DateTime:=now;
   if begdate.DateTime>enddate.DateTime then begdate.DateTime:=begdate.DateTime-1;
   begtime.Date:=begdate.Date;
   endtime.DateTime:=now;
//   endtime.Time:=strtotime('23:59:59');
   //label5.Caption:=curper.name;
   czyname.Items.Clear;
   czyid.Items.Clear;
   czyname.Text:='';
   czyid.text:='';
 {  comadd1(czyid,czyname,2,'select code,name from stuff');
   for i:=0 to czyname.Items.Count-1 do
     if czyid.Items[i]=curper.code then czyname.ItemIndex:=i;  }
   BitBtn1Click(nil);
end;

procedure TjbbbForm.rbdateKeyPress(Sender: TObject; var Key: Char);
begin

key:=#0;
end;

procedure TjbbbForm.BitBtn1Click(Sender: TObject);
var giveyj,shouyj,shou:real;
begin
  giveyj:=0;shouyj:=0;shou:=0;
   try
    begdate.Time:=begtime.Time;
    enddate.Time:=endtime.Time;
    s1.Prepare;
   // s1.ParamByName ('@lslou').asstring:='0';
    s1.ParamByName ('@lsbegtime').asstring:=formatdatetime('yyyy-MM-dd hh:mm:ss',begdate.DateTime);
    s1.ParamByName ('@lsendtime').asstring:=formatdatetime('yyyy-MM-dd hh:mm:ss',enddate.DateTime);
    s1.Prepare;
    s1.ExecProc ;
   table1.Active:=false;
   table1.Active:=true;
   DBGrid1.Fields[1].DisplayWidth:=12;
   DBGrid1.fields[0].displaylabel:=' 序  号';
   table1.Last;
   Label6.Caption:=table1.Fields[3].AsString+' 元';
   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:=' 合  计';
   query3.SQL.Clear;
   query3.SQL.Add('delete from deposit where AccNo not in (select accno from qbnowin) ');
   query3.Prepare;
   query3.ExecSQL;
   query3.SQL.Clear;
   query3.SQL.Add('select handno,AccNo,Deposit,DepositTime from deposit order by AccNo,handno,DepositTime ');
  { if trim(czyname.Text)<>'' then
     query3.SQL.Add('and regid=:pczy'); }
 //  query3.SQL.Add(' union (select ''合计'','''',sum(deposit),null from deposit ');
  { if trim(czyname.Text)<>'' then
   begin
     query3.SQL.Add('and regid=:pczy)');
     query3.ParamByName('pczy').asstring:=czyid.Items[czyname.ItemIndex];
   end
   else }
   //  query3.SQL.Add(')');
  // query3.ParamByName('beg').asdatetime:=begdate.DateTime;
  // query3.ParamByName('end').asdatetime:=enddate.DateTime;
   query3.Prepare;
   query3.Open;
   query4.SQL.Clear;
   query4.SQL.Add('select sum(deposit) from deposit ');
   query4.Prepare;
   query4.Open;
   Label7.Caption:='合计押金:'+query4.Fields[0].AsString+' 元';
  // query3.Last;
  // shouyj:=query3.Fields[2].AsFloat;
   except
   end;

end;

procedure TjbbbForm.BitBtn2Click(Sender: TObject);
begin
     application.CreateForm(Tjbsrbbptform,jbsrbbptform);
     jbsrbbptform.QRLabel1.Caption:=Panel1.Caption;
     jbsrbbptform.QRLabel32.Caption:=Label6.Caption;
     jbsrbbptform.QRLabel23.Caption:=formatdatetime('yyyy''年''MM''月''dd''日''HH''时''mm''分''',begdate.date)
        +' 到 '+formatdatetime('yyyy''年''MM''月''dd''日''HH''时''mm''分''',enddate.date);
   { if trim(czyname.Text)<>'' then
    begin
       jbsrbbptform.syy.Caption:='收银员:'+trim(czyname.Text);
       jbsrbbptform.syy.Enabled:=true;
    end
    else}
    jbsrbbptform.syy.Enabled:=false;
    jbsrbbptform.hide;
     if dy.Checked then
        jbsrbbptform.qr1.print
     else
        jbsrbbptform.qr1.Preview;
     jbsrbbptform.Close;
     jbsrbbptform.free;
end;

procedure TjbbbForm.N1Click(Sender: TObject);
begin
   Application.CreateForm(TbcmdForm, bcmdForm);
   bcmdForm.query4.Active:=false;
   bcmdForm.query4.SQL.Clear;
   bcmdForm.query4.SQL.Add('select roomno,(select max(name) from guestmx where nowin.accno=guestmx.accno) as name,begtime,(select name from mode where code=nowin.jzfs) as ffs,');
   bcmdForm.query4.SQL.Add(' (money+csmoney) as rmf,ismd,zkl,ismff,ismxf, czy  from nowin where begtime>=:beg and begtime<=:end and (ismd=1 or zkl<>100 or ismff=1 or ismxf=1) ');
  { if trim(czyname.Text)<>'' then
   begin
     bcmdForm.query4.SQL.Add('and czy=:pczy');
     bcmdForm.query4.ParamByName('pczy').asstring:=czyname.Items[czyid.ItemIndex];
   end ; }
 //  else
  //   bcmdForm.query4.SQL.Add(')');
   bcmdForm.query4.ParamByName('beg').asdatetime:=begdate.DateTime;
   bcmdForm.query4.ParamByName('end').asdatetime:=enddate.DateTime;
   bcmdForm.query4.Prepare;
   bcmdForm.query4.Open;
   chinesegrid(bcmdForm.dbgrid1);
   bcmdForm.showmodal;
   bcmdForm.free;

end;

end.