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

    SQL.Add('INSERT INTO Firms (FName, FAddress,FCity,FPhone,FEMail,FPerson) VALUES ('+QuotedStr(Edit1.Text)+','+ QuotedStr(Edit2.Text)+','+QuotedStr(Edit3.Text)+','+ QuotedStr(Edit4.Text)+','+QuotedStr(Edit5.Text)+','+ QuotedStr(Edit6.Text)+')');

    ExecSQL;

  end;

  shPostav.QueryShop.Active:=false;

  shPostav.QueryShop.Active:=true;

  shPostav.QueryShop.Locate('FirmID', Id, [locaseinsensitive]);

  close;

end;  

end.

unit shZamenaPU; 

interface 

uses

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

  Dialogs, StdCtrls, Mask, DBCtrls; 

type

  TshZamenaP = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

   

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shZamenaP: TshZamenaP; 

implementation 

uses shPostavU,DBTables,DB, dmShopU; 

{$R *.dfm} 
 
 

procedure TshZamenaP.Button1Click(Sender: TObject);

var id : integer;

begin

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

  with shPostav.sh do

  begin

    Active:=false;

    SQL.Clear;

    SQL.Add('UPDATE Firms SET FName = '+QuotedStr(DBEdit1.Text));

    SQL.Add(', FAddress = '+QuotedStr(DBEdit2.Text));

    SQL.Add(', FCity = '+QuotedStr(DBEdit3.Text));

    SQL.Add(', FPhone = '+QuotedStr(DBEdit4.Text));

    SQL.Add(', FEMail = '+QuotedStr(DBEdit5.Text));

    SQL.Add(', FPerson = '+QuotedStr(DBEdit6.Text));

    SQL.Add(' WHERE FirmID = '+shPostav.QueryShop.FieldByName('FirmID').AsString);

    ExecSQL;

  end;

  shPostav.QueryShop.Active:=false;

  shPostav.QueryShop.Active:=true;

  shPostav.QueryShop.Locate('FirmID', Id, [locaseinsensitive]);

  close;

end;

end.

unit shNakladU; 

interface 

uses

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

  Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, ComCtrls, StdCtrls, Buttons,

  Menus; 

type

  TshNaklad = class(TForm)

    Panel1: TPanel;

    Panel2: TPanel;

    Panel3: TPanel;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DBNavigator1: TDBNavigator;

    Splitter1: TSplitter;

    DateTimePicker1: TDateTimePicker;

    Button1: TButton;

    PopupMenu1: TPopupMenu;

    N1: TMenuItem;

    Button2: TButton;

    procedure DateTimePicker1Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject); 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shNaklad: TshNaklad; 

implementation 

uses shAssortU, shPostavU, shMainU, dmShopU, shPoiskU, shPe4iztU; 

{$R *.dfm} 

procedure TshNaklad.DateTimePicker1Change(Sender: TObject);

begin

      if DM.Nakls.Locate('NDate',DateTimePicker1.Date,[]) then

      DBGrid1.SetFocus

end; 

procedure TshNaklad.Button1Click(Sender: TObject);

begin

    shPoisk.Visible:=true;

end; 
 

procedure TshNaklad.N1Click(Sender: TObject);

begin

    shPe4iat:=TshPe4iat.Create(self);

    shPe4iat.QuickRep1.Preview;

    shPe4iat.Free;

end; 

procedure TshNaklad.FormActivate(Sender: TObject);

   var sum:real; 

      begin

   dm.Nakls.First;

   while not dm.Nakls.Eof do

   begin

   sum:=0;

   while not dm.Move.Eof do begin

   sum:=sum+dm.MoveSumma.Value;

   dm.Move.Next;

   end;

    dm.Nakls.Edit;

    dm.Nakls['NSum']:=sum;

    dm.Nakls.Post;

    dm.Nakls.Next;

    end;

end;

end.

unit shPe4iztU; 

interface 

uses

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

  Dialogs, ExtCtrls, QuickRpt, QRCtrls, jpeg; 

type

  TshPe4iat = class(TForm)

    QuickRep1: TQuickRep;

    QRLabel10: TQRLabel;

    QRLabel11: TQRLabel;

    QRBand1: TQRBand;

    QRLabel1: TQRLabel;

    QRDBText1: TQRDBText;

    QRLabel2: TQRLabel;

    QRDBText2: TQRDBText;

    QRLabel3: TQRLabel;

    QRLabel4: TQRLabel;

    QRDBText3: TQRDBText;

    QRBand2: TQRBand;

    QRLabel5: TQRLabel;

    QRLabel6: TQRLabel;

    QRLabel7: TQRLabel;

    QRLabel8: TQRLabel;

    QRSubDetail1: TQRSubDetail;

    QRDBText4: TQRDBText;

    QRDBText5: TQRDBText;

    QRDBText7: TQRDBText;

    QRDBText6: TQRDBText;

    QRBand3: TQRBand;

    QRLabel12: TQRLabel;

    QRDBText8: TQRDBText;

    QRLabel9: TQRLabel;

    QRSysData1: TQRSysData;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

     

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shPe4iat: TshPe4iat; 

implementation 

uses shNakladU, dmShopU; 

{$R *.dfm} 
 
 
 

procedure TshPe4iat.FormClose(Sender: TObject; var Action: TCloseAction);

begin

dm.Nakls.First;

end;

end.

unit shPoiskU; 

interface 

uses

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

  Dialogs, StdCtrls, Spin; 

type

  TshPoisk = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    stDate: TLabel;

    stName: TLabel;

    stPok: TLabel;

    seNaklID: TSpinEdit;

    Button1: TButton;

    stSum: TLabel;

    procedure Button1Click(Sender: TObject);

 

   

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shPoisk: TshPoisk; 

implementation 

uses shNakladU, dmShopU, shMainU,DBTables,DB; 

{$R *.dfm} 
 
 

procedure TshPoisk.Button1Click(Sender: TObject);

var

  LookupResult:Variant;

begin

   LookupResult:=DM.Nakls.Lookup('NaklID',seNaklID.Value,'NDate;Firm;NSum;KOplate');

   if VarType(LookupResult)=varNull then

   showmessage('Нет накладной с таким номером'+IntToStr(seNaklID.Value))

   else if VarType(LookupResult)=varEmpty then

   ShowMessage('Поиск не проведен')

   else if VarIsArray(LookupResult) then

   begin

   stDate.Caption:=LookupResult[0];

   stName.Caption:=LookupResult[1];

   stSum.Caption:=LookupResult[2];

   stPok.Caption:=LookupResult[3];

   end else

   stDate.Caption:=LookupResult

end;

end.