Interface

uses

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

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

FR_Class, ComCtrls;

type

TForm6 = class(TForm)

ComboBox1: TComboBox;

Button1: TButton;

Button2: TButton;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

frReport1: TfrReport;

frDBDataSet1: TfrDBDataSet;

Label1: TLabel;

Button3: TButton;

DateTimePicker1: TDateTimePicker;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

Implementation

uses Unit2, Unit7, Unit11, Unit4;

{$R *.dfm}

procedure TForm6.FormCreate(Sender: TObject);

begin

combobox1.Items.Clear;

form2.DBGrid2.DataSource.DataSet.First;

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

begin

combobox1.Items.Add(form2.DBGrid2.DataSource.DataSet.fieldbyname('fio').Text);

form2.DBGrid2.DataSource.DataSet.Next;

end;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

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

begin

Form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Clear;

form6.ADOQuery1.SQL.Append('SELECT ClientsTB.FIO, ClientsTB.Org, ClientsTB.Addr_S, ClientsTB.Addr_D, ClientsTB.Addr_K, ClientsTB.Tel, clientsTB.sotrud FROM ClientsTB WHERE (((ClientsTB.sotrud)="'+Combobox1.Text+'"));');

form6.ADOQuery1.Active:=true;

frReport1.LoadFromFile('otchet3.frf');

frReport1.ShowReport;

close;

Form6.Combobox1.Text:='';

end;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

close;

Form6.Combobox1.Text:='';

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

form4.dbgrid2.DataSource.DataSet.First;

while not form4.dbgrid2.DataSource.DataSet.Eof do

begin

form4.dbgrid2.DataSource.DataSet.Delete;

end;

form4.dbgrid2.DataSource.DataSet.Insert;

form4.dbgrid2.DataSource.DataSet.FieldByName('dt_n').Text:=datetostr(DateTimePicker1.date);

form4.dbgrid2.DataSource.DataSet.Next;

FRReport1.LoadFromFile('otchet5.frf');

FRReport1.ShowReport;

end;

procedure TForm6.RadioButton1Click(Sender: TObject);

begin

DateTimePicker1.Visible:=false;

Button1.Visible:=true;

Button3.Visible:=false;

end;

procedure TForm6.RadioButton2Click(Sender: TObject);

begin

DateTimePicker1.Visible:=false;

Button1.Visible:=false;

Button3.Visible:=true;

end;

end.

unit Unit7;

Interface

uses

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

Dialogs, StdCtrls;

type

TForm7 = class(TForm)

Button1: TButton;

Edit1: TEdit;

OpenDialog1: TOpenDialog;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button5: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;