bbcx.pas

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

unit bbcx;

interface

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

type
  TsrbbForm = class(TForm)
    Query1: TQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    rbdate: TComboBox;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: 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
  srbbForm: TsrbbForm;

implementation

uses dataproc, srrbprin,cxmenu, srbbprin;
{$R *.DFM}
var ls,bb:string;
procedure TsrbbForm.FormShow(Sender: TObject);
begin
   query1.sql.clear;
   Query1.active:=false;
   query1.sql.text:='select UnitName from syssetup';
   query1.Prepare;
   query1.Open;
   if CheckBox1.Checked then
   begin
     bb:='当月';
     Panel1.Caption:=unpassname(Query1.Fields[0].asstring)+'桑拿部营业月报表';
     if CheckBox2.Checked then ls:='1'
     else ls:='2';
   end
   else
   begin
     ls:='0';
     bb:='当年';
     Panel1.Caption:=unpassname(Query1.Fields[0].asstring)+'桑拿部营业年报表';
   end;
   query1.sql.clear;
   Query1.active:=false;
   if trim(ls)='0' then
      query1.sql.text:='select DISTINCT rbdate from newsrnb order by rbdate desc';
   if trim(ls)='1' then
       query1.sql.text:='select DISTINCT rbdate from newsryb order by rbdate desc';
   if trim(ls)='2' then
       query1.sql.text:='select DISTINCT rbdate from lsnewsryb order by rbdate desc';
   query1.Prepare;
   rbdate.Items.Clear;
   query1.Open;
   while not query1.Eof do
   begin
      rbdate.Items.Add(query1.Fields[0].asstring);
      query1.Next;
   end;
   query1.sql.clear;
   Query1.active:=false;
   rbdate.Text:=rbdate.Items[0];
   rbdateChange(nil);
end;

procedure TsrbbForm.rbdateChange(Sender: TObject);
var i:integer;
begin
   query1.sql.clear;
   Query1.active:=false;
   if trim(ls)='0' then
       query1.sql.text:='select * from newsrnb where rbdate=:prbdate';
   if trim(ls)='1' then
       query1.sql.text:='select * from newsryb where rbdate=:prbdate';
   if trim(ls)='2' then
       query1.sql.text:='select * from lsnewsryb 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:=bb+'数量';
   DBGrid1.fields[2].displaylabel:='累计数量';
   DBGrid1.fields[3].displaylabel:=bb+'应收';
   DBGrid1.fields[4].displaylabel:='应收累计';
   DBGrid1.fields[5].displaylabel:=bb+'实收';
   DBGrid1.fields[6].displaylabel:='实收累计';
   DBGrid1.fields[7].displaylabel:=bb+'免单';
   DBGrid1.fields[8].displaylabel:='免单累计';
   DBGrid1.fields[9].displaylabel:=bb+'挂帐';
   DBGrid1.fields[10].displaylabel:='挂帐累计';
   for i:=1 to 10 do dbgrid1.Columns[i].width:=50;


end;

procedure TsrbbForm.BitBtn1Click(Sender: TObject);
begin
if trim(rbdate.Text)<>'' then
begin
     application.CreateForm(Tsrbbprinform,srbbprinform);
     srbbprinform.hide;
     srbbprinform.qr1.print;
     srbbprinform.Close;
     srbbprinform.free;
end;
end;

procedure TsrbbForm.rbdateKeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;

procedure TsrbbForm.rbdateKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 { if key=112 then
    if cxzmenu.Label3.Enabled then
     begin
       if cxzmenu.Label4.Enabled then
       begin
          if xt=1 then  help(11);
       end
       else
       begin
          if xt=1 then  help(12);
       end;
     end
    else
    begin
       if xt=1 then  help(13);
    end;
key:=0;  }
end;

procedure TsrbbForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 { if key=112 then
    if not cxzmenu.Label3.Enabled then
     begin
       if cxzmenu.Label4.Enabled then
       begin
          if xt=1 then  help(12);
       end
       else
       begin
          if xt=1 then  help(11);
       end;
     end
    else
     begin
        if xt=1 then  help(13);
     end;
        }

end;

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

end;

end.