EHlib FOR Delphi2009

################################################## Build 2 ################################################## ################################################## INFORMIX ########### ################################################## ################################################## #INFORMIX.ServerItems /*SELECT user OBJ_NAME, user TEMPLATE_NAME, 0 SUB_OBJ_NAME, user NODES_SQLCLASS_NAME, user LOCAL_FILTER ,user AS aowner FROM systables s WHERE 1 <> 1 --Tables UNION ALL*/ SELECT trim(both from CAST("Tables " AS VARCHAR(100))) OBJ_NAME, trim(both from CAST("Tables " AS VARCHAR(100))) TEMPLATE_NAME, count(*) SUB_OBJ_NAME, CAST("TableObjects" AS VARCHAR(20)) NODES_SQLCLASS_NAME, CAST("atype = 'T' and owner <> 'informix'" AS VARCHAR(100)) LOCAL_FILTER ,trim(both from user) AS aowner ,0 Image_Index FROM systables s WHERE tabtype = 'T' and owner <> 'informix' --Tables UNION ALL SELECT CAST("Views" AS VARCHAR(20)) OBJ_NAME, CAST("Views" AS VARCHAR(20)) TEMPLATE_NAME, count(*) SUB_OBJ_NAME, CAST("TableObjects" AS VARCHAR(20)) NODES_SQLCLASS_NAME, CAST("atype = 'V' and owner <> 'informix'" AS VARCHAR(100)) LOCAL_FILTER ,user AS aowner ,4 Image_Index FROM systables s --Views WHERE tabtype = 'V' and owner <> 'informix' UNION ALL SELECT CAST("Sinonims" AS VARCHAR(20)) OBJ_NAME, CAST("Sinonims" AS VARCHAR(20)) TEMPLATE_NAME, count(*) SUB_OBJ_NAME, CAST("TableObjects" AS VARCHAR(20)) NODES_SQLCLASS_NAME, CAST("atype IN ('P', 'S') and owner <> 'informix'" AS VARCHAR(100)) LOCAL_FILTER ,user AS aowner ,4 Image_Index FROM systables s --Sinonims WHERE tabtype IN ('P', 'S') and owner <> 'informix' UNION ALL SELECT CAST("Procedures" AS VARCHAR(20)) OBJ_NAME, CAST("Procedures" AS VARCHAR(20)) TEMPLATE_NAME, count(*) SUB_OBJ_NAME, CAST("TableObjects" AS VARCHAR(20)) NODES_SQLCLASS_NAME, CAST("atype = 'PR' and owner <> 'informix'" AS VARCHAR(100)) LOCAL_FILTER ,user AS aowner ,3 Image_Index FROM systables s --Synonyms WHERE tabtype = 'PR' and owner <> 'informix' UNION ALL SELECT CAST("SysInfo" AS VARCHAR(20)) OBJ_NAME, CAST("SysInfo" AS VARCHAR(20)) TEMPLATE_NAME, count(*) SUB_OBJ_NAME, CAST("SysInfo" AS VARCHAR(20)) NODES_SQLCLASS_NAME, CAST("owner = 'informix'" AS VARCHAR(100)) LOCAL_FILTER ,user AS aowner ,-1 Image_Index FROM systables s --SysInfo WHERE 1<>1 ################################################## #INFORMIX.Tables select trim(both from owner) || '.' || trim(both from tabname) objname, s.tabid, case when s.owner = 'informix' then 1 else 0 end order1, trim(both from owner) owner, s.tabname name, trim(s.tabtype || " ") atype , "TableColumns" NODES_SQLCLASS_NAME , "TableColumns" TEMPLATE_NAME , CAST(("tabid = '" || s.tabid || "'") AS VARCHAR(100)) LOCAL_FILTER , 0 Image_Index from systables s where tabtype <> "" and owner <> 'informix' order by 1,2,3 ################################################## #INFORMIX.Tables.Columns SELECT colname, tabid, colno, collength as Length, colmin, colmax, coltype-trunc(coltype/256)*256 as Type, case when coltype-trunc(coltype/256)*256=0 then "CHAR" when coltype-trunc(coltype/256)*256=1 then "SMALLINT" when coltype-trunc(coltype/256)*256=2 then "INTEGER" when coltype-trunc(coltype/256)*256=3 then "FLOAT" when coltype-trunc(coltype/256)*256=4 then "SMALLFLOAT" when coltype-trunc(coltype/256)*256=5 then "DECIMAL" when coltype-trunc(coltype/256)*256=6 then "SERIAL*" when coltype-trunc(coltype/256)*256=7 then "DATE" when coltype-trunc(coltype/256)*256=8 then "MONEY" when coltype-trunc(coltype/256)*256=9 then "NULL" when coltype-trunc(coltype/256)*256=10 then "DATETIME" when coltype-trunc(coltype/256)*256=11 then "BYTE" when coltype-trunc(coltype/256)*256=12 then "TEXT" when coltype-trunc(coltype/256)*256=13 then "VARCHAR" when coltype-trunc(coltype/256)*256=14 then "INTERVAL" when coltype-trunc(coltype/256)*256=15 then "NCHAR" when coltype-trunc(coltype/256)*256=16 then "NVARCHAR" when coltype-trunc(coltype/256)*256=17 then "INT8" when coltype-trunc(coltype/256)*256=18 then "SERIAL8*" when coltype-trunc(coltype/256)*256=19 then "SET" when coltype-trunc(coltype/256)*256=20 then "MULTISET" when coltype-trunc(coltype/256)*256=21 then "LIST" when coltype-trunc(coltype/256)*256=22 then "ROW" when coltype-trunc(coltype/256)*256=23 then "COLLECTION" when coltype-trunc(coltype/256)*256=24 then "ROWREF" when coltype-trunc(coltype/256)*256=40 then "Variable-length opaque type" when coltype-trunc(coltype/256)*256=41 then "Fixed-length opaque type" when coltype-trunc(coltype/256)*256=4118 then "Named row" end as TypeName , trunc(coltype/256) as Null , "" TEMPLATE_NAME , case when trunc(coltype/256)=0 then "Yes" else "No" end as CanNull , 1 Image_Index FROM informix.syscolumns order by tabid, colno ################################################## #INFORMIX.Procedures select trim(both from owner) || '.' || trim(both from procname) objname, case when s.owner = 'informix' then 1 else 0 end order1, trim(both from owner) owner, s.procname name , "ProceduresParameters" NODES_SQLCLASS_NAME , "ProceduresParameters" TEMPLATE_NAME , CAST(("") AS VARCHAR(100)) LOCAL_FILTER , 3 Image_Index from sysprocedures s where owner <> 'informix' order by 1,2,3 ################################################## #INFORMIX.Procedure.Body select procid, datakey, seqno, data from sysprocbody where procid = 563 and datakey = 'T' order by seqno ################################################## #INFORMIX.SysInfo.ServerItems SELECT CAST("SysTables" AS VARCHAR(100)) OBJ_NAME, CAST("SysTables" AS VARCHAR(100)) TEMPLATE_NAME, count(*) SUB_OBJ_NAME, CAST("SysTableObjects" AS VARCHAR(20)) NODES_SQLCLASS_NAME, CAST("atype = 'T' and owner = 'informix'" AS VARCHAR(100)) LOCAL_FILTER, CAST("informix" AS VARCHAR(20)) aowner , 0 Image_Index FROM systables s WHERE tabtype = 'T' and owner = 'informix' --Tables UNION ALL SELECT CAST("SysViews" AS VARCHAR(20)) OBJ_NAME, CAST("SysViews" AS VARCHAR(20)) TEMPLATE_NAME, count(*) SUB_OBJ_NAME, CAST("SysTableObjects" AS VARCHAR(20)) NODES_SQLCLASS_NAME, CAST("atype = 'V' and owner = 'informix'" AS VARCHAR(100)) LOCAL_FILTER, CAST("informix" AS VARCHAR(20)) aowner , 4 Image_Index FROM systables s --Views WHERE tabtype = 'V' and owner = 'informix' UNION ALL SELECT CAST("SysSinonims" AS VARCHAR(20)) OBJ_NAME, CAST("SysSinonims" AS VARCHAR(20)) TEMPLATE_NAME, count(*) SUB_OBJ_NAME, CAST("SysSinonims" AS VARCHAR(20)) NODES_SQLCLASS_NAME, CAST("atype IN ('P', 'S') and owner = 'informix'" AS VARCHAR(100)) LOCAL_FILTER, CAST("informix" AS VARCHAR(20)) aowner , 4 Image_Index FROM systables s --Sinonims WHERE tabtype IN ('P', 'S') and owner = 'informix' UNION ALL SELECT CAST("SysProcedures" AS VARCHAR(20)) OBJ_NAME, CAST("SysProcedures" AS VARCHAR(20)) TEMPLATE_NAME, count(*) SUB_OBJ_NAME, CAST("SysProcedures" AS VARCHAR(20)) NODES_SQLCLASS_NAME, CAST("atype = 'PR' and owner = 'informix'" AS VARCHAR(100)) LOCAL_FILTER, CAST("informix" AS VARCHAR(20)) aowner , 3 Image_Index FROM systables s --Synonyms WHERE tabtype = 'PR' and owner = 'informix' ################################################## #INFORMIX.SysTables select trim(both from owner) || '.' || trim(both from tabname) objname, s.tabid, case when s.owner = 'informix' then 1 else 0 end order1, trim(both from owner) owner, s.tabname name, trim(s.tabtype || " ") atype , "TableColumns" NODES_SQLCLASS_NAME , "TableColumns" TEMPLATE_NAME , CAST(("tabid = '" || s.tabid || "'") AS VARCHAR(100)) LOCAL_FILT