home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / IB5 / DOC / TUTORIAL / DOMAINS.SQL next >
Encoding:
Text File  |  1998-10-18  |  1.6 KB  |  70 lines
  1. /*  Domains.sql    
  2.     THIS FILE IS FOR USE WITH THE TUTORIAL. IT IS NOT MEANT 
  3.     TO BE USED WITHOUT REFERRING TO THE ACCOMPANYING TEXT.
  4.  
  5. *   You must change the parameters below to match your
  6. *   server name, database name, username, and password.
  7. *  
  8. *   This file defines domains for the TUTORIAL.GDB database.
  9. */
  10.  
  11. CONNECT 'c:\interbase5\tutorial\tutorial.gdb'
  12. USER 'TUTOR' PASSWORD 'tutor4ib';
  13.  
  14. /*
  15. You entered these four domain
  16. definitions by hand:
  17.  
  18. CREATE DOMAIN FIRSTNAME AS VARCHAR(15)
  19. CREATE DOMAIN LASTNAME AS VARCHAR(20)
  20.  
  21. CREATE DOMAIN EMPNO AS SMALLINT
  22.  
  23. CREATE DOMAIN DEPTNO AS CHAR(3)
  24.      CHECK ((VALUE = '000') OR 
  25.     (VALUE > '0' AND VALUE <= '999') 
  26.     OR (VALUE IS NULL))
  27. */
  28.  
  29. CREATE DOMAIN addressline AS VARCHAR(30);
  30.  
  31. CREATE DOMAIN projno
  32.     AS CHAR(5)
  33.     CHECK (VALUE = UPPER (VALUE));
  34.  
  35. CREATE DOMAIN custno
  36.     AS INTEGER
  37.     CHECK (VALUE > 1000);
  38.  
  39. CREATE DOMAIN phonenumber   AS VARCHAR(20);
  40.  
  41. CREATE DOMAIN countryname   AS VARCHAR(15);
  42.  
  43. CREATE DOMAIN jobcode
  44.     AS VARCHAR(5)
  45.     CHECK (VALUE > '99999');  /* must begin with a letter */
  46.  
  47. CREATE DOMAIN jobgrade
  48.     AS SMALLINT
  49.     CHECK (VALUE BETWEEN 0 AND 6);
  50.  
  51. CREATE DOMAIN salary
  52.     AS NUMERIC(10,2)
  53.     DEFAULT 0
  54.     CHECK (VALUE > 0);  /* salary is in any currency type */
  55.  
  56. /* budget is in US dollars */
  57. CREATE DOMAIN budget
  58.     AS DECIMAL(12,2)
  59.     DEFAULT 50000
  60.     CHECK (VALUE > 10000 AND VALUE <= 2000000);
  61.  
  62. CREATE DOMAIN prodtype
  63.     AS VARCHAR(12)
  64.     DEFAULT 'software' NOT NULL
  65.     CHECK (VALUE IN ('software', 'hardware', 'other', 'N/A'));
  66.  
  67. CREATE DOMAIN ponumber
  68.     AS CHAR(8)
  69.     CHECK (VALUE STARTING WITH 'V');
  70.