📚 Hub Books: Онлайн-чтение книгРазная литератураИнтернет-журнал "Домашняя лаборатория", 2007 №4 - Чернованова

Интернет-журнал "Домашняя лаборатория", 2007 №4 - Чернованова

Шрифт:

-
+

Интервал:

-
+
1 ... 195 196 197 198 199 200 201 202 203 ... 206
Перейти на страницу:
�������� ������� ���� �������->������ ���������� ���������� Microsoft Word. � ����������� ���� ����� ���������� ������ ���� �������� OLE, ������������������ � ����� ������� (���.�8.3).

���.�8.3. ������ OLE-��������, ������������������ � �������

� ����� ���������� �� ������ ������������ ���� ���������� (embedded) ���� ��������� (linked) �������. ���������� OLE-������� �������� ���������� ��� � ����� �������, ��� � � ���������� ��� ��������� � OLE-�������. �������������� ����������� ������� ����� ��������� ������ � ������� ����������-�������. � ����� ������ ��� ��������������� ����. � ������� �� ����������, ��������� OLE-������� � ���� ������ ��������� ����� � �������� � ���������� � ����� ��������� ��������� �������� � ������������ ��������� �������, ����������� � ��.

� ���� ������ ������� MS Access ���������� ������� ��� ������ �� ��������� ������� ������ �������� � ���� ���� OLE Object. �������, ��� ���� �� ��������� ���� ������ � ����������� Microsoft Word, �� ������������� ��� �� ����� ����� ������ �� ����������, �� ������� ��� �� ���������� ���� ��������� ���������.

��������� OLE ����������� � ����� ������ ���������� ������� DataSource � DataField � ��� ����������� �� ������ ������������ � .

���������������� ������������� �������� ���������� OLE-��������� � �����������. ��� ����� �������� ������� ���� �� ���������� ����� ������, ���������� OLE-�������.

�������, ��� � �� ���� ���� ������ OLEOBJ.MDB, ������� ������� OBJ �������� ����, ��� �������� � �������.

�������� ����� ������ � ����������� �� ����� ������ ���������� �������, ��� �����, ��� ��������� ����, OLE-��������� � ��������� ������, ��� �������� �� ���.�8.4.

���.�8.4. ������������ ��������� ���������� �� �������� �����

���������� �������� ������� ���������� ������� ��������� �������. �������� Caption ���������� ��� �OLE �������, �������� DatabaseName ���������� ��� ��� ����� ���� ������ C: WORKDB.MDB � ������� � �������� ��������� ������ (�������� RecordSource) ��� ������� OBJ. ����� ���������� �������� �����, ��������� ����, ���������� OLE � ��������� ������:

Label1.Caption=�������������

Label2.Caption=��������

Text1.DataSource=Data1

Text1.DataField=Id

Text2.DataSource=Data1

Text2.DataField=Desc

OLE1.DataSource=Data1

OLE1.DataField=Obj

Command1.Caption=��������

��������� ������. ���� ���� ���� ������ �� ����� � � ��� ���� �����-���� ������ � OLE-��������� (� ������ ������ � ������� MS Access ������� ��� ������ � �������������� ���������� � ��������), �� �������, ��� � OLE-���������� ����������� ���������� ���� Obj ������ ������ (���.�8.5).

���.�8.5. ��������� ������ ����������

���������� ������� ����� �������������. ������� ������ ������ ���� �� OLE-���������� �������� � ��������� ������������ ���� � ����� ��������: ��������� � ��������. ����� ������� ������ �������� ��� ������������� ���������� OLE-���������� ����� � ����� �������� �����, � �� ����� ��� ����� ������� � �������� � ������� ����������-������� � �������� � ���� ����������� OLE-���������� (���.�8.6). � ������ ������ ��� ����� �������� ������, �������� � �������� ���������� ���������� MS Word. ����� �������� ����������� ��������� �������� ����������-������ � ���������, ��� ���������� �������������� ���������� � ���� ������.

���.�8.6. ������ ����������-�������

����� ������� �� ������� ����������, ������� ��������� �� ������ �������������, �� � ������������� OLE-�������, ���������� � ���� ������. ��� ����� ���� ������ ������ �������: �������������� ���������, �������, ��������� ���������, �������, ��������� � ��.

� ����� ���������� �������� ��������������� ��������� ������ ���������. ��������, ��� ��� ������ ���� ������������� ��� ���������� ����� ������� � ���� ������. ������� � ��������� ��������� ������� ������� ���� ������ ���, ������� �������� ��� ��������� ������ ������ � ����� ������ �������:

Private Sub Command1_Click()

Data1.Recordset.AddNew

OLE1.InsertObjDlg

End Sub.

����� InsertObjDlg OLE-���������� ���������� �� ������ ���������� ���� ������ ���� ������� (���.�8.7). ������� ������-������������� Create New (������� �����), �� ������ �������� ����� ������ � ���� ������, ������ ��������� ��� �� ������ ������������������ � ������� �������� OLE. ����� ������-������������� Create from File (������� �� �����) �������� ��� �������� � ���� ������ ��� ������������ �� ����� ������� ����� OLE-������ (���.�8.8). ��� ���� �� ������ ���������� ����� ����� ������-���������� � ����������� � ���� ������ ��������, ������� ����������� ��������� Link (���������� �����).

���.�8.7. ���������� ���� ������� �������

���.�8.8. ������� ������� �� �����

������ � ������� ������ ���������� �� ������ �� ������ ������������� � ������������� OLE-������� � ���� ������, �� � ��������� �����, �������������� ������ ��� ���. ������ � ����� ������ ��������, ��� �������, ������� ������ ����. ��� �������� ������� ���������� ���� ����� ������������ ����� CreateEmbed ������� OLE-���������. ����� ����� ��������� ���������:

object.CreateEmbed sourcedoc, class.

��������� ��������� object ���������� ��� ������� OLE-����������. ������ �������� � sourcedoc �������� ������������ � ���������� ��� ����� ���������, ������������� ��� ������ ��� ����������� �������. ���� �� �� ����������� ���� ����, �� ���������� ������ ���� �������� � ���� ������ ������ ������ �������� � class �� ���������� �

1 ... 195 196 197 198 199 200 201 202 203 ... 206
Перейти на страницу:

Комментарии

Обратите внимание, что комментарий должен быть не короче 20 символов. Покажите уважение к себе и другим пользователям!

Никто еще не прокомментировал. Хотите быть первым, кто выскажется?