Интернет-журнал "Домашняя лаборатория", 2007 №4 - Тен
���������� �������� �����, ��������� ����, ������ � ���������������� ���� ��������� �������:
Label1.Caption=���
Label2.Caption=�������
Label3.Caption=������������� ����� ������
Label4.Caption=���������� ����� ������
Text1.DataSource=Data1
Text1.DataField=Name
Text2.DataSource=Data1
Text2.DataField=LastName
Text3.DataSource=Data1
Text3.DataField= Idwork
DBList1.RowSource=Data2
DBList1.ListField=Office
DBList1.DataSource=Data1
DBList1.DataField=Id_work
DBList1.BoundColumn=ID_work
DBCombo1.RowSource=Data2
DBCombo1.ListField=Office
DBCombo1.DataSource=Data1
DBCombo1.DataField= Idwork
DBCombo1.BoundColumn=ID_work
��������� � ��������� ������ (���.�8.12). � ��������� ��������� ����� �� �������� ����� ����� ������������ ���������� ����� Name, LastName � Id work �� ������� PERSON. ������ � ��������������� ���� ���������� ���������� ���� ������ �� ������� WORKPLACE, ������ ����� ������ ��������, ������������� ���������� ��������� ����, ����� �������� � ������ ����������. ������������ �� ������ ������� � ������� ������� ������� ���������� ������� ���������� ��������� �� ������, ��� �� ������ �������� ����� ������. �� ������ ��� ���������������� ���� �������� ��������� �������� � ������� �����-���� ������ �� ������ ������� ���������� �������, ����� ����������� ��������� ������� ������ � ���������� ���������� ������. ������ ������� ��������� �� �� �� ������ � ��������� ��� ���������� � ����� ������ �������� � ������������ �� ��������� �������.
���.�8.12. ��������� ������ ����������
���� 9
����� (MSFIexGrid) � ���������� ��������� ���� (RichTextBox)
MSFIexGridActiveX ������ MSFIexGrid ����� ����������� ��� ����������� �� �������� ����� ������, �������������� � ��������� ����. ���� ����� MSFIexGrid ������� � ����� ������, �� ������ ������������ � ������ ������ ��� ������. ��� ������, ��� �� ������ ��������� �������� ��� ���������� ����� �������, ��������, ��������, ���������, ���������, ������� �����, ����� ����������� � ������, �� �� ������ �������� ������ � ���� ������. ��� ��������� ����� ����� MSFIexGrid � ������� ������������ �������� DataSource, ������� ������������ ��� ��� ���������������� ������� ���������� �������.
����� �������� ������ MSFIexGrid �� ������ ������������, ��������� ������� ���� Project � > Components � �������� �� ������ ��������� ���������� (Controls) Microsoft FlexGrid Control � ����� ������� ������ ��.
����� ����� �� ������ ������������ �������� ����� ����������� -.
�������� Row � Col ������� MSFIexGrid ���������� ��������� ������� ������. ���������� ������� ������ �������� ����� �������� Text, �� ���� ������ � ������� �������� � ��������� ����. ���� ���� �� ���������� ����� ������, ��� ��� � Visual Basic ���� ������� �������������� ������ � ����� � �������. ���� � ������ ��������� ������� �����, �� ���������� ������������ ������� �������������� ����� � ������ CStr, ��������:
MSFlexGrid1.Text=CStr(sum).
� ������ �������, ��� ���������� ����� �� ���������� ����������� ������ ����� ������������ ������� Val, ��������:
sum=sum + Val(MSFlexGrid1.�ext)
�������� Rows � Cols ��������� ���������� ���������� ����� � �������� � �����. ������� ���������� � ����� � �������� ����� ���������� � ������� ������� FixedRows � FixedCols. ���������� ���������� ������������ ��������� FormatString. ��������, ��������� ������ ����������, ��� ���������� ��������� �������� �����:
s$ = "<��� ������ |<���� ���.|<��� �����.|>���-�� |<��������. ������|<���� "
MSFlexGrid1.FormatString = s$
��������� ����� ����� ������������ ����������� �������, ������ � ������ ������ ���������� ��������� ������ ������ � �������, ������� ������ �����, ��� ��� ������ ��������� �����:
s$ = ���|�����|�������"
MSFlexGridl1.FormatString = s$
�������� ��� ���������� ���������� ������������ ������ ��������� �������� TextArray. ��� �������� ����� ���������:
MSFlexGrid1.TextArray(cellindex) [= string]
��� string � ��������� ���������� ������, ������������ ���������� cellindex. �������� cellindex ������������ ����� ������ ������ � ����� � �������������� ��������� �������. � ������ ������� ������������ ������ ������������ ������������ �� ������ ������ �� ����� ���������� ������� � �����, ������������ ��������� Cols. ��� ������� ��������� cellindex ������ ������������ ��������� �������:
Function GetCellIndex(row As Integer, col As Integer) As Long GetCellIndex = row*MSFlexGrid1.Cols + col End Function
��� ��������� �� �������� � ��������� ������� MSFIexGrid ������� �������, ��� ������ ����� � ������� ������� �� � �������, � � ����. ����� �������, ������ ������ �����, � ������� ������ ��������� ���������, �� ����� ���� �������� ������� �������.
��� ������������ ������������� ������� MSFlexGrid �������� ����������, ��������������� ��� ��������� ����� ���� ������, ���������� ���������� � �����������, ��������� ��� ������� � �������.
���� ������ CASTOMER.MDB �������� � ���� ��� �������:
CASTOMER � �������� ���������� � �����������,
ORDERSALES � �������� ���������� � ��������� ��� �������,
PRODUCTS � �������� ����������� � �������.
��������� ������ ���� ������ �������� � ��������� ��������.
�������. ��������� ������� CASTOMER
���� ∙ ��������
Idcust ∙ ���
Откройте для себя мир чтения на siteknig.com - месте, где каждая книга оживает прямо в браузере. Здесь вас уже ждёт произведение Интернет-журнал "Домашняя лаборатория", 2007 №4 - Тен, относящееся к жанру Газеты и журналы / Сделай сам / Хобби и ремесла. Никаких регистраций, никаких преград - только вы и история, доступная в полном формате. Наш литературный портал создан для тех, кто любит комфорт: хотите читать с телефона - пожалуйста; предпочитаете ноутбук - идеально! Все книги открываются моментально и представлены полностью, без сокращений и скрытых страниц. Каталог жанров поможет вам быстро найти что-то по настроению: увлекательный роман, динамичное фэнтези, глубокую классику или лёгкое чтение перед сном. Мы ежедневно расширяем библиотеку, добавляя новые произведения, чтобы вам всегда было что открыть "на потом". Сегодня на siteknig.com доступно более 200000 книг - и каждая готова стать вашей новой любимой. Просто выбирайте, открывайте и наслаждайтесь чтением там, где вам удобно.


