roomczl.pas

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

unit Roomczl;

interface

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

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

var
  roomczmx: Troomczmx;

implementation
uses dataproc;
{$R *.DFM}

procedure init(lz:integer;bx:string);
var tj:string;
begin
  with roomczmx do
   begin
     Memo1.Visible:=false;
     DBGrid1.Visible:=false;
     Memo1.Lines.Clear;
     Query1.Active :=false;
     Query1.sql.clear;
     Query1.sql.text:='select DISTINCT rczltjdate from room1';
     Query1.Open;
//     Memo1.Lines.Add(' ');
     Memo1.Lines.Add('       '+copy(Query1.Fields[0].asstring,1,4)+'年'+copy(Query1.Fields[0].asstring,6,2)+'月'+copy(Query1.Fields[0].asstring,9,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
        tj:=' and REVERSE(substring(REVERSE(rtrim(room1.roomno)),3,2))='''+lc.Items[lz]+'''';
        Query1.sql.text:='select Name,roomtype from roomtype';
     end;
     Query2.Active :=false;
     Query2.sql.clear;
     Query2.sql.text:='select DISTINCT avg(zczl),avg(nczl),avg(yczl),avg(rczl) from room1 where 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+' %');
        Memo1.Lines.Add('  月出租率:   '+Query2.Fields[2].asstring+' %');
        Memo1.Lines.Add('  日出租率: '+Query2.Fields[3].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;
         Query2.sql.text:='select DISTINCT avg(zczl),avg(nczl),avg(yczl),avg(rczl) from room1 where 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+' %');
            Memo1.Lines.Add('      月出租率:   '+Query2.Fields[2].asstring+' %');
            Memo1.Lines.Add('      日出租率:   '+Query2.Fields[3].asstring+' %');
//            Memo1.Lines.Add(' ');
         end;
         Query1.Next;
     end;
     Query1.Active :=false;
     Query1.sql.clear;
     Query1.sql.text:='select RoomNo,roomtype=Name,BedNum,Price,TurnTime,CSPrice,zczl,nczl,yczl,rczl from room1,roomtype where RoomType.RoomType=room1.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;
     dbgrid1.Columns[8].width:=40;
     dbgrid1.Columns[9].width:=40;
     chinesegrid(dbgrid1);
     DBGrid1.fields[6].displaylabel:='总租率';
     DBGrid1.fields[7].displaylabel:='年租率';
     DBGrid1.fields[8].displaylabel:='月租率';
     DBGrid1.fields[9].displaylabel:='日租率';
//     tstringfield(DBGrid1.Fields[6]).displayvalues:='是;否';

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

   end;
end;

procedure Troomczmx.FormCreate(Sender: TObject);
var 
    i:integer;
begin
  Query1.Active :=false;
  Query1.sql.clear;
  Query1.sql.add('select DISTINCT REVERSE(substring(REVERSE(rtrim(roomno)),3,2)) from room1');
  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;

procedure Troomczmx.TabControl1Change(Sender: TObject);
begin
  init(TabControl1.TabIndex,'rczl');

end;

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

end;

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

end;

end.