hkcx.pas

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

unit hkcx;

interface

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

type
  ThkcxForm = class(TForm)
    TabControl1: TTabControl;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Query1: TQuery;
    Query2: TQuery;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    procedure TabControl1Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hkcxForm: ThkcxForm;

implementation
uses dataproc, newjzform, newdj;
{$R *.DFM}

procedure ThkcxForm.TabControl1Change(Sender: TObject);
begin
   Query1.Active:=false;
   Query1.SQL.Clear;
   Query1.SQL.Add('select handno,num,s.sexname,istime,acctime,accno,welid,nowin.sex from nowin,lssex s where nowin.sex=s.sex and isleft=1');
   Query2.Active:=false;
   Query2.SQL.Clear;
   Query2.SQL.Add('select * from guest ');
   case TabControl1.TabIndex of
   0:begin
      Query1.SQL.Add(' and acctime<:prq order by acctime ');
      Query1.ParamByName('prq').asdatetime:=now;
      Query1.Open;
      tbooleanfield(Query1.Fields[3]).displayvalues:='是;否';
      Query2.SQL.Add(' where endtime<:prq order by endtime ');
      Query2.ParamByName('prq').asdatetime:=now;
      Query2.Open;
   end;
   1:begin
      Query1.SQL.Add(' and acctime>=:prq order by acctime');
      Query1.ParamByName('prq').asdatetime:=now;
      Query1.Open;
      tbooleanfield(Query1.Fields[3]).displayvalues:='是;否';
      Query2.SQL.Add(' where endtime>=:prq order by endtime ');
      Query2.ParamByName('prq').asdatetime:=now;
      Query2.Open;
   end;
   2:begin
      Query1.SQL.Add(' order by acctime');
      Query1.Open;
      tbooleanfield(Query1.Fields[3]).displayvalues:='是;否';
      Query2.Open;
   end;
   3: close;
   end;
end;

procedure ThkcxForm.N1Click(Sender: TObject);
begin
  if trim(Query1.fieldbyname('handno').asstring)='' then exit;
  addlogo(curper.code,datetimetostr(now),'留房结帐');
  Application.CreateForm(Tnewjz, newjz);
  if trim(Query1.fieldbyname('sex').asstring)<'2' then
  begin
    newjz.GroupBox4.Visible:=true;
    if trim(Query1.fieldbyname('sex').asstring)='1' then
    begin
      newjz.man.Checked:=true;
      newjz.woman.Checked:=false;
    end
    else
    begin
      newjz.man.Checked:=false;
      newjz.woman.Checked:=true;
    end;
  end
  else newjz.GroupBox4.Visible:=false;
  newjz.xfhdno.Text:=Query1.fieldbyname('handno').asstring;
 // newjz.xfhdnoExit(nil);
  newjz.xfhdno.Enabled:=false;
  newjz.showmodal;
  newjz.free;
  TabControl1Change(nil);

end;

procedure ThkcxForm.MenuItem1Click(Sender: TObject);
begin
   if trim(Query2.fieldbyname('welid').asstring)='' then exit;
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
   fm.Query2.SQL.Add('update guest set endtime=:pend where welid='''+Query2.fieldbyname('welid').asstring+'''');
   fm.Query2.SQL.Add('insert into lsguest select * from guest where welid='''+Query2.fieldbyname('welid').asstring+''' and begtime=:pbeg');
   fm.Query2.ParamByName('pbeg').asdatetime:=Query2.fieldbyname('begtime').asdatetime;
   fm.Query2.ParamByName('pend').asdatetime:=now;
   fm.Query2.ExecSQL;
   fm.Query2.SQL.Clear;
   fm.Query2.SQL.Add('update nowin set guest=guest-:pnum where welid='''+Query2.fieldbyname('welid').asstring+'''');
   fm.Query2.SQL.Add('delete from guest where welid='''+Query2.fieldbyname('welid').asstring+''' and begtime=:pbeg');
   fm.Query2.ParamByName('pnum').asinteger:=Query2.fieldbyname('num').asinteger;
   fm.Query2.ParamByName('pbeg').asdatetime:=Query2.fieldbyname('begtime').asdatetime;
   fm.Query2.ExecSQL;
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
   TabControl1Change(nil);
end;

procedure ThkcxForm.MenuItem2Click(Sender: TObject);
begin
  if trim(Query2.fieldbyname('roomno').asstring)='' then exit;
  addlogo(curper.code,datetimetostr(now),'来客登记');
  Application.CreateForm(Tdjform, djform);
  djform.szno.Text:=Query2.fieldbyname('roomno').asstring;
  djform.showmodal;
  djform.free;
  TabControl1Change(nil);

end;

end.