Таблица 15 - COAL “Уголь”

Таблица 16 - TEC “Теплоэнергия”

Все справочные таблицы имеют одинаковую структуру.

Листинг основных участков кода.

SQL-текст команды создания таблицы Vecsel

CREATE TABLE VECSEL (NPP INTEGER NOT NULL,

ACTNUM SMALLINT NOT NULL,

VECNUM INTEGER NOT NULL,

EMITENT SMALLINT NOT NULL,

RUBSUM DOUBLE PRECISION NOT NULL,

EMISDATE DATE NOT NULL,

SENDDATE DATE,

VECHOLDER INTEGER,

SUPPLIER INTEGER,

CONTRACT INTEGER,

EXECUTED SMALLINT NOT NULL,

NOTE VARCHAR(50) CHARACTER SET WIN1251,

REGION SMALLINT);

CREATE GENERATOR VECSEL_GEN;

CREATE TRIGGER SET_VECSEL FOR VECSEL

ACTIVE BEFORE INSERT POSITION 0

AS BEGIN NEW.NPP=GEN_ID(VECSEL_GEN,1);END;

Текст основного SQL-запроса реестра векселей:

SELECT A.NPP, A.ACTNUM, A.VECNUM, B.NAME EMITENT, A.RUBSUM, A.EMISDATE,

A.SENDDATE, C.NAME VECHOLDER, D.NAME SUPPLIER, E.NOMER_OUR,

F.NAME SUBJECT, G.NAME SERVICE,

A.EXECUTED, A.NOTE, H.NAME REGION

FROM VECSEL A

LEFT OUTER JOIN EMITENT B

ON (A.EMITENT = B.NPP)

LEFT OUTER JOIN COMPANY C

ON (A.VECHOLDER = C.NPP)

LEFT OUTER JOIN COMPANY D

ON (A.SUPPLIER = D.NPP)

LEFT OUTER JOIN CONTRACT E

ON (A.CONTRACT = E.NPP)

LEFT OUTER JOIN REGION H

ON (A.REGION = H.NPP)

LEFT OUTER JOIN SUBJECT F

ON (E.SUBJECT = F.NPP)

LEFT OUTER JOIN DEPARTMENT G

ON (E.DEPARTMENT = G.NPP)

ORDER BY A.NPP

Запрос выводит информацию из таблицы VECSEL и тех таблиц, коды из которых использованы:

COMPANY – справочник по компаниям;

CONTRACT – таблица активных договоров;

REGION – справочник по регионам и энергосистемам;

SUBJECT – справочник по предмету договора;

DEPARTMENT – иерархический справочник по подразделениям компании.

Листинг основного модуля программы vecsel.exe

program Vecsel;

uses Forms, Windows, …

{$R *.RES}

const ProductTitle='Реестр векселей';

var FormPointer:PChar;

hD : HWND;

begin

Application.ShowMainForm:=false;

FormPointer:=PChar(ProductTitle);

hD:=FindWindow('TApplication',FormPointer);

If hD<>0 then

// если программа уже запущена, то вывести главное окно на первый план

SetForegroundWindow(hD)

else

//иначе запустить новый экземпляр программы

begin

Application.ShowMainForm:=true;

Application.Initialize;

Application.CreateForm(TCSTForm, CSTForm);

Application.CreateForm(TMainDM, MainDM);

Application.CreateForm(TMainForm, MainForm);

Application.CreateForm(TExcangeForm, ExcangeForm);

Application.Run;

end;

end.

Созданы справочники на все однородные группы данных. Каждая рабочая таблица хранит код везде, где возможно унифицировать данные. Т.о. были выделены следующие справочники:

- страны;

- города;

- службы;

- виды валют;

- компании;

- банки;

- предмет договора;

- пользователи.

Когда пользователь вводит информацию, это, как правило, стандартная операция с определенным контуром входных данных. Поэтому выгодно реализовать ввод всех финансовых операций в виде хранимых процедур в базе данных. Приложение-клиент передает по сети, в таком случае, только параметры этой процедуре, а она в свою очередь сама выполняет SQL-запросы. Это дает три хороших момента:

1) Трафик сети снижен до порогового минимума – следовательно, быстрее будет совместная работа нескольких пользователей;

2) Одни и те же хранимые процедуры могут использовать разные приложения, сокращается объем кода;

3) Хранимые процедуры выполняются в рамках одной транзакции – отпадает необходимость программно реализовывать механизм транзакций в каждом приложении.

Вводимая информация не только хранится в таблицах. При каждом изменении данных в одних таблицах необходимо по определенным правилам изменять данные в других таблицах.