unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm4 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    ADODataSet2: TADODataSet;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    Button2: TButton;
    ADODataSet3: TADODataSet;
    DataSource3: TDataSource;
    DBGrid3: TDBGrid;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button4: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    ADODataSet4: TADODataSet;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='select * from pokupka';
ADODataSet1.Active:=true;

end;

procedure TForm4.Button2Click(Sender: TObject);
begin
 ADODataSet2.Active:=false;
ADODataSet2.CommandText:='select * from pokupatel';
ADODataSet2.Active:=true;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
   ADODataSet3.Active:=false;
ADODataSet3.CommandText:='select * from tovar';
ADODataSet3.Active:=true;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
   ADODataSet4.Active:=false;
   ADODataSet4.CommandText:='select max(n) from pokupka';
   ADODataSet4.Active:=true;
   Label1.Caption:=IntToStr(StrToInt(ADODataSet4.FieldValues['Expr1000'])+1);
   ADOQuery1.SQL.Text:='insert into pokupka values ('+
      Label1.Caption+','+''''+Edit5.Text+''''+','+
      Edit2.Text+','+Edit4.Text+','+Edit6.Text+','+Edit7.Text+')';
   //ShowMessage(ADOQuery1.SQL.Text);
   ADOQuery1.ExecSQL;

end;

procedure TForm4.DBGrid2DblClick(Sender: TObject);
begin
Edit1.Text:=ADODataSet2.FieldValues['surname'];
Edit2.Text:=ADODataSet2.FieldValues['code_pok'];
end;

procedure TForm4.DBGrid3DblClick(Sender: TObject);
begin
Edit3.Text:=ADODataSet3.FieldValues['name_tov'];
Edit4.Text:=ADODataSet3.FieldValues['code_tov'];
end;

end.