База данных АРМ "Валютный кассир"

БД, входящая в состав АРМ ’Валютный кассир’ написана как Delphi приложение с использованием языка программирования Object Pascal для работы под ОС Windows 95. БД состоит из двух основных частей:

-управляющего модуля;

-модулей экранных форм.

Рассмотрим процесс создания и заполнения таблиц данных. В составе БД имеется три основные таблицы:

1 таблица содержит в себе данные, характеризующие каждый обменный пункт филиала, а именно: название Банка, текущую дату, режим работы, адрес обменного пункта, его регистрационный номер, фамилия кассира, выданный аванс ‑ денежной массы и документов;

2 таблица содержит данные об иностранной валюте, с которой обменный пункт проводит операции, а именно – название каждой валюты и ее код, текущая дата, курс ЦБ, внутренние курсы покупки / продажи валют, а также остаток денежной массы на текущий момент;

3 òàáëèöà здесь содержатся такие данные о справках строгой отчетности, как: серия и номер справки, информация о том, была ли забракована справка или нет, текущая дата, режим работы (Утро / Вечер) и регистрационный номер обменного пункта.

Создание таблиц происходило следующим образом. Прежде всего, с помощью диспетчера файлов Windows (Windows File Manager), делается новый каталог C: \ BOXLIGHT \ TEMP. Это то место, где будут размещаться таблицы и индексы. Позднее они будут скопированы в каталог, специально предназначенный для приложения.

Далее, следует перейти к Delphi, из меню Tools (Инструментальные средства) запустить Database Desktop (Рабочий стол БД). Из меню File (Файл) в DBD нужно выбрать New/Table (Новая Таблица) и выбрать dBase для Windows из предложенного набора типов файлов. Открывшийся после этого диалог Create Table (Создать таблицу) помогает определить таблицу с помощью специфики полей.

Для создания индекса по полю таблицы следует щелкнуть кнопкой на Define (Определить), в результате чего на экране появляется диалог Define Index (Определить индекс). Из списка полей выбирается индексируемое поле, на нем надо дважды щелкнуть, затем отметить индикатор Unique (Уникальный), т.к. индекс по этому полю должен иметь характеристику ’уникальный’. Полностью специфицировав все поля и индексы следует нажать кнопку Save as (Сохранить как) в диалог Create Table и записать файл в каталог C: \ BOXLOGHT \ TEMP.

Без разработки при помощи Delphi быстрых черновых инструментальных средств не обойтись. Одна из утилит должна содержать DBMemo‑объект, который должен быть связан с полем мемо. Затем ввести данные в это поле во все записи таблицы и перекомпилировать утилиту так, чтобы объект DBMemî áûë ñâÿçàí ñ äðóãèì ïîëåì ìåìî. Ïîñëå ýòîãî âñå текстуальные äàííûå в таблицу введены. Затем можно переключиться на таблицу общей информации и обработать мемо‑поля там.

Вторая утилита должна содержать объект DBImage, который следует связать с полем BLOB в таблице. После этого можно поочередно вводить битовые карты графических изображений в буфер обмена информации (карман) и вставлять их затем в DBImage.

Первую утилиту можно соорудить мгновенно, используя всего одну форму. Одновременно необходим доступ только к одной таблице, поэтому создается компоненты Ttable/DataSource. Кроме того, добавляется компонентDBText, связав его с полем PRD_NAME, так чтобы при работе с таблицей было видно с каким продуктом имеется дело. Вначале модифицируется свойство DBNavogator VisibleButtons (Видимые кнопки), так чтобы были видны первые четыре кнопки. Расставив все по местам модифицируются некоторые свойства объектов, предназначенные для работы с таблицей. Далее следует щелкнуть на Table и установить DataBase_Name (Имя БД), указав путь к каталогу БД, содержащему таблицы – C:\BOXLIGHT\TEMP, месту, где они были созданы. Затем, щелкнув на Table (Имя таблицы) выбирается PRODUCTS.DBF,наконец, щелкнув на IndexName (Имя таблицы) указывается PUD_STKNUM.Таким образом ‑ DataSouce (Источник данных) и Table (Таблица) соединены. Остается соединить с DataSoure – DBNavigator, DBtext и DBMemo. Для DBText в качестве DataField указывается PRD NAME.Для начала выбирается PRD_DEST для DBMemo для DataField.

После установки всех свойств следует дважды щелкнуть на Active в Table, чтобы связать ее с PRODUCT.DBF. Так как по умолчанию все объекты, информированные о данных (data aware objects), допускают прямое редактирование всех полей, то в DBText сразу появляется ’ColorShow 1200’.