Implementation

{$R *.DFM}

end.

unit Unit12;

Interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,

StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls;

type

TQuickReport12 = class(TQuickRep)

ColumnHeaderBand1: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

DetailBand1: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

PageFooterBand1: TQRBand;

QRSysData1: TQRSysData;

QRLabel5: TQRLabel;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

SummaryBand1: TQRBand;

QRDBText4: TQRDBText;

QRLabel6: TQRLabel;

private

public

end;

var

QuickReport12: TQuickReport12;

Implementation

{$R *.DFM}

end.

unit Unit13;

Interface

uses

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

Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type

TForm13 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOTable1: TADOTable;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1tip: TWideStringField;

ADOTable1proc: TWideStringField;

lbl1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

Implementation

uses Unit2;

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);

begin

Form2.ADOTable3.Edit;

Form2.ADOTable3.FieldByName('dog').AsString:=adotable1.fieldbyname('код').AsString;

close;

end;

procedure TForm13.Button4Click(Sender: TObject);

begin

adotable1.Next;

adotable1.Prior;

close;

end;

procedure TForm13.Button2Click(Sender: TObject);

begin

adotable1.Delete;

end;

procedure TForm13.Button3Click(Sender: TObject);

begin

adotable1.Insert;

end;

end.

34