unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls,Comobj;

type
  TForm8 = class(TForm)
    Image1: TImage;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Button1: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit7;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
var x,c,s: variant;
i, index: integer;
  j: Integer;
begin
 x:=CreateOleObject ('Excel.Application');
 x.Visible:=True;
 x.WorkBooks.ADD(-4167);
 x.WorkBooks[1].WorkSheets[1].Name:='Общая' ;
 c:=x.WorkBooks[1].WorkSheets['Общая'].Columns;
 c.Columns[1].ColumnWidth:=30;
 c.Columns[2].ColumnWidth:=20;
 c.Columns[3].ColumnWidth:=10;
 c.Columns[4].ColumnWidth:=10;
 c.Columns[5].ColumnWidth:=10;
 c.Columns[6].ColumnWidth:=20;
 c.Columns[7].ColumnWidth:=30;
 c.Columns[8].ColumnWidth:=30;
 c.Columns[9].ColumnWidth:=20;
 c.Columns[10].ColumnWidth:=20;
 c.Columns[11].ColumnWidth:=20;
 c.Columns[12].ColumnWidth:=20;
 s:=x.WorkBooks[1].WorkSheets['Общая'];
 s.Cells [2,1]:= 'ФИО';
 s.Cells [2,2]:= 'Год_рождения';
 s.Cells [2,3]:= 'Вес';
 s.Cells [2,4]:= 'Рост';
 s.Cells [2,5]:= 'Пол';
 s.Cells [2,6]:= 'Национальность';
 s.Cells [2,7]:= 'ФИО.Мать';
 s.Cells [2,8]:= 'Врач.ФИО';
 s.Cells [2,9]:= 'Наименование';
 s.Cells [2,10]:= 'Название';
 s.Cells [2,11]:= 'Группа_крови';
 s.Cells [2,12]:= 'Доп_информация';
 c:=x.WorkBooks[1].WorkSheets['Общая'].Rows;
 c.Rows[2].Font.Size:=12;
 c.Rows[2].Font.Color:=clgreen;
 c.Rows[2].Font.Bold:=True;
 c.Rows[2].Font.Italic:=True;
 index:=3;
 Dat.ADOQuery1.First;
 for i := 0 to Dat.ADOQuery1.RecordCount - 1 do
 begin
   s.Cells[index,1]:=Dat.ADOQuery1.Fields.Fields[0].AsString;
      s.Cells[index,2]:=Dat.ADOQuery1.Fields.Fields[1].AsString;
         s.Cells[index,3]:=Dat.ADOQuery1.Fields.Fields[2].AsString;
            s.Cells[index,4]:=Dat.ADOQuery1.Fields.Fields[3].AsString;
               s.Cells[index,5]:=Dat.ADOQuery1.Fields.Fields[4].AsString;
                  s.Cells[index,6]:=Dat.ADOQuery1.Fields.Fields[5].AsString;
 s.Cells[index,7]:=Dat.ADOQuery1.Fields.Fields[6].AsString;
    s.Cells[index,8]:=Dat.ADOQuery1.Fields.Fields[7].AsString;
       s.Cells[index,9]:=Dat.ADOQuery1.Fields.Fields[8].AsString;
          s.Cells[index,10]:=Dat.ADOQuery1.Fields.Fields[9].AsString;
             s.Cells[index,11]:=Dat.ADOQuery1.Fields.Fields[10].AsString;
                s.Cells[index,12]:=Dat.ADOQuery1.Fields.Fields[11].AsString;

   inc(index);
   Dat.ADOQuery1.Next;
 end;



end;

procedure TForm8.Edit1Change(Sender: TObject);
begin
if RadioButton1.Checked then
Begin
  Dat.ADOQuery1.Active:=False;
  Dat.ADOQuery1.SQL.Clear;
  Dat.ADOQuery1.SQL.ADD('Select *');
  Dat.ADOQuery1.SQL.ADD ('FROM Общая');
  Dat.ADOQuery1.SQL.ADD ('Where Ребенок.ФИО lIKE ('+#39+Edit1.Text + '%' + #39+')');
  Dat.ADOQuery1.Active:=True;
  End;
if RadioButton2.Checked then
Begin
  Dat.ADOQuery1.Active:=False;
  Dat.ADOQuery1.SQL.Clear;
  Dat.ADOQuery1.SQL.ADD('Select *');
  Dat.ADOQuery1.SQL.ADD ('FROM Общая');
  Dat.ADOQuery1.SQL.ADD ('Where Мать.ФИО lIKE ('+#39+Edit1.Text + '%' + #39+')');
  Dat.ADOQuery1.Active:=True;
End;
if RadioButton3.Checked then
Begin
  Dat.ADOQuery1.Active:=False;
  Dat.ADOQuery1.SQL.Clear;
  Dat.ADOQuery1.SQL.ADD('Select *');
  Dat.ADOQuery1.SQL.ADD ('FROM Общая');
  Dat.ADOQuery1.SQL.ADD ('Where Врач.ФИО lIKE ('+#39+Edit1.Text + '%' + #39+')');
  Dat.ADOQuery1.Active:=True;
End;


end;

end.