Marco Cantù 1998, Mastering Delphi 4
Project: DBOFFICE.DPR
Project Structure
DBOFFICE.DPR
program DBOffice;
uses
Forms,
OfficeForm in 'OfficeForm.pas' {FormOff};
{$R *.RES}
begin
Application.CreateForm(TFormOff, FormOff);
Application.Run;
end.
OFFICEFORM.PAS
unit OfficeForm;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics,
Controls, Forms, DBCtrls, StdCtrls, DBTables,
ExtCtrls, Mask, Db, Dialogs, Excel_TLB, Word_TLB;
type
TFormOff = class(TForm)
DBEdit3: TDBEdit;
Label3: TLabel;
Label2: TLabel;
DBEdit2: TDBEdit;
DBEdit1: TDBEdit;
Label1: TLabel;
DBNavigator1: TDBNavigator;
Table1: TTable;
DataSource1: TDataSource;
BtnWord: TButton;
BtnExcel: TButton;
SaveDialog1: TSaveDialog;
procedure BtnPrintClick(Sender: TObject);
procedure BtnOpenClick(Sender: TObject);
private
IWord: Word_TLB._Application;
IExcel: Excel_TLB._Application;
end;
var
FormOff: TFormOff;
implementation
{$R *.DFM}
uses
ComObj, ActiveX;
procedure TFormOff.BtnPrintClick(Sender: TObject);
var
Bookmark: TBookmark;
IDocument: Word_TLB.Document;
IRange: Word_TLB.Range;
DocVar: variant;
V1: OleVariant;
begin
// create, show, add document
IWord := Word_TLB.CoApplication_.Create;
IWord.Visible := True;
DocVar := IWord.Documents;
DocVar.Add;
IDocument := IWord.ActiveDocument;
// insert title
IRange := IWord.Selection.FormattedText;
IRange.Text := 'American Capitals from ' + Table1.TableName + #13;
IRange.Bold := 1;
IRange.Font.Size := 30;
// disable the UI
Table1.DisableControls;
try
// store the current position
Bookmark := Table1.GetBookmark;
try
// scan the database table
Table1.First;
while not Table1.EOF do
begin
// send the two fields
// DocVar.Add; // adss a new doc
V1 := NULL;
IDocument.Paragraphs.Add (v1);
IRange := IDocument.Paragraphs.Last.Range;
IRange.Text :=
Table1.FieldByName ('Name').AsString + #9 +
Table1.FieldByName ('Capital').AsString + #13;
Table1.Next;
end;
finally
// go back to the bookmark and destroy it
Table1.GotoBookmark (Bookmark);
Table1.FreeBookmark (Bookmark);
end;
finally
// re-enable the controls
Table1.EnableControls;
end;
IRange := IDocument.Content;
IDocument.Tables.Add (IRange, 0, 2);
end;
procedure TFormOff.BtnOpenClick(Sender: TObject);
var
IRange: Excel_TLB.Range;
I, Row: Integer;
Bookmark: TBookmark;
begin
// create and show
IExcel := Excel_TLB.CoApplication_.Create;
IExcel.Visible [0] := True;
IExcel.Workbooks.Add (NULL, 0);
// fill is the first row with field titles
IRange := IExcel.ActiveCell;
for I := 0 to Table1.Fields.Count - 1 do
begin
IRange.Value := Table1.Fields [I].DisplayLabel;
IRange := IRange.Next;
end;
// add field data in following rows
Table1.DisableControls;
try
Bookmark := Table1.GetBookmark;
try
Table1.First;
Row := 2;
while not Table1.EOF do
begin
IRange := IExcel.Range ['A' + IntToStr (Row),
'A' + IntToStr (Row)];
for I := 0 to Table1.Fields.Count - 1 do
begin
IRange.Value := Table1.Fields [I].AsString;
IRange := IRange.Next;
end;
Table1.Next;
Inc (Row);
end;
finally
Table1.GotoBookmark (Bookmark);
Table1.FreeBookmark (Bookmark);
end;
finally
Table1.EnableControls;
end;
// format the section
IRange := IExcel.Range ['A1', 'E' + IntToStr (Row - 1)];
IRange.AutoFormat (1, NULL, NULL, NULL, NULL, NULL, NULL);
end;
initialization
CoInitialize (nil);
end.
OFFICEFORM.DFM
object FormOff: TFormOff
Left = 125
Top = 113
Width = 414
Height = 209
Caption = 'DB Office'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Label3: TLabel
Left = 40
Top = 124
Width = 48
Height = 13
Caption = 'Continent:'
end
object Label2: TLabel
Left = 40
Top = 91
Width = 35
Height = 13
Caption = 'Capital:'
end
object Label1: TLabel
Left = 40
Top = 56
Width = 39
Height = 13
Caption = 'Country:'
end
object DBEdit3: TDBEdit
Left = 104
Top = 120
Width = 169
Height = 21
DataField = 'Continent'
DataSource = DataSource1
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 104
Top = 86
Width = 169
Height = 21
DataField = 'Capital'
DataSource = DataSource1
MaxLength = 24
TabOrder = 1
end
object DBEdit1: TDBEdit
Left = 104
Top = 52
Width = 169
Height = 21
DataField = 'Name'
DataSource = DataSource1
MaxLength = 24
TabOrder = 2
end
object DBNavigator1: TDBNavigator
Left = 0
Top = 0
Width = 406
Height = 25
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel]
Align = alTop
Flat = True
TabOrder = 3
end
object BtnWord: TButton
Left = 296
Top = 67
Width = 89
Height = 25
Caption = '&Word Table'
TabOrder = 4
OnClick = BtnPrintClick
end
object BtnExcel: TButton
Left = 296
Top = 104
Width = 89
Height = 25
Caption = '&Excel Table'
TabOrder = 5
OnClick = BtnOpenClick
end
object Table1: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'COUNTRY.DB'
Left = 16
Top = 48
end
object DataSource1: TDataSource
DataSet = Table1
Left = 16
Top = 96
end
object SaveDialog1: TSaveDialog
DefaultExt = 'DOC'
Filter = 'Word Document (*.doc)|*.doc|Any file (*.*)|*.*'
Options = [ofPathMustExist, ofCreatePrompt]
Left = 16
Top = 136
end
end
Copyright Marco Cantù 1998