unidacdemoform.lfm

devent UniDAC 2.003 include sources

      7DFF7B7B7BFF4B4B4BFF00000000828282FF8E8E8EFF979797FF979797FF8686
      86FF868686FF8E8E8EFFB8B8B8FFFFFFFFFFFFFFFFFFCDCDCDFF7D7D7DFF7979
      79FF727272FF575757FF00000000BBBBBBFF737373FF979797FF959595FF8F8F
      8FFF868686FFB7B7B7FFFFFFFFFFFFFFFFFFCDCDCDFF7B7B7BFF747474FF7272
      72FF595959FF9B9B9BFF00000000D8D8D8FF7D7D7DFF888888FF8E8E8EFF8B8B
      8BFF858585FFE8E8E8FFFFFFFFFFCDCDCDFF777777FF727272FF707070FF6A6A
      6AFF454545FFD2D2D2FF0000000000000000C1C1C1FF5F5F5FFF838383FF8585
      85FF808080FFA5A5A5FFB3B3B3FF747474FF727272FF6C6C6CFF686868FF3E3E
      3EFFC2C2C2FF00000000000000000000000000000000BFBFBFFF686868FF6565
      65FF7B7B7BFF767676FF727272FF6F6F6FFF6A6A6AFF575757FF434343FFC0C0
      C0FF000000000000000000000000000000000000000000000000CCCCCCFF9B9B
      9BFF5D5D5DFF404040FF3D3D3DFF383838FF484848FF868686FFCCCCCCFF0000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000
    }
  end
  object UniConnection: TUniConnection
    ConnectDialog = UniConnectDialog
    left = 363
    top = 101
  end
  object UniConnectDialog: TUniConnectDialog
    DatabaseLabel = 'Database'
    PortLabel = 'Port'
    ProviderLabel = 'Provider'
    Caption = 'Connect'
    UsernameLabel = 'User Name'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    left = 395
    top = 101
  end
  object scCreate_InterBase: TUniScript
    SQL.Strings = (
      'CREATE TABLE DEPT ('
      '    DEPTNO  INTEGER NOT NULL PRIMARY KEY,'
      '    DNAME   VARCHAR(14),'
      '    LOC     VARCHAR(13)'
      ');'
      ''
      'COMMIT;'
      ''
      'CREATE TABLE EMP ('
      '    EMPNO     INTEGER NOT NULL PRIMARY KEY,'
      '    ENAME     VARCHAR(10),'
      '    JOB       VARCHAR(9),'
      '    MGR       INTEGER,'
      '    HIREDATE  TIMESTAMP,'
      '    SAL       NUMERIC(7, 2),'
      '    COMM      NUMERIC(7, 2),'
      '    DEPTNO    INTEGER REFERENCES DEPT (DEPTNO)'
      ');'
      ''
      'CREATE TABLE UniDAC_BLOB ('
      '  ID integer NOT NULL PRIMARY KEY,'
      '  Title VARCHAR(30),'
      '  Picture BLOB'
      ');'
      ''
      'CREATE TABLE UniDAC_TEXT ('
      '  ID INTEGER NOT NULL PRIMARY KEY,'
      '  Title VARCHAR(30),'
      '  TextField BLOB SUB_TYPE text'
      ');'
      ''
      'CREATE TABLE CRGRID_TEST ('
      '  Id NUMERIC(4) NOT NULL PRIMARY KEY,'
      '  Name VARCHAR(10),'
      '  Country VARCHAR(30),'
      '  City VARCHAR(30),'
      '  Street VARCHAR(30),'
      '  BirthDate TIMESTAMP,'
      '  Job VARCHAR(9),'
      '  Hiredate TIMESTAMP,'
      '  Sal NUMERIC(7, 2),'
      '  Remarks BLOB SUB_TYPE TEXT'
      ');'
      ''
      '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,''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,''17.12.1980'',800,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7499,''ALLEN'',''SALESMAN'',7698,''20.02.1981'',1600,300,30);'
      'INSERT INTO EMP VALUES'
      '  (7521,''WARD'',''SALESMAN'',7698,''22.02.1981'',1250,500,30);'
      'INSERT INTO EMP VALUES'
      '  (7566,''JONES'',''MANAGER'',7839,''02.04.1981'',2975,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7654,''MARTIN'',''SALESMAN'',7698,''28.09.1981'',1250,1400,30);'
      'INSERT INTO EMP VALUES'
      '  (7698,''BLAKE'',''MANAGER'',7839,''01.05.1981'',2850,NULL,30);'
      'INSERT INTO EMP VALUES'
      '  (7782,''CLARK'',''MANAGER'',7839,''09.06.1981'',2450,NULL,10);'
      'INSERT INTO EMP VALUES'
      '  (7788,''SCOTT'',''ANALYST'',7566,''13.07.87'',3000,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7839,''KING'',''PRESIDENT'',NULL,''17.11.1981'',5000,NULL,10);'
      'INSERT INTO EMP VALUES'
      '  (7844,''TURNER'',''SALESMAN'',7698,''08.09.1981'',1500,0,30);'
      'INSERT INTO EMP VALUES'
      '  (7876,''ADAMS'',''CLERK'',7788,''13.07.87'',1100,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7900,''JAMES'',''CLERK'',7698,''03.12.1981'',950,NULL,30);'
      'INSERT INTO EMP VALUES'
      '  (7902,''FORD'',''ANALYST'',7566,''03.12.1981'',3000,NULL,20);'
      'INSERT INTO EMP VALUES'
      '  (7934,''MILLER'',''CLERK'',7782,''23.01.1982'',1300,NULL,10);'
      ''
      'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthDate, Job, HireDate, Sal) VALUES'
      '  (5001, ''SMITH'', ''ENGLAND'', ''LONDON'', ''BOND st.'', ''12.10.63'', ''CLERK'', ''17.12.80'', 800);'
      ''
      'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthDate, Job, HireDate, Sal) VALUES'
      '  (5002, ''ALLEN'', ''ENGLAND'', ''LONDON'', ''BAKER st.'', ''04.03.61'', ''SALESMAN'', ''20.02.81'', 1600);'
      ''
      'INSERT INTO CRGRID_TEST (Id, Name, Country, City, Street, BirthDate, Job, HireDate, Sal) VALUES'
      '  (5003, ''MARTIN'', ''FRANCE'', ''LION'', ''WEAVER st.'', ''23.01.57'', ''MANAGER'', ''02.04.81'', 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,''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 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'','