exitsan.pas

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

unit exitsan;

interface

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

type
  Ttsan = class(TForm)
    Label1: TLabel;
    hdno: TMaskEdit;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    cal: TCheckBox;
    q1: TQuery;
    s1: TStoredProc;
    Panel1: TPanel;
    man: TRadioButton;
    woman: TRadioButton;
    procedure Button2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure hdnoExit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure hdnoDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tsan: Ttsan;

implementation
uses dataproc, newdj;

{$R *.DFM}

procedure Ttsan.Button2Click(Sender: TObject);
begin
   tsan.close;
end;

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

procedure Ttsan.FormCreate(Sender: TObject);
begin
   hdno.text:='';

end;

procedure Ttsan.hdnoExit(Sender: TObject);
var
  recnum:integer;
begin
  q1.Active :=false;
  q1.sql.clear;
  q1.sql.add('select accno,sex from nowin where (handno=:phd) and (isbj=:pbj)');
  q1.ParamByName ('phd').asstring:=trim(hdno.text);
  q1.ParamByName ('pbj').asboolean:=false;
  q1.Prepare;
  q1.open;
  q1.Active :=true;
  recnum:=q1.RecordCount ;
  if recnum=0 then
     begin
     if ActiveControl<>Button2 then
     begin
       showmessage('此手号未登记或不存在');
       hdno.setfocus;
     end;
     exit;
     end;
  if recnum=2 then
     begin
     man.Enabled :=true;
     woman.Enabled :=true;
     man.checked:=true;
     end;
end;

procedure Ttsan.Button1Click(Sender: TObject);
begin
  if length(trim(hdno.text))=0 then
     begin
     showmessage('手号不能为空');
     hdno.SetFocus ;
     exit
     end;
  s1.UnPrepare;
  s1.ParamByName ('@ihandno').asstring:=trim(hdno.text);
  if man.Checked =true then
     s1.ParamByName ('@isex').asstring:='1';
  if woman.Checked =true then
     s1.ParamByName ('@isex').asstring:='0';
  s1.ParamByName ('@iscal').asboolean:=cal.Checked ;
  s1.ParamByName ('@itime').asdatetime:=now;
  s1.Prepare;
  s1.execproc;
  if s1.ParamByName ('@oresult').asboolean then
     begin
     addlogo(curper.code,datetimetostr(now),'退散'+trim(hdno.text));
     showmessage('退散座成功');
     hdno.text:='';
     cal.Checked :=false;
     end
  else
     begin
     showmessage('不能退散座');
     end;
  s1.UnPrepare;
  hdno.setfocus;
end;

procedure Ttsan.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 q1.free;
 s1.free;
end;

procedure Ttsan.hdnoDblClick(Sender: TObject);
begin
  Application.CreateForm(Tdjform, djform);
  djform.Caption:='请选择散座号';
  djform.Height:=99;
  djform.Position:=poDefault;
  djform.Panel1.Visible:=false;
  djform.grid1.Visible:=false;
  djform.grid2.Visible:=false;
  djform.rmnogrid.Visible:=false;
//  djform.Button1.Enabled:=false;
  djform.Timer1.Free;
  djform.showmodal;
  hdno.Text:=copy(trim(djform.xfrmno.Text),1,6);
 // if trim(copy(trim(djform.edit1.Text),1,2))='0' then   cal.Checked:=true;
  if trim(copy(trim(djform.xfrmno.Text),7,6))='1' then
  begin
      man.Checked:=true;
      woman.Checked:=false;
  end
  else
  begin
      man.Checked:=false;
      woman.Checked:=true;
  end;
  djform.Free;
  activecontrol:=Button1;

end;

end.