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

��������� � ������� ����������� ��������� (Check box) ����� ������������ ��� ���������� ������������� �� �������� ����� ���������� �� ����� ���� ������ ����������� ���� (�� ��� ���, 1 ��� 0, True ��� False). ��������� ����� ������ ����� �������: ������� ��� �� ������� ���� � ��� ���������� ������� ���������� �������, ���� ����� �� ������ ��� ��� � ��� ������������� ���������� ���������, ���������� ���������� ��� ��� � � ������� ������ � ������������ (���.�7.3) � �.��. �� 17 ������ ������������ Visual Basic ����������� ��������� ��������� ������������ . ����� ������������ ���������� � �������� ���������� ������� �������������� ���������� ������� DataSource � DataField.

���.�7.3. ������ ������������� ������������ ����������

��������, ��� ������������ ����� ��������� ������ ��� ����� ���������� � ���� ������. �������, �� ��������� ���� ���, ��� ������ �� ������. ���������� ��������� �������� ��� ��������� ������������� ��������� ������������� ��� ����� ����������� ���������� ���� �������������� � ������ (MaskedEdit) ���� ������� ���������� ��������� ��� �� �������� � ���� ����� ������� ��������. �������� ����� ���������� ����� ��������� ����� �������� ��� �������� ������. �������� ����� �������� ����� ��������� ������, ��� ������ � ������ �������� ��������� ��������, � ������ # ���������� ����� �����:

(###)###-##-##

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

���� �������������� � ������ ����� �������� Mask (�����), ������� ��������� ���������� ������ ������������ ������ � ���� �����. �� ��������� �������� Mask �� ���������� � ��������� ������� Mask ��������� ���������� �������� ���������� ����. �������, ������� ������������ � �������� ����� ��������� � �������.

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

������ -���������

# - ����� �����

∙�- ���������� ����� (��������, 3.1415),

,�- ����������� ����� (��������, 1,000,000)

: - ����������� ������� (��������, 21:30)

/ - ����������� ���� (��������, 05/08/97)

& - ����� ������

A�- ����� ����� ��� �����

?�- ����� �����

� ����� ���� ������ ������ MaskedEdit ����������� ���������� ������� DataSource � DataField.

�������� ������� ���������� � ������� ����� ����������� ����������� ������������� � ���� ������� ��������� ��������� ����������. ��������, ��������, ��� ������ ���������� VisData ��� MS Access ���� ������ CUSTOMER.MDB � ����� �������� CUSTOMERS, � ������� ����� ������� ���������� � �����������. ����� ��� ������� ����� ��������� ��������� ����:

��� ��� ���� ���������� ����� ������� ���������� ��������� ����������� ���� ������, �� �������������� �������� � ������� CUSTOMERS ��������� ������������ �������.

�������� ����� ������ � ����������� �� ����� ������ ���������� �������, ���� �����, ���� ��������� ����, ���� �������������� � ������ � ���� ����������� ���������, ��� �������� �� ���.�7.4.

���.�7.4. ������������ ��������� ���������� �� �������� �����

������ � ���� ������� ������� Data1 ���������� �������� Caption, ��� �����������, ���������� �������� DatabaseName ��� ��� ����� ���� ������ � ��������� ������� ���� C: WORK CUSTOMER.MDB � ������� ��� ������� Customers � �������� ��������� ������ RecordSource.

����� ���������� �������� �����, ��������� ����, ���� �������������� � ������ � ������������ ���������� ��������� �������:

L���l1.���tion=���

L���l2.���tion=�������

L���l3.���tion=�����������

L���l4.���tion=�����

L���l5.���tion=�������

L���l6.���tion=����������

Text1.DataSource=Data1

Text1.DataField=Name

Text2.DataSource=Data1

Text2.DataField=LastName

Text3.DataSource=Data1

Text3.DataField=Concern

Text4.DataSource=Data1

Text4.DataField=Address

Text5.DataSource=Data1

Text5.DataField=Note

MaskedEdit1.DataSource=Data1

MaskedEdit1.DataField=Phone

MaskedEdit1.Mask=(###)###-##-##

Check1.Caption=���������� ����������

Check1.DataSource=Data1

Check1.DataField=Const

����� Label7 ����� ������������ ���������� ���������� ����, � ������� ������������ ���������� ���� Note (����������). ��� ����� ���������� ��������� ��������:

Label6.DataSource=Data1

Label6.DataField=Note

������ ��������� � ��������� ������. ��������� ������ ���������� ������� �� ���.�7.5.

���.�7.5. ��������� ������ ����������

��� ����������� �� ����� ����������� �������� � ������� Windows (������� ����� � ����� � ����������� BMP, ����� � ICO � ��������� � WMF), � ����� �������� � �������� GIF � JPG ����� ������������ �������� ���������� Image (�����������) � Picture Box (����������� ����). ����������� ��� ������� ���������� � ����� ������ ���������� ��� ��� �� ������� DataSource � DataField � �� ������ ������������ Visual Basic ���������� ������������� �� ���������������.

���� ��� �������� ���������� � ������ ����� ����, ���