Практическая часть
Сделаем нашу форму главной MDI формой, для этого в инспекторе объектов в свойствах Form1 свойство FormStyle установим в fsMDIForm.
Добавим на форму компонент TMainMenu из вкладки Standard
Щелкнем дважды мышкой на компоненте MainMenu1 и увидим окно для создания меню.
В свойстве Caption инспектора объектов задаем следующие пункты меню:
Справочники
Единицы измерения
Категории продуктов
Продукты
Поставщики
Склад
Приход
Расход
Просмотр склада
Заканчиваем создание меню и жмем на крестик.
Далее из панели компонентов dbGo (ADO) размещаем на форме четыре компонента TADOTable, к ним мы подключим наши справочники из базы данных, но для начала мы их переименуем
ADOTable1 – table_ed_izmer,
ADOTable2 – table_product_group,
ADOTable3 – table_products,
ADOTable4 – table_postav_ik.
Для этого в инспекторе объектов ADOTable1 в свойство Name записываем table_ed_izmer и так делаем для ADOTable2, ADOTable3, ADOTable4. Должно получиться следующее:
Подключим наши таблицы к компоненту ADOConnection1 и к одноименным таблицам нашей БД.
Для этого в инспекторе объектов для таблицы table_ed_izmer (TADOTable) свойства Connection устанавливаем -> ADOConnection1, TableName-> ed_izmer, Active-> True;
для таблицы table_product_group (TADOTable) свойства Connection устанавливаем -> ADOConnection1, TableName-> product_group, Active-> True;
для таблицы table_products (TADOTable) свойства Connection устанавливаем -> ADOConnection1, TableName-> products, Active-> True;
для таблицы table_postav_ik (TADOTable) свойства Connection устанавливаем -> ADOConnection1, TableName-> postav_ik , Active-> True;
Свойство Active -> True устанавливайте в последнюю очередь.
На последок изменим в инспекторе объектов свойство Caption главной формы (Form1) на Склад, а свойство Name ->на Form_general.
А чтобы форма разворачивалась на весь экран Align -> alClient
Не забываем сохранять все изменения перед завершением работы!!!
Вопросы для контроля
Для чего служит свойство FormStyle, в котором установлено fsMDIForm.?
Для чего служит Caption?
Для чего служит Name?
Для чего служит компонент TADOTable?
Для чего служит компонент TMainMenu?
Литература
Фаронов В.В. Программирование на языке высокого уровня: Учебник для вузов. -СПб.: Питер, 2003.
Бобровский С.И. Delphi 7. Учебный курс. - СПб.: Питер, 2005.
Кетков Ю.Л., Кетков А.Ю. Практика программирования: Visual Basic, C++ Builder, Delphi. - СПб.: БХВ - Петербург, 2005.
ЛАБОРАТОРНАЯ РАБОТА № 4
Тема: Создание подчиненной формы для справочников программы склад
Цель: Научиться создавать справочники для базы данных созданной в Access, используя Delphi
Оборудование и/или программное обеспечение: ПК, Delphi
Теоретическая часть
В пустой форме смысла нет. Наполнить её содержанием помогут компоненты Delphi. Они располагаются на соответствующих вкладках палитры компонентов на главном окне. Все основные компоненты Delphi находятся на первых четырёх вкладках:
Standart
Additional
Win32
System
Если у вас нет сверху такой панели компонентов, вы должные сделать следующее:
Вызвать выпадающее меню(нажать правой кнопкой мыши:D) в той части, как показано на картинке снизу.
Поставить галочку передом "Component".
ВСЕ!)
В новых версия Delphi(начитая с 2007), можно использовать две палитры компонентов, это очень удобно, и вдобавок можно искать их по имени.
Вторая палитра компонентов находится в нижнем правом углу. Она называется Tool Palette.
Их названия всплывают в виде подсказок при наведении мышки на пиктограммы. Чтобы перенести компонент на форму, нужно щёлкнуть его мышкой (при этом выбранный компонент выделяется), и затем щёлкнуть в том месте формы, где его предполагается разместить.
В дальнейшем компоненты можно свободно перетаскивать по форме мышкой, "конструируя" нужный интерфейс.
Есть соответствующие справочники, где рассматриваются все компоненты Delphi. Но самые важные свойства компонентов Delphi и работу с ними мы рассмотрим.
Рассмотрим компоненты отображения текста. Создайте новый проект (File -» New -» Application), и перенесите на форму компоненты Label, Edit, Memo и Button. Выбирая одним щелчком мышки или клавишей Tab нужный компонент, в Инспекторе Объектов мы можем получить доступ к его свойствам. Прежде всего, у визуальных компонентов есть свойства, определяющие их положение на Форме:
Ширина компонента, Width
Высота компоненты, Height
Расстояние до левого края компонента, Left
Расстояние до верхнего края компонента, Top
Эти свойства получают значения в тот момент, когда компоненты попадают на форму. Примерно разместив на форме компоненты с помощью мышки, в Инспекторе объектов устанавливаем их точные размеры и координаты. В дальнейшем мы увидим, что их можно устанавливать и программно! За визуальное представление отвечают для компонентов:
Label и Button - свойство Caption
Edit - свойство Text
Memo - свойство Lines
При "конструировании" формы в Инспекторе объектов можно придать свойствам компонентов любые значения. Случайно можно задать такие размеры или координаты, что компонент "исчезнет" - сделается невидимым или спрячется за другими компонентами. Его легко найти с помощью того же Инспектора Объектов - все компоненты, находящиеся на Форме, перечислены в его выпадающем списке. Достаточно выбрать нужный компонент, и он или его контуры (если он заслонён" другими компонентами) появятся на Форме, а в Инспекторе объектов - его свойства.
Теперь "запустите" программу (зелёная стрелка или F9). Видим, что компоненты "работают". Label является надписью (меткой) на форме, Button - кнопка нажимается, Edit - строка ввода и Memo - многострочный текстовый редактор позволяют вводить текст!