rbcx.pas

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

unit Rbcx;

interface

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

type
  TsrrbForm = class(TForm)
    Panel1: TPanel;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    rbdate: TComboBox;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure rbdateChange(Sender: TObject);
    procedure rbdateKeyPress(Sender: TObject; var Key: Char);
    procedure rbdateKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  srrbForm: TsrrbForm;

implementation

uses dataproc, srrbprin;
{$R *.DFM}

procedure TsrrbForm.FormShow(Sender: TObject);
begin
   query1.sql.clear;
   Query1.active:=false;
   query1.sql.text:='select UnitName from syssetup';
   query1.Prepare;
   query1.Open;
   Panel1.Caption:=unpassname(Query1.Fields[0].asstring)+'桑拿部营业日报表';
   query1.sql.clear;
   Query1.active:=false;
   if CheckBox1.Checked then query1.sql.text:='select DISTINCT rbdate from newsrrb order by rbdate desc'
   else query1.sql.text:='select DISTINCT rbdate from lsnewsrrb order by rbdate desc';
   query1.Prepare;
   query1.Open;
   rbdate.Items.Clear;
   while not query1.Eof do
   begin
      rbdate.Items.Add(query1.Fields[0].asstring);
      query1.Next;
   end;
   query1.Open;
   query1.sql.clear;
   Query1.active:=false;
   rbdate.Text:=rbdate.Items[0];
   rbdateChange(nil);
end;

procedure TsrrbForm.rbdateChange(Sender: TObject);
var i:integer;
begin
   query1.sql.clear;
   Query1.active:=false;
   if CheckBox1.Checked  then query1.sql.text:='select item,num,numadd,ys,ysadd,ss,ssadd,md,mdadd,gz,gzadd from newsrrb where rbdate=:prbdate'
   else  query1.sql.text:='select item,num,numadd,ys,ysadd,ss,ssadd,md,mdadd,gz,gzadd from lsnewsrrb where rbdate=:prbdate';
   query1.ParamByName('prbdate').asstring:=trim(rbdate.Text);
   query1.Prepare;
   query1.Open;
//   query1.fieldbyname('rbdate').visible:=false;
   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:='挂帐累计';
   for i:=1 to 10 do dbgrid1.Columns[i].width:=50;
{   dbgrid1.Columns[0].width:=50;
   dbgrid1.Columns[10].width:=40;
   dbgrid1.Columns[19].width:=40;}


end;

procedure TsrrbForm.BitBtn1Click(Sender: TObject);
begin
if trim(rbdate.Text)<>'' then
begin
     application.CreateForm(Tsrrbprinform,srrbprinform);
     srrbprinform.hide;
     srrbprinform.qr1.Print;
     srrbprinform.Close;
     srrbprinform.free;
end;
end;

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

key:=#0;
end;

procedure TsrrbForm.rbdateKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
    begin
       if xt=1 then  help(9);
    end;
key:=0;
end;

procedure TsrrbForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
    begin
       if xt=1 then  help(9);
    end;

end;

procedure TsrrbForm.SpeedButton1Click(Sender: TObject);
begin
if trim(rbdate.Text)<>'' then
begin
     application.CreateForm(Tsrrbprinform,srrbprinform);
     srrbprinform.hide;
     srrbprinform.qr1.preview;
     srrbprinform.Close;
     srrbprinform.free;
end;

end;

end.