Interface

uses

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

Dialogs, StdCtrls, DBCtrls, DB, ADODB, Grids, DBGrids,ComObj, FR_DSet,

FR_DBSet, FR_Class, ExtCtrls, FR_View, jpeg;

type

TForm3 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

DBGrid1: TDBGrid;

frReport1: TfrReport;

frDBDataSet1: TfrDBDataSet;

Img1: tImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

E:variant;

Implementation

uses Unit2, Unit4, Unit6, Unit5, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Form4.show;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form2.ADOQuery1.Active:=false;

form2.ADOQuery1.SQL.Clear;

form2.ADOQuery1.SQL.Append('SELECT EmplTB.FIO, EmplTB.Post, PostTB.Oklad FROM PostTB INNER JOIN EmplTB ON PostTB.ID = EmplTB.Post_id');

Form2.ADOQuery1.Active:=true;

Form3.frReport1.LoadFromFile('otchet1.frf');

frReport1.ShowReport;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

form6.show;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

Form5.show;

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

close;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

QuickReport9.Preview;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Form2.ADOQuery1.Active:=false;

form2.ADOQuery1.SQL.Clear;

form2.ADOQuery1.SQL.Append('SELECT EmplTB.FIO, EmplTB.Post, PostTB.Oklad FROM PostTB INNER JOIN EmplTB ON PostTB.ID = EmplTB.Post_id');

Form2.ADOQuery1.Active:=true;

end;

end.

unit Unit4;

Interface

uses

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

Dialogs, DB, ADODB, StdCtrls, DBCtrls, Grids, DBGrids,ComObj, FR_DSet,

FR_DBSet, FR_Class;

type

TForm4 = class(TForm)

Button1: TButton;

ComboBox1: TComboBox;

Button2: TButton;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

frReport1: TfrReport;

frDBDataSet1: TfrDBDataSet;

Label1: TLabel;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

ADOTable1: TADOTable;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1dt_n: TWideStringField;

ADOTable1dt_ok: TWideStringField;

ADOTable1post: TWideStringField;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

Implementation

uses Unit2, Unit7, Unit10;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

if combobox1.text='' then showmessage('Сначала выберите сотрудника') else

begin

Form4.ADOQuery1.Active:=false;

Form4.ADOQuery1.SQL.Clear;

Form4.ADOQuery1.SQL.Add('SELECT PostTB.Nam, EmplTB.FIO, EmplTB.Acept_Dt, EmplTB.Addr_S, EmplTB.Addr_D, EmplTB.Addr_K, EmplTB.Tel FROM PostTB INNER JOIN EmplTB ON PostTB.ID = EmplTB.Post_id WHERE (((PostTB.Nam)="'+combobox1.Text+'"));');

Form4.ADOQuery1.Active:=True;

frReport1.LoadFromFile('otchet2.frf');

dbgrid2.DataSource.DataSet.First;

while not dbgrid2.DataSource.DataSet.Eof do

begin

dbgrid2.DataSource.DataSet.Delete;

end;

dbgrid2.DataSource.DataSet.Insert;

dbgrid2.DataSource.DataSet.FieldByName('post').Text:=combobox1.Text;

dbgrid2.DataSource.DataSet.Next;

frReport1.ShowReport;

close;

combobox1.Text:='';

end;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

combobox1.Items.Clear;

form2.DBGrid1.DataSource.DataSet.First;

while not form2.DBGrid1.DataSource.DataSet.eof do

begin

combobox1.Items.Add(form2.DBGrid1.DataSource.DataSet.fieldbyname('nam').Text);

form2.DBGrid1.DataSource.DataSet.Next;

end;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

close;

Form4.Combobox1.Text:='';

end;

end.

unit Unit5;