LoveRead.info » Книги » Разная литература » Интернет-журнал "Домашняя лаборатория", 2007 №4 - Коллектив авторов

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

Книгу Интернет-журнал "Домашняя лаборатория", 2007 №4 - Коллектив авторов читаем онлайн бесплатно полную версию! Чтобы начать читать не надо регистрации. Напомним, что читать онлайн вы можете не только на компьютере, но и на андроид (Android), iPhone и iPad. Приятного чтения!

110 0 22:43, 29-10-2022
Интернет-журнал "Домашняя лаборатория", 2007 №4 - Коллектив авторов
29 октябрь 2022

Книга Интернет-журнал "Домашняя лаборатория", 2007 №4 - Коллектив авторов читать онлайн бесплатно без регистрации

Большой и увлекательный, научно-прикладной и образовательный, но некоммерческий интернет-журнал, созданный группой энтузиастов. Интернет-журнал содержит материалы, найденные в Интернет или написанные для Интернет. Основная тематика статей — то, что можно сделать самому, от садовых поделок до сверхпроводников, но есть и просто полезные материалы.

    1 ... 197 198 199 200 201 202 203 204 205 206
    Перейти на страницу:
    ����������

    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). ���� ������ ���������� ��������� �������� �� ��������, �������� �������� � ����������� ��������� ������ (����������, ������, ������������ ��� �������������), ������������ ��������� ���� ������������ ������ (�� ������ ���� ����, �� ������� ���� ���� ��� �� ������), ������������� ������� � ������� � ������� � ��.

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

    1 ... 197 198 199 200 201 202 203 204 205 206
    Перейти на страницу:
    1. Жалоба
    Отзывы - 0

    Прочитали книгу? Предлагаем вам поделится своим отзывом от прочитанного(прослушанного)! Ваш отзыв будет полезен читателям, которые еще только собираются познакомиться с произведением.


    Уважаемые читатели, слушатели и просто посетители нашей библиотеки! Просим Вас придерживаться определенных правил при комментировании литературных произведений.

    • 1. Просьба отказаться от дискриминационных высказываний. Мы защищаем право наших читателей свободно выражать свою точку зрения. Вместе с тем мы не терпим агрессии. На сайте запрещено оставлять комментарий, который содержит унизительные высказывания или призывы к насилию по отношению к отдельным лицам или группам людей на основании их расы, этнического происхождения, вероисповедания, недееспособности, пола, возраста, статуса ветерана, касты или сексуальной ориентации.
    • 2. Просьба отказаться от оскорблений, угроз и запугиваний.
    • 3. Просьба отказаться от нецензурной лексики.
    • 4. Просьба вести себя максимально корректно как по отношению к авторам, так и по отношению к другим читателям и их комментариям.

    Надеемся на Ваше понимание и благоразумие. С уважением, администратор LoveRead.info.


    Установить VPN и читай слушай бесплатно

    Новые отзывы

    1. Анна Анна15 июнь 07:43 [spoiler][книга интересная,но не полная и к концу главы повторяются.... Кириленко Ирина – Бирюк
    2. Вера Вера15 июнь 01:46 Благодарю Автора!!!! Хорошо,что все хорошо кончается! Сюжет-захватывает!!!... Звезда+1 - Алайна Салах
    3. Борис Борис14 июнь 00:50 Колокола в России тем и отличались от западных что раскачиаали именно язык колокола,а не сам колокол! Авторы что-жертвы ЕГЭ? Не... Соединенные Штаты России 3 - Полина Ром
    Все комметарии
    Новинки бесплатной онлайн библиотеки