Отбасылық дәрігерлік амбулатория жобасын құру

Sheet.Cells[7,2]:='Тегі';

Sheet.Cells[7,3]:='Акесінін аты';

Sheet.Cells[7,4]:='Мекен-жайы';

Sheet.Cells[7,5]:='Телефоны';

Sheet.Cells[7,6]:='Диагнозы';

Sheet.Cells[7,7]:='Туган  жылы';

index:=8;

Data.poisk_pasient.First;

for i:=0 to Data.poisk_pasient.RecordCount-1 do

  begin

   Sheet.Cells[3,2]:=Data.poisk_pasient.Fields.Fields[1].AsString;

   Sheet.Cells[4,2]:=Data.poisk_pasient.Fields.Fields[2].AsString;

   Sheet.Cells[5,2]:=Data.poisk_pasient.Fields.Fields[3].AsString;

   Sheet.Cells[index,1]:=Data.poisk_pasient.Fields.Fields[4].AsString;

   Sheet.Cells[index,2]:= Data.poisk_pasient.Fields.Fields[5].AsString;

   Sheet.Cells[index,3]:=Data.poisk_pasient.Fields.Fields[6].AsString;

   Sheet.Cells[index,4]:=Data.poisk_pasient.Fields.Fields[7].AsString;

   Sheet.Cells[index,5]:=Data.poisk_pasient.Fields.Fields[8].AsString;

   Sheet.Cells[index,6]:= Data.poisk_pasient.Fields.Fields[9].AsString;

   Sheet.Cells[index,7]:= Data.poisk_pasient.Fields.Fields[10].AsString;

   Inc(index);

   Data.poisk_pasient.Next;

  end;

end;

 

procedure TForm2.N5Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=15;

Colum.Columns[2].ColumnWidth:=15;

Colum.Columns[3].ColumnWidth:=15;

Colum.Columns[4].ColumnWidth:=15;

Colum.Columns[5].ColumnWidth:=15;

Colum.Columns[6].ColumnWidth:=15;

Colum.Columns[7].ColumnWidth:=10; Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=12;

    Colum.Rows[7].Font.Color:=clred;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,3]:='         Кабылдау уакыттары';

Sheet.Cells[3,1]:='Аудан:';

Sheet.Cells[4,1]:='Дарігер:';

Sheet.Cells[5,1]:='Медбике:';

Sheet.Cells[7,1]:='Дуйсенбі';

Sheet.Cells[7,2]:='Сейсенбі';

Sheet.Cells[7,3]:='Сарсенбі';

 Sheet.Cells[7,4]:='Бейсенбі';

Sheet.Cells[7,5]:='Жума';

Sheet.Cells[7,6]:='Сенбі';

Sheet.Cells[7,7]:='Жексенбі';

index:=8;

Data.info_vrach.First;

for i:=0 to Data.info_vrach.RecordCount-1 do

  begin

   Sheet.Cells[3,2]:=Data.info_vrach.Fields.Fields[4].AsString;

   Sheet.Cells[4,2]:=Data.info_vrach.Fields.Fields[5].AsString;

   Sheet.Cells[5,2]:=Data.info_vrach.Fields.Fields[6].AsString;

   Sheet.Cells[index,1]:=Data.info_vrach.Fields.Fields[7].AsString;

   Sheet.Cells[index,2]:= Data.info_vrach.Fields.Fields[8].AsString;

   Sheet.Cells[index,3]:=Data.info_vrach.Fields.Fields[9].AsString;

   Sheet.Cells[index,4]:=Data.info_vrach.Fields.Fields[10].AsString;

   Sheet.Cells[index,5]:=Data.info_vrach.Fields.Fields[11].AsString;

   Sheet.Cells[index,6]:= Data.info_vrach.Fields.Fields[12].AsString;

   Sheet.Cells[index,7]:= Data.info_vrach.Fields.Fields[13].AsString;

   Inc(index);

   Data.info_vrach.Next;

  end;

end;

 

procedure TForm2.N7Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=15;

Colum.Columns[2].ColumnWidth:=15;

Colum.Columns[3].ColumnWidth:=15;

Colum.Columns[4].ColumnWidth:=15;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=15;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=12;

    Colum.Rows[7].Font.Color:=clred;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,3]:='         Жас сабилер';

Sheet.Cells[3,1]:='Аудан:';

Sheet.Cells[4,1]:='Дарігер:';

Sheet.Cells[5,1]:='Медбике:';

Sheet.Cells[7,1]:='Аты';

Sheet.Cells[7,2]:='Тегі';

Sheet.Cells[7,3]:='Акесінін  аты';

Sheet.Cells[7,4]:='Туган  жылы';

Sheet.Cells[7,5]:='Мекен-жайы';

Sheet.Cells[7,6]:='Телефоны';

index:=8;

Data.poisk_rebenok.First;

for i:=0 to Data.poisk_rebenok.RecordCount-1 do

  begin

   Sheet.Cells[3,2]:=Data.poisk_rebenok.Fields.Fields[1].AsString;

   Sheet.Cells[4,2]:=Data.poisk_rebenok.Fields.Fields[2].AsString;

   Sheet.Cells[5,2]:=Data.poisk_rebenok.Fields.Fields[3].AsString;

   Sheet.Cells[index,1]:=Data.poisk_rebenok.Fields.Fields[4].AsString;

   Sheet.Cells[index,2]:= Data.poisk_rebenok.Fields.Fields[5].AsString;

   Sheet.Cells[index,3]:=Data.poisk_rebenok.Fields.Fields[6].AsString;

   Sheet.Cells[index,4]:=Data.poisk_rebenok.Fields.Fields[8].AsString;

   Sheet.Cells[index,5]:=Data.poisk_rebenok.Fields.Fields[10].AsString;

   Sheet.Cells[index,6]:= Data.poisk_rebenok.Fields.Fields[11].AsString;

     Inc(index);

   Data.poisk_rebenok.Next;

  end;

end;

end.

 

Тізім

unit Unit3;

interface

uses

  SysUtils, Classes, ADODB, DB;

type

  TData = class(TDataModule)

    ADOConnection1: TADOConnection;

    kvartal: TADOQuery;

    kvartalSource1: TDataSource;

    info_vrachSource2: TDataSource;

    info_vrach: TADOTable;

    info_pasient: TADOTable;

    Info_pasientSource1: TDataSource;

    poisk_pasient: TADOQuery;

    poisk_pasientSource1: TDataSource;

    info_rebenok: TADOTable;

    info_rebenokSource1: TDataSource;

    poisk_rebenok: TADOQuery;

    poisk_rebenokSource1: TDataSource;

    poisk_vrach: TADOQuery;

    poisk_vrachSource1: TDataSource;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Data: TData;

implementation

{$R *.dfm}

end.

 

 

Бағдарлама  жайлы

unit Unit4;

interface

uses

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

  Dialogs, SkinEngine, jpeg, ExtCtrls, StdCtrls;

type

  TForm4 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

   Image1: TImage;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

{$R *.dfm}

end.