Статьи по программированию
примеры программного кода
Delphi, Kylix, C, C++, SQL, Visual Basic, Bash, Assembler, 1С
Qt, KOL, MFC, Rx Library, Windows, Linux, Mac OS
MS Office (49)
-->Синтез QT и Excel
Опубликовано codeLocker в 08.08.2008 в 11:10.
ОС: Windows Библиотека: Qt 3 Язык: C++ Раздел: ActiveX, COM, CORBA • MS Office • MS Excel
Одна из последних новинок, появившихся в QT версии 3.1 и выше, - это поддержка технологии ActiveX для OS Windows. Это особенно важно для тех, кто разрабатывает приложения, которые, могут например импортировать свои данные в другие приложения, например, вставлять данные в Excel.
-->Примеры работы с репортами
Опубликовано codeLocker в 24.07.2008 в 13:58.
ОС: Windows Язык: Delphi/Kylix Раздел: ActiveX, COM, CORBA • MS Office • MS Access
In the next small example I'll demonstrate how you can call the report in MS Access:
var
Access: Variant;
begin
// open the Access application
try
Access := GetActiveOleObject('Access.Application');
except
Access := CreateOleObject('Access.Application');
end;
Access.Visible := True;
// open the database
//The second parameter specifies whether you want to open the database in Exclusive mode
Access.OpenCurrentDatabase('C:\My Documents\Books.mdb', True);
// open the report
Access: Variant;
begin
// open the Access application
try
Access := GetActiveOleObject('Access.Application');
except
Access := CreateOleObject('Access.Application');
end;
Access.Visible := True;
// open the database
//The second parameter specifies whether you want to open the database in Exclusive mode
Access.OpenCurrentDatabase('C:\My Documents\Books.mdb', True);
// open the report
Как можно открыть отчёт (в режиме Print Preview а также print direct) в MS Access ?
Опубликовано codeLocker в 24.07.2008 в 13:53.
ОС: Windows Язык: Delphi/Kylix Раздел: ActiveX, COM, CORBA • MS Office • MS Access
var
Access: Variant;
begin
// Открываем Access
try
Access := GetActiveOleObject('Access.Application');
except
Access := CreateOleObject('Access.Application');
end;
Access.Visible := True;
// Открываем базу данных
// Второй параметр указывает - будет ли база открыта в Exclusive режиме
Access.OpenCurrentDatabase('C:\My Documents\Books.mdb', True);
// открываем отч?т
Access: Variant;
begin
// Открываем Access
try
Access := GetActiveOleObject('Access.Application');
except
Access := CreateOleObject('Access.Application');
end;
Access.Visible := True;
// Открываем базу данных
// Второй параметр указывает - будет ли база открыта в Exclusive режиме
Access.OpenCurrentDatabase('C:\My Documents\Books.mdb', True);
// открываем отч?т
Использование COM объекта Outlook
Опубликовано codeLocker в 19.07.2008 в 13:17.
ОС: Windows Язык: Delphi/Kylix Раздел: ActiveX, COM, CORBA • MS Office • MS Outlook
Пример отсылки письма используя COM объект Outlook
uses Outlook_TLB;
var outlook : _application;
Procedure Init;
begin
outlook := Coapplication_.Create;
end;
procedure SendEmail;
begin
with Outlook.CreateItem(olMailItem) as mailitem do
begin
To_ := 'email@email.com';
cc:='email2@email.com';
Subject := 'This is subject line';
Attachments.Add('FileName',1,1,'This is attachment');
Body :='This is email body';
Send;
end;
end;
var outlook : _application;
Procedure Init;
begin
outlook := Coapplication_.Create;
end;
procedure SendEmail;
begin
with Outlook.CreateItem(olMailItem) as mailitem do
begin
To_ := 'email@email.com';
cc:='email2@email.com';
Subject := 'This is subject line';
Attachments.Add('FileName',1,1,'This is attachment');
Body :='This is email body';
Send;
end;
end;
Создаём Excel файл без OLE
Опубликовано codeLocker в 17.07.2008 в 09:30.
ОС: Windows Язык: Delphi/Kylix Раздел: ActiveX, COM, CORBA • MS Office • MS Excel
const
CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0);
CXlsEof: array[0..1] of Word = ($0A, 00);
CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
CXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0);
CXlsRk: array[0..4] of Word = ($27E, 10, 0, 0, 0);
procedure XlsBeginStream(XlsStream: TStream; const BuildNumber: Word);
begin
CXlsBof[4] := BuildNumber;
XlsStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
end;
procedure XlsEndStream(XlsStream: TStream);
begin
CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0);
CXlsEof: array[0..1] of Word = ($0A, 00);
CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
CXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0);
CXlsRk: array[0..4] of Word = ($27E, 10, 0, 0, 0);
procedure XlsBeginStream(XlsStream: TStream; const BuildNumber: Word);
begin
CXlsBof[4] := BuildNumber;
XlsStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
end;
procedure XlsEndStream(XlsStream: TStream);
begin
Метки
образец составления графика работы
Спонсоры проекта:
Навигация
Сейчас на сайте
Сейчас на сайте 0 пользователей и 1 гость.
Статистика
Всего материалов: 1387