���������� �������� �����, ��������� ����, ������ � ���������������� ���� ��������� �������:
��������� � ��������� ������ (���.�8.12). � ��������� ��������� ����� �� �������� ����� ����� ������������ ���������� ����� Name, LastName � Id work �� ������� PERSON. ������ � ��������������� ���� ���������� ���������� ���� ������ �� ������� WORKPLACE, ������ ����� ������ ��������, ������������� ���������� ��������� ����, ����� �������� � ������ ����������. ������������ �� ������ ������� � ������� ������� ������� ���������� ������� ���������� ��������� �� ������, ��� �� ������ �������� ����� ������. �� ������ ��� ���������������� ���� �������� ��������� �������� � ������� �����-���� ������ �� ������ ������� ���������� �������, ����� ����������� ��������� ������� ������ � ���������� ���������� ������. ������ ������� ��������� �� �� �� ������ � ��������� ��� ���������� � ����� ������ �������� � ������������ �� ��������� �������.
���� 9
����� (MSFIexGrid) � ���������� ��������� ���� (RichTextBox)
MSFIexGrid
ActiveX ������ 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 ∙ ���
