097715 / Исходники / Магазин бытовой техники / EditTovarBase

//Модуль редактирования информации о товаре, хранящегося на товарных базах
unit EditTovarBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Data, BusinessClasses, Buttons;

type
  TEditTovBase = class(TForm)
    GroupBox13: TGroupBox;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditTovBase: TEditTovBase;
  flag: Boolean;
implementation

uses Main;



{$R *.dfm}
//Активизация формы
procedure TEditTovBase.FormActivate(Sender: TObject);
var i: integer;
begin
TekBTov:=DataShop.ListBaseGroupTovar.ObjectList.Elements[DataShop.ListBaseGroupTovar.CurrentIndex] as TTov_base;
Edit9.Text:=TekBTov.Tname;
Edit10.Text:=floattostr(TekBTov.Tprice);
SpinEdit1.Value:=TekBTov.Tgarant;
SpinEdit2.Value:=TekBTov.TBcount;
end;

//Закрытие формы
procedure TEditTovBase.SpeedButton2Click(Sender: TObject);
begin
EditTovBase.Close;
end;

//При закрытии формы - возврат формы в исходное состояние
procedure TEditTovBase.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Edit9.Clear;
Edit10.Clear;
SpinEdit1.Value:=0;
SpinEdit2.Value:=1;
end;

//Процесс изменения данных о товаре
procedure TEditTovBase.SpeedButton1Click(Sender: TObject);
var price: real;
begin
flag:=false;
if (messagedlg('Подтвердите изменение товара',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
  begin
    try
    price:=strtofloat(Edit10.Text);
    except
    ShowMessage('Неверно указана цена!'+#13+'Проверьте правильность ввода!');
    flag:=true;
    end;
  if not flag then
    begin
    TekBTov.Tname:=Edit9.Text;
    TekBTov.Tprice:=price;
    TekBTov.Tgarant:=SpinEdit1.Value;
    TekBTov.TBcount:=SpinEdit2.Value;
    SpeedButton2Click(nil);
    end;
  end;
end;

//Проверка корректности ввода
procedure TEditTovBase.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,',']) then
  key:=#0;
end;

end.