dqcx.pas

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

  llssroom[1,10]:='出租';
  llssroom[2,10]:='维修';
  llssroom[3,10]:='免费';
  llssroom[4,10]:='未用';
  llssstatusarr[0,11]:='2';
  llssstatusarr[0,12]:='2';
  llssstatusarr[1,10]:='1';
  llssstatusarr[1,11]:='1';
  llssstatusarr[1,12]:='1';
  llssstatusarr[2,10]:='2';
  llssstatusarr[2,11]:='2';
  llssstatusarr[2,12]:='2';
  llssstatusarr[3,10]:='4';
  llssstatusarr[3,11]:='4';
  llssstatusarr[3,11]:='4';
  llssstatusarr[4,10]:='0';
  llssstatusarr[4,11]:='0';
  llssstatusarr[4,12]:='0';

  roomnum:=0;
  zdrmnum:=0;
  mannum:=0;
  womannum:=0;
  shortdateformat:='yyyy-MM-dd';
  mangrid.Cells[0,0]:='男散';
  womangrid.Cells[0,0]:='女散';
  Timer1Timer(nil);
end;



procedure Tdqcxform.grid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
var
     lsfj :string;
     lsls:string;
begin
   grid1.canvas.font.color:=clred;
   grid1.canvas.font.style:=[fsbold];
   grid1.canvas.font.size:=8;
   grid1.canvas.pen.mode:=pmCopy;
   lsfj:=lsroom[row,col];
    if length(trim(lsstatusarr[row,col]))>0 then
      begin
       if lsstatusarr[row,col]='0' then
          begin
           grid1.canvas.font.color:=$0000ff00;  //GReen
           lsls:=lsfj+' 空';
          end;
       if lsstatusarr[row,col]='1' then
          begin
           grid1.canvas.font.color:=$000000ff;  //GRed
           lsls:=lsfj+' 满';
          end;
       if lsstatusarr[row,col]='2' then
          begin
           grid1.canvas.font.color:=$0000ffff;  //Yellow
           lsls:=lsfj+' 脏';
          end ;
       if lsstatusarr[row,col]='3' then
          begin
           grid1.canvas.font.color:=$00ffff00;  //
           lsls:=lsfj+' 修';
          end;
       if lsstatusarr[row,col]='4' then
          begin
           grid1.canvas.font.color:=$02aa00aa;  //
           lsls:=lsfj+' 免';
          end;
       if lsstatusarr[row,col]='6' then
          begin
           grid1.canvas.font.color:=$004080FF;  //
           lsls:=lsfj+' 通';
          end; 
       if trim(lsstatusarr[row,col])='7' then
          begin
           grid1.canvas.font.color:=$003F8FA0;  //
           lsls:=lsfj+' 贵';
          end;
       grid1.canvas.textrect(grid1.cellrect(col,row),grid1.cellrect(col,row).Left,grid1.cellrect(col,row).Top,lsls);
    end;
end;


procedure Tdqcxform.mangridDrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
var
     bb:Tbrush;
     tt:trect;
begin
   if col=0 then
      exit;
//   lsroom:=copy('00'+trim(inttostr(col)),length(trim(inttostr(col))),3);
   if length(trim(mangrid1.Cells[Col,Row]))>0  then
      begin
       bb:=mangrid.canvas.brush;
       if mangrid1.Cells[Col,Row]='0' then
           mangrid.canvas.brush.color:=$0000ff00;  //GReen
       if mangrid1.Cells[Col,Row]='1' then
           mangrid.canvas.brush.color:=$000000ff;  // Red
       if mangrid1.Cells[Col,Row]='2' then
           mangrid.canvas.brush.color:=$0000ffff;  // Yellow
       if mangrid1.Cells[Col,Row]='3' then
          mangrid.canvas.brush.color:=$00ffff00;  //  blank
       if mangrid1.Cells[Col,Row]='4' then
          mangrid.canvas.brush.color:=$02aa00aa;  //
       if mangrid1.Cells[Col,Row]='5' then
          mangrid.canvas.brush.color:=clOlive;  //
       if mangrid1.Cells[Col,Row]='6' then
          mangrid.canvas.brush.color:=$004080FF;  //
       if mangrid1.Cells[Col,Row]='7' then
          mangrid.canvas.brush.color:=$003F8FA0;  //
       tt:=mangrid.cellrect(col,row);
       mangrid.canvas.textrect(tt,tt.Left,tt.Top,mangrid.Cells[Col,Row]);
       mangrid.canvas.brush:=bb;
    end;
end;

procedure Tdqcxform.womangrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
var
     bb:Tbrush;
     tt:trect;
begin
    if col=0 then
    exit;
    if length(trim(womangrid1.Cells[Col,Row]))>0 then
      begin
       bb:=womangrid.canvas.brush;
       if womangrid1.Cells[Col,Row]='0' then
           womangrid.canvas.brush.color:=$0000ff00;  //GReen
       if womangrid1.Cells[Col,Row]='1' then
           womangrid.canvas.brush.color:=$000000ff;  // Red
       if womangrid1.Cells[Col,Row]='2' then
           womangrid.canvas.brush.color:=$0000ffff;  // Yellow
       if womangrid1.Cells[Col,Row]='3' then
          womangrid.canvas.brush.color:=$00ffff00;  //  blank
       if womangrid1.Cells[Col,Row]='4' then
          womangrid.Canvas.brush.color:=$02aa00aa;
       if womangrid1.Cells[Col,Row]='5' then
          womangrid.Canvas.brush.color:=clOlive;
       if womangrid1.Cells[Col,Row]='6' then
          womangrid.Canvas.brush.color:=$004080FF;
       if womangrid1.Cells[Col,Row]='7' then
          womangrid.Canvas.brush.color:=$003F8FA0;
       tt:=womangrid.cellrect(col,row);
       womangrid.canvas.textrect(tt,tt.Left,tt.Top,womangrid.Cells[Col,Row]);
       womangrid.canvas.brush:=bb;
    end;
end;



procedure Tdqcxform.Timer1Timer(Sender: TObject);
begin
   dqcxform.Caption:=datetostr(now)+'截止到'+timetostr(time)+'经营情况';
   roomini;
   xggrid(grid1);
   xggrid(grid2);

end;

procedure Tdqcxform.Button2Click(Sender: TObject);
begin
   dqcxform.close;
end;

procedure Tdqcxform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
     if xt=1 then  help(14);
  end;
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
      close;
end;

procedure Tdqcxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   timer1.free;
   q1.Free;
   action:=cafree;
end;

procedure Tdqcxform.grid2DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
var
     lsfj :string;
begin
   grid2.canvas.font.style:=[fsbold];
   grid2.canvas.font.size:=8;
   grid2.canvas.pen.mode:=pmCopy;
//   if (col<7) and (row<5) then
//   begin
     lsfj:=llssroom[row,col];
      if length(trim(llssstatusarr[row,col]))>0 then
      begin
       if llssstatusarr[row,col]='0' then
          begin
           grid2.canvas.font.color:=$0000ff00;  //GReen
           if col<7 then lsfj:=lsfj+' 空';
          end;
       if llssstatusarr[row,col]='1' then
          begin
           grid2.canvas.font.color:=$000000ff;  //GReen
           if col<7 then lsfj:=lsfj+' 满';
          end;
       if llssstatusarr[row,col]='2' then
          begin
           grid2.canvas.font.color:=$0000ffff;  //Yellow
           if col<7 then lsfj:=lsfj+' 脏';
          end ;
       if llssstatusarr[row,col]='3' then
          begin
           grid2.canvas.font.color:=$00ffff00;  //GReen
           if col<7 then lsfj:=lsfj+' 修';
          end;
       if llssstatusarr[row,col]='4' then
          begin
           grid2.canvas.font.color:=$02aa00aa;  //
           if col<7 then lsfj:=lsfj+' 免';
          end;
       if llssstatusarr[row,col]='6' then
          begin
           grid2.canvas.font.color:=$004080FF;  //
           if col<7 then lsfj:=lsfj+' 通';
          end;
       if llssstatusarr[row,col]='7' then
          begin
           grid2.canvas.font.color:=$003F8FA0;  //
           if col<7 then lsfj:=lsfj+' 贵';
          end;

       if (col>9) and (row<5) then
       grid2.canvas.font.size:=12;
//       end;
       grid2.canvas.textrect(grid2.cellrect(col,row),grid2.cellrect(col,row).Left,grid2.cellrect(col,row).top,lsfj);
//       grid2.canvas.brush:=bb;

    end;
end;


procedure Tdqcxform.rmnogridSetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: String);
begin
  currow:=arow;
end;

procedure Tdqcxform.pdjKeyPress(Sender: TObject; var Key: Char);
begin
  if (key>'9') or (key<'0') then key:=#0;
end;

procedure Tdqcxform.jylDrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
var
     bb:Tbrush;
     tt:trect;
begin
    if col=0 then
    exit;
    if length(trim(jyl1.Cells[Col,Row]))>0 then
      begin
       bb:=jyl.canvas.brush;
       if jyl1.Cells[Col,Row]='0' then
           jyl.canvas.brush.color:=$0000ff00;  //GReen
       if jyl1.Cells[Col,Row]='1' then
           jyl.canvas.brush.color:=$000000ff;  // Red
       if jyl1.Cells[Col,Row]='2' then
           jyl.canvas.brush.color:=$0000ffff;  // Yellow
       if jyl1.Cells[Col,Row]='3' then
          jyl.canvas.brush.color:=$00ffff00;  //  blank
       if jyl1.Cells[Col,Row]='4' then
          jyl.Canvas.brush.color:=$02aa00aa;
       if jyl1.Cells[Col,Row]='5' then
          jyl.Canvas.brush.color:=clOlive;
       if jyl1.Cells[Col,Row]='6' then
          jyl.Canvas.brush.color:=$004080FF;
       if jyl1.Cells[Col,Row]='7' then
          jyl.Canvas.brush.color:=$003F8FA0;
       tt:=jyl.cellrect(col,row);
       jyl.canvas.textrect(tt,tt.Left,tt.Top,jyl.Cells[Col,Row]);
       jyl.canvas.brush:=bb;
    end;

end;

end.