ÓÃPLSQL×Ô¶¯Éú³ÉÊý¾Ý¿â±íµÄDelphi¶ÔÏó

 DECLARE
  TYPE TY_QUECUR IS REF CURSOR;
  CUR_COLUMNS  TY_QUECUR;
  SQLCMD  VARCHAR(500);
  TABNAME VARCHAR(20);
  COLNAME VARCHAR(50);
  COLTYPE VARCHAR(20);
  COLCOMMENT VARCHAR2(50);
  COLLENGTH INTEGER;
  COLPRECISION INTEGER;
  I INTEGER;
  COLLIST VARCHAR(1000);
  VCOLLIST VARCHAR(1000);
  DelphiDS VARCHAR2(20);
BEGIN
  TABNAME:= 'DIC_USER';
  DelphiDS:= '__DS';
  I:= 0;
  COLLIST:= '';
  VCOLLIST:= '';
  SQLCMD:= 'SELECT A.COLUMN_NAME, A.DATA_TYPE,B.COMMENTS,A.DATA_LENGTH,A.DATA_PRECISION '
         ||'from USER_TAB_COLUMNS A LEFT JOIN USER_COL_COMMENTS B '
         ||'ON A.COLUMN_NAME=B.COLUMN_NAME AND A.TABLE_NAME=B.TABLE_NAME WHERE A.TABLE_NAME= '''|| TABNAME || '''';
  DBMS_OUTPUT.PUT_LINE('//==============================================================');
  DBMS_OUTPUT.PUT_LINE('//Éú³ÉDelphi¶ÔÏó');
  DBMS_OUTPUT.PUT_LINE('//==============================================================');
  DBMS_OUTPUT.PUT_LINE('unit u'|| INITCAP(TABNAME)||';');
  DBMS_OUTPUT.PUT_LINE('interface');
  DBMS_OUTPUT.PUT_LINE('uses Windows, Messages, SysUtils, Variants, Classes, DB, DBClient;');
  DBMS_OUTPUT.PUT_LINE('Type');
  Dbms_Output.PUT_LINE('  TEditMode=(emAppend, emEdit, emDelete);');
  DBMS_OUTPUT.PUT_LINE('  T'||TABNAME||'= Class');
  DBMS_OUTPUT.PUT_LINE('private');
  DBMS_OUTPUT.PUT_LINE('    fCdsDatas: TClientDataSet;');
  OPEN CUR_COLUMNS FOR SQLCMD;
  FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  WHILE CUR_COLUMNS%FOUND LOOP
    IF I = 0 THEN
      COLLIST:= COLNAME;
    ELSE
      COLLIST:= COLLIST || ', '|| COLNAME;