odacdemoform.xfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

      '  Str VARCHAR2(50),'
      '  Dat DATE'
      ');'
      ''
      'CREATE TABLE ODAC_Pictures ('
      '  Name VARCHAR2(50),'
      '  Picture LONG RAW'
      ');'
      ''
      'CREATE TABLE ODAC_Long ('
      '  Code NUMBER PRIMARY KEY,'
      '  Title VARCHAR2(30),'
      '  Value LONG'
      ');'
      ''
      'CREATE TABLE ODAC_Long_char ('
      '  Code NUMBER PRIMARY KEY,'
      '  Title VARCHAR2(30),'
      '  Value VARCHAR2(&Len)'
      ');'
      ''
      'CREATE TABLE ThreadTable ('
      '  ID NUMBER,'
      '  NAME VARCHAR2(30)'
      ');'
      ''
      'create or replace'
      'package ODACPack'
      'is'
      '  TYPE TCursor IS REF CURSOR;'
      '  procedure GetDept(Cur OUT TCursor);'
      '  function GetDeptFunc return TCursor;'
      '  procedure GetEmp(Cur OUT TCursor);'
      'end;'
      '/'
      ''
      'create or replace'
      'package body ODACPack'
      'is'
      '  procedure GetDept(Cur OUT TCursor)'
      '  is'
      '  begin'
      '    OPEN Cur FOR'
      '      SELECT *'
      '      FROM Dept'
      '      ORDER BY DeptNo;'
      '  end; '
      '  function GetDeptFunc'
      '    return TCursor'
      '  is'
      '    Cur TCursor;'
      '  begin'
      '    OPEN Cur FOR'
      '      SELECT *'
      '      FROM Dept'
      '      ORDER BY DeptNo;'
      '    return Cur;'
      '  end; '
      '  procedure GetEmp(Cur OUT TCursor)'
      '  is'
      '  begin'
      '    OPEN Cur FOR'
      '      SELECT *'
      '      FROM Emp'
      '      ORDER BY EmpNo;'
      '  end; '
      'end;'
      '/'
      ''
      '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 TABLE ErrorMsg ('
      '    ErrorCode INTEGER,'
      '    Constraint VARCHAR(30),'
      '    Message VARCHAR(50),'
      '    SenderName VARCHAR(30),'
      '    ErrorClass VARCHAR(20)'
      ');'
      ''
      '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 ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (955, '#39#39', '#39'Table ErrorMsg already exist'#39');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (1438, '#39#39', '#39'DepNo must be < 100'#39');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (2291, '#39'EMP_FOREIGN_KEY'#39', '#39'Departament not exist'#39');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (2291, '#39#39', '#39'Parent key not found'#39');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      
        '  (2292, '#39'EMP_FOREIGN_KEY'#39', '#39'Can'#39#39't delete departament with empl' +
        'oyes'#39');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (2292, '#39#39', '#39'Chield record found'#39');'
      ''
      
        '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;')
    OnError = OnScriptError
    Session = OraSession
    Left = 555
    Top = 69
    MacroData = <
      item
        Name = 'Len'
      end>
  end
  object scDrop: TOraScript
    SQL.Strings = (
      'DROP PACKAGE ODACPack;'
      'DROP TABLE EMP;'
      'DROP TABLE DEPT;'
      'DROP TABLE ODAC_Loaded;'
      'DROP TABLE ODAC_Pictures;'
      'DROP TABLE ODAC_Long;'
      'DROP TABLE ODAC_Long_char;'
      'DROP TABLE ThreadTable;'
      'DROP TABLE CRGRID_TEST;'
      'DROP TABLE ErrorMsg;')
    OnError = OnScriptError
    Session = OraSession
    Left = 587
    Top = 69
  end
  object scCreateOracle8: TOraScript
    SQL.Strings = (
      'CREATE TABLE ODAC_BFile ('
      '  Code NUMBER PRIMARY KEY,'
      '  Title VARCHAR2(30),'
      '  Value BFile'
      ');'
      ''
      'CREATE TABLE ODAC_BLOB ('
      '  ID NUMBER PRIMARY KEY,'
      '  Title VARCHAR2(30),'
      '  Pic BLOB'
      ');'
      ''
      'CREATE OR REPLACE'
      'PROCEDURE ODAC_BLOB_Insert ('
      '  p_ID NUMBER,'
      '  p_Title VARCHAR2,'
      '  p_Pic OUT BLOB'
      ')'
      'is'
      'begin'
      '  INSERT INTO ODAC_BLOB(ID, Title, Pic)'
      '  VALUES (p_ID, p_Title, EMPTY_BLOB())'
      '  RETURNING Pic'
      '  INTO p_Pic;'
      'end;'
      '/'
      ''
      'CREATE TABLE ODAC_Clob ('
      '  Code NUMBER, -- PRIMARY KEY,'
      '  Title VARCHAR2(30),'
      '  Value CLOB'
      ');'
      ''
      'CREATE TYPE TODACArray1 AS VARRAY (5) OF NUMBER;'
      ''
      'CREATE TYPE TODACArrType AS OBJECT ('
      '  Num NUMBER,'
      '  Str VARCHAR2(10)'
      ');'
      ''
      'CREATE TYPE TODACArray2 AS VARRAY (3) OF TODACArrType;'
      ''
      'CREATE TYPE TODACArray3 AS VARRAY (4) OF CHAR(10);'
      ''
      'CREATE TYPE TODACArrType1 AS OBJECT ('
      '  Num NUMBER,'
      '  Str VARCHAR2(10),'
      '  Arr1 TODACArray1,'
      '  Arr2 TODACArray3'
      ');'
      ''
      'CREATE TABLE ODAC_Array ('
      '  Code NUMBER,'
      '  Title VARCHAR2(10),'
      '  Arr1 TODACArray1,'
      '  Arr2 TODACArray2,'
      '  Arr3 TODACArray3,'
      '  Obj TODACArrType1'
      ');'
      ''
      'CREATE TYPE TODACNestedSubType AS OBJECT ('
      '  Num NUMBER,'
      '  Str VARCHAR2(10) '
      ');'
      ''
      'CREATE TYPE TODACNestedType AS OBJECT ('
      '  Num NUMBER,'
      '  Str VARCHAR2(30),'
      '  Obj TODACNestedSubType,'
      '  Dat DATE'
      ');'
      ''
      'CREATE TYPE TODACNestedTable AS TABLE OF TODACNestedType; '
      ''
      'CREATE TABLE ODAC_NestedTable ('
      '  Code NUMBER PRIMARY KEY,'
      '  Content TODACNestedTable'
      ')'
      'NESTED TABLE Content STORE AS Content_Table;'
      ''
      'CREATE TYPE TAddress AS OBJECT ('
      '  Country VARCHAR2(30),'
      '  City VARCHAR2(30),'
      '  Street VARCHAR2(30),'
      '  Apartment NUMBER'
      ');'
      ''
      'CREATE OR REPLACE'
      'TYPE TPerson AS OBJECT ('
      '  Name VARCHAR2(30),'
      '  Address TAddress,'
      '  Phone VARCHAR2(20),'
      '  BirthDate DATE,'
      ''
      '  MEMBER FUNCTION getName RETURN VARCHAR2,'
      '  STATIC FUNCTION getClass RETURN VARCHAR2'
      ');'
      ''
      'CREATE OR REPLACE'
      'TYPE BODY TPerson'
      'as'
      '  MEMBER FUNCTION getName RETURN VARCHAR2'
      '  is'
      '  begin'
      '    return Name;'