ЛАБОРАТОРНАЯ РАБОТА № 5. Тема: Создание подчиненной формы для справочников программы склад (продолжение)
Тема: Создание подчиненной формы для справочников программы склад (продолжение)
Цель: Научиться создавать форму для справочника
Оборудование и/или программное обеспечение: ПК, Delphi Теоретическая часть
Операционная система Windows - многозадачная, т.е. несколько программ в ней могут функционировать одновременно. Когда, например, мы щёлкаем по кнопке в окне нашей программы, система Windowsопределяет, что произошло событие именно в нашей программе, и посылает ей сообщение об этом. Наша программа должна соответствующим образом отреагировать на него. Для этого мы, как программисты, должны написать код-обработчик этого события. Таким образом, структура программы для Windowsпредставляет собой набор подпрограмм, каждая из которых ответственна за обработку конкретного события и вызывается только при его возникновении. Удобство Delphi состоит в том, что мы избавлены от необходимости получать сообщения от Windows сами, Delphi это делает за нас. Каждый компонент имеет впечатляющий набор событий, на которые он может реагировать. Программист сам определяет, какие события в программе требуется обрабатывать. Теперь рассмотрим событие onClick. Как вы догадываетесь, это событие возникает при щелчке мышкой на компоненте. Воспользуемся им, чтобы очищать строку ввода от уже введённых символов. Вы сами уже должны сообразить, что сделать. В обработчике нужно присвоить свойству Text значение пустой строки. Строка в Delphi образуется заключением текста в одинарные кавычки (находятся на кнопке Э): Edit1.Text:=''; Есть другой способ, воспользоваться специально предназначенным для этого методом компонента Edit, который так и называется Clear (очистка англ.): Edit1.Clear; Но подумайте о пользователе, который будет работать с вашей программой. Ему должно быть удобно. Если при вводе текста он захочет что-то исправить, и щёлкнет мышкой в том месте текста, где нужно внести изменение?! И всё сотрётся! Поэтому лучше использовать событие onEnter, которое происходит, когда вы "входите" в него и компонент получает фокус ввода, или использовать для очистки специальную кнопку и её событие onClick.
Другие важные события, которые есть почти у каждого визуального компонента:
Практическая часть На этом уроке мы создадим форму для справочника «Категории продуктов» и «Поставщики» нашего склада. Процесс создания данных форм аналогичен созданию формы для справочника «Единицы измерения», смотри предыдущий урок. Поэтому описывать буду достаточно кратко. Создаем новую форму File->New->Form –Delphi В инспекторе объектов устанавливаем следующие свойства для новой формы Caption -> Категории продуктов; FormStyle -> fsMDIChild; Name -> Form_product_group;
Пропишем Uses general; после раздела implementation в программном модуле unit product_group как показано на рисунке. А программном модуле unit general главной формы пропишем Uses ed_izmer, product_group; Далее размещаем на форме следующие компоненты Три кнопки TButton из вкладки Standart В инспекторе объектов для Button1 устанавливаем свойство Caption -> Новая запись; для Button2 устанавливаем свойство Caption -> Удалить запись; для Button3 устанавливаем свойство Caption -> Закрыть. Из вкладки Data Accessпомещаем на форму компонент TDataSource. В инспекторе объектов для него устанавливаем следующие свойства: DataSet -> Form_general.table_product_group; Name -> product_group. А из вкладки Data Controls помещаем на форму компонент TDBGrid. В инспекторе объектов для него устанавливаем следующие свойства: DataSource -> product_group. Если поля таблицы не отображаются в DBGrid,возможно у вас отключено (False) свойство Active главной форме в инспекторе объектов компонента table_product_group (TADOtable),установитеActive -> True. Сейчас мы переименуем поля нашей таблице. Для этого перейдем на главную форму проекта. Выберем компонент table_product_group (ADOTable)и в структуре (Structure) -> product_group -> Fields -> щелкнем правой кнопкой мыши и выберем Add all fields. Далее выбираем поле id и в инспекторе объектов устанавливаем у него свойство Visible->False, затем выбираем поле product_name и в инспекторе объектов устанавливаем у него свойства DisplayLabel -> Категория продуктов; DisplayWidth -> 30; Теперь пишем обработчики событий для кнопок. Щелкнем дважды мышкой по кнопке «Новая запись» и пишем следующий код:
Щелкнем дважды мышкой по кнопке «Удалить запись» и пишем следующий код:
Щелкнем дважды мышкой по кнопке «Закрыть» и пишем следующий код:
В инспекторе объектов для Form_product_group событие FormActivateпишем:
В инспекторе объектов дляForm_product_group событие FormCloseQuery пишем:
Сейчас сделаем запуск справочника «Категории продуктов» из главной формы. Для этого выбираем в меню Project -> Options… Выбираем Forms и перемещаем Form_product_group из Auto-create forms в Avalable forms. Переходим на главную форму, щелкаем мышкой по компоненту MainMenu1, а затем по пункту Категории продуктов
Вот и все готово, запускаем проект
Популярное: Организация как механизм и форма жизни коллектива: Организация не сможет достичь поставленных целей без соответствующей внутренней... Почему человек чувствует себя несчастным?: Для начала определим, что такое несчастье. Несчастьем мы будем считать психологическое состояние... Личность ребенка как объект и субъект в образовательной технологии: В настоящее время в России идет становление новой системы образования, ориентированного на вхождение... ![]() ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (379)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |