3-1.txt

来自「Delphi_7.0数据库开发源代码。有内容十一章节」· 文本 代码 · 共 43 行

SET SQL DIALECT 1; 
CREATE DOMAIN DOM_MAJOR AS CHAR(10);
CREATE DOMAIN DOM_AGE AS INTEGER
	 DEFAULT 18
	 CHECK (VALUE > 16 AND VALUE <= 30);
CREATE DOMAIN DOM_NAME AS CHAR(8);
CREATE DOMAIN DOM_SCORE AS INTEGER
	 CHECK (VALUE > 500);
CREATE DOMAIN DOM_DEPTNO AS CHAR(3);
CREATE DOMAIN DOM_NO AS CHAR(6);

CREATE TABLE NEW_STUDENT 
(
  SNO	DOM_NO NOT NULL,
  NAME	DOM_NAME,
  AGE   DOM_AGE,
  DEPNO DOM_DEPTNO,
  MAJOR DOM_MAJOR,
  SCORE DOM_SCORE,
  PRIMARY KEY (SNO)
);

CREATE PROCEDURE GET_STU_NAME 
(
  S_NO CHAR(6)
)
RETURNS
(
  S_NAME CHAR(8)
)
AS
BEGIN
  SELECT NAME
  FROM NEW_STUDENT
  WHERE SNO = S_NO   
END
 ^
/* Grant Roles for this database */


/* Grant permissions for this database */