unidacdemoform.dfm

CrLab UniDAC 1.0 include sources

      ''
      'SET TERM ^;'
      ''
      'CREATE PROCEDURE SEL_FROM_EMP '
      'RETURNS ('
      '    EMPNO INTEGER,'
      '    ENAME VARCHAR(10),'
      '    JOB VARCHAR(9),'
      '    MGR INTEGER,'
      '    SAL INTEGER,'
      '    COMM INTEGER,'
      '    DEPTNO INTEGER)'
      'AS'
      'BEGIN'
      '  FOR  SELECT EMPNO, ENAME, JOB, MGR, SAL, COMM, DEPTNO FROM emp'
      '    INTO :EMPNO, :ENAME, :JOB, :MGR, :SAL, :COMM, :DEPTNO'
      '  DO'
      '    suspend;'
      'END^'
      ''
      'SET TERM ;^'
      ''
      'COMMIT;'
      ''
      'INSERT INTO DEPT VALUES'
      '  (10,'#39'ACCOUNTING'#39','#39'NEW YORK'#39');'
      'INSERT INTO DEPT VALUES'
      '  (20,'#39'RESEARCH'#39','#39'DALLAS'#39');'
      'INSERT INTO DEPT VALUES'
      '  (30,'#39'SALES'#39','#39'CHICAGO'#39');'
      'INSERT INTO DEPT VALUES'
      '  (40,'#39'OPERATIONS'#39','#39'BOSTON'#39');'
      'INSERT INTO EMP VALUES'
      '  (7369,'#39'SMITH'#39','#39'CLERK'#39',7902,'#39'17.12.1980'#39',800,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7499,'#39'ALLEN'#39','#39'SALESMAN'#39',7698,'#39'20.02.1981'#39',1600,300,30);'
      'INSERT INTO EMP VALUES'
      '  (7521,'#39'WARD'#39','#39'SALESMAN'#39',7698,'#39'22.02.1981'#39',1250,500,30);'
      'INSERT INTO EMP VALUES'
      '  (7566,'#39'JONES'#39','#39'MANAGER'#39',7839,'#39'02.04.1981'#39',2975,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7654,'#39'MARTIN'#39','#39'SALESMAN'#39',7698,'#39'28.09.1981'#39',1250,1400,30);'
      'INSERT INTO EMP VALUES'
      '  (7698,'#39'BLAKE'#39','#39'MANAGER'#39',7839,'#39'01.05.1981'#39',2850,NULL,30);'
      'INSERT INTO EMP VALUES'
      '  (7782,'#39'CLARK'#39','#39'MANAGER'#39',7839,'#39'09.06.1981'#39',2450,NULL,10);'
      'INSERT INTO EMP VALUES'
      '  (7788,'#39'SCOTT'#39','#39'ANALYST'#39',7566,'#39'13.07.87'#39',3000,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7839,'#39'KING'#39','#39'PRESIDENT'#39',NULL,'#39'17.11.1981'#39',5000,NULL,10);'
      'INSERT INTO EMP VALUES'
      '  (7844,'#39'TURNER'#39','#39'SALESMAN'#39',7698,'#39'08.09.1981'#39',1500,0,30);'
      'INSERT INTO EMP VALUES'
      '  (7876,'#39'ADAMS'#39','#39'CLERK'#39',7788,'#39'13.07.87'#39',1100,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7900,'#39'JAMES'#39','#39'CLERK'#39',7698,'#39'03.12.1981'#39',950,NULL,30);'
      'INSERT INTO EMP VALUES'
      '  (7902,'#39'FORD'#39','#39'ANALYST'#39',7566,'#39'03.12.1981'#39',3000,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7934,'#39'MILLER'#39','#39'CLERK'#39',7782,'#39'23.01.1982'#39',1300,NULL,10);'
      ''
      
        'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthD' +
        'ate, Job, HireDate, Sal) VALUES'
      
        '  (5001, '#39'SMITH'#39', '#39'ENGLAND'#39', '#39'LONDON'#39', '#39'BOND st.'#39', '#39'12.10.63'#39', '#39 +
        'CLERK'#39', '#39'17.12.80'#39', 800);'
      ''
      
        'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthD' +
        'ate, Job, HireDate, Sal) VALUES'
      
        '  (5002, '#39'ALLEN'#39', '#39'ENGLAND'#39', '#39'LONDON'#39', '#39'BAKER st.'#39', '#39'04.03.61'#39', ' +
        #39'SALESMAN'#39', '#39'20.02.81'#39', 1600);'
      ''
      
        'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthD' +
        'ate, Job, HireDate, Sal) VALUES'
      
        '  (5003, '#39'MARTIN'#39', '#39'FRANCE'#39', '#39'LION'#39', '#39'WEAVER st.'#39', '#39'23.01.57'#39', '#39 +
        'MANAGER'#39', '#39'02.04.81'#39', 2900);'
      ''
      'COMMIT;')
    Connection = UniConnection
    Left = 395
    Top = 166
  end
  object scCreate_Oracle: TUniScript
    SQL.Strings = (
      'CREATE TABLE DEPT ('
      '  DEPTNO NUMBER(2) CONSTRAINT PK_DEPT PRIMARY KEY,'
      '  DNAME VARCHAR2(14) ,'
      '  LOC VARCHAR2(13)'
      ');'
      ''
      'CREATE TABLE EMP ('
      '  EMPNO NUMBER(4) CONSTRAINT PK_EMP PRIMARY KEY,'
      '  ENAME VARCHAR2(10),'
      '  JOB VARCHAR2(9),'
      '  MGR NUMBER(4),'
      '  HIREDATE DATE,'
      '  SAL NUMBER(7,2),'
      '  COMM NUMBER(7,2),'
      '  DEPTNO NUMBER(2) CONSTRAINT FK_DEPTNO REFERENCES DEPT'
      ');'
      ''
      'CREATE TABLE UniDAC_BLOB ('
      '  ID NUMBER(9) PRIMARY KEY,'
      '  Title VARCHAR2(30),'
      '  Picture BLOB'
      ');'
      ''
      'CREATE TABLE UniDAC_Text('
      '  ID NUMBER(9) PRIMARY KEY,'
      '  Title VARCHAR2(30),'
      '  TextField LONG'
      ');'
      ''
      'CREATE TABLE CRGRID_TEST ('
      '  Id NUMBER(4) PRIMARY KEY,'
      '  Name VARCHAR2(10),'
      '  Country VARCHAR2(30),'
      '  City VARCHAR2(30),'
      '  Street VARCHAR2(30),'
      '  BirthDate DATE,'
      '  Job VARCHAR2(9),'
      '  Hiredate DATE,'
      '  Sal NUMBER(7, 2),'
      '  Remarks LONG'
      ');'
      ''
      'CREATE PROCEDURE SEL_FROM_EMP(Cur OUT SYS_REFCURSOR)'
      'AS'
      'BEGIN'
      '  OPEN Cur FOR'
      '    SELECT * FROM Emp ORDER BY EmpNo;'
      'END;'
      '/'
      ''
      'INSERT INTO DEPT VALUES'
      '  (10,'#39'ACCOUNTING'#39','#39'NEW YORK'#39');'
      'INSERT INTO DEPT VALUES'
      '  (20,'#39'RESEARCH'#39','#39'DALLAS'#39');'
      'INSERT INTO DEPT VALUES'
      '  (30,'#39'SALES'#39','#39'CHICAGO'#39');'
      'INSERT INTO DEPT VALUES'
      '  (40,'#39'OPERATIONS'#39','#39'BOSTON'#39');'
      ''
      'INSERT INTO EMP VALUES'
      
        '  (7369,'#39'SMITH'#39','#39'CLERK'#39',7902,to_date('#39'17-12-1980'#39','#39'dd-mm-yyyy'#39'),' +
        '800,NULL,20);'
      'INSERT INTO EMP VALUES'
      
        '  (7499,'#39'ALLEN'#39','#39'SALESMAN'#39',7698,to_date('#39'20-02-1981'#39','#39'dd-mm-yyyy' +
        #39'),1600,300,30);'
      'INSERT INTO EMP VALUES'
      
        '  (7521,'#39'WARD'#39','#39'SALESMAN'#39',7698,to_date('#39'22-02-1981'#39','#39'dd-mm-yyyy'#39 +
        '),1250,500,30);'
      'INSERT INTO EMP VALUES'
      
        '  (7566,'#39'JONES'#39','#39'MANAGER'#39',7839,to_date('#39'02-04-1981'#39','#39'dd-mm-yyyy'#39 +
        '),2975,NULL,20);'
      'INSERT INTO EMP VALUES'
      
        '  (7654,'#39'MARTIN'#39','#39'SALESMAN'#39',7698,to_date('#39'28-09-1981'#39','#39'dd-mm-yyy' +
        'y'#39'),1250,1400,30);'
      'INSERT INTO EMP VALUES'
      
        '  (7698,'#39'BLAKE'#39','#39'MANAGER'#39',7839,to_date('#39'01-05-1981'#39','#39'dd-mm-yyyy'#39 +
        '),2850,NULL,30);'
      'INSERT INTO EMP VALUES'
      
        '  (7782,'#39'CLARK'#39','#39'MANAGER'#39',7839,to_date('#39'09-06-1981'#39','#39'dd-mm-yyyy'#39 +
        '),2450,NULL,10);'
      'INSERT INTO EMP VALUES'
      
        '  (7788,'#39'SCOTT'#39','#39'ANALYST'#39',7566,to_date('#39'13-07-87'#39','#39'dd-mm-yyyy'#39'),' +
        '3000,NULL,20);'
      'INSERT INTO EMP VALUES'
      
        '  (7839,'#39'KING'#39','#39'PRESIDENT'#39',NULL,to_date('#39'17-11-1981'#39','#39'dd-mm-yyyy' +
        #39'),5000,NULL,10);'
      'INSERT INTO EMP VALUES'
      
        '  (7844,'#39'TURNER'#39','#39'SALESMAN'#39',7698,to_date('#39'08-09-1981'#39','#39'dd-mm-yyy' +
        'y'#39'),1500,0,30);'
      'INSERT INTO EMP VALUES'
      
        '  (7876,'#39'ADAMS'#39','#39'CLERK'#39',7788,to_date('#39'13-07-87'#39','#39'dd-mm-yyyy'#39'),11' +
        '00,NULL,20);'
      'INSERT INTO EMP VALUES'
      
        '  (7900,'#39'JAMES'#39','#39'CLERK'#39',7698,to_date('#39'03-12-1981'#39','#39'dd-mm-yyyy'#39'),' +
        '950,NULL,30);'
      'INSERT INTO EMP VALUES'
      
        '  (7902,'#39'FORD'#39','#39'ANALYST'#39',7566,to_date('#39'03-12-1981'#39','#39'dd-mm-yyyy'#39')' +
        ',3000,NULL,20);'
      'INSERT INTO EMP VALUES'
      
        '  (7934,'#39'MILLER'#39','#39'CLERK'#39',7782,to_date('#39'23-01-1982'#39','#39'dd-mm-yyyy'#39')' +
        ',1300,NULL,10);'
      ''
      
        'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthD' +
        'ate, Job, HireDate, Sal) VALUES'
      
        '  (5001, '#39'SMITH'#39', '#39'ENGLAND'#39', '#39'LONDON'#39', '#39'BOND st.'#39', to_date('#39'12.1' +
        '0.63'#39', '#39'dd.mm.yy'#39'), '#39'CLERK'#39','
      '   to_date('#39'17.12.80'#39', '#39'dd.mm.yy'#39'), 800);'
      
        'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthD' +
        'ate, Job, HireDate, Sal) VALUES'
      
        '  (5002, '#39'ALLEN'#39', '#39'ENGLAND'#39', '#39'LONDON'#39', '#39'BAKER st.'#39', to_date('#39'04.' +
        '03.61'#39', '#39'dd.mm.yy'#39'), '#39'SALESMAN'#39','
      '   to_date('#39'20.02.81'#39', '#39'dd.mm.yy'#39'), 1600);'
      
        'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthD' +
        'ate, Job, HireDate, Sal) VALUES'
      
        '  (5003, '#39'MARTIN'#39', '#39'FRANCE'#39', '#39'LION'#39', '#39'WEAVER st.'#39', to_date('#39'23.0' +
        '1.57'#39', '#39'dd.mm.yy'#39'), '#39'MANAGER'#39','
      '   to_date('#39'02.04.81'#39', '#39'dd.mm.yy'#39'), 2900);'
      ''
      'COMMIT;')
    Connection = UniConnection
    Left = 363
    Top = 166
  end
  object scDrop: TUniScript
    SQL.Strings = (
      'DROP PROCEDURE SEL_FROM_EMP;'
      ''
      'DROP TABLE EMP;'
      ''
      'DROP TABLE DEPT;'
      ''
      'DROP TABLE UniDAC_BLOB;'
      ''
      'DROP TABLE UniDAC_Text;'
      ''
      'DROP TABLE CRGRID_TEST;')
    Connection = UniConnection
    Left = 363
    Top = 229
  end
  object scCreate_SQLServer: TUniScript
    SQL.Strings = (
      'CREATE TABLE DEPT ('
      '  DEPTNO INT CONSTRAINT PK_DEPT PRIMARY KEY,'
      '  DNAME VARCHAR(14) ,'
      '  LOC VARCHAR(13)'
      ');'
      ''
      'CREATE TABLE EMP ('
      '  EMPNO INT CONSTRAINT PK_EMP PRIMARY KEY,'
      '  ENAME VARCHAR(10),'
      '  JOB VARCHAR(9),'
      '  MGR SMALLINT,'
      '  HIREDATE DATETIME,'
      '  SAL NUMERIC(7,2),'
      '  COMM NUMERIC(7,2),'
      '  DEPTNO INT CONSTRAINT FK_DEPTNO REFERENCES DEPT'
      ');'
      ''
      'CREATE TABLE UniDAC_BLOB ('
      '  ID INT PRIMARY KEY,'