Unit1.Dfm

unit Unit1;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, Menus, ExtCtrls, DBCtrls, StdCtrls,

jpeg;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Table2: TTable;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

Edit1: TEdit;

Button1: TButton;

DBNavigator1: TDBNavigator;

Image1: TImage;

Table1Kod_gr: TSmallintField;

Table1Group: TStringField;

Table2Kod_k: TSmallintField;

Table2Kod_gr: TSmallintField;

Table2Title: TStringField;

Table2Netto: TStringField;

Table2Price: TIntegerField;

Table2Kalorii: TStringField;

Table2Foto: TGraphicField;

DBImage1: TDBImage;

N6: TMenuItem;

Button2: TButton;

Button3: TButton;

Button4: TButton;

GroupBox1: TGroupBox;

Edit6: TEdit;

Edit5: TEdit;

Edit4: TEdit;

Edit3: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit7: TEdit;

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure DBGrid2CellClick(Column: TColumn);

procedure Table2AfterScroll(DataSet: TDataSet);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

DBGrid1.Visible:=True;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

DBGrid2.Visible:=True;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Clear;

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

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.Show;

Close;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

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

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Main.Show;

Close;

end;

procedure TForm1.DBGrid2CellClick(Column: TColumn);

begin

Edit2.Text:=Table2.FieldByName('Kod_k').AsString;

Edit3.Text:=Table2.FieldByName('Title').AsString;

Edit4.Text:=Table2.FieldByName('Netto').AsString;

Edit5.Text:=Table2.FieldByName('Price').AsString;

Edit6.Text:=Table2.FieldByName('Kalorii').AsString;

Edit7.Text:=Table2.FieldByName('Kod_gr').AsString;

end;

procedure TForm1.Table2AfterScroll(DataSet: TDataSet);

begin

Edit2.Text:=Table2.FieldByName('Kod_k').AsString;

Edit3.Text:=Table2.FieldByName('Title').AsString;

Edit4.Text:=Table2.FieldByName('Netto').AsString;

Edit5.Text:=Table2.FieldByName('Price').AsString;

Edit6.Text:=Table2.FieldByName('Kalorii').AsString;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Table2.Next;

Table2.Insert;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Table2.Edit;

Table2.FieldByName('Kod_k').AsString:=Edit2.Text;

Table2.FieldByName('Title').AsString:=Edit3.Text;

Table2.FieldByName('Netto').AsString:=Edit4.Text;

Table2.FieldByName('Price').AsString:=Edit5.Text;

Table2.FieldByName('Kalorii').AsString:=Edit6.Text;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

Table2.IndexFieldNames:='Kod_gr';

Table2.SetKey;

Table2.FieldByName('Kod_gr').AsString:=Table1.FieldByName('Kod_gr').AsString;

Table2.GotoNearest;

end;

end.