Вывод выбранных данных в MS Excel

unit Unit20; // !!! Дописать в uses модуль ComObj

interface

Uses

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

Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, jpeg, StdCtrls,ComObj;

type

TForm20 = class(TForm)

Image1: TImage;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Label1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form20: TForm20;

implementation

uses Unit9, Unit11, Unit12, Unit8;

{$R *.dfm}

procedure TForm20.FormCreate(Sender: TObject);

begin

Table1.Active:=true;

end;

procedure TForm20.FormDestroy(Sender: TObject);

begin

Table1.Active:=false;

end;

procedure TForm20.Label1Click(Sender: TObject);

var XLApp,Sheet,Colum:Variant;

i,Index:integer;

begin

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

XLApp.Visible:=true;

XLApp.WorkBooks.Add(-4167);

XLApp.WorkBooks[1].WorkSheets[1].Name:='Отчет';

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:=14;

Sheet:=XLApp.WorkBooks[1].WorkSheets['Отчет'];

Sheet.Cells[1,2]:='Медицинские учреждения';

Sheet.Cells[2,1]:='Название';

Sheet.Cells[2,2]:='Фор.собст.';

Sheet.Cells[2,3]:='Телефон';

Sheet.Cells[2,4]:='Профиль';

Sheet.Cells[2,5]:='Адресс';

Sheet.Cells[2,6]:='Лицензия';

Sheet.Cells[2,7]:='Директор';

Sheet.Cells[2,8]:='Аренда';

index:=3; // С 3-ей строки начинается вывод данных

Form20.Table1.First;

While not(Form20.Table1.Eof) do

begin

for i:=1 to form20.DBGrid1.Columns.Count-1 do

Sheet.Cells[Index,i]:=Form20.Table1.Fields[i].asstring;

inc(Index);

Form20.Table1.Next;

end;

end; end.

Перенос программы управления базой данных на другой компьютер

Довольно часто возникает необходимость переноса созданной программы управления базой данных на другой компьютер, например, для того чтобы продемонстрировать ее своим друзьям или знакомым. В отличие от процесса переноса обычной программы, когда, как правило, достаточно скопировать только выполняемый файл (ЕХЕ-файл), при переносе программы управления базой данных необходимо выполнить перенос BDE.Здесь следует вспомнить, что BDE представляет собой набор программ, библиотек и драйверов, обеспечивающих работу прикладной программы с базой данных. Выполнить перенос BDE на другой компьютер вручную практически невозможно.

Поэтому Borland рекомендует создавать установочную программу, которая выполнит копирование всех необходимых файлов, в том числе и компонентов BDE. В качестве средства создания установочной программы Borland настоятельно рекомендует использовать утилиту InstallShield Express, которая входит в состав всех наборов Delphi. Поставляемая с Delphi версия этой утилиты специально адаптирована к задаче переноса и настройки BDE.

Можно попытаться установить BDE вручную. Ниже перечислены файлы (их имена определены опытным путем), необходимые для работы с базой данных Paradox:

BLW32.DLL, IDAPI32.DLL

• IDBAT32.DLL
• IDPDX32.DLL
• IDR20009.DLL
• USA.BLL
• CHARSET.BLL

Эти файлы нужно установить на компьютер пользователя, затем проверить, что в реестре Windows есть перечисленные ниже разделы и параметры:

• РазделHKEY_LOCAL_MACHINE\Software\Borland\Database
• engine — параметр DLLPATH должен содержать путь к DLL-файлам BDE;
• РазделHKEY_LOCAL_MACHINE\Software\Borland\BLW32 —
• параметр BLAPIPATH должен содержать путь к BLL-файлам BDE.