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

//Модуль добавление новой товарной базы
unit NewBase;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, BoldListBox, data, Buttons, BusinessClasses;

type
TAddBase = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Label2: TLabel;
GroupBox2: TGroupBox;
BoldListBox1: TBoldListBox;
Label1: TLabel;
Memo1: TMemo;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
AddBase: TAddBase;
NewBas: TBase;

implementation

{$R *.dfm}

procedure TAddBase.SpeedButton3Click(Sender: TObject);
begin
SpeedButton2Click(nil);
AddBase.Close;
end;

procedure TAddBase.SpeedButton2Click(Sender: TObject);
begin
SpeedButton1.Enabled:=false;
Edit1.Clear;
Memo1.Clear;
Edit1.SetFocus;
end;

procedure TAddBase.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['A'..'я','0'..'9',#8,' ']) then
key:=#0;
if (key=#8)and (Length(Edit1.Text)<=1) then
SpeedButton1.Enabled:=false;
if (key in ['A'..'я','0'..'9']) then
SpeedButton1.Enabled:=true;
end;

procedure TAddBase.SpeedButton1Click(Sender: TObject);
var i: integer;
ExBas: TBase;
BBaseExsist: Boolean;
Mag: TShop;
begin
if Memo1.Text<>'' then
begin
i:=DataShop.ListBases.CurrentIndex;
BBaseExsist:=false;
Mag:=DataShop.BoldSystemHandleShop.System.ClassByExpressionName['Shop'].BoldObjects[0] as Tshop;
for i:=0 to DataShop.ListBases.Count-1 do
begin
ExBas:=DataShop.ListBases.ObjectList.Elements[i] as TBase;
if (ExBas.Bname = Edit1.Text) then
BBaseExsist:=true;
end;
if not(BBaseExsist) then
begin
if (messagedlg('Подтвердите добавление товарной базы "'+Edit1.Text+'"!',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
begin
NewBas:=TBase.Create(nil);
NewBas.Bname:=Edit1.Text;
NewBas.Baddress:=Memo1.Text;
NewBas.Imeetsya:=Mag;
SpeedButton3Click(nil);
end;
end
else
begin
ShowMessage('База с названием "'+Edit1.Text+'" уже существует!');
Edit1.Clear;
Edit1.SetFocus;
end;
end;
end;

end.