Разработка базы данных по продаже в магазине одежды

end;

procedure TshAssort.Button2Click(Sender: TObject);

begin

   shDobav.ShowModal;

end; 

procedure TshAssort.Button3Click(Sender: TObject);

begin

       shZamena.ShowModal

end; 

procedure TshAssort.Button4Click(Sender: TObject);

begin

if Application.MessageBox('Вы действительно хотите удалить выделенную запись?','Внимание!',MB_YESNO+MB_ICONWARNING)=ID_YES

then

begin 

dm.Tovar.Delete;

dm.Tovar.Edit;

dm.Tovar.Post;

end;

end; 

end.

unit shDobavU; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls; 

type

  TshDobav = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Edit9: TEdit;

    Edit10: TEdit;

    Edit11: TEdit;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Edit12: TEdit;

    Button1: TButton;

    Edit13: TEdit;

    Label13: TLabel;

    procedure Button1Click(Sender: TObject);

  

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shDobav: TshDobav; 

implementation 

uses dmShopU, shAssortU,DBTables,DB; 

{$R *.dfm} 

procedure TshDobav.Button1Click(Sender: TObject); 

begin

   dm.Tovar.Append;

   dm.Tovar['TType']:=edit1.Text;

   dm.Tovar['TName']:=edit2.Text;

   dm.Tovar['TLabel']:=edit3.Text;

   dm.Tovar['TYear']:=edit4.Text;

   dm.Tovar['TArt']:=edit5.Text;

   dm.Tovar['TRazmer']:=edit6.Text;

   dm.Tovar['TStand']:=edit7.Text;

   dm.Tovar['TQuan']:=edit8.Text;

   dm.Tovar['TOpt']:=edit9.Text;

   dm.Tovar['TRozn']:=edit10.Text;

   dm.Tovar['TCoeff']:=edit11.Text;

   dm.Tovar['Itog']:=edit12.Text;

   dm.Tovar['TGarantia']:=edit13.Text;

   dm.Tovar.Post;

   close;

end;

end.

unit shZamenaU; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, DBCtrls, Menus; 

type

  TshZamena = class(TForm)

    Label1: TLabel;

    label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;

    DBEdit9: TDBEdit;

    DBEdit10: TDBEdit;

    DBEdit11: TDBEdit;

    Button1: TButton;

    Label13: TLabel;

    DBEdit13: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit1: TDBEdit;

    procedure Button1Click(Sender: TObject);

   private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shZamena: TshZamena; 

implementation 

uses dmShopU, shAssortU,dbtables,db; 

{$R *.dfm} 

procedure TshZamena.Button1Click(Sender: TObject); 

begin

    dm.Tovar.Edit;

    dm.Tovar['TType']:=dbedit1.Text;

   dm.Tovar['TName']:=dbedit2.Text;

   dm.Tovar['TLabel']:=dbedit3.Text;

   dm.Tovar['TYear']:=strtoint(dbedit4.Text);

   dm.Tovar['TArt']:=strtoint(dbedit5.Text);

   dm.Tovar['TRazmer']:=dbedit6.Text;

   dm.Tovar['TStand']:=strtoint(dbedit7.Text);

   dm.Tovar['TQuan']:=strtoint(dbedit8.Text);

   dm.Tovar['TOpt']:=dbedit9.Text;

   dm.Tovar['TRozn']:=dbedit10.Text;

   dm.Tovar['TCoeff']:=strtoint(dbedit11.Text);

   dm.Tovar['TGarantia']:=strtoint(dbedit13.Text);

   dm.Tovar.Post;

   close;

end;

end.

unit shPostavU; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, jpeg, DBTables, DB, StdCtrls; 

type

  TshPostav = class(TForm)

    Panel1: TPanel;

    DBGrid: TDBGrid;

    Panel2: TPanel;

    Image1: TImage;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    QueryShop: TQuery;

    sh: TQuery;

    UpdateSQLShopP: TUpdateSQL;

    DSShopP: TDataSource;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

     
 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shPostav: TshPostav; 

implementation 

uses dmShopU, shDobavPU, shZamenaPU ; 

{$R *.dfm} 

procedure TshPostav.FormCreate(Sender: TObject);

begin

     CurrencyDecimals:=2

end; 
 

procedure TshPostav.Button1Click(Sender: TObject);

begin

     shDobavP.ShowModal;

end; 

procedure TshPostav.Button2Click(Sender: TObject);

begin

     shZamenaP.ShowModal;

end; 

procedure TshPostav.Button3Click(Sender: TObject);

begin

      if Application.MessageBox('Вы действительно хотите удалить выделеннуюзапись?','Внимание!',MB_YESNO+MB_ICONWARNING)=ID_YES then

  begin

    with sh do

    begin

      Active:=false;

      SQL.Clear;

      SQL.Add('DELETE FROM Firms WHERE FirmID='+QueryShop.FieldByName('FirmID').AsString);

      ExecSQL;

    end;

  QueryShop.Active:=false;

  QueryShop.Active:=true;

  end;

end;

end.

unit shDobavPU; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls; 

type

  TshDobavP = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shDobavP: TshDobavP; 

implementation 

uses shPostavU,DBTables,DB; 

{$R *.dfm} 

procedure TshDobavP.Button1Click(Sender: TObject);

var id:integer;

begin

  Id:=shPostav.QueryShop.FieldByName('FirmID').AsInteger;

  with shPostav.sh do

  begin

    Active:=false;

    SQL.Clear;