dqcx.pas

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

unit dqcx;

interface

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

type
  Tdqcxform = class(TForm)
    grid1: TStringGrid;
    mangrid: TStringGrid;
    womangrid1: TStringGrid;
    q1: TQuery;
    grid2: TStringGrid;
    Timer1: TTimer;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Bevel7: TBevel;
    mangrid1: TStringGrid;
    womangrid: TStringGrid;
    Button2: TButton;
    Bevel8: TBevel;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label2: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    xjjz: TEdit;
    zpjz: TEdit;
    cardjz: TEdit;
    gzjz: TEdit;                  
    mfjz: TEdit;
    hej: TEdit;
    GroupBox7: TGroupBox;
    bbjxj: TEdit;
    bbjzp: TEdit;
    bbjcard: TEdit;
    bbjgz: TEdit;
    bbjmf: TEdit;
    bbjhj: TEdit;
    s1: TStoredProc;
    Label8: TLabel;
    yj: TEdit;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label3: TLabel;
    hyjz: TEdit;
    bbjhy: TEdit;
    jyl: TStringGrid;
    jyl1: TStringGrid;
    Bevel9: TBevel;
    Bevel10: TBevel;
    Bevel11: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure grid1DrawCell(Sender: TObject; Col, Row: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure mangridDrawCell(Sender: TObject; Col, Row: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure womangrid1DrawCell(Sender: TObject; Col, Row: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure grid2DrawCell(Sender: TObject; Col, Row: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure rmnogridSetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: String);
    procedure pdjKeyPress(Sender: TObject; var Key: Char);
    procedure jylDrawCell(Sender: TObject; Col, Row: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dqcxform: Tdqcxform;

implementation
uses dataproc;
{$R *.DFM}
var
     lsroom:array [0..6,0..13] of string;
     llssroom:array [0..6,0..13] of string;
     lsstatusarr:array [0..6,0..9] of string[1];
     llssstatusarr:array [0..6,0..13] of string [1];
     currow,zdrmnum,roomnum,mannum,womannum:integer;
     //dqsj:datetime;

procedure getdata;
var
  ls:real;
  i:integer;
begin
with dqcxform do
  begin
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select isnull(sum(deposit),0) from deposit');
  q1.Prepare;
  q1.Open;
  yj.Text :=q1.fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select count(roomno) from nowin where isbj=1');
  q1.Open;
  llssroom[1,11]:=q1.Fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select count(roomno) from nowin where isbj=0');
  q1.Open;
  llssroom[1,12]:=q1.Fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select count(roomno) from nowin where isbj=1 and ismd=1');
  q1.Open;
  llssroom[3,11]:=q1.Fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select count(roomno) from nowin where isbj=0 and ismd=1');
  q1.Open;
  llssroom[3,12]:=q1.Fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select count(roomno) from room where (status='''+'0'+''' or status='''+'2'+''')');
  q1.Open;
  llssroom[4,11]:=q1.Fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select count(roomno) from room where (status='''+'3'+''')');
  q1.Open;
  llssroom[2,11]:=q1.Fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select count(roomno) from room ');
  q1.Open;
  Panel2.Caption:=q1.Fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select * from jkmoney');
  q1.Open;
  q1.Last;
  xjjz.Text:=q1.fieldbyname('xj').asstring;
  hyjz.text:=q1.fieldbyname('hy').asstring;
  zpjz.text:=q1.fieldbyname('zp').asstring;
  cardjz.Text:=q1.fieldbyname('card').asstring;
  gzjz.text:=q1.fieldbyname('gz').asstring;
  mfjz.Text:=q1.fieldbyname('md').asstring;
  hej.Text:=q1.fieldbyname('xiaoj').asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.Add('select sum(bcjxj),sum(bcjhy),sum(bcjzp),sum(bcjcard),sum(bcjgz),sum(bcjmd) from jkmx where jkTime>=:prq');
  q1.ParamByName('prq').asstring:=formatdatetime('yyyy-MM-dd',now)+' 00:00';
  q1.Open;
  if not q1.Eof then
  begin
     bbjxj.Text:=q1.Fields[0].asstring;
     bbjhy.Text:=q1.Fields[1].asstring;
     bbjzp.Text:=q1.Fields[2].asstring;
     bbjcard.Text:=q1.Fields[3].asstring;
     bbjgz.Text:=q1.Fields[4].asstring;
     bbjmf.Text:=q1.Fields[5].asstring;
     ls:=0;
     for i:=0 to 5 do
       ls:=ls+q1.Fields[i].asfloat;
     bbjhj.text:=floattostr(ls);
  end;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;

  end;
end;


procedure roomini;
var
  i:integer;
begin
with dqcxform do
   begin
  s1.ParamByName ('@lsbegtime').asdatetime:=strtodatetime(datetostr(now)+' 00:00');
  s1.ParamByName ('@lsendtime').asdatetime:=now;
  s1.Prepare;
  s1.ExecProc ;
   q1.Active :=false;
   q1.sql.clear;
   q1.sql.add('select RoomNo,status from jyl');
   q1.Prepare;
   q1.open;
   i:=1;
   while  not  q1.EOF do
      begin
        jyl1.Cells[i,0]:=q1.fieldbyname('status').asstring;
        jyl.Cells[i,0]:=q1.fieldbyname('RoomNo').asstring;
        i:=i+1;
        q1.Next;
      end;
   q1.Active :=false;
   q1.sql.clear;
   q1.sql.add('select RoomNo,status from mansan');
   q1.Prepare;
   q1.open;
   i:=1;
   while  not  q1.EOF do
      begin
        mangrid1.Cells[i,0]:=q1.fieldbyname('status').asstring;
        mangrid.Cells[i,0]:=q1.fieldbyname('RoomNo').asstring;
        i:=i+1;
        q1.Next;
      end;
   q1.Active :=false;
   q1.sql.clear;
   q1.sql.add('select * from womansan');
//   q1.ParamByName ('pgridno').asinteger:=1;
   q1.Prepare;
   q1.open;
   mangrid.ColCount:=i+1;
   mangrid1.ColCount:=i+1;
   i:=1;
   while  not  q1.EOF do
      begin
        womangrid.Cells[i,0]:=q1.fieldbyname('RoomNo').asstring;
        womangrid1.Cells[i,0]:=q1.fieldbyname('status').asstring;
        i:=i+1;
        q1.Next;
      end;
   womangrid.ColCount:=i+1;
   womangrid1.ColCount:=i+1;

   q1.Active :=false;
   q1.sql.clear;
   q1.sql.add('select room.roomno,row,col,status,gridno from Room_Position,room where room.roomno=room_position.roomno');
   q1.Prepare;
   q1.open;
   while  not  q1.EOF do
      begin
         if q1.fields[4].asinteger=1 then
         begin
            lsroom[q1.fields[1].asinteger,q1.fieldbyname('col').asinteger]:=q1.fieldbyname('Roomno').asstring;
            lsstatusarr[q1.fields[1].asinteger,q1.fieldbyname('col').asinteger]:=q1.fieldbyname('status').asstring;
         end;
         if q1.fields[4].asinteger=2 then
         begin
            llssroom[q1.fields[1].asinteger,q1.fieldbyname('col').asinteger]:=q1.fieldbyname('Roomno').asstring;
            llssstatusarr[q1.fields[1].asinteger,q1.fieldbyname('col').asinteger]:=q1.fieldbyname('status').asstring;
         end;
          q1.Next;
      end;
   q1.Close;
   q1.Active :=false;
   getdata;
   end;
end;


procedure xggrid(grid1: TStringGrid);
var i,j:integer;
begin

   for i:=0 to grid1.RowCount-1 do
       for j:=0 to grid1.ColCount-1 do
           begin
             grid1.row:=grid1.RowCount-1-i;
             grid1.col:=grid1.ColCount-1-j;
           end;
end;

procedure Tdqcxform.FormCreate(Sender: TObject);
begin
  llssroom[0,11]:='房间';
  llssroom[0,12]:='散座';