zz.pas

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

unit zz;

interface

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

type
  Tzzform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    all: TStoredProc;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    q1: TQuery;
    GroupBox1: TGroupBox;
    oldman: TRadioButton;
    oldwoman: TRadioButton;
    GroupBox2: TGroupBox;
    newman: TRadioButton;
    newwoman: TRadioButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure MaskEdit1Exit(Sender: TObject);
    procedure MaskEdit2Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MaskEdit1DblClick(Sender: TObject);
    procedure MaskEdit2DblClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zzform: Tzzform;

implementation
uses dataproc, newdj,zzdyunit;
{$R *.DFM}
var paccno1,paccno2 :string;

procedure Tzzform.Button2Click(Sender: TObject);
begin
 zzform.Close;
end;

procedure Tzzform.MaskEdit1Exit(Sender: TObject);
begin
if trim(MaskEdit1.text)<>'' then
begin
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.Add('select handno,sex,accno from nowin where handno=:phandno and sex=:psex');
  q1.ParamByName ('phandno').asstring:=trim(maskedit1.text);
     if (GroupBox1.Visible) then
     begin
       if (oldman.Checked) then
         q1.ParamByName ('psex').asstring:='1';
       if (oldwoman.Checked) then
         q1.ParamByName ('psex').asstring:='0';
     end
     else
     q1.ParamByName ('psex').asstring:='2';
  q1.Prepare;
  q1.open;
  paccno1:=q1.fieldbyname('accno').asstring;
  q1.Active :=false;
end;
end;


procedure Tzzform.MaskEdit2Exit(Sender: TObject);
begin
if trim(MaskEdit2.text)<>'' then
begin
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.Add('select handno,sex,accno from nowin where handno=:phandno and sex=:psex');
  q1.ParamByName ('phandno').asstring:=trim(maskedit2.text);
     if (GroupBox2.Visible) then
     begin
       if (newman.Checked) then
         q1.ParamByName ('psex').asstring:='1';
       if (newwoman.Checked) then
         q1.ParamByName ('psex').asstring:='0';
     end
     else
     q1.ParamByName ('psex').asstring:='2';
  q1.Prepare;
  q1.open;
  paccno2:=q1.fieldbyname('accno').asstring;
  q1.Active :=false;
end;
end;

procedure Tzzform.Button1Click(Sender: TObject);
var
  oldsex,newsex:string;
begin
  servertime(NIL);
   if (length(trim(maskedit1.text))=0) or (length(trim(maskedit2.text))=0) then
      begin
      showmessage('手号不能为空');
      exit;
      end;
   //**********sex********************//
   if not GroupBox1.Visible then
      oldsex:='2'
   else
   begin
      if oldman.Checked =true then
         oldsex:='1';
      if oldwoman.Checked =true then
         oldsex:='0';
   end;
   if not GroupBox2.Visible then
      newsex:='2'
   else
   begin
      if newman.Checked =true then
          newsex:='1';
      if newwoman.Checked = true then
          newsex:='0';
   end;
   //**********************************??
   if  (trim(paccno1)=trim(paccno2))or(trim(paccno1)='') then
   begin
     showmessage('两房间是连房,不能转帐');
     exit;
   end;
   if (trim(maskedit1.text)=trim(maskedit2.text)) and (trim(oldsex)=trim(newsex)) then
      showmessage('手号相同')
   else
      begin
      all.UnPrepare;
      all.ParamByName ('@ioldhandno').asstring:=trim(maskedit1.text);
      all.ParamByName ('@ioldsex').asstring:=oldsex;
      all.ParamByName ('@inewhandno').asstring:=trim(maskedit2.text);
      all.ParamByName ('@inewsex').asstring:=newsex;
      all.Prepare;
      all.execproc;
      all.UnPrepare;
      addlogo(curper.code,datetimetostr(now),trim(paccno1)+'转'+trim(paccno2));
      showmessage('转帐成功');
      maskedit1.text:='';
      maskedit2.text:='';
      maskedit1.setfocus;
      end;
end;

procedure Tzzform.FormCreate(Sender: TObject);
begin
   maskedit1.text:='';
   maskedit2.text:='';
end;

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

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

procedure Tzzform.MaskEdit1DblClick(Sender: TObject);
begin
  Application.CreateForm(Tdjform, djform);
  djform.Panel1.Visible:=false;
  djform.rmnogrid.Visible:=false;
  djform.Button1.Enabled:=false;
  djform.Timer1.Free;
  djform.showmodal;
  MaskEdit1.Text:=copy(trim(djform.xfrmno.Text),1,6);
  if length(trim(djform.xfrmno.Text))>6 then
  begin
    GroupBox1.Visible:=true;
    if trim(copy(trim(djform.xfrmno.Text),7,6))='1' then
    begin
      oldman.Checked:=true;
      oldwoman.Checked:=false;
    end
    else
    begin
      oldman.Checked:=false;
      oldwoman.Checked:=true;
    end;
  end
  else GroupBox1.Visible:=false;
  djform.Free;

end;

procedure Tzzform.MaskEdit2DblClick(Sender: TObject);
begin
  Application.CreateForm(Tdjform, djform);
  djform.Panel1.Visible:=false;
  djform.rmnogrid.Visible:=false;
  djform.Button1.Enabled:=false;
  djform.Timer1.Free;
  djform.showmodal;
  MaskEdit2.Text:=copy(trim(djform.xfrmno.Text),1,6);
  if length(trim(djform.xfrmno.Text))>6 then
  begin
    GroupBox2.Visible:=true;
    if trim(copy(trim(djform.xfrmno.Text),7,6))='1' then
    begin
      newman.Checked:=true;
      newwoman.Checked:=false;
    end
    else
    begin
      newman.Checked:=false;
      newwoman.Checked:=true;
    end;
  end
  else GroupBox2.Visible:=false;
  djform.Free;

end;

procedure Tzzform.Button3Click(Sender: TObject);
begin

     application.CreateForm(TzzdyForm,zzdyForm);
     zzdyForm.hfsj.Caption:=formatdatetime('yyyy-mm-dd HH:mm:ss',now);
     zzdyForm.ysh.Caption:=MaskEdit1.Text;
     zzdyForm.xsh.Caption:=MaskEdit2.Text;
     zzdyForm.hide;
     zzdyForm.QuickRep1.Preview;
     zzdyForm.Close;
     zzdyForm.free;
end;

end.