Geum.ru

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

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

Button;

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.