hykczunit.pas

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

unit hykczUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  ThykczForm = class(TForm)
    Button1: TButton;
    kh: TEdit;
    kyc: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    Label5: TLabel;
    klb: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    cz: TEdit;
    xf: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    kcz: TEdit;
    kxf: TEdit;
    czy: TLabel;
    Label4: TLabel;
    Label10: TLabel;
    sjje: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure kycKeyPress(Sender: TObject; var Key: Char);
    procedure khKeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure klbKeyPress(Sender: TObject; var Key: Char);
    procedure kycExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure khExit(Sender: TObject);
    procedure khDblClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hykczForm: ThykczForm;

implementation

{$R *.DFM}
 USES dataproc,icdate, hykczdyUnit;
procedure ThykczForm.Button1Click(Sender: TObject);
 var  dy:integer;
begin
  if (trim(kh.Text)<>'') and (trim(kyc.Text)<>'') then
  begin
     if trim(sjje.text)='' then  sjje.text:='0';
     dy:= ICKcz(strtofloat(kyc.Text),strtofloat(sjje.Text),kh.text,czy.Caption,cz.Text,xf.Text);
   if dy=-1 then showmessage('储值金额不对,请输入正确金额');
   if dy=0 then
   begin
    addlogo(curper.code,datetimetostr(now),trim(kh.Text)+'卡储值'+trim(kyc.Text));
    showmessage('储值完成');
    kyc.Text:='';
   end;
    kh.Text:='';klb.Text:='';kyc.Text:='0';
    cz.Text:='0';
    xf.Text:='0';
    kcz.Text:='0';
    kxf.Text:='0';
    edit3.Text:='';sjje.text:='0';
  end;
end;

procedure ThykczForm.kycKeyPress(Sender: TObject; var Key: Char);
begin
   if ((key>'9')or(key<'0'))and(key<>'.')AND(KEY<>#8)then key:=#0;
end;

procedure ThykczForm.khKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
   kyc.SetFocus;
 end;
 key:=#0;
end;

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

procedure ThykczForm.klbKeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;

procedure ThykczForm.kycExit(Sender: TObject);
begin
  try
 //  cz.Text:=floattostr(strtofloat(cz.text)+strtofloat(kyc.text));
   Edit3.Text:=floattostr(strtofloat(cz.text)-strtofloat(xf.text));
   except
    showmessage('所输金额不对!请重新输入!');
    kyc.Text:='0';
    kyc.SetFocus;
    exit;
  end;
end;

procedure ThykczForm.FormShow(Sender: TObject);
begin
    czy.Caption:=curper.name;
    kh.Text:='';klb.Text:='';kyc.Text:='0';
    edit3.Text:='0';
    kh.SetFocus;  sjje.text:='0';

end;

procedure ThykczForm.khExit(Sender: TObject);
   var aa:array[0..3] of string;
begin
 if trim(kh.text)<>'' then
 begin
   getvalue(aa,'select 卡号,储值,消费,卡类别 from hykmx where 卡号='''+trim(kh.Text)+'''');
   if aa[0]='' then
   begin
     kh.Text:='';
     kyc.Text:='';
     klb.Text:='';
     edit3.Text:='';
     showmessage('卡号错误!');
     kyc.Enabled:=false;
     exit;
   end;
   edit3.Text:=floattostr(strtofloat(aa[1])-strtofloat(aa[2]));
   klb.text:=aa[3];
   cz.text:=aa[1];
   xf.text:=aa[2];
    kyc.Enabled:=true;
    kyc.SetFocus;
 end;

end;

procedure ThykczForm.khDblClick(Sender: TObject);
var ls:string;
begin
   if messagedlg('请插入IC卡！',mtwarning,[mbok,mbcancel],0)=mrok then
   begin
     ls:=read_ic;
     if copy(ls,1,2)<>'ok' then
       showmessage(ls)
     else
     begin
       kh.Text:=trim(copy(ls,11,10));
       kcz.Text:=trim(copy(ls,21,10));
       kxf.Text:=trim(copy(ls,31,10));
       kyc.SetFocus;
     end;
   end;

end;

procedure ThykczForm.Button3Click(Sender: TObject);
begin
   if trim(kh.Text)<>'' then
   begin
     application.CreateForm(ThykczdyForm,hykczdyForm);
     hykczdyForm.QRLabel3.Caption:=kh.Text;
     hykczdyForm.QRLabel5.Caption:=kcz.Text;
     hykczdyForm.QRLabel17.Caption:=cz.Text;
     hykczdyForm.QRLabel12.Caption:=kxf.Text;
     hykczdyForm.QRLabel7.Caption:=xf.Text;

     hykczdyForm.QRLabel15.Caption:=Edit3.Text;
     hykczdyForm.QRLabel19.Caption:=kyc.Text;
     hykczdyForm.QRLabel9.Caption:=floattostr(strtofloat(kyc.Text)+strtofloat(Edit3.Text));
     hykczdyForm.QRLabel10.Caption:=curper.sydw;
     hykczdyForm.QRLabel13.Caption:=czy.Caption;
     hykczdyForm.hide;
    // if dy.Checked then
    //   hykczdyForm.QuickRep1.print
   //  else
     hykczdyForm.QuickRep1.Preview;
     hykczdyForm.Close;
     hykczdyForm.free;
   end;

end;

end.