odacdemoform.xfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

      '  end;'
      ''
      '  STATIC FUNCTION getClass RETURN VARCHAR2'
      '  is'
      '  begin'
      '    return '#39'TPerson'#39';'
      '  end;'
      'end;'
      '/'
      ''
      'CREATE TYPE TRefObjectType AS OBJECT ('
      '  Str VARCHAR2(30),'
      '  Num NUMBER,'
      '  Left REF TRefObjectType,'
      '  Right REF TRefObjectType'
      ');'
      ''
      'CREATE TABLE ODAC_Ref OF TRefObjectType;'
      ''
      'CREATE TABLE ODAC_Emp ('
      '  Person TPerson,'
      '  Job VARCHAR2(9),'
      '  HireDate DATE,'
      '  Sal NUMBER(7,2)'
      ');'
      ''
      
        'INSERT INTO ODAC_Array (Code, Title, Arr1, Arr2, Arr3, Obj) VALU' +
        'ES'
      
        '  (1, '#39'Title 1'#39', TODACArray1(1,2,3), TODACArray2(TODACArrType(12' +
        ', '#39'Name1'#39'), NULL, TODACArrType(89, '#39'BBB'#39')), TODACArray3('#39'AAA'#39','#39'B' +
        'BB'#39','#39'CCC'#39'), TODACArrType1(56, '#39'RRR'#39', TODACArray1(1, NULL, 454, N' +
        'ULL, 657), TODACArray3(NULL, '#39'TTT'#39', NULL, '#39'UUU'#39')));'
      
        'INSERT INTO ODAC_Array (Code, Title, Arr1, Arr2, Arr3, Obj) VALU' +
        'ES'
      
        '  (2, '#39'Title 2'#39', TODACArray1(21,NULL,23,24), TODACArray2(NULL, T' +
        'ODACArrType(124, '#39'GGGG'#39'), NULL), TODACArray3(NULL,'#39'WWW'#39'), TODACA' +
        'rrType1(56, '#39'RRR'#39', NULL, NULL));'
      
        'INSERT INTO ODAC_Array (Code, Title, Arr1, Arr2, Arr3, Obj) VALU' +
        'ES'
      
        '  (3, '#39'Title 3'#39', TODACArray1(NULL,NULL,33,34,35), NULL, TODACArr' +
        'ay3(NULL,'#39'EEEE'#39'), TODACArrType1(NULL, NULL, TODACArray1(1, NULL,' +
        ' 454, NULL, 657), TODACArray3(NULL, NULL, '#39'CCCC'#39')));'
      
        'INSERT INTO ODAC_Array (Code, Title, Arr1, Arr2, Arr3, Obj) VALU' +
        'ES'
      '  (4, '#39'Title 4'#39', NULL, NULL, NULL, NULL);'
      ''
      'INSERT INTO ODAC_NestedTable (Code, Content) VALUES'
      
        '  (1, TODACNestedTable(TODACNestedType(111, '#39'AAAAA'#39', TODACNested' +
        'SubType(44, '#39'YYY'#39'), NULL)));'
      'INSERT INTO ODAC_NestedTable (Code, Content) VALUES'
      
        '  (2, TODACNestedTable(TODACNestedType(22, '#39'BBB'#39', TODACNestedSub' +
        'Type(456, '#39'UUU'#39'), NULL),'
      
        '   TODACNestedType(333, '#39'TTT'#39', TODACNestedSubType(234, '#39'SSSSS'#39'),' +
        ' NULL)));'
      ''
      'INSERT INTO ODAC_Emp (Person, Job, HireDate, Sal) VALUES'
      
        '  (TPerson('#39'SMITH'#39', TAddress('#39'UK'#39', '#39'London'#39', '#39'Street'#39', 12), '#39'467' +
        '7676'#39', To_Date('#39'12.06.68'#39', '#39'dd.mm.yy'#39')), '#39'CLERK'#39', To_Date('#39'06.07' +
        '.85'#39', '#39'dd.mm.yy'#39'), 800);'
      'INSERT INTO ODAC_Emp (Person, Job, HireDate, Sal) VALUES'
      
        '  (TPerson('#39'JONES'#39', TAddress('#39'USA'#39', '#39'New York'#39', '#39'Street'#39', 418), ' +
        #39'5689676'#39', To_Date('#39'19.07.65'#39', '#39'dd.mm.yy'#39')), '#39'MANAGER'#39', To_Date(' +
        #39'23.10.95'#39', '#39'dd.mm.yy'#39'), 1600);'
      'INSERT INTO ODAC_Emp (Person, Job, HireDate, Sal) VALUES'
      
        '  (TPerson('#39'SCOTT'#39', TAddress('#39'UK'#39', '#39'London'#39', '#39'Street'#39', 26), '#39'899' +
        '0453'#39', To_Date('#39'01.01.70'#39', '#39'dd.mm.yy'#39')), '#39'PRESIDENT'#39', To_Date('#39'1' +
        '6.02.81'#39', '#39'dd.mm.yy'#39'), 5000);'
      'INSERT INTO ODAC_Emp (Person, Job, HireDate, Sal) vALUES'
      
        '  (TPerson('#39'MARTIN'#39', TAddress('#39'France'#39', '#39'Paris'#39', '#39'Street'#39', 162),' +
        ' '#39'14557988'#39', To_Date('#39'12.01.72'#39', '#39'dd.mm.yy'#39')), '#39'ANALYST'#39', To_Dat' +
        'e('#39'16.02.90'#39', '#39'dd.mm.yy'#39'), 2300);'
      ''
      'INSERT INTO ODAC_Ref (Str,Num) VALUES'
      '  ('#39'Left'#39', 1);'
      'INSERT INTO ODAC_Ref (Str,Num) VALUES'
      '  ('#39'Right'#39', 2);'
      'INSERT INTO ODAC_Ref (Str,Num,Left,Right) VALUES'
      
        '  ('#39'Root'#39', 0, (select ref(a) from ODAC_ref a where num = 1),(sel' +
        'ect ref(a) from ODAC_ref a where num = 2));'
      ''
      'COMMIT;')
    OnError = OnScriptError
    Session = OraSession
    Left = 555
    Top = 101
  end
  object scDropOracle8: TOraScript
    SQL.Strings = (
      'DROP TABLE ODAC_BFile;'
      'DROP PROCEDURE ODAC_BLOB_Insert;'
      'DROP TABLE ODAC_BLOB;'
      'DROP TABLE ODAC_Clob;'
      ''
      'DROP TABLE ODAC_Array;'
      'DROP TYPE TODACArrType1;'
      'DROP TYPE TODACArray3;'
      'DROP TYPE TODACArray2;'
      'DROP TYPE TODACArrType;'
      'DROP TYPE TODACArray1;'
      ''
      'DROP TABLE ODAC_NestedTable;'
      'DROP TYPE TODACNestedTable; '
      'DROP TYPE TODACNestedType;'
      'DROP TYPE TODACNestedSubType;'
      ''
      ''
      'DROP TABLE ODAC_Emp;'
      'DROP TYPE TPerson;'
      'DROP TYPE TAddress;'
      ''
      'DROP TABLE ODAC_Ref;'
      'DROP TYPE TRefObjectType;')
    OnError = OnScriptError
    Session = OraSession
    Left = 587
    Top = 101
  end
  object scCreateOracle9: TOraScript
    SQL.Strings = (
      'declare'
      'doc varchar2(2000) :='
      #39'<schema targetNamespace="http://www.oracle.com/PO.xsd"'
      '  xmlns:po="http://www.oracle.com/PO.xsd"'
      '  xmlns="http://www.w3.org/2001/XMLSchema">'
      '  <complexType name="PurchaseOrderType">'
      '    <sequence>'
      '      <element name="PONum" type="decimal"/>'
      ''
      '      <element name="Company">'
      '        <simpleType>'
      '          <restriction base="string">'
      '            <maxLength value="100"/>'
      '          </restriction>'
      '        </simpleType>'
      '      </element>'
      ''
      '      <element name="Item" maxOccurs="1000">'
      '        <complexType>'
      '          <sequence>'
      '            <element name="Part">'
      '              <simpleType>'
      '                <restriction base="string">'
      '                  <maxLength value="1000"/>'
      '                </restriction>'
      '              </simpleType>'
      '            </element>'
      ''
      '            <element name="Price" type="float"/>'
      ''
      '          </sequence>'
      '        </complexType>'
      '      </element>'
      ''
      '    </sequence>'
      '  </complexType>'
      '  <element name="PurchaseOrder" type="po:PurchaseOrderType"/>'
      '</schema>'#39';'
      'begin'
      
        '  dbms_xmlschema.registerSchema('#39'http://www.oracle.com/PO.xsd'#39', ' +
        'doc);'
      'end;'
      '/'
      ''
      'CREATE TABLE xmlschema_type ('
      '  ID NUMBER PRIMARY KEY,'
      '  XMLField SYS.XMLType'
      ')'
      'XMLTYPE COLUMN XMLField'
      '  XMLSCHEMA "http://www.oracle.com/PO.xsd"'
      '  ELEMENT "PurchaseOrder";'
      ''
      'CREATE TABLE xml_type ('
      '  ID NUMBER PRIMARY KEY,'
      '  XMLField XMLTYPE'
      ');'
      ''
      'INSERT INTO xmlschema_type VALUES('
      '  1,'
      '  XMLTYPE('#39'<PurchaseOrder '
      
        'xmlns="http://www.oracle.com/PO.xsd" xmlns:xsi="http://www.w3.or' +
        'g/2001/XMLSchema-instance" xsi:schemaLocation="http://www.oracle' +
        '.com/PO.xsd http://www.oracle.com/PO.xsd">'
      '  <PONum>73</PONum>'
      '  <Company>Oracle Corp</Company>'
      '  <Item>'
      '    <Part>9i Doc Set</Part>'
      '    <Price>130</Price>'
      '  </Item>'
      '  <Item>'
      '    <Part>8i Doc Set</Part>'
      '    <Price>946</Price>'
      '  </Item>'
      '</PurchaseOrder>'#39
      '  )'
      ');'
      ''
      'INSERT INTO xml_type VALUES('
      '  1,'
      '  XMLTYPE('#39'<PurchaseOrder>'
      '  <PONum>73</PONum>'
      '  <Company>Oracle Corp</Company>'
      '  <Item>'
      '    <Part>9i Doc Set</Part>'
      '    <Price>130</Price>'
      '  </Item>'
      '  <Item>'
      '    <Part>8i Doc Set</Part>'
      '    <Price>946</Price>'
      '  </Item>'
      '</PurchaseOrder>'#39
      '  )'
      ');'
      ''
      'INSERT INTO xml_type VALUES('
      '  2,'
      '  XMLTYPE('
      '    '#39'<root>value</root>'#39
      '  )'
      ');'
      ''
      'COMMIT;'
      ''
      'begin'
      '  dbms_aqadm.create_queue_table('#39'qt_odac_raw'#39', '#39'RAW'#39');'
      'end;'
      '/'
      ''
      'begin'
      '  dbms_aqadm.create_queue('#39'qu_odac_raw'#39', '#39'qt_odac_raw'#39');'
      'end;'
      '/'
      ''
      'begin'
      '  dbms_aqadm.start_queue('#39'qu_odac_raw'#39');'
      'end;'
      '/'
      ''
      'create type obj_odac_dept as object'
      '('
      '  DeptNo integer,'
      '  DeptName varchar(100)'
      ');'
      ''
      'begin'
      
        '  dbms_aqadm.create_queue_table('#39'qt_odac_dept'#39', '#39'obj_odac_dept'#39')' +
        ';'
      'end;'
      '/'
      ''
      'begin'
      '  dbms_aqadm.create_queue('#39'qu_odac_dept'#39', '#39'qt_odac_dept'#39');'
      'end;'
      '/'
      ''
      'begin'
      '  dbms_aqadm.start_queue('#39'qu_odac_dept'#39');'
      'end;'
      '/'
      '')
    OnError = OnScriptError
    Session = OraSession
    Left = 555
    Top = 133
  end
  object scDropOracle9: TOraScript
    SQL.Strings = (
      'DROP TABLE xml_type;'
      ''
      'DROP TABLE xmlschema_type;'
      ''
      'begin'
      '  dbms_aqadm.stop_queue('#39'qu_odac_raw'#39');'
      'end;'
      '/'
      ''
      'begin'
      '  dbms_aqadm.drop_queue('#39'qu_odac_raw'#39');'
      'end;'
      '/'
      ''
      'begin'
      '  dbms_aqadm.drop_queue_table('#39'qt_odac_raw'#39');'
      'end;'
      '/'
      ''
      'begin'
      '  dbms_aqadm.stop_queue('#39'qu_odac_dept'#39');'
      'end;'
      '/'
      ''
      'begin'
      '  dbms_aqadm.drop_queue('#39'qu_odac_dept'#39');'
      'end;'
      '/'
      ''
      'begin'
      '  dbms_aqadm.drop_queue_table('#39'qt_odac_dept'#39');'
      'end;'
      '/'
      ''
      'drop type obj_odac_dept;'
      '')
    OnError = OnScriptError
    Session = OraSession
    Left = 587
    Top = 133
  end
end