Интернет-журнал "Домашняя лаборатория", 2007 №4 - Шаман
Name ∙ ���
LastName ∙ �������
Concern ∙ �����������
Address ∙ �����
Phone ∙ �������
Note ∙ ����������
�������. ��������� ������� ORDERSALES
���� ∙ ��������
Idprod ∙ ��� ������
Dateorder ∙ ���� ������
idcust ∙ ��� ����������
numorder ∙ ���������� ����������� ������
Datesale ∙ ���� �������
numsale ∙ ���������� ���������� ������
Note ∙ ����������
�������. ��������� ������� PRODUCTS
���� ∙ ��������
Idprod ∙ ��� ������
Product ∙ ������������ ������
Price ∙ ���� �� ������� ������
Repository ∙ ������� ������ �� ������
Note ∙ ����������
����� ����� ��������� �������������� �� ��������� �������� ����������� ����� idcust � Idprod.
�������� ����� ������ � ����������� �� ����� ��� ������� ���������� �������, ���� �����, ������ ��������� ����, ��������� ������ � ������ ���������� MSFIexGrid. ���������� �������� �������� �� ���.�9.1.
���.�9.1. ������������ ��������� ���������� �� �������� �����
� ���� ������� ������� ������� ���������� ������� ���������� �������� DataBaseName ��� ��� ���� ������ CASTOMER.MDB. ����� ���������� �������� RecordSource ����� ������� ��� CASTOMER. � ������� ������� Data ���������� �������� DataBaseName ����������� �������, � ��� �������� RecordSource ��������� ������� � ���� ��������� � ��� ����� ��������������� ������� ������� �� ����� ���������� ����������. ���� ������ ����� ������� ���������, ��������� ��� �������� Visible � False.
���������� �������� �����, ��������� ���� � ������� MSFIexGrid ��������� �������:
Label1.Caption=���
Label2.Caption=�������
Label3.Caption=�����������
Label4.Caption=��� ����������
Label5.Caption=������
Text1.DataSource=Data1
Text1.DataField=Name
Text2.DataSource=Data1
Text2.DataField=LastName
Text3.DataSource=Data1
Text3.DataField=Concern
Text4.DataSource=Data1
Text4.DataField=Id_Cust
DataSource=Data2
FixedCols=0
FixedRows=1
Cols=2
Rows=2
������ ���������� �������� Caption ��������� ������ ��� ��������� ������� � �������� � ��������� ��������� ������� ������ ��������� ���:
Private Sub Command1_Click()
' ��������� �������� ������ ��� �������
Data2 Dim str As String
str = "SELECT ORDERSALES.Id_prod, PRODUCT.product, PRODUCT.price,
ORDERSALES.num_order, ORDERSALES.Date_order, ORDERSALES.Id_cust, ORDERSALES.Date_sale, ORDERSALES.num_sale FROM ORDERSALES, PRODUCT WHERE ordersales.Id_cust=" + Text4.Text + "AND ordersales.id_prod = product.id_prod"
Data2.RecordSource = str
Data2.Refresh
' ��������� ��������� �������� � ������� MSFlexGrid
s$ = "<��� ������ |<��������. ������ |<���� |<���-�� |<���� ������ |<��� �����. |<���� ������� |<���-�� ����. "
MSFlexGrid1.FormatString = s$
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.row = MSFlexGrid1.Rows � 1
MSFlexGrid1.col = 0 MSFlexGrid1.Text = "�����:"
MSFlexGrid1.col = 1
' ������ ����� ������
Dim i As Integer
Dim sum As Double
sum = 0
For i = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows � 1 sum = sum + Val(MSFlexGrid1.TextArray(GetCellIndex(i, 2))) *
Val(MSFlexGrid1.TextArray(GetCelllndex(i, 3)))
Next
MSFlexGrid1.Text = CStr(sum) + " ���."
MSFlexGrid1.row = 1
MSFlexGrid1.col = 1
End Sub
Function GetCellIndex(row As Integer, col As Integer) As Long GetCellIndex = row * MSFlexGrid1.Cols + col
End Function
��������� � ��������� ������. ��������� ������ ���������� ������� �� ���.�9.2.
���.�9.2. ��������� ������ ����������
���������� ��������� ���� (RichTextBox)������������ �������� ���������� ���� � ����������� ������� ���������� ��� ����������� ��������� ���������� �� ���� ������. ������, � ���� ���� ���� ���������� � ��������� ���� �� ��������� �������������� ������. ���� ���������� ������� � ���� ������ ����� � ���������� ��������������, �� ������ ������������ ���������� ��������� ���� (RichTextBox). ���� ������ ���������� ��������� �������� �� ��������, �������� �������� � ����������� ��������� ������ (����������, ������, ������������ ��� �������������), ������������ ��������� ���� ������������ ������ (�� ������ ���� ����, �� ������� ���� ���� ��� �� ������), ������������� ������� � ������� � ������� � ��.
��� ��� ������� ����������� ����������� ��������� ���� ��������
