odacdemoform.lfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

      C8FFB9B9B9FFABABABFF9D9D9DFF979797FF979797FF979797FF909090FF6B6B
      6BFFDADADAFF0000000000000000E1E1E1FF888888FFB2B2B2FFBEBEBEFFB1B1
      B1FF979797FF979797FFCBCBCBFF979797FF979797FF979797FF979797FF9393
      93FF686868FFD6D6D6FF00000000C2C2C2FF878787FFB6B6B6FFA8A8A8FF9B9B
      9BFF979797FFDEDEDEFFFFFFFFFFEBEBEBFF979797FF979797FF979797FF9797
      97FF777777FFB8B8B8FF00000000888888FF9A9A9AFF9F9F9FFF979797FF9797
      97FF979797FFAAAAAAFFF8F8F8FFFFFFFFFFEBEBEBFF979797FF959595FF8F8F
      8FFF8E8E8EFF636363FF00000000888888FF999999FF979797FF979797FF9797
      97FF979797FF979797FFC5C5C5FFFFFFFFFFFFFFFFFFEAEAEAFF979797FF8B8B
      8BFF858585FF515151FF00000000878787FF979797FFB1B1B1FFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE9E9E9FF8585
      85FF808080FF515151FF00000000828282FF979797FFB1B1B1FFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD0D0D0FF7D7D
      7DFF7B7B7BFF4B4B4BFF00000000828282FF8E8E8EFF979797FF979797FF8686
      86FF868686FF8E8E8EFFB8B8B8FFFFFFFFFFFFFFFFFFCDCDCDFF7D7D7DFF7979
      79FF727272FF575757FF00000000BBBBBBFF737373FF979797FF959595FF8F8F
      8FFF868686FFB7B7B7FFFFFFFFFFFFFFFFFFCDCDCDFF7B7B7BFF747474FF7272
      72FF595959FF9B9B9BFF00000000D8D8D8FF7D7D7DFF888888FF8E8E8EFF8B8B
      8BFF858585FFE8E8E8FFFFFFFFFFCDCDCDFF777777FF727272FF707070FF6A6A
      6AFF454545FFD2D2D2FF0000000000000000C1C1C1FF5F5F5FFF838383FF8585
      85FF808080FFA5A5A5FFB3B3B3FF747474FF727272FF6C6C6CFF686868FF3E3E
      3EFFC2C2C2FF00000000000000000000000000000000BFBFBFFF686868FF6565
      65FF7B7B7BFF767676FF727272FF6F6F6FFF6A6A6AFF575757FF434343FFC0C0
      C0FF000000000000000000000000000000000000000000000000CCCCCCFF9B9B
      9BFF5D5D5DFF404040FF3D3D3DFF383838FF484848FF868686FFCCCCCCFF0000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000
    }
  end
  object OraSession: TOraSession
    ConnectDialog = ConnectDialog
    left = 553
    top = 8
  end
  object ConnectDialog: TConnectDialog
    Caption = 'Connect'
    UsernameLabel = 'User Name'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    left = 585
    top = 7
  end
  object scCreate: TOraScript
    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 ODAC_Loaded ('
      '  Code NUMBER,'
      '  Num NUMBER(10),'
      '  Num1 NUMBER(5,2),'
      '  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,''ACCOUNTING'',''NEW YORK'');'
      'INSERT INTO DEPT VALUES'
      '  (20,''RESEARCH'',''DALLAS'');'
      'INSERT INTO DEPT VALUES'
      '  (30,''SALES'',''CHICAGO'');'
      'INSERT INTO DEPT VALUES'
      '  (40,''OPERATIONS'',''BOSTON'');'
      ''
      'INSERT INTO EMP VALUES'
      '  (7369,''SMITH'',''CLERK'',7902,to_date(''17-12-1980'',''dd-mm-yyyy''),800,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7499,''ALLEN'',''SALESMAN'',7698,to_date(''20-02-1981'',''dd-mm-yyyy''),1600,300,30);'
      'INSERT INTO EMP VALUES'
      '  (7521,''WARD'',''SALESMAN'',7698,to_date(''22-02-1981'',''dd-mm-yyyy''),1250,500,30);'
      'INSERT INTO EMP VALUES'
      '  (7566,''JONES'',''MANAGER'',7839,to_date(''02-04-1981'',''dd-mm-yyyy''),2975,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7654,''MARTIN'',''SALESMAN'',7698,to_date(''28-09-1981'',''dd-mm-yyyy''),1250,1400,30);'
      'INSERT INTO EMP VALUES'
      '  (7698,''BLAKE'',''MANAGER'',7839,to_date(''01-05-1981'',''dd-mm-yyyy''),2850,NULL,30);'
      'INSERT INTO EMP VALUES'
      '  (7782,''CLARK'',''MANAGER'',7839,to_date(''09-06-1981'',''dd-mm-yyyy''),2450,NULL,10);'
      'INSERT INTO EMP VALUES'
      '  (7788,''SCOTT'',''ANALYST'',7566,to_date(''13-07-87'',''dd-mm-yyyy''),3000,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7839,''KING'',''PRESIDENT'',NULL,to_date(''17-11-1981'',''dd-mm-yyyy''),5000,NULL,10);'
      'INSERT INTO EMP VALUES'
      '  (7844,''TURNER'',''SALESMAN'',7698,to_date(''08-09-1981'',''dd-mm-yyyy''),1500,0,30);'
      'INSERT INTO EMP VALUES'
      '  (7876,''ADAMS'',''CLERK'',7788,to_date(''13-07-87'',''dd-mm-yyyy''),1100,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7900,''JAMES'',''CLERK'',7698,to_date(''03-12-1981'',''dd-mm-yyyy''),950,NULL,30);'
      'INSERT INTO EMP VALUES'
      '  (7902,''FORD'',''ANALYST'',7566,to_date(''03-12-1981'',''dd-mm-yyyy''),3000,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7934,''MILLER'',''CLERK'',7782,to_date(''23-01-1982'',''dd-mm-yyyy''),1300,NULL,10);'
      ''
      ''
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (955, '''', ''Table ErrorMsg already exist'');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (1438, '''', ''DepNo must be < 100'');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (2291, ''EMP_FOREIGN_KEY'', ''Departament not exist'');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (2291, '''', ''Parent key not found'');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (2292, ''EMP_FOREIGN_KEY'', ''Can''''t delete departament with employes'');'
      'INSERT INTO ErrorMsg(ErrorCode, Constraint, Message) VALUES'
      '  (2292, '''', ''Chield record found'');'
      ''
      'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthDate, Job, HireDate, Sal) VALUES'
      '  (5001, ''SMITH'', ''ENGLAND'', ''LONDON'', ''BOND st.'', to_date(''12.10.63'', ''dd.mm.yy''), ''CLERK'','
      '   to_date(''17.12.80'', ''dd.mm.yy''), 800);'
      'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthDate, Job, HireDate, Sal) VALUES'
      '  (5002, ''ALLEN'', ''ENGLAND'', ''LONDON'', ''BAKER st.'', to_date(''04.03.61'', ''dd.mm.yy''), ''SALESMAN'','
      '   to_date(''20.02.81'', ''dd.mm.yy''), 1600);'
      'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthDate, Job, HireDate, Sal) VALUES'
      '  (5003, ''MARTIN'', ''FRANCE'', ''LION