Приложение д

unit Unit5;

interface

uses

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

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

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button5: TButton;

Edit1: TEdit;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

beginForm5.Hide; Form1.show;end;

procedure TForm5.Button5Click(Sender: TObject);

begin If MessageDlg('Вы действительно хотите выйти?',mtConfirmation,[mbYes,mbNo],0)= mrYes then Form1.Close;end;

procedure TForm5.Edit1Change(Sender: TObject);

begin

if edit1.text=''then showmessage('необходимо ввести хотя бы 1 символ')

else begin

dbgrid1.visible:=true;

form1.Adotable5.active:=true;

form1.Adotable5.locate('Код',Edit1.text,[loPartialKey]);

end;

end;

end.

Приложение е

unit Unit6;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Mask;

type

TForm6 = class(TForm)

Button5: TButton;

Button1: TButton;

dbgrd1: TDBGrid;

tbl1: TADOTable;

ds1: TDataSource;

dbnvgr1: TDBNavigator;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure DBEdit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit5, Unit1;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

Form6.Hide; Form1.show;

end;

procedure TForm6.Button5Click(Sender: TObject);

begin

If MessageDlg('Вы действительно хотите выйти?',mtConfirmation,[mbYes,mbNo],0)= mrYes then Form1.Close;

end;

procedure TForm6.Edit1Change(Sender: TObject);

begin

if edit1.text=''then showmessage('необходимо ввести хотя бы 1 символ')

else begin

dbgrd1.visible:=true;

tbl1.active:=true;

tbl1.locate('Наименование',Edit1.text,[loPartialKey]);

end;

end;

procedure TForm6.Label2Click(Sender: TObject);

begin

label2.Caption:=inttostr(strtoint(dbedit1.text)*strtoint(dbedit2.text));

end;

procedure TForm6.DBEdit1Change(Sender: TObject);

begin

label2.Caption:=inttostr(strtoint(dbedit1.text)*strtoint(dbedit2.text));

end;

end.