Интернет-журнал 'Домашняя лаборатория', 2007 №4 - Коллектив авторов
Шрифт:
Интервал:
Закладка:
���.�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 �� ���������� �