SYSDBA: Новая страница: « CREATE TABLE gd_function ( id dintkey, /* Первичный ключ */ module dtext40,…»

2010-06-04T09:36:45Z

Новая страница: «<syntaxhighlight lang="SQL"> CREATE TABLE gd_function ( id dintkey, - ‎Первичный ключ: module dtext40,…»

Новая страница

<syntaxhighlight lang="SQL">
CREATE TABLE gd_function
(
id dintkey, /* Первичный ключ */
module dtext40, /* Модуль */
language dtext10, /* Язык программирования */
name dlongname, /* Наименование функции */
comment dtext180, /* Комментарий к функции */
script dscript, /* Текст функции */
displayscript dscript, /* Видимый текст функции *//*Данное поле можно удалить*/

afull dsecurity, /* Права доступа полные *//*Данное поле можно удалить*/
achag dsecurity, /* Права доступа на изменения *//*Данное поле можно удалить*/
aview dsecurity, /* права доступа на просмотр *//*Данное поле можно удалить*/
modifydate dtimestamp, /*Данное поле можно удалить*/

testresult dblob80, /* Поле для отчетов. Для хранения пустой структуры. */
ownername dtext40, /*Данное поле можно удалить*/
functiontype dfunctiontype, /*Данное поле можно удалить*/
event dtext40,

localname dtext40, /* Название функции на русском языке *//*Данное поле можно удалить*/
publicfunction dboolean DEFAULT 1 NOT NULL, /* Внутрення или внешняя функция *//*Данное поле можно удалить*/
shortcut dtext10, /* Горячая клавиша *//*Данное поле можно удалить*/
groupname dtext20, /* Название группы *//*Данное поле можно удалить*/

modulecode dinteger NOT NULL, /* код модуля */
enteredparams dblob80,
reserved dinteger, /* Зарезервировано */
inheritedrule dinheritedrule, /* Поле для событий указывает на момент
перекрытия. Оно может принимать три значения:
0 - перекрывать полностью;
1 - вызывать родительский обработчик до скрипт-функции;
2 - вызывать обработчик после выполнения скрипт-функции.*/
breakpoints dblob80, /* Поле хранит информацию о точках прерывания*/
usedebuginfo dboolean, /* Указывает на необходимость использования отладчика при запуске функции*/
/*Данное поле можно удалить*/
editorstate dblob80, /* Хранится положение курсора редактора, закладки и т.п.*/
editiondate deditiondate, /* Дата последнего редактирования */
editorkey dintkey /* Ссылка на пользователя, который редактировал запись*/
);

ALTER TABLE gd_function ADD CONSTRAINT gd_pk_function
PRIMARY KEY (id);

/* пакуль што мы падтрымлiваем 1 мову */
ALTER TABLE gd_function ADD CONSTRAINT gd_chk_function_language
CHECK (language IN ('JScript', 'VBScript'));

/* назва функцыi павiнна быць унiкальнай */
/* у межах аднаго модулю */
CREATE UNIQUE INDEX gd_x_function_name ON gd_function
(name, modulecode);

CREATE INDEX gd_x_function_module ON gd_function
(module);

ALTER TABLE gd_function ADD CONSTRAINT gd_fk_function_editorkey
FOREIGN KEY(editorkey) REFERENCES gd_people(contactkey)
ON UPDATE CASCADE;

COMMIT;

CREATE GENERATOR gd_g_functionch;
SET GENERATOR gd_g_functionch TO 1;

COMMIT;

SET TERM ^ ;

CREATE TRIGGER gd_function_ad_ch FOR gd_function
AFTER DELETE POSITION 32000
AS
DECLARE VARIABLE I INTEGER;
BEGIN
I = GEN_ID(gd_g_functionch, 1);
END
^

CREATE TRIGGER gd_bi_function FOR gd_function
BEFORE INSERT
POSITION 0
AS
BEGIN
IF (NEW.ID IS NULL) THEN
NEW.ID = GEN_ID(gd_g_unique, 1) + GEN_ID(gd_g_offset, 0);

/* NEW.modifydate = 'NOW';*/

IF (NEW.modulecode IS NULL) then
NEW.modulecode = 1010001;/*ид апликатион*/
IF (NEW.publicfunction IS NULL) then
NEW.publicfunction = 0;
END
^

CREATE TRIGGER gd_bu_function FOR gd_function
BEFORE UPDATE
POSITION 0
AS
BEGIN
IF (NEW.modulecode IS NULL) then BEGIN
IF (OLD.modulecode IS NULL) THEN
NEW.modulecode = 1010001;
ELSE
NEW.modulecode = OLD.modulecode;
END
IF (NEW.publicfunction IS NULL) then BEGIN
IF (OLD.publicfunction IS NULL) THEN
NEW.publicfunction = 0;
ELSE
NEW.publicfunction = OLD.publicfunction;
END
END
^

CREATE TRIGGER gd_bi_function5 FOR gd_function
BEFORE INSERT POSITION 5
AS
BEGIN
IF (NEW.editorkey IS NULL) THEN
NEW.editorkey = 650002;
IF (NEW.editiondate IS NULL) THEN
NEW.editiondate = CURRENT_TIMESTAMP;
END
^

CREATE TRIGGER gd_bu_function5 FOR gd_function
BEFORE UPDATE POSITION 5
AS
BEGIN
IF (NEW.editorkey IS NULL) THEN
NEW.editorkey = 650002;
IF (NEW.editiondate IS NULL) THEN
NEW.editiondate = CURRENT_TIMESTAMP;
END
^

SET TERM ; ^
</syntaxhighlight>

[[Category:База данных]]

GD FUNCTION - История изменений

SYSDBA: Новая страница: « CREATE TABLE gd_function ( id dintkey, /* Первичный ключ */ module dtext40,…»