- Любовные романы
- Фантастика и фэнтези
- Ненаучная фантастика
- Ироническое фэнтези
- Научная Фантастика
- Фэнтези
- Ужасы и Мистика
- Боевая фантастика
- Альтернативная история
- Космическая фантастика
- Попаданцы
- Юмористическая фантастика
- Героическая фантастика
- Детективная фантастика
- Социально-психологическая
- Боевое фэнтези
- Русское фэнтези
- Киберпанк
- Романтическая фантастика
- Городская фантастика
- Технофэнтези
- Мистика
- Разная фантастика
- Иностранное фэнтези
- Историческое фэнтези
- LitRPG
- Эпическая фантастика
- Зарубежная фантастика
- Городское фентези
- Космоопера
- Разное фэнтези
- Книги магов
- Любовное фэнтези
- Постапокалипсис
- Бизнес
- Историческая фантастика
- Социально-философская фантастика
- Сказочная фантастика
- Стимпанк
- Романтическое фэнтези
- Ироническая фантастика
- Детективы и Триллеры
- Проза
- Юмор
- Феерия
- Новелла
- Русская классическая проза
- Современная проза
- Повести
- Контркультура
- Русская современная проза
- Историческая проза
- Проза
- Классическая проза
- Советская классическая проза
- О войне
- Зарубежная современная проза
- Рассказы
- Зарубежная классика
- Очерки
- Антисоветская литература
- Магический реализм
- Разное
- Сентиментальная проза
- Афоризмы
- Эссе
- Эпистолярная проза
- Семейный роман/Семейная сага
- Поэзия, Драматургия
- Приключения
- Детская литература
- Загадки
- Книга-игра
- Детская проза
- Детские приключения
- Сказка
- Прочая детская литература
- Детская фантастика
- Детские стихи
- Детская образовательная литература
- Детские остросюжетные
- Учебная литература
- Зарубежные детские книги
- Детский фольклор
- Буквари
- Книги для подростков
- Школьные учебники
- Внеклассное чтение
- Книги для дошкольников
- Детская познавательная и развивающая литература
- Детские детективы
- Домоводство, Дом и семья
- Юмор
- Документальные книги
- Бизнес
- Работа с клиентами
- Тайм-менеджмент
- Кадровый менеджмент
- Экономика
- Менеджмент и кадры
- Управление, подбор персонала
- О бизнесе популярно
- Интернет-бизнес
- Личные финансы
- Делопроизводство, офис
- Маркетинг, PR, реклама
- Поиск работы
- Бизнес
- Банковское дело
- Малый бизнес
- Ценные бумаги и инвестиции
- Краткое содержание
- Бухучет и аудит
- Ораторское искусство / риторика
- Корпоративная культура, бизнес
- Финансы
- Государственное и муниципальное управление
- Менеджмент
- Зарубежная деловая литература
- Продажи
- Переговоры
- Личная эффективность
- Торговля
- Научные и научно-популярные книги
- Биофизика
- География
- Экология
- Биохимия
- Рефераты
- Культурология
- Техническая литература
- История
- Психология
- Медицина
- Прочая научная литература
- Юриспруденция
- Биология
- Политика
- Литературоведение
- Религиоведение
- Научпоп
- Психология, личное
- Математика
- Психотерапия
- Социология
- Воспитание детей, педагогика
- Языкознание
- Беременность, ожидание детей
- Транспорт, военная техника
- Детская психология
- Науки: разное
- Педагогика
- Зарубежная психология
- Иностранные языки
- Филология
- Радиотехника
- Деловая литература
- Физика
- Альтернативная медицина
- Химия
- Государство и право
- Обществознание
- Образовательная литература
- Учебники
- Зоология
- Архитектура
- Науки о космосе
- Ботаника
- Астрология
- Ветеринария
- История Европы
- География
- Зарубежная публицистика
- О животных
- Шпаргалки
- Разная литература
- Зарубежная литература о культуре и искусстве
- Пословицы, поговорки
- Боевые искусства
- Прочее
- Периодические издания
- Фанфик
- Военное
- Цитаты из афоризмов
- Гиды, путеводители
- Литература 19 века
- Зарубежная образовательная литература
- Военная история
- Кино
- Современная литература
- Военная техника, оружие
- Культура и искусство
- Музыка, музыканты
- Газеты и журналы
- Современная зарубежная литература
- Визуальные искусства
- Отраслевые издания
- Шахматы
- Недвижимость
- Великолепные истории
- Музыка, танцы
- Авто и ПДД
- Изобразительное искусство, фотография
- Истории из жизни
- Готические новеллы
- Начинающие авторы
- Спецслужбы
- Подростковая литература
- Зарубежная прикладная литература
- Религия и духовность
- Старинная литература
- Справочная литература
- Компьютеры и Интернет
- Блог
Интернет-журнал 'Домашняя лаборатория', 2007 №4 - Шаман
Шрифт:
Интервал:
Закладка:
���������� �������� �����, ��������� ����, ������ � ���������������� ���� ��������� �������:
Label1.Caption=���
Label2.Caption=�������
Label3.Caption=������������� ����� ������
Label4.Caption=���������� ����� ������
Text1.DataSource=Data1
Text1.DataField=Name
Text2.DataSource=Data1
Text2.DataField=LastName
Text3.DataSource=Data1
Text3.DataField= Idwork
DBList1.RowSource=Data2
DBList1.ListField=Office
DBList1.DataSource=Data1
DBList1.DataField=Id_work
DBList1.BoundColumn=ID_work
DBCombo1.RowSource=Data2
DBCombo1.ListField=Office
DBCombo1.DataSource=Data1
DBCombo1.DataField= Idwork
DBCombo1.BoundColumn=ID_work
��������� � ��������� ������ (���.�8.12). � ��������� ��������� ����� �� �������� ����� ����� ������������ ���������� ����� Name, LastName � Id work �� ������� PERSON. ������ � ��������������� ���� ���������� ���������� ���� ������ �� ������� WORKPLACE, ������ ����� ������ ��������, ������������� ���������� ��������� ����, ����� �������� � ������ ����������. ������������ �� ������ ������� � ������� ������� ������� ���������� ������� ���������� ��������� �� ������, ��� �� ������ �������� ����� ������. �� ������ ��� ���������������� ���� �������� ��������� �������� � ������� �����-���� ������ �� ������ ������� ���������� �������, ����� ����������� ��������� ������� ������ � ���������� ���������� ������. ������ ������� ��������� �� �� �� ������ � ��������� ��� ���������� � ����� ������ �������� � ������������ �� ��������� �������.
���.�8.12. ��������� ������ ����������
���� 9
����� (MSFIexGrid) � ���������� ��������� ���� (RichTextBox)
MSFIexGridActiveX ������ MSFIexGrid ����� ����������� ��� ����������� �� �������� ����� ������, �������������� � ��������� ����. ���� ����� MSFIexGrid ������� � ����� ������, �� ������ ������������ � ������ ������ ��� ������. ��� ������, ��� �� ������ ��������� �������� ��� ���������� ����� �������, ��������, ��������, ���������, ���������, ������� �����, ����� ����������� � ������, �� �� ������ �������� ������ � ���� ������. ��� ��������� ����� ����� MSFIexGrid � ������� ������������ �������� DataSource, ������� ������������ ��� ��� ���������������� ������� ���������� �������.
����� �������� ������ MSFIexGrid �� ������ ������������, ��������� ������� ���� Project � > Components � �������� �� ������ ��������� ���������� (Controls) Microsoft FlexGrid Control � ����� ������� ������ ��.
����� ����� �� ������ ������������ �������� ����� ����������� -.
�������� Row � Col ������� MSFIexGrid ���������� ��������� ������� ������. ���������� ������� ������ �������� ����� �������� Text, �� ���� ������ � ������� �������� � ��������� ����. ���� ���� �� ���������� ����� ������, ��� ��� � Visual Basic ���� ������� �������������� ������ � ����� � �������. ���� � ������ ��������� ������� �����, �� ���������� ������������ ������� �������������� ����� � ������ CStr, ��������:
MSFlexGrid1.Text=CStr(sum).
� ������ �������, ��� ���������� ����� �� ���������� ����������� ������ ����� ������������ ������� Val, ��������:
sum=sum + Val(MSFlexGrid1.�ext)
�������� Rows � Cols ��������� ���������� ���������� ����� � �������� � �����. ������� ���������� � ����� � �������� ����� ���������� � ������� ������� FixedRows � FixedCols. ���������� ���������� ������������ ��������� FormatString. ��������, ��������� ������ ����������, ��� ���������� ��������� �������� �����:
s$ = "<��� ������ |<���� ���.|<��� �����.|>���-�� |<��������. ������|<���� "
MSFlexGrid1.FormatString = s$
��������� ����� ����� ������������ ����������� �������, ������ � ������ ������ ���������� ��������� ������ ������ � �������, ������� ������ �����, ��� ��� ������ ��������� �����:
s$ = ���|�����|�������"
MSFlexGridl1.FormatString = s$
�������� ��� ���������� ���������� ������������ ������ ��������� �������� TextArray. ��� �������� ����� ���������:
MSFlexGrid1.TextArray(cellindex) [= string]
��� string � ��������� ���������� ������, ������������ ���������� cellindex. �������� cellindex ������������ ����� ������ ������ � ����� � �������������� ��������� �������. � ������ ������� ������������ ������ ������������ ������������ �� ������ ������ �� ����� ���������� ������� � �����, ������������ ��������� Cols. ��� ������� ��������� cellindex ������ ������������ ��������� �������:
Function GetCellIndex(row As Integer, col As Integer) As Long GetCellIndex = row*MSFlexGrid1.Cols + col End Function
��� ��������� �� �������� � ��������� ������� MSFIexGrid ������� �������, ��� ������ ����� � ������� ������� �� � �������, � � ����. ����� �������, ������ ������ �����, � ������� ������ ��������� ���������, �� ����� ���� �������� ������� �������.
��� ������������ ������������� ������� MSFlexGrid �������� ����������, ��������������� ��� ��������� ����� ���� ������, ���������� ���������� � �����������, ��������� ��� ������� � �������.
���� ������ CASTOMER.MDB �������� � ���� ��� �������:
CASTOMER � �������� ���������� � �����������,
ORDERSALES � �������� ���������� � ��������� ��� �������,
PRODUCTS � �������� ����������� � �������.
��������� ������ ���� ������ �������� � ��������� ��������.
�������. ��������� ������� CASTOMER
���� ∙ ��������
Idcust ∙ ���

