48400 (Проектування автоматизованої інформаційної системи для менеджера фірми), страница 5

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TTovar = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Tovar: TTovar;

implementation

uses Unit1;

{$R *.dfm}

end.

unit UZajavka;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TZajavka = class(TForm)

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

GroupBox2: TGroupBox;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBLookupComboBox3: TDBLookupComboBox;

DBLookupComboBox4: TDBLookupComboBox;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Zajavka: TZajavka;

implementation

uses Unit1;

{$R *.dfm}

end.

unit UZaput1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids;

type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

Panel2: TPanel;

Label2: TLabel;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var i:integer;

sum:real;

begin

DataModule1.IBQuery1.Close;

DataModule1.IBQuery1.SQL.Clear;

DataModule1.IBQuery1.SQL.Add('select ID_agenta, Surname, Name, Po_batkovi, Oklad');

DataModule1.IBQuery1.SQL.Add('from torgovuj');

DataModule1.IBQuery1.Open;

sum:=0;

for i:=1 to DataModule1.IBQuery1.RecordCount do

begin

sum:=sum+DataModule1.IBQuery1.fieldbyname('Oklad').AsFloat;

DataModule1.IBQuery1.Next;

end;

Edit2.Text:=FloatToStr(sum);

end;

end.

unit UZaput2;

interface

uses

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

Dialogs, DBCtrls, Grids, DBGrids, StdCtrls;

type

TForm3 = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

GroupBox1: TGroupBox;

Label1: TLabel;

Button1: TButton;

DBGrid1: TDBGrid;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

DataModule1.IBQuery2.Close;

DataModule1.IBQuery2.SQL.Clear;

DataModule1.IBQuery2.SQL.Add('select id_magazin, name_magazin, aresa');

DataModule1.IBQuery2.SQL.Add('from torgovuj, zajavka, magazin');

DataModule1.IBQuery2.SQL.Add('where torgovuj.id_agenta=zajavka.id_agenta and magazin.id_magazin=zajavka.id_magazin and surname="'+DBLookupComboBox1.Text+'"');

DataModule1.IBQuery2.Open;

end;

end.

unit UZaput3;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, DBCtrls, ExtCtrls;

type

TForm4 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Button1: TButton;

DBGrid1: TDBGrid;

Panel2: TPanel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Edit3: TEdit;

Edit1: TEdit;

Edit2: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

var sum:real;

i:integer;

begin

DataModule1.IBQuery3.Close;

DataModule1.IBQuery3.SQL.Clear;

DataModule1.IBQuery3.SQL.Add('select ID_zajavka, Vurobnuk, Name_Tovar, CountTovar, Price, (CountTovar*Price) as Syma from Zajavka, Magazin, Tovar, Vmist_zakazy');

DataModule1.IBQuery3.SQL.Add('where Name_Magazin="'+DBLookupComboBox1.Text+'" and Tovar.ID_Tovar=Vmist_zakazy.id_Tovar and Magazin.ID_Magazin=Zajavka.id_Magazin and Zajavka.ID_Zajavka=Vmist_zakazy.ID_zajavka');

DataModule1.IBQuery3.Open;

sum:=0;

for i:=1 to DataModule1.IBQuery3.RecordCount do

begin

sum:=sum+DataModule1.IBQuery3.fieldbyname('Syma').AsFloat;

DataModule1.IBQuery3.Next;

end;

Edit3.Text:=FloatToStr(sum);

Edit1.Text:=FloatToStr(StrToFloat(Edit3.Text)*StrToFloat('0,'+Edit2.Text)+StrToFloat(Edit3.Text));

end;

end.

unit UZaput4;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, ExtCtrls;

type

TForm6 = class(TForm)

Panel1: TPanel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Button2: TButton;

Picker1: TDateTimePicker;

Picker2: TDateTimePicker;

DBGrid1: TDBGrid;

Panel2: TPanel;

Label5: TLabel;

Edit3: TEdit;

Label1: TLabel;

Button3: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

var sum:real;

i:integer;

begin

DataModule1.IBQuery4.Close;

DataModule1.IBQuery4.SQL.Clear;

DataModule1.IBQuery4.SQL.Add('select ID_tovar, Vurobnuk, Name_Tovar, CountTovar, Price, (CountTovar*Price) as Syma from Tovar, zajavka, Vmist_Zakazy');

DataModule1.IBQuery4.SQL.Add('where (Data_Zajavka between "'+DateToStr(Picker1.Date)+'"and"'+DateToStr(Picker2.Date)+'")and Tovar.ID_Tovar=Vmist_zakazy.id_Tovar and Zajavka.ID_Zajavka=Vmist_zakazy.ID_zajavka');

DataModule1.IBQuery4.Open;

sum:=0;

for i:=1 to DataModule1.IBQuery4.RecordCount do

begin

sum:=sum+DataModule1.IBQuery4.fieldbyname('Syma').AsFloat;

DataModule1.IBQuery4.Next;

end;

Edit3.Text:=FloatToStr(sum);

end;

end.

end.

unit UPrint1;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

TForm7 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel3: TQRLabel;

QRLabel9: TQRLabel;

QRLabel10: TQRLabel;

QRBand2: TQRBand;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRSubDetail1: TQRSubDetail;

QRDBText8: TQRDBText;

QRDBText9: TQRDBText;

QRDBText10: TQRDBText;

QRDBText11: TQRDBText;

QRDBText2: TQRDBText;

QRBand3: TQRBand;

QRLabel11: TQRLabel;

QRLabel12: TQRLabel;

QRLabel4: TQRLabel;

QRDBText1: TQRDBText;

QRLabel13: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit1;

{$R *.dfm}

end.