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

//Модуль ввода количества заказываемого товара
unit ZakazTov;

interface

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

type
TZakazForm = class(TForm)
GroupBox1: TGroupBox;
SpinEdit1: TSpinEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure SpinEdit1KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
ZakazForm: TZakazForm;

implementation

uses Main;

{$R *.dfm}

procedure TZakazForm.SpeedButton2Click(Sender: TObject);
begin
ZakazForm.Close;
end;

procedure TZakazForm.FormActivate(Sender: TObject);
begin
TekBTov:=DataShop.ListBaseGroupTovar.ObjectList.Elements[DataShop.ListBaseGroupTovar.CurrentIndex] as TTov_base;
SpinEdit1.Value:=1;
SpinEdit1.MinValue:=1;
SpinEdit1.MaxValue:=TekBTov.TBcount;
end;

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

procedure TZakazForm.SpeedButton1Click(Sender: TObject);
begin
if (messagedlg('Заказать товар "'+TekBTov.Tname+'"'+#13+
'в количестве: '+ inttostr(SpinEdit1.Value)+' единиц(ы)?',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
begin
TekBTov.ZakazCount:=SpinEdit1.Value;
ZakazForm.Close;
Mainform.SpeedButton35.Enabled:=true;
Mainform.BoldSortingGrid4.Repaint;
end;

end;

end.