Приложение б

unit Unit2;

interface

uses

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

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

type

TForm2 = 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

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Hide; Form1.show;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

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

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

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

else begin

dbgrid1.visible:=true;

form1.Adotable2.active:=true;

form1.Adotable2.locate('ФИО Продавца',Edit1.text,[loPartialKey]);end;end;

end.

Приложение в

unit Unit3;

interface

uses

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

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

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button5: TButton;

Edit1: TEdit;

ComboBox1: TComboBox;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin Form3.Hide; Form1.show; end;

procedure TForm3.Button5Click(Sender: TObject);

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

end;

procedure TForm3.Edit1Change(Sender: TObject);

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

else begin dbgrid1.visible:=true;

form1.Adotable3.active:=true;

if combobox1.itemindex=0 then

form1.Adotable3.locate('ФИО Продавца',Edit1.text,[loPartialKey])

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

end;

end;

end.

Приложение г

unit Unit4;

interface

uses

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

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

type

TForm4 = 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

Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin Form4.Hide; Form1.show; end;

procedure TForm4.Button5Click(Sender: TObject);

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

procedure TForm4.Edit1Change(Sender: TObject);

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

else begin dbgrid1.visible:=true;

form1.Adotable4.active:=true;

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

end;

end;

end.