45189 (Программирование с помощью Delphi), страница 2

Two-way tools - однозначное соответствие между визуальным проектированием и классическим написанием текста программы Это означает, что разработчик всегда может видеть код, соответствующий тому, что он построил при помощи визуальных инструментов и наоборот.

Визуальный построитель интерфейсов (Visual User-interface builder) дает возможность быстро создавать клиент-серверные приложения визуально, просто выбирая компоненты из соответствующей палитры.

Эта библиотека объектов включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE.

Delphi использует структурный объектно-ориентированный язык (Object Pascal), который сочетает с одной стороны выразительную мощь и простоту программирования, характерную для языков 4GL, а с другой стороны эффективность языка 3GL. Программисты немедленно могут начать производить работающие приложения, и им не придется для этого изучать особенности программирования событий в Windows. Delphi полностью поддерживает передовые программные концепции включая инкапсуляцию, наследование, полиморфизм и управление событиями.

Это очень важная особенность для разработчиков в среде Windows, поскольку в уже существующие Windows-приложения программист может интегрировать то, что разработает при помощи Delphi.

Задание № 22 – разработать комплекс по учету очередников на получение жилья с отчетом по предприятиям и основаниям включения в очередь.

Создание базы данных

Для создания таблицы автономной базы имеется приложение
Database Desktop, которое вызывается командой Tools/Database Desktop.
Оно имеет собственное окно, меню и кнопки (заставка этого пункта). Новая таблица создается построителем таблиц, который вызывается командой File/New/ТаЫе. На запрос тип СУБД выберем Рагаdох 7.

Рассмотрим основные колонки и поля окна конструктора таблиц.
File Name - идентификаторы полей (не более латинских букв и цифр для совместимости с другими СУБД).

Туре - тип поля (указывается выбором из контекстного меню): А1рhа (А - строка из не более чем 255, символов), Number (N - число с плавающей точкой), Моnеу ($ - аналогичен типу NumЬег, но добавляется денежный знак), Short (S - целое число в диапазоне -32768..32767), LongIntereger (I целое число в диапазоне-2147483.. 2147483647), ВСD (# - число в двоично-десятичном формате), Datе (D - дата). Time (Т - время), Timestamp (@ - дата и время), Меmо (М - строка любой длины), Formatted Memo (F - аналогичен Меmо, но может содержать форматированный текст), Graphic (G -изображение ВМР, РСХ, ТIF, СИР, ЕРS), ОLЕ (О - объект ОLЕ), Logical (L логическое - Т, F), Autoincrement (+ - при добавлении записи, автоматически формируется уникальное значение), Вinary (В – последовательность байтов любой длины), Вуtes (У последовательность не более, чем 255 байтов).

Size- размер поля в байтах.

Кеу - признак первичного ключевого поля (двойной щелчок по колонке).
Таbles properties - дополнительные свойства таблицы: Secondary Index (задание вторичных индексов), Validity Checks (ограничения на ввод значений полей). Рassword Security (определение пароля), Referential Intergity (определение ссылочной целостности между таблицами), ТаЫе Language(задание языка), ТаЫе Lоокор (задание полей просмотра), Depending ТаЫеs(зависимые дочерние таблицы).

Requierd Filed - признак обязательного заполнения поля.
Мiniтит..., Махiпит... - начало и конец диапазона допустимых значений.
Default vа1ие - значение по умолчанию при добавлении пустой записи.
Р1сture,Assist - шаблон и построитель шаблона значения поля.

Вторичные ключи (индексы) создаются путем выбора из списка свойств таблицы строки Secondary Indexes, и после нажатия кнопки Define выводится окно Define Secondary Indexes. Используя кнопки со стрелками или двойными щелчками, перенесем нужное поле или несколько полей, если ключ составной, в список индексов. Имеются переключатели: Unique (уникальный индекс), Саse sensitive (учет регистров строковых полей), Descending (сортировка по возрастанию). Кнопкой ОК. производится выход с указанием имени индекса. Поле, которое является первичным ключом другой родительской таблицы, называют внешним ключом. Для связи таблиц обычно создают индексы по внешним ключам. После формирования таблицы она сохраняется, если нажать кнопку Save As, под указанным именем; при этом в поле имени файла можно указать как
полное имя с каталогами, так и псевдоним базы (Аlias). Псевдоним позволяет не привязываться к каталогу, который может меняться в дальнейшем.

Для примера создадим базу из четырех таблиц: Очередники, Организации, Города и Основания. В начале создадим каталог Жилье, в котором будет находится наша база. Далее присвоим создаваемой базе псевдоним Учет.
Для создания псевдонима выполним команду Тоо1s/Аlias Мапаger, и появится окно Аlias Маnаgег.

Н
ажмем кнопку New и в поле Database аlias введем имя псевдонима Учет, кнопкой Вrowse выберем наш каталог с базой Жилье, далее Кеер New и ОК.

Командой File/Working Directory установим текущий каталог,
выбрав псевдоним Учет в списке Аliases. Займемся созданием таблиц.

Таблица Очередники будет иметь поля: ФИО, № очереди, № приказа, Код организации, Код основания, Дата, Паспортные данные, Число членов семьи, Адрес. Первичными ключами служат поля Код организации и Код основания. Все поля, являются обязательными.

Таблицы Организации и Основания будут иметь ключевые поля (код организации\оснолвания).

Для корректировки и просмотра открытой таблицы имеются команды ТаЫе/Restructure (кнопка Restructure) и ТаЫе/Into Structure. Для переименования таблицы следует сохранить ее под новым именем. Для заполнения и редактирования таблицы, после ее связывания с другими таблицами, испочьзуется кнопка Edit Data и меню Record приложения Database Deskot (кириллицу при вводе использовать нельзя).

Создание модуля данных

Модуль данных содержит объекты, связанные с базой, и использует­ся для централизованного управления этими объектами. Его создание производится командой File/New/Data Module. Имя созданного модуля данных лучше сохранить для наглядности под новым именем, на­пример: DataModulGilj. Разместим компонент Table с панели Data Ac­cess на странице Components и выделим его. Зададим свойства:

DataBaseNaine=Ychjt (псевдоним базы), TableName=Oheredniki (имя табли­цы), Name=Oheredniki (имя компонента приравняем имени таблицы для наг­лядности

Active=True (чтобы можно было обращаться к таблице из прог­раммы). Аналогично сделаем для трех оставшихся таблиц. Далее раз­местим компонент Data Source (источ­ник данных) и выделим его. Зада­дим свойства: DataSet=Ocheredniki (имя таблицы) , Name=SourceOcheredniki (имя компонента).

То же проделаем и с другими таблицами. Получим модуль. Источник данных служит посредником между таблицей базы и экранными формами, что позволяет переходить на другие СУБД, меняя только настройку компонента - источника данных, а не программы. После открытия проекта нужно вызвать этот модуль командой View/Units/Unit2.

Поля в таблице можно использовать как динамические (dynamic) либо как постоянные (persistent). Динамические поля должны быть в таблице, и их можно редактировать. Постоянные поля (виртуальные или псевдополя) могут отсутствовать в таблице, и их значения вычисляются. К имени постоянного поля автоматически добавляется имя компонента Table.

При ссылках на объекты модуля данных объект уточняется именем модуля DataModule2 (DataModule2.SourceOcheredniki).

Рекомендуется для всех полей задавать словесные наименования полей в их свойствах Display Label через редактор полей, которые выводятся в формах и компонентах вместо латинских имен полей.

Рекомендуется модуль базы данных создавать под содержательным именем в папке с базой, включать его в новый проект командой Рroject/Add to project и подключать его к головному или другому модулю командой File/Use Unit.

Создание запросов

Запросы служат для выборки нужных записей и объединения нескольких таблиц в одну. С помощью запросов реализуется реляционный доступ к базе данных, который автоматизирует и унифицирует процедуры доступа к распределенным многопользовательским базам. Для создания запросов используются команды языка структурированных запросов (SQL). Этот язык стандартизован и используется в различных СУБД, что унифицирует доступ к данным В Delphi имеются визуальные средства по формированию команд SQL, это упрощает и ускоряет создание простых запросов и не требует знания деталей использования команд SQL.

Для примера составим запрос, в который включим все поля таблицы очередников и городов. Разместим компоненты Querу (со свойсгвом Асtivе=Тruе), DataSource (со свойствами Namе=SourceBazoviZapros, DataSet=Quегу1) с панели Data Access на странице Соmponents модуля данных форме и выберем команду SQL Builder (построитель запросов), и появится окно построителя запросов

В списке Database выберем базу Uchjt Используя список Таblе, выберем таблицы очередники, города, организации, основания. Мышкой установим связь между этими таблицами по полям NO и КO соответственно Галочкой пометим поля, выводимые в запрос На странице Criteria зададим условия отбора записей.

На странице Sorting задается список полей сортировки в порядке убывания приоритетов Порядок сортировки задается кнопками А..Z (по возрастанию), Z...А (по убыванию)

Для проверки запроса нажмем кнопку Execute Querу. Кнопкой Savе the current query сохраним его в базе под именем ВаzoviZapros, ею можно посмотреть и откорректировав редактором запроса, вызываемого кнопкой Show and Edit SQL.

Для отображения запроса на форме, в редакторе полей дпя объекта Оuегу1 добавим все или отдельные поля запроса. Разместим компонент DBGrid на форме со значением его свойства DataSource, равным DataModule2. SourceBazoviiZapros, сформируем столбцы этой таблицы

Запрос может быть выполнен непосредственно из программы
методами ЕхесSQL, Ехесute или из проводника SQL Ехр1огег, вызываемого командой DataBase/Explore. В проводнике можно набрать текст запроса на странице Епter SQL, выполнить его кнопкой Ехcute Querу и сохрани гь его в текстовом файле командой Оbject/Save As.

Установка связей между таблицами

Имя источника главной (родительской) таблицы, с которой останавливается связь, и имя поля главной таблицы, по которому связывается таблица, задаются в свойствах подчиненной (дочерней) таблицы МаsterSouгсе и МаsterFields соответственно В нашем примере цля таблицы организаций этим свойствам присвоим значения МаsterSouгсе =SourceOcheredniki, Маster,
МаsterFields =KO

Существует визуальный способ установки связей Выберем модуль данных и откроем страницу Data Diagram окна DataModule2 Перенесем последовательно мышкой из проводника этого окна узлы с именами таблиц Ocheredniki, Orgahizacy, Gorod, Osnovany на страницу Data Diagram Щелкните на кнопке Маster Datail Проведите линию при нажатой левой кнопке мыши от таблицы Ocheredniki до таблицы Organizacy; появится окно Field Link Designer. Установите значения для полей и нажмите кнопку Аdd и ОК, связь установлена, и появится линия связи. Аналогично устанавливается связь и остальных таблиц. Объекты схемы данных можно прокомментировать: нажмите кнопку Соттеnt В1осК и щелкните мышкой на свободном месте схеме и в появившемся прямоугольнике введите текст комментария, щелкните по кнопке Соттеnt Аlludе и протяните линию от комментария к нужному объекту.

М
астер форм

Мастер форм вызывается командой DataBase/Form Wizard. На первом шаге выбирается тип формы: Сreate a simple form (простая форма), Create a master/detail form (составная форма, состоящая из главной и детальной форм, например: очередники и организации). Выбирается тип источника данных (таблицы или запросы), выбираются таблицы (запросы) и их поля, выводимые в форму. Если форма составная, то указываются поля связи главной и детальной таблицы (в нашем примере - код организации).Выбирается тип формы: вертикальная, горизонтальная или табличная.
Полученную форму можно откорректировать.

О
тчеты

Выделяются четыре типа отчетов: простой,

с группировкой данных, связанный отношением "мастер/детальный" и составной, объединяющий несколько отчетов.

Компоненты отчета находятся на панели QReport. Создание отчета обычно начинается с размещения на отдельной форме компонента QuickRep. Он выполняет роль формы, на которой размещаются другие компоненты отчета.

Отчет делится на горизонтальные полосы (разделы). Каждая полоса является отдельным настраиваемым компонентом, тип ее задается в свойствах Ваnds, ВаndТуре компонентов QuickRep, QRBand соответственно. При проектировании отчета можно его просмотреть командой Ргеview контекстного меню. После формирования отчета он просматривается в окне предварительного просмотра, вызываемого методом Ргеview, или выводится на печать методом Ргint. Можно создать отдельное окно предварительного просмотра, используя компонент QRPreview. Рекомендуется для отчета выделять отдельную невидимую форму.