Разработка программы
На главной форме программы (Fmain), заголовок «Аренда помещений», расположены компоненты:
mmfmain – главное меню программы, которое состоит из команд: файл (добавить договор аренды, удалить договор аренды, сохранить, выход), справочники (справочник арендаторов, справочник помещений), отчет (HTML – отчет), ? (о программе);
al – компонент TActionList (Список действий) позволяет объединить все реакции на действия пользователя (события) в одном месте, что повышает эффективность проектирования. В нем содержатся процедуры: arenda (arendatrefresh), fmain (fmainactivate, cbfiofill, filterfio), fsprarendatory (fsprclose, fsprarendatoryopen, arendatoryrefresh), fsprpomeshenia (fsprpomesheniaopen).
imageList1 - компонент TImageList (Список изображений) является невизуальным и применяется в приложениях, где используется много графических изображений. Он позволяет хранить наборы изображений фиксированного размера, такие как пиктограммы или битовые карты, обращаться к ним по номерам и осуществлять вывод изображений на экран различными способами. В нем содержатся следующие картинки, смотрите Рисунок 2.
Рисунок 2 – imageList 1
pmArenda - всплывающее меню. Чтобы для какого-либо компонента задать всплывающее меню, нужно добавить его (меню) к форме, а затем выбрать его из выпадающего списка свойства TPopupMenu данного компонента. В нем содержитсякоманды: добавить договор аренды, удалить договор аренды, сохранить.
XPManifest1 - компонент преобразует классический интерфейс программ в стиль Windows XP, т.е. все элементы управления (кнопки, переключатели и т. д.) будут выглядеть, как в этой операционной системе.
На форме так же добавлены визуальные компоненты. А именно:
DBLookupComboBox1 –компонент типа TDBLookuoComboBox, обеспечивает отображение и управление полями просмотра, возможные значения которых берутся из ключевого поля другой таблицы.
Edog – компонент типа TEdit, обеспечивает фильтрацию главной таблицы по номеру договора.
Dbgarenda – компонент типа TDBGrid, основная тблица формы, содержещая данные по арендованным помещениям.
DBLookupComboBox2 – компонент типа TDBLookupComboBox, обеспечивает отображение и управление полями просмотра, возможные значения которых берутся из ключевого поля другой таблицы, отображает и редактирует поле главной таблицы «Арендаторы».
DBEdit1 - компонент типа TDBEdit, обеспечивает отображение и редактирование поля главной таблицы «Дата начала аренды».
DBEdit2 - компонент типа TDBEdit, обеспечивает отображение и редактирование поля главной таблицы «Дата окончания аренды».
DBEdit3 - компонент типа TDBEdit, обеспечивает отображение и редактирование поля главной таблицы «Дата оформления договора».
DBEdit4 - компонент типа TDBEdit, обеспечивает отображение и редактирование поля главной таблицы «Номер договора».
Компоненты для работы с данными находятся в модуле Udm на форме DM. В нем содержатся:
ADOData – компонент типа TADOConection, используется для соединения с базой данных. Его основное свойство ConectionString – определяет страку соединения. Она равна: Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin; Data Source=Data.mdb; Mode=ReadWrite; Jet OLEDB:System database=""; Jet OLEDB:Registry Path=""; Jet OLEDB:Database Password=""; Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1; Jet OLEDB:Global Partial Bulk Ops=2; Jet OLEDB:Global Bulk Transactions=1; Jet OLEDB:New Database Password=""; Jet OLEDB:Create System Database=False; Jet OLEDB:Encrypt Database=False; Jet OLEDB:Don't Copy Locale on Compact=False; Jet OLEDB:Compact Without Replica Repair=False; Jet OLEDB:SFP=False;
Tzdania – компонент типа TADOTable, используется как компонент связи с таблицей zdania.
Tpomeshenia - компонент типа TADOTable, используется как компонент связи с таблицей pomeshenia.
Tarenda – компонент типа TADOTable, используется как компонент связи с таблицей arenda.
Tarendatory – компонент типа TADOTable, используется как компонент связи с таблицей arendatory.
Qtarenda – компонент типа TADOTable, используется как компонент связи с запросом qtarenda.
Dszdania – компонент типа TDataSource, используется для организации "канала" между набором данных (dataset) и элементом управления данными. Он связан с таблицей tzdania.
Dspomeshenia – компонент типа TDataSource, используется для организации "канала" между набором данных (dataset) и элементом управления данными. Он связан с таблицей tpomeshenia.
Dsarenda – компонент типа TDataSource, используется для организации "канала" между набором данных (dataset) и элементом управления данными. Он связан с таблицей tarenda.
Dsarendatory – компонент типа TDataSource, используется для организации "канала" между набором данных (dataset) и элементом управления данными. Он связан с таблицей tzarendatory.
Dsqtarenda – компонент типа TDataSource, используется для организации "канала" между набором данных (dataset) и элементом управления данными. Он связан с запросом tqtarenda.
В проекте существует форма «Fabout», находящаяся в модуле Ufabout. Рисунок 3.
Рисунок 3 – О программе
Так же существует форма «Fsprarendatory», находящаяся в модуле Ufsprarendatory. В ней содержатся компоненты:
imageList1 - компонент TImageList (Список изображений) является невизуальным и применяется в приложениях, где используется много графических изображений. Он позволяет хранить наборы изображений фиксированного размера, такие как пиктограммы или битовые карты, обращаться к ним по номерам и осуществлять вывод изображений на экран различными способами. В нем содержатся следующие картинки, смотрите Рисунок 4.
Рисунок 4 - imageList 1 формы fsprarendatory
Dbg – компонент типа TDBGrid, основная таблица формы, содержащая данные по арендаторам.
Sb – компонент типа TStatusBar, строка состояния. Отображает количество арендаторов.
ToolBar1 – компонент типа TToolBar, панель инструментов, содержащий следующие кнопки: добавить запись в таблицу арендаторов, удалить запись из таблицы арендаторов, сохранить внесенные изменения, выход.
Fsprpomeshenia – это форма, в которой отображаются данные об арендованных помещениях. Она содержит следующие компоненты:
Dbgzdania - компонент типа TDBGrid, основная таблица формы, содержащая данные по зданиям.
Dbgpomeshenia - компонент типа TDBGrid, основная таблица формы, содержащая данные по помещениям.
ВAddpomeshenia – компонент типа TBitBtn, добавляет запись в таблицу помещений.
ВAddzdania – компонент типа TBitBtn, добавляет запись в таблицу зданий.
ВDelpomeshenia – компонент типа TBitBtn, удаляет запись в таблице помещений.
ВDelzdania – компонент типа TBitBtn, удаляет запись в таблице зданий.
BitBtn1 – компонент типа TBitBtn, выход из диалогового окна справочника арендованных помещений.
BSavepomeshenia – компонент типа TBitBtn, сохраняет запись в таблице помещений.
BSavezdania – компонент типа TBitBtn, сохраняет запись в таблице зданий.
Sb – компонент типа TStatusBar, строка состояния. Отображает количество арендованных помещений.