sanhroom.pas

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

unit sanhroom;

interface

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

type
  Tsanhfform = class(TForm)
    Label1: TLabel;
    sanhd: TMaskEdit;
    Label3: TLabel;
    rmhd: TMaskEdit;
    zd: TCheckBox;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    q1: TQuery;
    s1: TStoredProc;
    cal: TCheckBox;
    GroupBox2: TGroupBox;
    blmanno: TStringGrid;
    blwomanno: TStringGrid;
    GroupBox3: TGroupBox;
    oldmanno: TStringGrid;
    oldwomanno: TStringGrid;
    add: TBitBtn;
    addall: TBitBtn;
    del: TBitBtn;
    delall: TBitBtn;
    Bevel2: TBevel;
    Panel1: TPanel;
    man: TRadioButton;
    woman: TRadioButton;
    Label4: TLabel;
    newsps: TSpinEdit;
    jg: TLabel;
    zdjg: TLabel;
    Button3: TButton;
    Label5: TLabel;
    SpinEdit1: TSpinEdit;
    Label6: TLabel;
    rmmoney: TSpinEdit;
    Label2: TLabel;
    czy: TEdit;
    Query1: TQuery;
    Label10: TLabel;
    djfs: TEdit;
    hfr: TLabel;
    Query2: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure sanhdExit(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure rmhdExit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure sanhdEnter(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure oldmannoDblClick(Sender: TObject);
    procedure oldwomannoDblClick(Sender: TObject);
    procedure blmannoDblClick(Sender: TObject);
    procedure blwomannoDblClick(Sender: TObject);
    procedure oldmannoEnter(Sender: TObject);
    procedure oldwomannoEnter(Sender: TObject);
    procedure blmannoEnter(Sender: TObject);
    procedure blwomannoEnter(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure addallClick(Sender: TObject);
    procedure delClick(Sender: TObject);
    procedure delallClick(Sender: TObject);
    procedure rmhdDblClick(Sender: TObject);
    procedure sanhdDblClick(Sender: TObject);
    procedure zdClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sanhfform: Tsanhfform;

implementation
uses dataproc, xgft, newdj,szhfdyunit, bkzlsan;

{$R *.DFM}
var
  ls,acc,lssex:string;
 // newroomprice1,newroomprice2:real;

procedure seedata;
var
  i,j :integer;
begin
with sanhfform do
  begin
    q1.Active :=false;
    q1.sql.clear;
    q1.sql.add('select handno,sex from nowin where accno=:pacc  and isbj=0 ');
    q1.ParamByName('pacc').asstring:=acc;
    q1.Prepare;
    q1.ExecSQL;
    q1.active:=true;
    q1.first;
    i:=1;
    j:=1;
    while not q1.eof do
      begin
      if (trim(q1.fieldbyname('sex').asstring)='1') then
         begin
         blmanno.cells[0,i]:=trim(q1.fieldbyname('handno').asstring);
         i:=i+1;
         end;
      if (trim(q1.fieldbyname('sex').asstring)='0')  then
         begin
         blwomanno.cells[0,j]:=trim(q1.fieldbyname('handno').asstring);
         j:=j+1;
         end  ;
      q1.next;
      end;
  end
end;


procedure formini;
var
   i:integer;
begin
with sanhfform do
   begin
   i:=1;
   while i<=oldmanno.rowcount do
      begin
      if length(trim(oldmanno.cells[0,i]))>0 then
         oldmanno.cells[0,i]:='';
      i:=i+1;
      end;
   i:=1;
   while i<=blwomanno.rowcount do
      begin
      if length(trim(blwomanno.cells[0,i]))>0 then
         blwomanno.cells[0,i]:='';
      i:=i+1;
      end;
   i:=1;
   while i<=blmanno.rowcount do
      begin
      if length(trim(blmanno.cells[0,i]))>0 then
         blmanno.cells[0,i]:='';
      i:=i+1;
      end;
   i:=1;
   while i<=oldwomanno.rowcount do
      begin
      if length(trim(oldwomanno.cells[0,i]))>0 then
         oldwomanno.cells[0,i]:='';
      i:=i+1;
      end;
   oldmanno.row:=1;
   oldwomanno.row:=1;
   end
end;



function  checkgrid(tg:tstringgrid):boolean;
var
  i:integer;
begin
  i:=1;
  checkgrid:=false;
  while i<tg.rowcount do
  begin
    if length(trim(tg.cells[0,i]))>0 then
       begin
       checkgrid:=true;
       break;
       end;
    i:=i+1;
  end;
end;



procedure Tsanhfform.FormCreate(Sender: TObject);
begin
  sanhd.text:='';
  formini;
  rmhd.text:=''; hfr.Caption:='';
  zd.Checked :=false;
  oldmanno.Cells [0,0]:='男散';
  oldwomanno.Cells [0,0]:='女散';
  blmanno.Cells [0,0]:='男散';
  blwomanno.Cells [0,0]:='女散';
end;

procedure Tsanhfform.sanhdExit(Sender: TObject);
begin
   if length(trim(sanhd.text))>0 then
   begin
   q1.Active :=false;
   q1.sql.clear;                                                                                                                     // and sex=:psex
   q1.sql.add('select accno,isleft,sex,(select name from mode where code=jzfs) as jzfs from nowin where (handno=:phandno and isbj=:pisbj and isleft=:pisleft)');
   q1.ParamByName ('phandno').asstring:=trim(sanhd.text);
   q1.ParamByName ('pisbj').asboolean:=false;
   q1.ParamByName ('pisleft').asboolean:=false;
  { if (man.Checked) then
     lssex:='1';
   if (woman.Checked) then
     lssex:='0';
   q1.ParamByName ('psex').asstring:=lssex; }
   q1.Prepare;
   q1.open;
   q1.Active :=true;
   acc:=q1.fieldbyname('accno').asstring;
   djfs.text:=q1.fieldbyname('jzfs').asstring;
//      pleft:=q1.fieldbyname('isleft').asboolean;
   q1.Close;
   q1.Active :=false;
   q1.sql.clear;
   formini;
   seedata;
  end;
end;

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

procedure Tsanhfform.rmhdExit(Sender: TObject);
var
  aa:array [0..8] of string;
  curroomtype:string;
begin
  if length(trim(rmhd.text))>0 then
  begin
    { getvalue(aa,'select roomtype.Name,roomtype.Price,roomtype.BedNum,roomtype.zdprice from room,roomtype where room.RoomType=RoomType.RoomType and roomno='''+trim(rmhd.text)+'''');
//     acc:=aa[0];
     newsps.Visible:=true;
     jg.Caption:='价格：'+aa[1];
     zdjg.Caption:='价格：'+aa[3];
   //  newroomprice1:=strtofloat(aa[1]);
    // newroomprice2:=strtofloat(aa[3]);
     newsps.Value:=strtoint(aa[2]);
     newsps.MaxValue:=strtoint(aa[2]);
     rmmoney.Value:=strtoint(aa[1]);
     SpinEdit1.Value:=12; }
        getvalue(aa,'select roomtype from room where roomno='''+trim(rmhd.Text)+'''');
        curroomtype:=aa[0];
               aa[0]:='';
               aa[1]:='';
               aa[2]:='';
               aa[3]:='';
               aa[4]:='';
               getvalue(aa,'select bednum,Price,zdPrice,deposit,zddeposit,havetime,select1,hyprice12,Turntime2 from roomtype where roomtype='''+trim(curroomtype)+'''');
           Application.CreateForm(TbkzlsanForm, bkzlsanForm);
            bkzlsanForm.roomno.Text:=trim(rmhd.Text);
           if  (aa[5]='True') or (aa[5]='1') then bkzlsanForm.zd.Enabled:=true else
           bkzlsanForm.zd.Enabled:=false;
           if  (aa[6]='True') or (aa[6]='1') then bkzlsanForm.th.Enabled:=true else
           bkzlsanForm.th.Enabled:=false;
           if  (aa[8]='24') then bkzlsanForm.swf.Enabled:=true else
           bkzlsanForm.swf.Enabled:=false;
           bkzlsanForm.rs.Text:=aa[0];
           if trim(sanhfform.djfs.Text)='会员卡' then
           begin
             bkzlsanForm.hyj.Enabled:=true;
             bkzlsanForm.hyj.Checked:=true;
             bkzlsanForm.rmmoney.Text:=aa[7];
           end else
           begin
             bkzlsanForm.hyj.Enabled:=false;
             bkzlsanForm.hyj.Checked:=false;
             bkzlsanForm.rmmoney.Text:=aa[1];
           end;
                // bkzlform.rs.Text:=aa[0];
             bkzlsanForm.spinEdit1.Value:=12;

             bkzlsanForm.showmodal;
             bkzlsanForm.Free;
             exit;
         end;
end;

procedure Tsanhfform.Button2Click(Sender: TObject);
begin
  sanhfform.Close;
end;

procedure Tsanhfform.sanhdEnter(Sender: TObject);
begin
  formini;
end;

procedure Tsanhfform.N1Click(Sender: TObject);
begin
  if activecontrol=oldmanno then
     begin
     if  length(trim(oldmanno.Cells [0,oldmanno.row]))>0 then
          oldmanno.Cells [0,oldmanno.row]:='';
     end;
  if activecontrol=oldwomanno then