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.