u_bonus.pas

基于OOP设计的一套较好的ERP系统

unit u_bonus;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, DBCtrls, DB;

type
  TBonus_form = class(TForm)
    Label1: TLabel;
    codicecliente: TEdit;
    bonus_box: TGroupBox;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    aggiungi: TEdit;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    nominativo: TEdit;
    Label5: TLabel;
    procedure codiceclienteExit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure nominativoExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Bonus_form: TBonus_form;

implementation

uses main;

{$R *.DFM}

procedure TBonus_form.codiceclienteExit(Sender: TObject);
begin
   If CodiceCliente.Text = '' then exit ;
     With Main_form  do
      If not TTClienti.FindKey([CodiceCliente.Text]) then
         ShowMessage('Cliente inesistente !')
      else
       begin
          bonus_box.Enabled := true ;
          aggiungi.SetFocus ;
       end ;

end;

procedure TBonus_form.BitBtn1Click(Sender: TObject);
Var
   Punti : real ;
   code : integer ;

begin
  Val(Aggiungi.Text,Punti,Code) ;
  If Code <> 0 then
     begin
      ShowMessage('Inserire un valore numerico !!!') ;
      exit ;
     end ;
  with Main_form do
   begin
    TTClienti.Edit ;
    TTClientiPunteggio.value := TTClientiPunteggio.Value + Punti ;
    TTClienti.Post ;
   end ;
  close ;
end;

procedure TBonus_form.nominativoExit(Sender: TObject);
begin
     if nominativo.text = '' then exit ;
     
     With Main_form  do
      If not TTClienti.Locate('Nominativo',nominativo.text,[lopartialkey,locaseinsensitive]) then
         ShowMessage('Cliente inesistente !')
      else
       begin
          bonus_box.Enabled := true ;
          aggiungi.SetFocus ;
       end ;
end;

procedure TBonus_form.FormShow(Sender: TObject);
begin
     codiceCliente.Setfocus ;
     aggiungi.Text := '' ;
     bonus_box.enabled := false ;
end;

end.