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

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

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

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

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

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

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

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

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

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]:='Форма собственности';

Sheet.Cells[2,9]:='Часы и дни работы';

index:=3;

DataModule2.BookTable.First;

for i:=0 to DataModule2.BookTable.RecordCount-1 do

begin

Sheet.Cells[index,1]:=DataModule2.BookTable.Fields.Fields[1].AsString;

Sheet.Cells[index,2]:=DataModule2.BookTable.Fields.Fields[2].AsString;

Sheet.Cells[index,3]:=DataModule2.BookTable.Fields.Fields[3].AsString;

Sheet.Cells[index,4]:=DataModule2.BookTable.Fields.Fields[4].AsString;

Sheet.Cells[index,5]:=DataModule2.BookTable.Fields.Fields[5].AsString;

Sheet.Cells[index,6]:=DataModule2.BookTable.Fields.Fields[6].AsString;

Sheet.Cells[index,7]:=DataModule2.BookTable.Fields.Fields[7].AsString;

Sheet.Cells[index,8]:=DataModule2.BookTable.Fields.Fields[8].AsString;

Sheet.Cells[index,9]:=DataModule2.BookTable.Fields.Fields[9].AsString;

Inc(index);

DataModule2.BookTable.Next;

end;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

DataModule2.BookTable.Insert;

EditRecordForm.ShowModal;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

EditRecordForm.ShowModal;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

If Application.MessageBox(PChar('Вы действительно хотите удалить'

+DataModule2.BookTableDSDesigner.AsString), 'Внимание!!!' ,

MB_OKCANCEL)=id_OK then

DataModule2.BookTable.Delete;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

AboutForm.ShowModal;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

AboutForm.ShowModal;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

Close;

end;

end.

3.2 Код модуля unit DataModuleUnit

unit DataModuleUnit;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class(TDataModule)

ADOConnection1: TADOConnection;

BookTable: TADOTable;

DataSource1: TDataSource;

BookTableDSDesigner: TAutoIncField;

BookTableDSDesigner2: TWideStringField;

BookTableDSDesigner3: TWideStringField;

BookTableDSDesigner4: TWideStringField;

BookTableDSDesigner5: TWideStringField;

BookTableDSDesigner6: TWideStringField;

BookTableDSDesigner7: TWideStringField;

BookTableDSDesigner8: TWideStringField;

BookTableDSDesigner9: TWideStringField;

BookTableDSDesigner10: TDateTimeField;

BookTableDSDesigner11: TBooleanField;

TownSourse: TDataSource;

TownTable: TADOTable;

TownTableKey1: TAutoIncField;

TownTableDSDesigner: TWideStringField;

BookTableDSDesigner12: TWideStringField;

FindQuery: TADOQuery;

FindSource: TDataSource;

FindQueryDSDesigner: TAutoIncField;

FindQueryDSDesigner2: TWideStringField;

FindQueryDSDesigner3: TWideStringField;

FindQueryDSDesigner4: TWideStringField;

FindQueryDSDesigner5: TWideStringField;

FindQueryDSDesigner6: TWideStringField;

FindQueryDSDesigner7: TWideStringField;

FindQueryDSDesigner8: TWideStringField;

FindQueryDSDesigner9: TWideStringField;

FindQueryDSDesigner10: TWideStringField;

FindQueryDSDesigner11: TDateTimeField;

FindQueryDSDesigner12: TBooleanField;

procedure BookTableFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

uses Unit1;

{$R *.dfm}

procedure TDataModule2.BookTableFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept:=false;

If copy(BookTableDSDesigner.AsString,1,Length(Form1.FindEdit.Text))=

Form1.FindEdit.Text then

Accept:=true;

end;

end.

3.3. Код модуля TownBookUnit

unit TownBookUnit; форма «города»

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls;

type

TTownBookForm = class(TForm)

DBGrid1: TDBGrid;

OK: TButton;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure OKClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TownBookForm: TTownBookForm;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TTownBookForm.Button1Click(Sender: TObject);

begin

DataModule2.TownTable.Insert;

DBGrid1.SetFocus;

end;

procedure TTownBookForm.Button2Click(Sender: TObject);

begin

if DataModule2.TownTable.Modified then

DataModule2.TownTable.Post;

end;

procedure TTownBookForm.Button3Click(Sender: TObject);

begin

DataModule2.TownTable.Delete;

end;

procedure TTownBookForm.OKClick(Sender: TObject);

begin

TownBookForm.Close;

end;

end.

3.4 код модуля EditFormunit

unit EditFormunit; форма «редактирование данных»

interface

uses

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

Dialogs, StdCtrls, DBCtrls, Mask;

type

TEditRecordForm = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBCheckBox1: TDBCheckBox;

DBLookupComboBox1: TDBLookupComboBox;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

Label7: TLabel;

Label8: TLabel;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Label9: TLabel;

Label10: TLabel;

DBEdit9: TDBEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

Страницы: 1, 2, 3