groupaddpos.pas

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

unit groupaddpos;

interface

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

type
  TTtAddPos = class(TForm)
    Label1: TLabel;
    groupname: TComboBox;
    Label2: TLabel;
    oldpos: TSpinEdit;
    Label3: TLabel;
    addpos: TSpinEdit;
    Label4: TLabel;
    newpos: TSpinEdit;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure addposChange(Sender: TObject);
    procedure groupnameClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TtAddPos: TTtAddPos;

implementation
uses dataproc;
{$R *.DFM}

procedure TTtAddPos.FormCreate(Sender: TObject);
begin
  comadd(groupname,1,'select groupname from groupnowin');
  groupnameClick(nil);
end;

procedure TTtAddPos.addposChange(Sender: TObject);
begin
  try
  newpos.Value :=oldpos.Value +addpos.Value ;
  except
  end;
end;

procedure TTtAddPos.groupnameClick(Sender: TObject);
begin
  if length(trim(groupname.items[groupname.itemindex]))>0 then
     begin
     query1.Active :=false;
     query1.sql.clear;
     query1.sql.add('select money from groupnowin where groupname=:pname');
     query1.ParamByName ('pname').asstring:=trim(groupname.items[groupname.itemindex]);
     query1.Prepare;
     query1.open;
     oldpos.Value :=strtoint(floattostr(query1.fieldbyname('money').asfloat));
     query1.Active :=false;
     end;
  newpos.Value :=oldpos.Value +addpos.Value ;
end;

procedure TTtAddPos.Button1Click(Sender: TObject);
begin
  if addpos.Value =0 then
     showmessage('团体补交押金失败')
  else
     begin
     query1.Active :=false;
     query1.sql.clear;
     query1.sql.add('update groupnowin set money=:pmoney where groupname=:pname');
     query1.ParamByName ('pmoney').asfloat:=strtofloat(inttostr(newpos.value));
     query1.ParamByName ('pname').asstring:=trim(groupname.items[groupname.itemindex]);
     query1.Prepare;
     query1.ExecSQL ;
     query1.Active :=false;
     addpos.Value :=0;
     groupnameClick(nil);
     showmessage('团体补交押金成功');
     end;
end;

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

procedure TTtAddPos.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  query1.free;
   action:=cafree;
end;

end.