newrbcx.pas

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

unit newrbcx;

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;
    Panel5: TPanel;
    Panel6: TPanel;
    SpeedButton1: TSpeedButton;
    rbdate: TComboBox;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    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,cxmenu;
{$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 srrb order by rbdate desc'
   else query1.sql.text:='select DISTINCT rbdate from lssrrb 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 * from srrb where rbdate=:prbdate'
   else  query1.sql.text:='select * from lssrrb 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[11].displaylabel:='数量';
   DBGrid1.fields[2].displaylabel:='现金';
   DBGrid1.fields[3].displaylabel:='网点';
   DBGrid1.fields[12].displaylabel:='现金';
   DBGrid1.fields[4].displaylabel:='支票';
   DBGrid1.fields[13].displaylabel:='支票';
   DBGrid1.fields[5].displaylabel:='信卡';
   DBGrid1.fields[14].displaylabel:='信卡';
   DBGrid1.fields[6].displaylabel:='挂帐';
   DBGrid1.fields[15].displaylabel:='挂帐';
   DBGrid1.fields[7].displaylabel:='免单';
   DBGrid1.fields[16].displaylabel:='免单';
   DBGrid1.fields[8].displaylabel:='其他';
   DBGrid1.fields[17].displaylabel:='其他';
   DBGrid1.fields[9].displaylabel:='小计';
   DBGrid1.fields[18].displaylabel:='小计';
   DBGrid1.fields[10].displaylabel:='累计';
   DBGrid1.fields[19].displaylabel:='累计';
   for i:=1 to 18 do dbgrid1.Columns[i].width:=30;
   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
    if cxzmenu.Label4.Enabled then
    begin
       if xt=1 then  help(10);
    end
    else
    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
    if cxzmenu.Label4.Enabled then
    begin
       if xt=1 then  help(10);
    end
    else
    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.