169076 (625254), страница 6

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 6)

/

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

#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 + "} отсутствует");

}

} __finally

{

delete mrT;

}

}

//---------------------------------------------------------------------------

__fastcall TfrmUniForm::TfrmUniForm(TComponent* Owner, TMenuItem* itm, AnsiString formname)

: TForm(Owner)

{

this->itm = itm;

uid = "";

link = false;

desc = new TformDescription();

slv = NULL; lnk = NULL;

desc->formname = formname;

form->dsc = desc;

parentform = NULL;

if (itm) itm->Enabled = false;

accept = false;

btnlst = new TList();

fltlst = new TList();

fldlst = new TList();

UploadInfo();

}

//---------------------------------------------------------------------------

void __fastcall TfrmUniForm::UploadInfo()

{

UploadMetaInfo(desc, desc->formname);

this->Caption = desc->title;

form->editpanel->Caption = desc->edittitle;

form->dbgBrowse->Columns->Items[0]->FieldName = desc->listfield;

form->dbgBrowse->Columns->Items[0]->Title->Caption = "Название";

if (desc->readonly) { form->tblBrowse->ReadOnly = true; }

}

//---------------------------------------------------------------------------

void __fastcall TfrmUniForm::ReorderFilters()

{

for (int r=0; rCount; r++)

{

TfrmFilter* fr = ((TfrmFilter*)((TfltAddInfo*)fltlst->Items[r])->pntr);

fr->Align = alNone;

fr->Visible = false;

}

for (int r=0; rCount; r++)

{

TfrmFilter* fr = ((TfrmFilter*)((TfltAddInfo*)fltlst->Items[r])->pntr);

fr->Visible = true;

fr->Align = alTop;

}

}

//---------------------------------------------------------------------------

void __fastcall TfrmUniForm::Execute()

{

if (link)

{

form->Go();

// запомним мета-информацию по полям

Характеристики

Список файлов курсовой работы