Интернет-журнал "Домашняя лаборатория", 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). ���� ������ ���������� ��������� �������� �� ��������, �������� �������� � ����������� ��������� ������ (����������, ������, ������������ ��� �������������), ������������ ��������� ���� ������������ ������ (�� ������ ���� ����, �� ������� ���� ���� ��� �� ������), ������������� ������� � ������� � ������� � ��.

��� ��� ������� ����������� ����������� ��������� ���� ��������