Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:097715 / Исходники / Магазин бытовой техники / EditTovarBase
.pas //Модуль редактирования информации о товаре, хранящегося на товарных базах
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.
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.
Соседние файлы в папке Магазин бытовой техники