Implementation

uses Unit11, Unit12, Unit1, Unit20;

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

Form12.show;

end;

procedure TForm10.Button3Click(Sender: TObject);

begin

form20.show;

end;

end.

unit Unit11;

Interface

uses

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

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

type

TForm11 = class(TForm)

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

DBText1: TDBText;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit5: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

ADOTable1: TADOTable;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

Implementation

uses Unit1, Unit20, Unit10;

{$R *.dfm}

procedure TForm11.FormCreate(Sender: TObject);

begin

adodataset1.Append;

end;

procedure TForm11.Button1Click(Sender: TObject);

begin

adodataset1.Post;

adodataset1.Append;

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

form20.ADOdataset1.Active := false;

form20.ADOdataset1.Active := true;

form10.show;

form11.Hide;

end;

end.

unit Unit12;

Interface

uses

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

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

Mask;

type

TForm12 = class(TForm)

DataSource1: TDataSource;

DataSource2: TDataSource;

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

ADODataSet2: TADODataSet;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Edit1: TEdit;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DataSource3: TDataSource;

Button1: TButton;

Label6: TLabel;

ADODataSet3: TADODataSet;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

ADODataSet4: TADODataSet;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

Label7: TLabel;

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

Implementation

{$R *.dfm}

procedure TForm12.Edit1Change(Sender: TObject);

begin

adodataset1.close;

adodataset1.CommandText := 'select * from заявки where ' + 'Должность like''%'+ edit1.Text + '%''';

adodataset1.open;

adodataset2.close;

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

adodataset2.open;

end;

procedure TForm12.Button1Click(Sender: TObject);

begin

ADODataset3.Append;

ADODataset3.FieldByName('ФИО').asstring:= adodataset2.FieldByName('ФИО').asstring;

ADODataset3.FieldByName('Должность').asstring:= adodataset1.FieldByName('Должность').asstring;

ADODataset3.FieldByName('Организация').asstring:= adodataset1.FieldByName('Организация').asstring;

ADODataset3.FieldByName('Статус').asstring:= label6.Caption;

ADODataset3.Post;

adodataset1.Delete;

adodataset2.Delete;

label7.show;

end;

procedure TForm12.FormCreate(Sender: TObject);

begin

adodataset3.Append;

end;

end.

unit Unit13;