Программное обеспечение базы данный "Экологический мониторинг" 
/
COMMENT ON COLUMN ECOLOGY_PARAM.НОРМАТИВ_CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN ECOLOGY_PARAM.НОРМАТИВ_CODE_ИМЕЕТ IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN ECOLOGY_PARAM.ФОРМА_CODE IS 'Уникльный идентификатор'
/
COMMENT ON COLUMN ECOLOGY_PARAM.ПЕРИОДИЧН_CODE IS 'Уникальный идентификатор сущности'
/
PROMPT Creating Table 'NORMATIV_PARAM'
CREATE TABLE NORMATIV_PARAM
(CODE NUMBER(6) NOT NULL
,НОРМАТИВ_TYPE VARCHAR2(240)
)
/
COMMENT ON COLUMN NORMATIV_PARAM.CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN NORMATIV_PARAM.НОРМАТИВ_TYPE IS 'Тип норматива'
/
PROMPT Creating Table 'TERRITORIES'
CREATE TABLE TERRITORIES
(CODE NUMBER NOT NULL
,KINDT NUMBER(2,0) NOT NULL
,NAME VARCHAR2(200) NOT NULL
,DESCR VARCHAR2(4000)
,SQUARE NUMBER
,GRIF NUMBER(2,0) DEFAULT 0 NOT NULL
)
/
PROMPT Creating Table 'OBJECT_EM'
CREATE TABLE OBJECT_EM
(CODE NUMBER(6) NOT NULL
,TYPE_OBJ VARCHAR2(240)
,CODE_OBJ VARCHAR2(240)
,CLASS VARCHAR2(240)
,DET_STRUCT VARCHAR2(240)
,DET_TER VARCHAR2(240)
)
/
COMMENT ON COLUMN OBJECT_EM.CODE IS 'Уникальный идентификатор'
/
COMMENT ON COLUMN OBJECT_EM.TYPE_OBJ IS 'Тип объекта мониторинга'
/
COMMENT ON COLUMN OBJECT_EM.CODE_OBJ IS 'код объекта мониторинга'
/
COMMENT ON COLUMN OBJECT_EM.CLASS IS 'класс объекта (население территория объект)'
/
COMMENT ON COLUMN OBJECT_EM.DET_STRUCT IS 'детализация структуры'
/
COMMENT ON COLUMN OBJECT_EM.DET_TER IS 'детализация по местонахождению'
/
PROMPT Creating Table 'UNITMEASURE'
CREATE TABLE UNITMEASURE
(UNITMEAS VARCHAR2(20) NOT NULL
,MEASSYST VARCHAR2(15) NOT NULL
,FACTOR NUMBER
,CODE NUMBER(4,0)
,DISPLAY_FORMAT VARCHAR2(20)
)
/
COMMENT ON COLUMN UNITMEASURE.FACTOR IS 'Коэффициент перевода единиц измерения (1-для основного)'
/
COMMENT ON COLUMN UNITMEASURE.CODE IS 'Уникальный код'
/
COMMENT ON COLUMN UNITMEASURE.DISPLAY_FORMAT IS 'Форматная маска'
/
PROMPT Creating Table 'VALUE'
CREATE TABLE VALUE
(CODE NUMBER(6) NOT NULL
,DATA_START DATE NOT NULL
,DATA_STOP DATE NOT NULL
,VALUE_NUMBER NUMBER
,VALUE_TEXT VARCHAR2(240)
,DESCR VARCHAR2(240)
,PARAM_CODE NUMBER(6) NOT NULL
,ORG_CODE NUMBER(6,0) NOT NULL
,ОТЧЕТНОСТЬ_CODE NUMBER(6) NOT NULL
)
/
COMMENT ON COLUMN VALUE.CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN VALUE.DATA_START IS 'Дата начала усреднения параметра'
/
COMMENT ON COLUMN VALUE.DATA_STOP IS 'Дата окончания усреднения'
/
COMMENT ON COLUMN VALUE.VALUE_NUMBER IS 'Численное значение величины'
/
COMMENT ON COLUMN VALUE.VALUE_TEXT IS 'Текстовое значение величины'
/
COMMENT ON COLUMN VALUE.DESCR IS 'Комментарии'
/
COMMENT ON COLUMN VALUE.PARAM_CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN VALUE.ОТЧЕТНОСТЬ_CODE IS 'Уникальный идентификатор сущности'
/
PROMPT Creating Table 'ISOTOPE'
CREATE TABLE ISOTOPE
(SHORTNAME VARCHAR2(10) NOT NULL
,FULLNAME VARCHAR2(50) NOT NULL
)
/
-- c:\temp\uir.con
--
-- Generated for Oracle 8 on Tue Dec 25 16:29:20 2001 by Server Generator 6.0.3.3.0
PROMPT Creating Primary Key on 'OTCHETNOST'
ALTER TABLE OTCHETNOST
ADD CONSTRAINT ОТЧЕТНОСТЬ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'ORGANIZATION'
ALTER TABLE ORGANIZATION
ADD CONSTRAINT ORG_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'FORMA_OTCHETNOSTI'
ALTER TABLE FORMA_OTCHETNOSTI
ADD CONSTRAINT ФОРМА_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'SUBSTANCE'
ALTER TABLE SUBSTANCE
ADD CONSTRAINT SUBSTANCE_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'PERIOD'
ALTER TABLE PERIOD
ADD CONSTRAINT ПЕРИОДИЧН_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'ECOLOGY_NUMBER'
ALTER TABLE ECOLOGY_NUMBER
ADD CONSTRAINT ЭКОЛОГ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'GROUP_PARAMETR'
ALTER TABLE GROUP_PARAMETR
ADD CONSTRAINT ГРУППА_ПАР_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'TYPE_ECOLOGY_NUMBER'
ALTER TABLE TYPE_ECOLOGY_NUMBER
ADD CONSTRAINT ТИП_ЭВ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'ZAGRAZN_VV'
ALTER TABLE ZAGRAZN_VV
ADD CONSTRAINT ЗАГР_ВВ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'SMES'
ALTER TABLE SMES
ADD CONSTRAINT СМЕСИ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'ECOLOGY_PARAM'
ALTER TABLE ECOLOGY_PARAM
ADD CONSTRAINT PARAM_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'NORMATIV_PARAM'
ALTER TABLE NORMATIV_PARAM
ADD CONSTRAINT НОРМАТИВ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'TERRITORIES'
ALTER TABLE TERRITORIES
ADD CONSTRAINT TER3_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'OBJECT_EM'
ALTER TABLE OBJECT_EM
ADD CONSTRAINT ОБЪЕКТ_ЭМ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'UNITMEASURE'
ALTER TABLE UNITMEASURE
ADD CONSTRAINT UNI1_PK PRIMARY KEY
(UNITMEAS)
/
PROMPT Creating Primary Key on 'ISOTOPE'
ALTER TABLE ISOTOPE
ADD CONSTRAINT ISO_PK PRIMARY KEY
(SHORTNAME)
/
PROMPT Creating Unique Keys on 'ORGANIZATION'
ALTER TABLE ORGANIZATION
ADD ( CONSTRAINT ORG_SYS_C002890_UK UNIQUE
(NAME))
ADD ( CONSTRAINT ORG_SYS_C002891_UK UNIQUE
(SHORTNAME))
/
PROMPT Creating Unique Keys on 'TERRITORIES'
ALTER TABLE TERRITORIES
ADD ( CONSTRAINT TER3_SYS_C0027487_UK UNIQUE
(NAME))
/
PROMPT Creating Foreign Keys on 'OTCHETNOST'
ALTER TABLE OTCHETNOST ADD CONSTRAINT
ОТЧЕТНОСТЬ_ПЕРИОДИЧН_FK FOREIGN KEY
(ПЕРИОДИЧН_CODE) REFERENCES PERIOD
(CODE) ADD CONSTRAINT
ОТЧЕТНОСТЬ_PARAM_FK FOREIGN KEY
(PARAM_CODE) REFERENCES ECOLOGY_PARAM
(CODE) ADD CONSTRAINT
ОТЧЕТНОСТЬ_НОРМАТИВ_FK FOREIGN KEY
(НОРМАТИВ_CODE) REFERENCES NORMATIV_PARAM
(CODE) ADD CONSTRAINT
ОТЧЕТНОСТЬ_НОРМАТИВ_ЯВЛЯЕТС_FK FOREIGN KEY
(НОРМАТИВ_CODE_ЯВЛЯЕТСЯ) REFERENCES NORMATIV_PARAM
(CODE) ADD CONSTRAINT
ОТЧЕТНОСТЬ_UNI1_FK FOREIGN KEY
(UNI1_UNITMEAS) REFERENCES UNITMEASURE
(UNITMEAS) ADD CONSTRAINT
ОТЧЕТНОСТЬ_ОБЪЕКТ_ЭМ_FK FOREIGN KEY
(ОБЪЕКТ_ЭМ_CODE) REFERENCES OBJECT_EM
(CODE)
/
PROMPT Creating Foreign Keys on 'FORMA_OTCHETNOSTI'
ALTER TABLE FORMA_OTCHETNOSTI ADD CONSTRAINT
ФОРМА_ФОРМА_FK FOREIGN KEY
(ФОРМА_CODE) REFERENCES FORMA_OTCHETNOSTI
(CODE) ADD CONSTRAINT
ФОРМА_ORG_УТВЕРЖДЕНА_FK FOREIGN KEY
(ORG_CODE_УТВЕРЖДЕНА) REFERENCES ORGANIZATION
(CODE) ADD CONSTRAINT
ФОРМА_ПЕРИОДИЧН_FK FOREIGN KEY
(ПЕРИОДИЧН_CODE) REFERENCES PERIOD
(CODE)
/
PROMPT Creating Foreign Keys on 'ECOLOGY_NUMBER'
ALTER TABLE ECOLOGY_NUMBER ADD CONSTRAINT
ЭКОЛОГ_UNI1_FK FOREIGN KEY
(UNI1_UNITMEAS) REFERENCES UNITMEASURE
(UNITMEAS) ADD CONSTRAINT
ЭКОЛОГ_ТИП_ЭВ_FK FOREIGN KEY
(ТИП_ЭВ_CODE) REFERENCES TYPE_ECOLOGY_NUMBER
(CODE) ADD CONSTRAINT
ЭКОЛОГ_ГРУППА_ПАР_FK FOREIGN KEY
(ГРУППА_ПАР_CODE) REFERENCES GROUP_PARAMETR
(CODE)
/
PROMPT Creating Foreign Keys on 'GROUP_PARAMETR'
ALTER TABLE GROUP_PARAMETR ADD CONSTRAINT
ГРУППА_ПАР_ГРУППА_ПАР_FK FOREIGN KEY
(ГРУППА_ПАР) REFERENCES GROUP_PARAMETR
(CODE)
/
PROMPT Creating Foreign Keys on 'TYPE_ECOLOGY_NUMBER'
ALTER TABLE TYPE_ECOLOGY_NUMBER ADD CONSTRAINT
ТИП_ЭВ_FK FOREIGN KEY
(ТИП_ЭВ) REFERENCES TYPE_ECOLOGY_NUMBER
(CODE)
/
PROMPT Creating Foreign Keys on 'ZAGRAZN_VV'
ALTER TABLE ZAGRAZN_VV ADD CONSTRAINT
ЗАГР_ВВ_СМЕСИ_FK FOREIGN KEY
(СМЕСИ_CODE) REFERENCES SMES
(CODE) ADD CONSTRAINT
ЗАГР_ВВ_ISO_FK FOREIGN KEY
(ISO_SHORTNAME) REFERENCES ISOTOPE
(SHORTNAME) ADD CONSTRAINT
ЗАГР_ВВ_SUBSTANCE_FK FOREIGN KEY
(SUBSTANCE_CODE) REFERENCES SUBSTANCE
(CODE)
/
PROMPT Creating Foreign Keys on 'ECOLOGY_PARAM'
ALTER TABLE ECOLOGY_PARAM ADD CONSTRAINT
PARAM_UNI1_FK FOREIGN KEY
(UNI1_UNITMEAS) REFERENCES UNITMEASURE
(UNITMEAS) ADD CONSTRAINT
PARAM_ЭКОЛОГ_FK FOREIGN KEY
(ЭКОЛОГ_CODE) REFERENCES ECOLOGY_NUMBER
(CODE) ADD CONSTRAINT
PARAM_ЗАГР_ВВ_FK FOREIGN KEY
(ЗАГР_ВВ_CODE) REFERENCES ZAGRAZN_VV
(CODE) ADD CONSTRAINT
PARAM_ФОРМА_FK FOREIGN KEY
(ФОРМА_CODE) REFERENCES FORMA_OTCHETNOSTI
(CODE) ADD CONSTRAINT
PARAM_ПЕРИОДИЧН_FK FOREIGN KEY
(ПЕРИОДИЧН_CODE) REFERENCES PERIOD
(CODE)
/
PROMPT Creating Foreign Keys on 'VALUE'
ALTER TABLE VALUE ADD CONSTRAINT
VALUE_ORG_FK FOREIGN KEY
(ORG_CODE) REFERENCES ORGANIZATION
(CODE) ADD CONSTRAINT
VALUE_ОТЧЕТНОСТЬ_FK FOREIGN KEY
(ОТЧЕТНОСТЬ_CODE) REFERENCES OTCHETNOST
(CODE)
/
Приложение 3. Пример текста программы.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "main.h"
#include "basic.h"
#include "unislct.h"
#include "filter.h"
#include "fieldsN.h"
#include "fieldText.h"
#include "fieldList.h"
#include "fieldValue.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "tbltmpl"
#pragma resource "*.dfm"
void __fastcall UploadMetaInfo(TformDescription *t_desc, AnsiString formname)
{
TADOQuery *mrT = new TADOQuery(NULL);
try
{
mrT->Connection = frmMain->cnncMetaInfo;
t_desc->formname = formname;
if (SELECT(mrT, "select * from forms where name = '" + t_desc->formname + "'"))
{
t_desc->title = mrT->FieldByName("title")->AsString;
t_desc->edittitle = mrT->FieldByName("edittitle")->AsString;
t_desc->accepttitle = mrT->FieldByName("accepttitle")->AsString;
t_desc->table = mrT->FieldByName("table")->AsString;
t_desc->keyfield = mrT->FieldByName("keyfield")->AsString;
t_desc->namefield = mrT->FieldByName("namefield")->AsString;
t_desc->listfield = mrT->FieldByName("listfield")->AsString;
t_desc->shortnamefield = mrT->FieldByName("shortnamefield")->AsString;
t_desc->sortfield = mrT->FieldByName("sortfield")->AsString;
t_desc->sequencename = mrT->FieldByName("sequencename")->AsString;
t_desc->readonly = mrT->FieldByName("readonly")->AsBoolean;
t_desc->takefieldsfrom = mrT->FieldByName("takefieldsfrom")->AsString;
t_desc->type = mrT->FieldByName("type")->AsString;
t_desc->hideonaccept = mrT->FieldByName("hideonaccept")->AsBoolean;
t_desc->parentfield = mrT->FieldByName("parentfield")->AsString;
} else
{
throw Exception("Ошибка: Форма {" + t_desc->formname + "} отсутствует");
Страницы: 1, 2, 3, 4, 5, 6, 7
|
