Interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm13 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Image1: tImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

Implementation

uses Unit14, Unit1, Unit15, Unit16, Unit17, Unit3;

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);

begin

form14.show;

end;

procedure TForm13.Button2Click(Sender: TObject);

begin

form15.adodataset1.append;

form15.show;

end;

procedure TForm13.Button3Click(Sender: TObject);

begin

form16.Show;

end;

procedure TForm13.FormCreate(Sender: TObject);

begin

if Form17.label1.Caption = '2' then

begin

Form13.Button2.Visible := true ;

end;

if Form17.Label1.caption = '3' then

begin

form13.Button3.Visible := true;

Form13.Button3.Visible := true ;

end;

end;

end.

unit Unit14;

Interface

uses

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

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

type

TForm14 = class(TForm)

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Label1: TLabel;

DBMemo1: TDBMemo;

Edit1: TEdit;

Label2: TLabel;

DBNavigator1: TDBNavigator;

procedure Edit1Change(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm14.Edit1Change(Sender: TObject);

begin

AdoDataset1.close;

AdoDataset1.CommandText :='select * from Соискатели where ' + ' Профессия like ''%' + Edit1.Text + '%''';

AdoDataset1.open;

end;

procedure TForm14.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.show;

end;

end.

unit Unit15;

Interface

uses

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

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

type

TForm15 = class(TForm)

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBMemo1: TDBMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm15.Button1Click(Sender: TObject);

begin

Adodataset1.Append;

label5.show;

end;

procedure TForm15.FormClose(Sender: TObject; var Action: TCloseAction);

begin

label5.Hide;

form1.show;

end;

end.

unit Unit16;