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

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

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

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

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

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

    1 ... 187 188 189 190 191 192 193 194 195 ... 206
    Перейти на страницу:

    5.��������� � ������ General ��������� ���:

    Dim � As Integer

    Dim A(4) As String Dim B(4) As String

    6.��������� � ��������� �������� ����� ��������� ���:

    Private Sub Form_Load()

    �(0) = "���������"

    �(1) = "���� �������"

    �(2) = "ISBN"

    �(3) = "��. ��������"

    For i = 0 �� 3 Combol.AddItem A(i)

    Next i

    Combo1.Listlndex = 0 B(0) = "Title"

    B(l) = "[Year Published]"

    B(2) = "ISBN"

    B(3) = "PubID"

    End Sub

    7.��������� � ��������� ��������� ������� Click �������� ���������� ComboBox ��������� ���: Private Sub Combol_Click()

    Dim strl As String strl = "select * From titles order by " & B(Combo1.Listlndex)

    If Combo1.Listlndex = Empty Then strl = "select * From titles"

    End If

    Data1.RecordSource = strl

    Data1.Refresh

    End Sub

    8.���������� ������ �� ����������.

    ����� �������� �����, ������ � ������� DBGrid ����� ���������� � ��������������� ����, ������, ������ ����� ��������� � ���������� �������, �� ���� � ���, � ������� ��� ���� ������� � ���� ������, ���� � �������� ���������� ComboBox ����� �������� ��� ���������. ����� �������� �� ������ ������ ��������� ������ ������������, ��������, ��� ���� ��������. ����� ��������� ������� Click ����� ������ ����� ����� �������, ���������� ������ ��� �������� ����� ������� ��������� ���������� ���������� SQL-������� select * From titles order by [Year Published].

    �� ���.�4.3 ������������ ����������������� ���������� �� ���� ������ BIBLI�2.MDB, ������������� �� ���� ������� �����.

    ���.�4.3. ����������������� ������, ������������� �� ���� ������� �����.

    ������ ������� Data

    � Refresh

    ����� ��������� �������� ������� Data �� ����� ���������� ����������, ���� ������� ���������� ������ ������ Jet database engine ����� �� ������ ����� ��� ������������� ��������. ������ ������, ������ �������� � ��������� ���� ������������� �������� �� ������ ����������. ���������� ������ ���������������� ������ ���������� �������, ������� ����� ������������� ������� ������ ������� ������� � ������ (��������, DataBase ��� Recordset) � ��� ������ ����������. ��� ����� ���������� ��������� ����� Refresh. ����� �������, ����� Refresh ������������ ��� ����, ����� �� ����� ���������� ���������� �������������������� ������ ���������� �������, �� ��� � ������ ����������.

    ���������: Data1.Refresh.

    ����� ���������� ������ Refresh ��������� ������� ������ ��������������� �� ������ ������ � ������, ��������� �������� Data.

    � UpdateControls

    �������� ������ UpdateControls ��������� ���������� ������������� ��������� ������� ������ �� ����. ��� ����, ��������� �������� ���������� ��������� �, �����, �� ���������� ����������������� �������� ������� ������. �� ����, ������� ��������� ����� ���� ������ �� ����������, ���� ���� ���������� ��������� ��������� ���������� ���� ���������������.

    ���������: Data1.UpdateControls.

    ������� ������������ ������������� ������ UpdateControls �������� �������������� ������������ ����������� ����������� ��������� ��������� ����������� ������� ������. ��� ����� ���������� ��������� � ��������� ��������� ������� Validate ������� Data.

    1.��������� ������, ������� ������������� ��� ������������ �������� ������ � �������� ��������� �������� ���� � ��������� ��������� ������� Validate:

    Private Sub Data1_Validate(Action As Integer, Save As Integer)

    If Save = False Then Exit Sub

    End If

    If MsgBox("Coxpa���� ��������� ���������",vbYesNo,"","",0)=vbNo Then

    Data1.UpdateControls

    Exit Sub

    End If

    End Sub

    2.���������� ����������.

    3.��������� ���������� ������-������ ���������� ���������� ����, ��������, ���� �������, �, ��������� ������ ����������� �� ������ �������, �������� ��������� ������� ������. � ����������, �� ����� ����� ������ ���������� ����, � ������� ����� ����������� ��� �������� ��������� ���������.

    4.��������� ����������.

    � UpdateRecord

    ����� UpdateRecord ��������� � ���� ������ ���������� ������� ������, ������������ � ��������� ��������� ����������.

    ���������: Data1.UpdateRecord.

    ������������� ����� ������ ��������� ��������� ���������� ��������� ��������� ���������� � ���� ������ ��� ����������� ��������� ������� ������. ��� ���� �� ������������ ������� Validate. ������� ��������, ��� ����� �������������� ����� ������ ���������� ���������, ��� ��������� ������� ����������� ���� ������.

    ��������� ������ ����������, ��� ������������ � ����������� ����� UpdateRecord:

    1.��������� ������, �������������� ��� ������������ ������ UpdateControls.

    2.����������� �� ����� ��������� ������, �������� �� �������� Caption �� ��������� ������ � �������� ��������� ��� � ��������� ��������� ������� Click:

    Private Sub Command2_Click()

    Data1.UpdateRecord End Sub

    3.���������� ������. �������������� ���������� ��������� ��������� ���������� � ������� ������ ��������� ������. ������, ��������� ���� ��������� ��������� � ���� ������.

    �������

    � Error

    ������� Error ����������, ����� ��� ������������� ������� Data ��������� �����-���� ������ ������� � ������, ������ � ��� ����� �����������

    1 ... 187 188 189 190 191 192 193 194 195 ... 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 - Полина Ром
    Все комметарии
    Новинки бесплатной онлайн библиотеки