Mega Code Archive

 
Categories / Delphi / LAN Web TCP
 

Lets run report explorer with Oracle(ADO)

Title: Let's run report explorer with Oracle(ADO) Question: I got errors when I tried RB7/9's end user demo with Oracle 9i. I found that it need to modify some files of source if you want to user explorer with Oracle(ADO). Answer: 1. Tables. You need to create sequences and triggers after you created the tables. CREATE TABLE "FOLDER" ( "FOLDERID" NUMBER(10) NOT NULL, "NAME" VARCHAR2(60) NOT NULL, "PARENTID" NUMBER(10) NOT NULL); CREATE SEQUENCE "RBFOLDER" INCREMENT BY 1; CREATE OR REPLACE TRIGGER "GEN_FOLDERID" BEFORE INSERT ON "FOLDER" FOR EACH ROW WHEN(NEW.FOLDERID IS NULL) BEGIN SELECT "RBFOLDER".NEXTVAL INTO :NEW.FOLDERID FROM DUAL; END; CREATE TABLE "ITEM"( "ITEMID" NUMBER(10) NOT NULL, "SIZE0" NUMBER(10), "FOLDERID" NUMBER(10) NOT NULL, "NAME" VARCHAR2(60) NOT NULL, "ITEMTYPE" NUMBER(10), "MODIFIED" DATE, "DELETED" CHAR(1) DEFAULT 'F', "TEMPLATE" LONG RAW); CREATE SEQUENCE "RBITEM" INCREMENT BY 1; CREATE OR REPLACE TRIGGER "GEN_ITEMID" BEFORE INSERT ON "ITEM" FOR EACH ROW WHEN(NEW.ITEMID IS NULL) BEGIN SELECT "RBITEM".NEXTVAL INTO :NEW.ITEMID FROM DUAL; END; CREATE TABLE "TABLE" ( "TABLENAME" VARCHAR2(60) NOT NULL, "TABLEALIAS" VARCHAR2(60) NOT NULL); CREATE TABLE "FIELD" ( "TABLENAME" VARCHAR2(60) NOT NULL, "FIELDNAME" VARCHAR2(60) NOT NULL, "FIELDALIAS" VARCHAR2(60) NOT NULL, "SELECTABLE" CHAR(1) DEFAULT 'T', "SEARCHABLE" CHAR(1) DEFAULT 'T', "SORTABLE" CHAR(1) DEFAULT 'T', "DATATYPE" VARCHAR2(60), "AUTOSEARCH" CHAR(1) DEFAULT 'T', "MANDATORY" CHAR(1) DEFAULT 'F'); 2. Modify the source. These files need to be modified: daAdo.pas Oracle do not support Schema in ADO well. ppRptExp.pas same reason: need to refresh the dataset after insert the folder or report. ppTmplat.pas /