czlbb.pas

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

unit czlbb;

interface

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

type
  Tczbbform = class(TForm)
    TabControl1: TTabControl;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    Memo1: TMemo;
    lc: TComboBox;
    Panel1: TPanel;
    rbdate: TComboBox;
    CheckBox1: TCheckBox;
    procedure TabControl1Change(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure rbdateChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  czbbform: Tczbbform;

implementation
uses dataproc;
{$R *.DFM}
var ls:string;

procedure init(lz:integer;bx:string);
var tj:string;
begin
  with czbbform do
   begin
     Memo1.Visible:=false;
     DBGrid1.Visible:=false;
     Memo1.Lines.Clear;
     Query1.Active :=false;
     Query1.sql.clear;
     if trim(ls)='0' then
       query1.sql.text:='select DISTINCT rczltjdate from room_nb where rczltjdate='''+trim(rbdate.Text)+'''';
     if trim(ls)='1' then
       query1.sql.text:='select DISTINCT rczltjdate from room_yb where rczltjdate='''+trim(rbdate.Text)+'''';
     Query1.Open;
//     Memo1.Lines.Add(' ');
     Memo1.Lines.Add('       '+copy(Query1.Fields[0].asstring,1,4)+'年'+copy(Query1.Fields[0].asstring,6,2)+'月');
     Memo1.Lines.Add('   '+TabControl1.Tabs[lz]+'客房出租率统计表');
     Memo1.Lines.Add(' ');
     Query1.Active :=false;
     Query1.sql.clear;
     if lz=0 then
     begin
       tj:='';
       Query1.sql.text:='select Name,roomtype from roomtype ';
     end
     else
     begin
        if trim(ls)='1' then
           tj:=' and REVERSE(substring(REVERSE(rtrim(room_yb.roomno)),3,2))='''+lc.Items[lz]+'''';
        if trim(ls)='0' then
           tj:=' and REVERSE(substring(REVERSE(rtrim(room_nb.roomno)),3,2))='''+lc.Items[lz]+'''';
        Query1.sql.text:='select Name,roomtype from roomtype';
     end;
     Query2.Active :=false;
     Query2.sql.clear;
     if trim(ls)='0' then
        Query2.sql.text:='select DISTINCT avg(zczl),avg(nczl) from room_nb where rczltjdate='''+trim(rbdate.Text)+''' and roomno<>'''' '+tj ;
     if trim(ls)='1' then
        Query2.sql.text:='select DISTINCT avg(zczl),avg(nczl),avg(yczl) from room_yb where rczltjdate='''+trim(rbdate.Text)+''' and roomno<>'''' '+tj ;
     Query2.Open;
     if Query2.Fields[0].asstring<>'' then
     begin
        Memo1.Lines.Add('  总出租率:   '+Query2.Fields[0].asstring+' %');
        Memo1.Lines.Add('  年出租率:   '+Query2.Fields[1].asstring+' %');
        if trim(ls)='1' then
           Memo1.Lines.Add('  月出租率:   '+Query2.Fields[2].asstring+' %');
              Memo1.Lines.Add(' ');
     end;
            Memo1.Lines.Add(' ');
     Memo1.Lines.Add('其中：');

     Query1.Open;
     while not Query1.Eof do
     begin
//,
         Query2.Active :=false;
         Query2.sql.clear;
        if trim(ls)='0' then
            Query2.sql.text:='select DISTINCT avg(zczl),avg(nczl) from room_nb where rczltjdate='''+trim(rbdate.Text)+''' and roomtype='''+Query1.Fieldbyname('roomtype').asstring+''''+tj ;
        if trim(ls)='1' then
            Query2.sql.text:='select DISTINCT avg(zczl),avg(nczl),avg(yczl) from room_yb where rczltjdate='''+trim(rbdate.Text)+''' and roomtype='''+Query1.Fieldbyname('roomtype').asstring+''''+tj ;
         Query2.Open;
         if Query2.Fields[0].asstring<>'' then
         begin
            Memo1.Lines.Add(Query1.Fieldbyname('name').asstring+':');
            Memo1.Lines.Add('      总出租率:   '+Query2.Fields[0].asstring+' %');
            Memo1.Lines.Add('      年出租率:   '+Query2.Fields[1].asstring+' %');
            if trim(ls)='1' then
              Memo1.Lines.Add('      月出租率:   '+Query2.Fields[2].asstring+' %');
//            Memo1.Lines.Add(' ');
         end;
         Query1.Next;
     end;
     Query1.Active :=false;
     Query1.sql.clear;
     if trim(ls)='0' then
        Query1.sql.text:='select RoomNo,roomtype=Name,BedNum,Price,TurnTime,CSPrice,zczl,nczl from room_nb,roomtype where rczltjdate='''+trim(rbdate.Text)+''' and RoomType.RoomType=room_nb.RoomType '+tj+' order by '+bx ;
     if trim(ls)='1' then
        Query1.sql.text:='select RoomNo,roomtype=Name,BedNum,Price,TurnTime,CSPrice,zczl,nczl,yczl from room_yb,roomtype where rczltjdate='''+trim(rbdate.Text)+''' and RoomType.RoomType=room_yb.RoomType '+tj+' order by '+bx ;
     Query1.Open;
     dbgrid1.Columns[0].width:=40;
     dbgrid1.Columns[1].width:=50;
     dbgrid1.Columns[2].width:=25;
     dbgrid1.Columns[3].width:=30;
     dbgrid1.Columns[4].width:=50;
     dbgrid1.Columns[5].width:=40;
     dbgrid1.Columns[6].width:=40;
     dbgrid1.Columns[7].width:=40;
     chinesegrid(dbgrid1);
     DBGrid1.fields[6].displaylabel:='总租率';
     DBGrid1.fields[7].displaylabel:='年租率';
     if trim(ls)='1' then
     begin
       DBGrid1.fields[8].displaylabel:='月租率';
       dbgrid1.Columns[8].width:=40;
     end;
//     tstringfield(DBGrid1.Fields[6]).displayvalues:='是;否';

     Memo1.Visible:=true;
     DBGrid1.Visible:=true;

   end;
end;

procedure Tczbbform.TabControl1Change(Sender: TObject);
begin
  init(TabControl1.TabIndex,'nczl');

end;

procedure Tczbbform.DBGrid1TitleClick(Column: TColumn);
begin
  init(TabControl1.TabIndex,Column.DisplayName);

end;

procedure Tczbbform.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
     if xt=1 then   help(8);
  end;

end;

procedure Tczbbform.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
     Panel1.Caption:=unpassname(Query1.Fields[0].asstring)+'桑拿部出租率月报表';
     ls:='1';
   end
   else
   begin
     ls:='0';
     Panel1.Caption:=unpassname(Query1.Fields[0].asstring)+'桑拿部出租率年报表';
   end;
   query1.sql.clear;
   Query1.active:=false;
   if trim(ls)='0' then
      query1.sql.text:='select DISTINCT rczltjdate from room_nb order by rczltjdate desc';
   if trim(ls)='1' then
       query1.sql.text:='select DISTINCT rczltjdate from room_yb order by rczltjdate 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 Tczbbform.rbdateChange(Sender: TObject);
var i:integer;
begin
  Query1.Active :=false;
  Query1.sql.clear;
   if trim(ls)='0' then
      Query1.sql.add('select DISTINCT REVERSE(substring(REVERSE(rtrim(roomno)),3,2)) from room_nb where rczltjdate='''+trim(rbdate.Text)+'''');
   if trim(ls)='1' then
      Query1.sql.add('select DISTINCT REVERSE(substring(REVERSE(rtrim(roomno)),3,2)) from room_yb where rczltjdate='''+trim(rbdate.Text)+'''');
  Query1.Prepare ;
  Query1.open;
  TabControl1.Tabs.Clear;
  lc.Items.Clear;
  lc.Items.Add(' ');
  TabControl1.Tabs.Add('全部');
  for i:=1 to 30 do
  begin
    lc.Items.Add('');
    TabControl1.Tabs.Add('');
  end;
  while not Query1.eof do
  begin
     lc.Items[Query1.fields[0].asinteger]:=Query1.fields[0].asstring;
     TabControl1.Tabs[Query1.fields[0].asinteger]:=Query1.fields[0].asstring+'层';
     Query1.Next;
  end;
  Query1.Active :=false;
  Query1.sql.clear;
  for i:=0 to 29 do
   if trim(lc.Items[30-i])='' then
   begin
    lc.Items.Delete(30-i);
    TabControl1.Tabs.Delete(30-i);
  end;
  init(0,'roomno');

end;

end.