Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Учет осноных средств предприятия.doc
Скачиваний:
4
Добавлен:
01.05.2025
Размер:
6.76 Mб
Скачать

3 . Программирование базы данных в Delphi

3.1 Разработка форм приложения.

Открываем наш проект. На главную форму помещаем три обычных панели. Свойству Align верхней панели присвоили значение alTop (весь верх). Затем свойству Align нижней панели присвоил значение alBottom. Затем поместили компонент Splitter с вкладки Additional панели инструментов, и его свойству Align также присвоили alBottom, после чего он прижался к нижней панели. Splitter – это разделитель между панелями. С его помощью пользователь мышью сможет передвигать нижнюю панель, меняя ее размеры. И, наконец, свойству Align средней панели присвоили значение alClient, чтобы она заняла все оставшееся место на форме. Очистили свойство Caption всех трех панелей.

Далее на верхнюю панель поместили три компонента RadioButton с вкладки Standard палитры компонентов. В их свойствах Caption написали, соответственно, "Поставщик", "Ответственное лицо" и "Отдел предприятия". Переключаясь между ними, пользователь сможет выводить в нижнюю, подчиненную сетку DBGrid нужные данные. Свойству Checked третьей радиокнопки присвоил значение True, чтобы включить ее. Раздел с переключателями разделили компонентом Bevel с вкладки Additional палитры компонентов. Его ширину (свойство Width) сделали равным 2 пикселям, превратив его в вертикальную разделительную полосу.

Далее сделали раздел поиска, поместив в него обычные Label, Edit и кнопку BitBtn.

В последнем разделе верхней панели находятся еще четыре кнопки BitBtn. Одна из них предназначена для редактирования текущей записи, другая – для добавления новой, третья для учета вызовов на дом, а четвертая для расписания приема врачей.

Вторая и третья панели содержат только по одному компоненту DBGrid из вкладки DataControls палитры компонентов, свойствам Align которых присвоено значение alClient. Также поиграли с цветами компонентов в свойстве Color. В свойство Icon формы загрузил рисунок расширения *.ico. Также установил на форму компонент MainMenu для разработки меню приложения.

Свойству Name формы присвоено значение fMain, свойство Caption формы имеет текст "Основные средства", модуль сохранен под именем Main.pas.

Главная форма приложения

Т аким же образом были разработаны и другие формы приложения.

Форма «Редактировать»

Форма «Списание основных средств»

3 .2 Подключение форм к компонентам ado

Пример подключения продемонстрируем с формой «Редактировать». В начале необходимо подключить модуль DM к форме для этого в меню Fail выбираем Use Unit. В раскрывшемся окне выбираем DM и нажимаем Ok. Далее удерживая <Shift>, выделяем все компоненты контроля на первой панели (все компоненты, кроме Label). В их свойстве DataSource выбираем fDM.DSSredstva, подключив компоненты к нужному набору данных (таблице). Снимаем общее выделение, и выделяем первый DBEdit. В его свойстве DataField выберите поле "Наименование". Это свойство подключает выбранный компонент к определенному полю таблицы. Таким же образом подключаем к соответствующим полям остальные компоненты. Затем подключаем компоненты других таблиц, каждое к своей таблице и к соответствующему полю.

Т аким же образом подключаем компоненты контроля к другим формам.

Также нам необходимо прописать код для созданных нами кнопок, поисковиков и некоторых компонентов.

Код главной формы: