Unit4.Dfm

unit Unit4;

Interface

uses

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

Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Mask, DBCtrls, DB,

DBTables, Grids, DBGrids;

type

TForm4 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Button1: TButton;

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

DBImage1: TDBImage;

DBEdit1: TDBEdit;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label3: TLabel;

Table1Kod_k: TSmallintField;

Table1Kod_gr: TSmallintField;

Table1Title: TStringField;

Table1Netto: TStringField;

Table1Price: TIntegerField;

Table1Kalorii: TStringField;

Table1Foto: TGraphicField;

Button2: TButton;

Button3: TButton;

Label2: TLabel;

Edit4: TEdit;

Button4: TButton;

Label4: TLabel;

procedure Edit1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

Zag_S : Real;

Price,T,Name,Name1 : String;

MyVariant: integer;

end;

var

Form4: TForm4;

K,N,S : Real;

Kil ,Kil_vid_n: Integer ;

nm:String;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm4.Edit1Change(Sender: TObject);

begin

Table1.Locate('Title',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

DBGrid1.Columns[6].Visible:=false;

DBGrid1.Columns[0].Visible:=false;

DBGrid1.Columns[1].Visible:=false;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Zag_S:=0;

Kil_vid_n:=0;

Name:='куку';

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

N:=Table1.FieldByName('Price').AsInteger;

Kil:=StrToInt(Edit2.Text);

S:=N*Kil;

nm:=Table1.FieldByName('Title').AsString;

Edit3.Text:=FloatToStr(S);

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Zag_S:=Zag_S+S;

Edit4.Text:=FloatToStr(Zag_S);

Kil_vid_n:=Kil_vid_n + 1 ;

Name:=Table1.FieldByName('Title').AsString ;

Name1:=Table1.FieldByName('Title').AsString ;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

Price:=FloatToStr(Zag_S) ;

C.Label1.Caption:=Name ;

C.Label5.Caption:=Name1 ;

C.Label3.Caption:= Price + ' грн.' ;

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

C.Label1.Caption:=Name ;

C.Label3.Caption:= Price + ' грн.' ;

C.Show;

end;

end.

Unit5.Dfm

unit Unit5;

interface

uses

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

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

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

Table1: TTable;

Query1: TQuery;

Button1: TButton;

Button2: TButton;

DataSource1: TDataSource;

Query2: TQuery;

Image1: TImage;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

with form5.Query1 do begin

// закрыть файл — результат выполнения

// предыдущего запроса

// удалить текст предыдущего запроса

// записываем новый запрос в свойство SQL

Query1.Open; // активизируем выполнение запроса

DataSource1.DataSet:=Query1;

end;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

with form5.Query2 do begin

Close;// закрыть файл — результат выполнения

// предыдущего запроса

SQL.Clear; // удалить текст предыдущего запроса

// записываем новый запрос в свойство SQL

SQL.Add(Memo1.Lines.Text) ;

Query2.Open; // активизируем выполнение запроса

DataSource1.DataSet:=Query2;

end;

end;

end.