Книги онлайн и без регистрации » Разная литература » Интернет-журнал "Домашняя лаборатория", 2007 №4 - Чернованова

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

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 ... 196 197 198 199 200 201 202 203 204 ... 206
Перейти на страницу:
���������� ����� ����������� �������. ���� �������� ������������, ���� ��������� �������� sourcedoc.

����� �� �������� ����� ���������� OLE-������ ��� ������ ������ CreateEmbed, ����������-������, ������������ ������ ������ � class, ������ ���� ��������� ���������������� � ����� �������. ���������� ������ �������� ����� ������ � ���� ������� OLE-���������� �������� Class � ����� ������ ������ � ����� �������. �������� ���� �� ������� ���� ������������������ ������� (���.�8.9).

���.�8.9. ���� ������ ������

�������� Class ������� OLE-��������� ���������� ��� ������ ����������� ������� ��������� �������:

application.objecttype.version

objecttype.version

��� application ���������� ����������, objecttype ���������� ��� ������� � ���������� �������� ���������� � version ���������� ����� ������. ��������, ����������� ������� MS Ecxel ����� ������ ������������ ��������� �������� � ������� ����� (worksheets) � ��������� (charts). ��������������� ����� ������� � Excel.Sheet.5 � Excel.Chart.5.

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

Private Sub Command1_Click()

Data1.Recordset.AddNew

OLE1.CreateEmbed "Equation.2"

End Sub

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

��������� ���� ������ (Data-bound list box) � ��������� ��������������� ���� (Data-bound combo box)

��������� � ������� ���� ������ � ��������������� ���� � ������� �� ����� ������� �������� List � Combo box ���������� ����������� ��� ������������� � ���� � �� �������� �������������� � ��������� ���� ��� ����������� �� �������� ����� ���������� �� ���� ������ � ���� �������.

�� ��������� ����������� ���� ��������� ���������� ����������� �� ������ ������������ Visual Basic. ����� �� ��������, ���� ��������� ������� ���� Project � > Components, ������� �� ������ ��������� ���������� (Controls) Microsoft data bound list controls � ����� ������ ������ OK (���.�8.10). � ������������ ���������� �������� ������ ������ ������� ���� �� ������ ������������.

������������ ���� �������� ����� ��������� ��������� ����������: (��������� ������) ���(��������� ��������������� ����) �� ������ ������������. ������ �� ������ ��������� ��� ������� ���������� � ������� ����� ���������� ������ ������������ �� � ������ ������������ �� �������� �����.

���.�8.10. ������ ��������� ���������� Visual Basic

������� ���������� Data-bound list box � Data-bound combo box ����� ���� �������, ��������� ������� ���������� �� ��������� ��� ��������� � ������� ��������� ����������. ������� �������� ���� ������� ��������� � �������.

�������. �������� ���������� ������ � ���������� ���������������� ����

�������� ∙ ��������

RowSource ∙ ��� ������� ���������� �������, ������� ������������ ��� ���������� ������.

ListField ∙ ��� ���� � ������ �������, ������������ ��������� RowSource, ������� ������������ ��� ���������� ������.

DataSource ∙ ��� ������� ���������� �������, � ������� ����������� ������.

DataField ∙ ��� ���� � ������ �������, ������������ ��������� DataSource. ��� ���� ������������ ��� �����������, ����� �������� ������ ������. ����� ������ �������� ������ � ����������� ��������� ������� ������ �� ������ ������ ��� ���� ����� ���������.

BoundColumn ∙ ��� ���� � ������ �������, ������������ ��������� RowSource, �������� �������� ����� �����������.

���� ������������ ���������� DataField � BoundColumn, ������ ���� ������ ����.

�������� ������ �������� ����������, � ������� �������� �� �������� ��� ������������ ��������� ������ � ��������� ��������������� ���� ��� ����� � �������.

����� ������������ ���� ������ FRIENDS.MDB, ������� ���� ������� ����� ��� ������������ ��������� ������������ ���������� VisData � ������ �����. ��� ���� ������ ������� �� ���� ������: PERSON, � ������� ��������� ������������ ���������� � ����� ��������, � WORKPLACE, ���������� �������� �� �� ������ ������ ��� �����. ����� ����� ��������� �������������� �� ��������� ����������� ����������� ����� Id work.

� ���������� ��������� ������� ��������� �������� ��������� ����� ����� ������ � ��������� ��������� �����. ����� ����, ����������� ������������ ����������� ���������� ������ � ����� ������ � ������� ������ ����������� �������� �� ���������� ������ ��� ���������� ���������������� ����. �������, ��� � ���� ������ ����� �� ������ ��������� ����������� ����� ���� ������ ������ ������ �� ������ ������� WORKPLACE.

�������� ����� ������ � ����������� �� �������� ����� ��� ������� ���������� �������, ��������� ������, ��������� ��������������� ����, ������ ����� � ��� ��������� ����, ��� �������� �� ���.�8.11.

���.�8.11. ������������ ��������� ���������� �� �����

� ���� ������� ������� ������� ���������� ������� ���������� �������� DataBaseName ��� ��� ���� ������ FRIENDS.MDB � ��������� ������� ���� � �����. ����� ���������� �������� RecordSource ��� PERSON. ������������� ������ �� ��������� ����� ������� ���������� ���� ����������� ������������ ������������ �� ������ � ������ � ������� PERSON. � ������� ������� ���������� ������� ���������� �������� DataBaseName ����������� ������� � ���������� �������� ������� ��� ��������� SQL-������:

SELECT Idwork, Office FROM WORKPLACE ORDER BY Id_work.

� ���������� ���������� ����� ������� ����� ������ ����� �������, ���������� �������� ����� Id work � Office, � ������������� �� ���� Id work. � ��������, ������ ������ ���������� ������� ����� ������� ���������, ��������� ��� �������� Visible � False, ��� ��� ��� ������

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

Комментарии
Минимальная длина комментария - 20 знаков. В коментария нецензурная лексика и оскорбления ЗАПРЕЩЕНЫ! Уважайте себя и других!
Комментариев еще нет. Хотите быть первым?