Читайте также:
|
При разработке базы данных разработчик создал удобный интерфейс. На заглавной форме располагались нужные сведения для работы в туристическом агентстве «Путешествие». С заглавной формой связано ещё несколько вспомогательных форм. При этом работа с базой данных становится лёгкой и простой.
Ниже представлена главная форма, с которой пользователь начнет работу.
Как создавалось: изменить название Form1 на Туристическое агентство. В свойствах формы Form1 Caption прописать Туристическое агентство, в свойстве Color выбрать clCream. На форму вынести 6 объектов Label (метка), один Image (рисунок). Название меток изменить в соответствии с рисунком. Чтобы вставить рисунок на форму: в свойстве Picture объекта Image выбрать нужный рисунок (при помощи кнопок Load и Ok).
Далее программируем: при нажатии на метку «Работники тур.агентства» должна открыться форма, содержащая сведения о персонале агентства. Для этого в событии OnClick метки Label3 («Работники тур.агентства») нужно прописать следующий текст (между словами begin end): form2.show;
Аналогичным методом программируются остальные метки, кроме «Выход». В событии OnClick метки Label6 прописать команду Close.
Чтобы при запуске БД главная форма всегда была в центре экрана нужно в свойстве Position формы Form1 выбрать poScreenCenter. Чтобы пользователь не мог менять размеры формы в свойстве BorderStyle формы Form1 выбрать bsSingle.
Для связывания приложения с таблицами на главную форму вынести объект Database (вкладка BDE). В свойстве AliasName этого объекта выбрать базу, созданную в SQL Explorer. В свойстве DatabaseName дать имя базе. Далее дважды щелкнуть по объекту Database1. В открывшемся окне выбрать путь, где находятся все таблицы (при помощи кнопки Defaults). Далее Ок.
Следующая форма «Работники туристического агентства» позволяет просмотреть данные о персонале агентства.
Как создавалось: на форму Form2 вынести следующие компоненты: DBGrid (вкладка Data Controls), пять Button, Query (вкладка BDE), DataSource (вкладка Data Controls).
Для того, что бы в DBGrid1 выводились данные из таблицы «Работники» нужно воспользоваться компонентами Query1 и DataSource1. Для начала в свойстве DataBaseName компонента Query1 указать базу. В свойстве SQL прописать SQL-запрос на вывод информации в таблицу.
В свойстве Active выбрать значение True. Таблицу DBGrid1 связать с компонентом DataSource1: в свойстве DataSource таблицы DBGrid1 выбрать DataSource1. В свойстве DataSet компонента DataSource1 выбрать Query1.
При открытии Form2 кнопки «Добавить», «Изменить», «Удалить» не активны (свойство Enabled = False компонента Button). При нажатии на ячейки таблицы кнопки становятся активными (обработка события OnCellClick таблицы DBGrid1).
При нажатии на кнопку «Добавить»/ «Изменить» открывается новая форма, позволяющая производить добавление/изменение данных нового (существующего) работника.
При нажатии кнопку «Удалить» из базы удаляется вся информация о выбранном работнике в таблице DBGrid1.
Примечание: для процедуры удаления потребуется компонент Edit1, в котором будет храниться номер выделенного сотрудника в таблице DBGrid1 и Query2 для запроса на удаление. В событии OnCellClick таблицы DBGrid1 прописать следующий текст: 
А компонент Edit1 сделать «невидимым» - свойство Visible присвоить False. В событии OnClick кнопки «Удалить» прописать следующий текст:
При добавлении информации о новом работнике появиться следующее окно:
При нажатии на кнопку ОК появится сообщение:
При положительном ответе произойдет добавление информации, при отрицательном – нет.
Как создавалось: на новую форму вынести следующие компоненты: Label, Edit, Button, Combobox, Query1. В обработчике событий OnClick для кнопки Button1 прописать следующий текст.
Форма «Поиск информации о персонале» позволяет выбрать из базы нужную информацию по указанным критериям. В БД «Турагентство» реализованы только три критерия: поиск по фамилии, имени, отчеству.
Как создавалось: на форму Form4 вынести следующие компоненты: Radiobutton, Checkbox, Edit, DBGrid, Button и т.д. При нажатии на Radiobutton1 (Один критерий) должны быть активны компоненты Radiobutton3 (Фамилия), Radiobutton4 (Имя), Radiobutton5 (Отчество). Если поиск будет вестись по фамилии, то выбираем Radiobutton3 и т.д. При нажатии на Radiobutton2 (Несколько критерий) должны быть активны компоненты CheckBox1 (фамилия), CheckBox2 (имя), CheckBox3 (отчество). Здесь поиск будет вестись не по одному критерию, а по нескольким.
В свойстве OnClick объекта Radiobutton1 (Один критерий) прописать следующий код:
В свойстве OnClick объекта Radiobutton2 (Несколько критерий) прописать следующий код:
Объекты Radiobutton3 (Фамилия), Radiobutton4 (Имя), Radiobutton5 (Отчество), CheckBox1 (фамилия), CheckBox2 (имя), CheckBox3 (отчество) должны быть скрыты при запуске формы, поэтому у каждого из этих объектов в свойстве Visible нужно прописать False. Далее при нажатии либо Radiobutton3 (Фамилия), либо CheckBox1 (фамилия) в зависимости от критериев должен появиться объект Edit1, при нажатии Radiobutton4 (Имя) или CheckBox2 (имя) – объект Edit2, при нажатии Radiobutton5 (Отчество) или CheckBox3 (отчество) – объект Edit3. Поэтому в событии OnClick этих объектов прописываем следующий код:
Вынести на форму компоненты Query и DataSourse (вкладки BDE и DataAccess). В свойстве DataBaseName компонента Query1 выбрать вашу базу, в свойстве SQL этого объекта прописать запрос:
В свойстве DataSet компонента DataSourse1 выбрать Query1. В свойстве DataSourse объекта DBGrid1 выбрать DataSourse1.
Далее обработать событие нажатия кнопки (OnClick).
При нажатии на кнопку «Изменить» появиться окно для изменения данных о работнике.
При выборе из списка номера работника все его данные отображаются в полях Edit.
Как создавалось: на новую форму вынести следующие компоненты: Label, Edit, Button, DBLookupCombobox (вкладка Data Controls) (эти объекты будут отображаться в окне пользователя). И вспомогательные компоненты: DBGrid, Query (3 компонента), DataSourse (2 компонента). Для Query1, Query2 и Query3 определить базу. В свойстве DataSet компонента DataSourse1 выбрать Query1. В свойстве DataSet компонента DataSourse2 выбрать Query2. В свойстве SQL компонента Query1 написать запрос:
В свойстве Active компонента Query1 выбрать True. В свойстве ListSourse компонента DBLookupCombobox1 выбрать DataSourse1, в свойстве ListField – num_rab, в свойстве KeyField – num_rab. В свойстве DataSourse компонента DBGrid1 выбрать DataSourse2. В свойстве Enabled компонента Button1 выбрать False. В событии OnClick компонента DBLookupCombobox1 прописать следующий текст:
В событии OnClick компонента Button1 прописать следующий текст:
За вывод на печать (в Word) отвечает кнопка «Отчет».
Как создавалось: в событии OnClick компонента Button6 (Отчет) прописать следующий текст:
Что бы из базы данные вывелись в Word, нужно подключить следующие модули (выделены):
Остальные формы выполняются аналогично вышеуказанным действиям.
Дата добавления: 2015-07-19; просмотров: 44 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Создание физической модели. | | | Актуальность темы социологического исследования. |