jz.pas

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

unit jz;

interface

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

type
  Tjzform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    Bevel1: TBevel;
    Label3: TLabel;
    rm: TMaskEdit;
    Label4: TLabel;
    xm: TMaskEdit;
    sm: TMaskEdit;
    Label6: TLabel;
    hm: TMaskEdit;
    Bevel2: TBevel;
    DBGrid1: TDBGrid;
    rmmx: TRadioButton;
    xfmx: TRadioButton;
    Label7: TLabel;
    czy: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label8: TLabel;
    ym: TMaskEdit;
    Label9: TLabel;
    yjm: TMaskEdit;
    Label10: TLabel;
    jym: TMaskEdit;
    xfhdno: TEdit;
    zk: TSpinEdit;
    Label11: TLabel;
    caljz: TStoredProc;
    Q1: TQuery;
    DataSource1: TDataSource;
    realjz: TStoredProc;
    rcsm: TMaskEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    scsm: TMaskEdit;
    CheckBox1: TCheckBox;
    procedure BitBtn3Click(Sender: TObject);
    procedure xfhdnoExit(Sender: TObject);
    procedure MaskEdit1Exit(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure zkChange(Sender: TObject);
    procedure rmmxClick(Sender: TObject);
    procedure xfmxClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jzform: Tjzform;

implementation
uses dataproc;
{$R *.DFM}
var
   acc:string;

procedure formini;
begin
with jzform do
   begin
   q1.Active :=false;
   xfhdno.Text :='';
   maskedit1.Text :=datetimetostr(now);
   rm.text:='';
   rcsm.text:='';
   sm.Text :='';
   scsm.text:='';
   xm.text:='';
   hm.text:='';
   ym.text:='';
   yjm.text:='';
   jym.Text :='';
   zk.Value :=100;
   end
end;

procedure seemx;
var
  aa:array [0..1] of string;
begin
with jzform do
   begin
   getvalue(aa,'select accno from nowin where handno="'+trim(xfhdno.text)+'"');
   acc:=aa[0];
   if length(trim(aa[0]))<>0 then
      begin
      if   rmmx.Checked =true then
           begin
           q1.Active :=false;
           q1.sql.clear;
           q1.sql.add('select handno,sex,begtime,sdjcode from nowin where accno=:paccno ');
           q1.ParamByName ('paccno').asstring:=trim(aa[0]);
           q1.Prepare;
           q1.Open;
           chinesegrid(dbgrid1);
           q1.active:=true;
           end;
      if   xfmx.Checked =true then
           begin
           q1.Active :=false;
           q1.sql.clear;
           q1.sql.add('select custom.handno,cusitem.cusname,custom.cusprice,custom.cusnum,custom.money,custom.regtime,custom.djcode from custom,cusitem where (accno=:paccno) and (custom.cuscode=cusitem.cuscode)');
           q1.ParamByName ('paccno').asstring:=trim(aa[0]);
           q1.Prepare;
           q1.Open;
           chinesegrid(dbgrid1);
           q1.active:=true;
           end
      end
   end
end;


procedure jjzz;
begin
 with jzform do
   begin
     caljz.ParamByName('@ihand').asstring:=trim(xfhdno.text);
     caljz.ParamByName('@itime').asdatetime:=strtodatetime(maskedit1.text);
     caljz.parambyname('@iiszd').asboolean:=true;
     caljz.prepare;
     caljz.ExecProc;
     rm.text:=floattostr(caljz.ParamByName('@oroommoney').asfloat);
     rcsm.text:=caljz.Parambyname('@ocsmoney').asstring;
     sm.text:=caljz.ParamByName('@osanmoney').asstring;
     scsm.text:=caljz.ParamByName('@osancsmoney').asstring;
     xm.text:=caljz.ParamByName('@ocusmoney').asstring;
     yjm.text:=caljz.ParamByName('@odeposit').asstring;
     hm.text:=floattostr(strtofloat(rm.text)+strtofloat(rcsm.text)+strtofloat(sm.text)+strtofloat(scsm.text));
     ym.text:=floattostr(strtofloat(hm.text)*zk.value/100);
     jym.text:=floattostr(strtofloat(yjm.text)-strtofloat(ym.text));
     caljz.unprepare;
 end;
end;


procedure Tjzform.BitBtn3Click(Sender: TObject);
begin
  jzform.close;
end;

procedure Tjzform.xfhdnoExit(Sender: TObject);
var
  ss:array[0..1] of string;
begin
  getvalue(ss,'select handno from nowin where handno="'+trim(xfhdno.text)+'"');
  if  ss[0]='' then
    begin
      showmessage('手号未登记!');
      xfhdno.setfocus;
    end
end;


procedure Tjzform.MaskEdit1Exit(Sender: TObject);
begin
   jjzz;
   seemx;
end;

procedure Tjzform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     selectnext(activecontrol,true,true);
end;

procedure Tjzform.FormCreate(Sender: TObject);
begin
    shortdateformat:='yyyy-mm-dd';
    czy.Text :=curper.code+' '+curper.name;
    formini;
end;

procedure Tjzform.zkChange(Sender: TObject);
begin
    ym.Text :=floattostr((strtofloat(hm.text)*(zk.value)/100));
    jym.text:=floattostr(strtofloat(yjm.text)-strtofloat(ym.text));
end;

procedure Tjzform.rmmxClick(Sender: TObject);
begin
   seemx;
end;

procedure Tjzform.xfmxClick(Sender: TObject);
begin
   seemx;
end;

procedure Tjzform.BitBtn1Click(Sender: TObject);
var
   aa,bb:array [0..1] of string;
begin
   getvalue(aa,'select accno from nowin where handno="'+trim(xfhdno.text)+'"');
   if length(trim(aa[0]))>0 then
      begin
      getvalue(bb,'select wdno from lockacc where ((accno="'+trim(aa[0])+'" ) and (locknum>0)) ');
      if length(trim(bb[0]))>0 then
         showmessage('网点'+bb[0]+'将'+trim(xfhdno.text)+'手号锁定')
      else
         begin
         if length(trim(acc))<>0 then
            begin
            realjz.ParamByName ('@iaccount').asstring:=trim(acc);
            realjz.ParamByName ('@itime').asdatetime:=strtodatetime(maskedit1.text);
            realjz.Prepare;
            realjz.ExecProc;
            showmessage('结帐成功');
            formini;
            end
         end
      end

end;


end.