sqltext.txt

来自「射频卡发卡管理系统的PC端软件」· 文本 代码 · 共 44 行

/* Table: DEPARTMENT, Owner: SYSDBA */

CREATE TABLE "DEPARTMENT"
(
  "DEPID"	INTEGER  NOT NULL PRIMARY KEY,
  "DEPARTMENTNAME"	CHAR(50)
);
CREATE GENERATOR DEPID_GEN;
COMMIT;
SET TERM !! ;
CREATE TRIGGER CREATE_EMPNO FOR EMPLOYEES
	BEFORE INSERT POSITION 0
	AS BEGIN
		DEPARTMENT.EMPNO = GEN_ID(DEPID_GEN, 1);
	END
SET TERM ; !!


/* Table: DEPARTMENT, Owner: SYSDBA */

CREATE TABLE "CLASS"
(
  "CLASSID"	INTEGER NOT NULL,
  "CLASSNAME"	CHAR(50),
  "DEPID"       INTEGER,
  "SHOOLID"     INTEGER,
 PRIMARY KEY ("CLASSID")
);
SET TERM ^ ;


/* Triggers only will work for SQL triggers */

CREATE TRIGGER "CREATE_CLASSID" FOR "CLASS"
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
    NEW.CLASSID = GEN_ID(CLASSID_GEN, 1);
END
 ^

COMMIT WORK ^
SET TERM ;^