用PLSQL自动生成数据库表的Delphi对象

最新推荐文章于 2021-01-28 14:11:33 发布
最新推荐文章于 2021-01-28 14:11:33 发布
阅读量2k 收藏 1
点赞数
分类专栏： Oracle Delphi 文章标签： delphi 数据库 integer destructor date constructor
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/henreash/article/details/4811627
版权

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);
  TMP1 VARCHAR2(1000);
  TMP2 VARCHAR2(1000);
BEGIN
  DBMS_OUTPUT.ENABLE(200000);
  TABNAME:= 'DIC_STATION';
  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;
    END IF;
    I:= I+ 1;
    CASE WHEN COLTYPE = 'NUMBER' THEN
         BEGIN
           IF COLLENGTH= 1 AND COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||': Boolean;//'||COLCOMMENT);
           ELSIF COLPRECISION IS NULL OR COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||': Integer;//'||COLCOMMENT);
           ELSIF COLPRECISION< 4 THEN
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||': Currency;//'||COLCOMMENT);
           ELSE
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||': Double;//'||COLCOMMENT);
           END IF;
         END;
         WHEN COLTYPE IN ('VARCHAR', 'VARCHAR2', 'NVARCHAR', 'NVARCHAR2') THEN
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||': string;//'||COLCOMMENT);
         WHEN COLTYPE IN ('TIME', 'DATE') THEN
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||': TDateTime;//'||COLCOMMENT);
    END CASE;
    FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  END LOOP;
  OPEN CUR_COLUMNS FOR SQLCMD;
  FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  WHILE CUR_COLUMNS%FOUND LOOP
    CASE WHEN COLTYPE = 'NUMBER' THEN
         BEGIN
           IF COLLENGTH= 1 AND COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('    procedure Set'||INITCAP(COLNAME)||'(Value: Boolean);//'||COLCOMMENT);
           ELSIF COLPRECISION IS NULL OR COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('    procedure Set'||INITCAP(COLNAME)||'(Value: Integer);//'||COLCOMMENT);
           ELSIF COLPRECISION< 4 THEN
              DBMS_OUTPUT.PUT_LINE('    procedure Set'||INITCAP(COLNAME)||'(Value: Currency);//'||COLCOMMENT);
           ELSE
              DBMS_OUTPUT.PUT_LINE('    procedure Set'||INITCAP(COLNAME)||'(Value: Double);//'||COLCOMMENT);
           END IF;
         END;
         WHEN COLTYPE IN ('VARCHAR', 'VARCHAR2', 'NVARCHAR', 'NVARCHAR2') THEN
              DBMS_OUTPUT.PUT_LINE('    procedure Set'||INITCAP(COLNAME)||'(Value: string);//'||COLCOMMENT);
         WHEN COLTYPE IN ('TIME', 'DATE') THEN
              DBMS_OUTPUT.PUT_LINE('    procedure Set'||INITCAP(COLNAME)||'(Value: TDateTime);//'||COLCOMMENT);
    END CASE;
    FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  END LOOP;
  DBMS_OUTPUT.PUT_LINE('  public');
  DBMS_OUTPUT.PUT_LINE('    property CdsDatas: TClientDataSet read fCdsDatas write fCdsDatas;');
  OPEN CUR_COLUMNS FOR SQLCMD;
  FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  WHILE CUR_COLUMNS%FOUND LOOP
    CASE WHEN COLTYPE = 'NUMBER' THEN
         BEGIN
           IF COLLENGTH= 1 AND COLPRECISION = 0 THEN
             DBMS_OUTPUT.PUT_LINE('    property '||INITCAP(COLNAME)||': Boolean read f'||INITCAP(COLNAME)||' write Set'||INITCAP(COLNAME)||';//'||COLCOMMENT);
           ELSIF COLPRECISION IS NULL OR COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('    property '||INITCAP(COLNAME)||': Integer read f'||INITCAP(COLNAME)||' write Set'||INITCAP(COLNAME)||';//'||COLCOMMENT);
           ELSIF COLPRECISION< 4 THEN
             DBMS_OUTPUT.PUT_LINE('    property '||INITCAP(COLNAME)||': Currency read f'||INITCAP(COLNAME)||' write Set'||INITCAP(COLNAME)||';//'||COLCOMMENT);
           ELSE
              DBMS_OUTPUT.PUT_LINE('    property '||INITCAP(COLNAME)||': Double read f'||INITCAP(COLNAME)||' write Set'||INITCAP(COLNAME)||';//'||COLCOMMENT);
           END IF;
         END;
         WHEN COLTYPE IN ('VARCHAR', 'VARCHAR2', 'NVARCHAR', 'NVARCHAR2') THEN
              DBMS_OUTPUT.PUT_LINE('    property '||INITCAP(COLNAME)||': string read f'||INITCAP(COLNAME)||' write Set'||INITCAP(COLNAME)||';//'||COLCOMMENT);
         WHEN COLTYPE IN ('TIME', 'DATE') THEN
              DBMS_OUTPUT.PUT_LINE('    property '||INITCAP(COLNAME)||': TDateTime read f'||INITCAP(COLNAME)||' write Set'||INITCAP(COLNAME)||';//'||COLCOMMENT);
    END CASE;
    FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  END LOOP;
  DBMS_OUTPUT.put_line('    procedure LoadDataFromDataBase;//加载数据集到ClintDataSet中');
  DBMS_OUTPUT.PUT_LINE('    constructor Create(pCds: TClientDataSet);//构造函数');
  DBMS_OUTPUT.PUT_LINE('    destructor Destroy; override;//析构函数');
  DBMS_OUTPUT.PUT_LINE('    procedure LoadDataFromCdsData;//从数据集中加载当前行数据到类的成员中');
  DBMS_OUTPUT.put_line('    procedure NextDataFromCdsData;//加载数据集下一行数据到类的成员中');
  DBMS_OUTPUT.put_line('    procedure PriorDataFromCdsData;//加载数据集上一行数据到类的成员中');
  DBMS_OUTPUT.PUT_LINE('    procedure SaveDataToCdsData(pEditMode: TEditMode);//将类数据保存到数据集中');
  DBMS_OUTPUT.PUT_LINE('    class procedure GetDataFromForm(pFrm: TFrm'||INITCAP(TABNAME)||'; pObj: T'||INITCAP(TABNAME)||');');
  DBMS_OUTPUT.PUT_LINE('    class procedure SetDataToForm(pFrm: TFrm'||INITCAP(TABNAME)||'; pObj: T'||INITCAP(TABNAME)||');');
  DBMS_OUTPUT.PUT_LINE('  END;');
  DBMS_OUTPUT.PUT_LINE('implementation');
  OPEN CUR_COLUMNS FOR SQLCMD;
  FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  WHILE CUR_COLUMNS%FOUND LOOP
    CASE WHEN COLTYPE = 'NUMBER' THEN
         BEGIN
           IF COLLENGTH= 1 AND COLPRECISION = 0 THEN
             DBMS_OUTPUT.PUT_LINE('procedure T'||INITCAP(TABNAME)||'.Set'||INITCAP(COLNAME)||'(Value: Boolean);//'||COLCOMMENT);
           ELSIF COLPRECISION IS NULL OR COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('procedure T'||INITCAP(TABNAME)||'.Set'||INITCAP(COLNAME)||'(Value: Integer);//'||COLCOMMENT);
           ELSIF COLPRECISION< 4 THEN
             DBMS_OUTPUT.PUT_LINE('procedure T'||INITCAP(TABNAME)||'.Set'||INITCAP(COLNAME)||'(Value: Currency);//'||COLCOMMENT);
           ELSE
              DBMS_OUTPUT.PUT_LINE('procedure T'||INITCAP(TABNAME)||'.Set'||INITCAP(COLNAME)||'(Value: Double);//'||COLCOMMENT);
           END IF;
         END;
         WHEN COLTYPE IN ('VARCHAR', 'VARCHAR2', 'NVARCHAR', 'NVARCHAR2') THEN
              DBMS_OUTPUT.PUT_LINE('procedure T'||INITCAP(TABNAME)||'.Set'||INITCAP(COLNAME)||'(Value: string);//'||COLCOMMENT);
         WHEN COLTYPE IN ('TIME', 'DATE') THEN
              DBMS_OUTPUT.PUT_LINE('procedure T'||INITCAP(TABNAME)||'.Set'||INITCAP(COLNAME)||'(Value: TDateTime);//'||COLCOMMENT);
    END CASE;
    DBMS_OUTPUT.PUT_LINE('begin');
    DBMS_OUTPUT.PUT_LINE('  if f'||INITCAP(COLNAME)||'<> Value then');
    DBMS_OUTPUT.PUT_LINE('  begin');
    DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||':= Value;');
    DBMS_OUTPUT.PUT_LINE('  end;');
    DBMS_OUTPUT.PUT_LINE('end;');
    FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  END LOOP; 
  DBMS_OUTPUT.PUT_LINE('procedure T'||INITCAP(TABNAME)||'.LoadDataFromDataBase;');
  DBMS_OUTPUT.PUT_LINE('begin');
  DBMS_OUTPUT.PUT_LINE('  //SELECT ');
  TMP1:= COLLIST;
  --instr(c1,[c2,＜i＞[,<j>]])
  --c1,c2均为字符串，i,j为整数。函数返回c2在c1中第j次出现的位置，搜索从c1的第i个字符开始。
  --当没有发现需要的字符时返回0,如果i为负数，那么搜索将从右到左进行，
  --但是位置的计算还是从左到右，i和j的缺省值为1.
  I:= INSTR(TMP1, ',', 1, 9);
  IF I= 0 THEN
    TMP2:= TMP1;
    DBMS_OUTPUT.PUT_LINE('  //'||TMP2);
  END IF;
  WHILE I> 0
  LOOP
    TMP2:= SUBSTR(TMP1, 1, I- 1);
    TMP1:= SUBSTR(TMP1, I, LENGTH(TMP1)- I);
    DBMS_OUTPUT.PUT_LINE('  //'||TMP2);
    I:= INSTR(TMP1, ',', 1, 9);
  END LOOP;
 
  DBMS_OUTPUT.PUT_LINE('  //FROM '||TABNAME||' WHERE 1=1');
  DBMS_OUTPUT.PUT_LINE('end;');
  DBMS_OUTPUT.PUT_LINE('constructor T'||INITCAP(TABNAME)||'.Create(pCds: TClientDataSet);');
  DBMS_OUTPUT.PUT_LINE('begin');
  DBMS_OUTPUT.PUT_LINE('  fCdsDatas:= pCds;');
  DBMS_OUTPUT.PUT_LINE('end;');
  DBMS_OUTPUT.PUT_LINE('destructor T'||INITCAP(TABNAME)||'.Destroy;');
  DBMS_OUTPUT.PUT_LINE('begin');
  DBMS_OUTPUT.PUT_LINE('  //析构函数');
  DBMS_OUTPUT.PUT_LINE('end;');
  DBMS_OUTPUT.PUT_LINE('procedure T'||INITCAP(TABNAME)||'.LoadDataFromCdsData;');
  DBMS_OUTPUT.PUT_LINE('begin');
  DBMS_OUTPUT.PUT_LINE('  if (not fCdsDatas.Active) or (fCdsDatas.RecordCount= 0) then');
  DBMS_OUTPUT.PUT_LINE('    Raise Exception.Create(''数据集没有打开或没有数据！'');');
  DBMS_OUTPUT.PUT_LINE('  with fCdsDatas do');
  DBMS_OUTPUT.PUT_LINE('  begin');
  OPEN CUR_COLUMNS FOR SQLCMD;
  FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  WHILE CUR_COLUMNS%FOUND LOOP
    CASE WHEN COLTYPE = 'NUMBER' THEN
         BEGIN
           IF COLLENGTH= 1 AND COLPRECISION = 0 THEN
             DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||':= FieldByName('''||COLNAME||''').AsBoolean;');
           ELSIF COLPRECISION IS NULL OR COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||':= FieldByName('''||COLNAME||''').AsInteger;');
           ELSIF COLPRECISION< 4 THEN
             DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||':= FieldByName('''||COLNAME||''').AsCurrency;');
           ELSE
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||':= FieldByName('''||COLNAME||''').AsFloat;');
           END IF;
         END;
         WHEN COLTYPE IN ('VARCHAR', 'VARCHAR2', 'NVARCHAR', 'NVARCHAR2') THEN
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||':= FieldByName('''||COLNAME||''').AsString;');
         WHEN COLTYPE IN ('TIME', 'DATE') THEN
              DBMS_OUTPUT.PUT_LINE('    f'||INITCAP(COLNAME)||':= FieldByName('''||COLNAME||''').AsDateTime;');
    END CASE;
    FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  END LOOP;
  DBMS_OUTPUT.PUT_LINE('  end;');
  DBMS_OUTPUT.PUT_LINE('end;');
  DBMS_OUTPUT.put_line('procedure T'||INITCAP(TABNAME)||'.NextDataFromCdsData;//加载数据集下一行数据到类的成员中');
  DBMS_OUTPUT.PUT_LINE('begin');
  DBMS_OUTPUT.PUT_LINE('  fCdsDatas.Next;');
  DBMS_OUTPUT.PUT_LINE('  LoadDataFromCdsData;');
  DBMS_OUTPUT.PUT_LINE('end;');
  DBMS_OUTPUT.put_line('procedure T'||INITCAP(TABNAME)||'.PriorDataFromCdsData;//加载数据集上一行数据到类的成员中');
  DBMS_OUTPUT.PUT_LINE('begin');
  DBMS_OUTPUT.PUT_LINE('  fCdsDatas.Prior;');
  DBMS_OUTPUT.PUT_LINE('  LoadDataFromCdsData;');
  DBMS_OUTPUT.PUT_LINE('end;');
  DBMS_OUTPUT.PUT_LINE('procedure T'||INITCAP(TABNAME)||'.SaveDataToCdsData(pEditMode: TEditMode);//将类数据保存到数据集中');
  DBMS_OUTPUT.PUT_LINE('begin');
  DBMS_OUTPUT.PUT_LINE('  with fCdsDatas do');
  DBMS_OUTPUT.PUT_LINE('  begin');
  DBMS_OUTPUT.PUT_LINE('    if pEditMode= emDelete then');
  DBMS_OUTPUT.PUT_LINE('      Delete');
  DBMS_OUTPUT.PUT_LINE('    else');
  DBMS_OUTPUT.PUT_LINE('    begin');
  DBMS_OUTPUT.PUT_LINE('      case pEditMode of');
  DBMS_OUTPUT.PUT_LINE('        emAppend: Append;');
  DBMS_OUTPUT.PUT_LINE('        emEdit: Edit;');
  DBMS_OUTPUT.PUT_LINE('      end;');
  OPEN CUR_COLUMNS FOR SQLCMD;
  FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  WHILE CUR_COLUMNS%FOUND LOOP
    CASE WHEN COLTYPE = 'NUMBER' THEN
         BEGIN
           IF COLLENGTH= 1 AND COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('      FieldByName('''||COLNAME||''').AsBoolean:= f'||INITCAP(COLNAME)||';//'||COLCOMMENT);
           ELSIF COLPRECISION IS NULL OR COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('      FieldByName('''||COLNAME||''').AsInteger:= f'||INITCAP(COLNAME)||';//'||COLCOMMENT);
           ELSIF COLPRECISION< 4 THEN
              DBMS_OUTPUT.PUT_LINE('      FieldByName('''||COLNAME||''').AsCurrency:= f'||INITCAP(COLNAME)||';//'||COLCOMMENT);
           ELSE
              DBMS_OUTPUT.PUT_LINE('      FieldByName('''||COLNAME||''').AsFloat:= f'||INITCAP(COLNAME)||';//'||COLCOMMENT);
           END IF;
         END;
         WHEN COLTYPE IN ('VARCHAR', 'VARCHAR2', 'NVARCHAR', 'NVARCHAR2') THEN
             DBMS_OUTPUT.PUT_LINE('      FieldByName('''||COLNAME||''').AsString:= f'||INITCAP(COLNAME)||';//'||COLCOMMENT);
         WHEN COLTYPE IN ('TIME', 'DATE') THEN
             DBMS_OUTPUT.PUT_LINE('      FieldByName('''||COLNAME||''').AsDateTime:= f'||INITCAP(COLNAME)||';//'||COLCOMMENT);
    END CASE;
    FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  END LOOP; 
  DBMS_OUTPUT.PUT_LINE('      post;');
  DBMS_OUTPUT.PUT_LINE('    end;');
  DBMS_OUTPUT.PUT_LINE('  end;');
  DBMS_OUTPUT.PUT_LINE('end;');
  DBMS_OUTPUT.PUT_LINE('class procedure T'||INITCAP(TABNAME)||'.GetDataFromForm(pFrm: TFrm'||INITCAP(TABNAME)||'; pObj: T'||INITCAP(TABNAME)||');');
  DBMS_OUTPUT.PUT_LINE('begin');
  OPEN CUR_COLUMNS FOR SQLCMD;
  FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  WHILE CUR_COLUMNS%FOUND LOOP
    CASE WHEN COLTYPE = 'NUMBER' THEN
         BEGIN
           IF COLLENGTH= 1 AND COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('  pObj.'||COLNAME||':= pFrm.Chk'||INITCAP(COLNAME)||'.Checked;//'||COLCOMMENT);
           ELSIF COLPRECISION IS NULL OR COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('  pObj.'||COLNAME||':= StrToInt(pFrm.Edt'||INITCAP(COLNAME)||'.Text);//'||COLCOMMENT);
           ELSIF COLPRECISION< 4 THEN
              DBMS_OUTPUT.PUT_LINE('  pObj.'||COLNAME||':= StrToCurr(pFrm.Edt'||INITCAP(COLNAME)||'.Text);//'||COLCOMMENT);
           ELSE
              DBMS_OUTPUT.PUT_LINE('  pObj.'||COLNAME||':= StrToFloat(pFrm.Edt'||INITCAP(COLNAME)||'.Text);//'||COLCOMMENT);
           END IF;
         END;
         WHEN COLTYPE IN ('VARCHAR', 'VARCHAR2', 'NVARCHAR', 'NVARCHAR2') THEN
             DBMS_OUTPUT.PUT_LINE('  pObj.'||COLNAME||':= pFrm.Edt'||INITCAP(COLNAME)||'.Text;//'||COLCOMMENT);
         WHEN COLTYPE IN ('TIME', 'DATE') THEN
             DBMS_OUTPUT.PUT_LINE('  pObj.'||COLNAME||':= pFrm.Dtp'||INITCAP(COLNAME)||'.DateTime;//'||COLCOMMENT);
    END CASE;
    FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  END LOOP;  
  DBMS_OUTPUT.PUT_LINE('end;');
  DBMS_OUTPUT.PUT_LINE('class procedure T'||INITCAP(TABNAME)||'.SetDataToForm(pFrm: TFrm'||INITCAP(TABNAME)||'; pObj: T'||INITCAP(TABNAME)||');');
  DBMS_OUTPUT.PUT_LINE('begin');
  OPEN CUR_COLUMNS FOR SQLCMD;
  FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  WHILE CUR_COLUMNS%FOUND LOOP
    CASE WHEN COLTYPE = 'NUMBER' THEN
         BEGIN
           IF COLLENGTH= 1 AND COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('  pFrm.Chk'||INITCAP(COLNAME)||'.Checked:= pObj.'||COLNAME||';//'||COLCOMMENT);
           ELSIF COLPRECISION IS NULL OR COLPRECISION = 0 THEN
              DBMS_OUTPUT.PUT_LINE('  pFrm.Edt'||INITCAP(COLNAME)||'.Text:= IntToStr(pObj.'||COLNAME||');//'||COLCOMMENT);
           ELSIF COLPRECISION< 4 THEN
              DBMS_OUTPUT.PUT_LINE('  pFrm.Edt'||INITCAP(COLNAME)||'.Text:= CurrToStr(pObj.'||COLNAME||');//'||COLCOMMENT);
           ELSE
              DBMS_OUTPUT.PUT_LINE('  pFrm.Edt'||INITCAP(COLNAME)||'.Text:= FloatToStr(pObj.'||COLNAME||');//'||COLCOMMENT);
           END IF;
         END;
         WHEN COLTYPE IN ('VARCHAR', 'VARCHAR2', 'NVARCHAR', 'NVARCHAR2') THEN
             DBMS_OUTPUT.PUT_LINE('  pFrm.Edt'||INITCAP(COLNAME)||'.Text:= pObj.'||COLNAME||';//'||COLCOMMENT);
         WHEN COLTYPE IN ('TIME', 'DATE') THEN
             DBMS_OUTPUT.PUT_LINE('  pFrm.Dtp'||INITCAP(COLNAME)||'.DateTime:= pObj.'||COLNAME||';//'||COLCOMMENT);
    END CASE;
    FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
  END LOOP;  
  DBMS_OUTPUT.PUT_LINE('end;');
  DBMS_OUTPUT.PUT_LINE('end.');
  CLOSE CUR_COLUMNS;
END;

henreash
关注
专栏目录
使用PLSQL Developer快速连接数据库
mystonelxj的博客
09-24 1027
本文以版本PLSQL Developer14.0为例讲述了如何通过使用PLSQL Developer快速连接数据库的几种设置方式 一般而言，采用定义这种方式设置快捷登录比较常用，这种设置的局限在于需要先输入一次相关的用户名、密码然后才能选择使用。如果进行了固定用户设置、又进行了定义方式设置。对于相同的数据连接将可能重复显示。如果需要连接多个数据库(超过20个），建议采用连接方式设置并进行分组。
sqlplus连接oracle弹出,Sql/Plus连接Oracle时候出现sql*net not properly installed 解决办法...
weixin_39671374的博客
04-03 2495
在PLSQL Developer选择Tools > Preferences > options > 下的如图所示："Oracle Home" and "OCI Library"Oracle10g装在d:/oracle/ Oracle Home为d:/oracle/product/10.1.0OCI Library为d:/oracle/product/10.1.0/Db_1/BIN...
delphi编写的SQL语句生成器(不是sql语法解析器)
02-23
delphi编写的SQL语句生成器(不是sql语法解析器) 就是所谓的“Delphi SQL查询分析器”.
Delphi 对象列表使用
yolanda_luo的专栏
08-19 2273
最近学习了ObjectList对象的使用方法，记录如下： 首先在单元头引入Contnrs单元 然后下面以一个简单的列子说明一下，示例：是创建多个TstringList对象，将每个对像放入对象列表中，对每个对象赋值，最后将每个对象值显示在memo中。 unit Unit5;   interface   uses   Windows, Messages, S
SQL语言生成器（delphi）
02-20
1、支持几乎所有类型的数据库， 包括小型（桌面）数据库：Fox DBF、Microsoft Execl、Text、Borland Paradox、 中型数据库：Microsoft Access 大型数据库：Microsoft SQL Server、Sybase、Oracle 2、数据库的连接采取ADO方式 故而使用本工具，无需安装和卸载 3、支持几乎所有的SQL语法： 排序(Order By) 条件(Where) 分组(Group By) 分组条件(Having) 计算字段 SQL查询表 SQL查询子句 丰富的函数 表别名 字段别名(包括计算字段和非计算字段) 联合(Union，对于Oracle 支持Union All,Minus,Intersect) 4、支持将SQL查询语句，替换为插入(Insert into)和更新(Update)语句 4、附属工具内嵌入Delphi IDE
plsql导出表到mysql数据库表_用PLSQL自动生成数据库表的Delphi对象 (转)
weixin_35639750的博客
01-28 237
DECLARETYPE 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 INTEG...
delphi类代码自动生成器.rar
06-10
delphi类代码自动生成器.rar
mysql、pgsql自动生成数据库设计文档
最新发布
02-01
使用自动生成工具，可以快速获取关于`pgsql`数据库的ER图、DDL语句和其他重要设计细节。 自动生成数据库设计文档的工具有多种，它们通常通过连接到数据库服务器，解析数据库元数据，然后生成易于理解的文档格式，如...
plsql远程连接数据库，
11-27
PL/SQL Developer是一款由Allround Automations公司开发的Oracle数据库管理工具，主要用于编写、调试、执行和管理PL/SQL代码。远程连接Oracle数据库是其重要功能之一，这使得用户可以在本地计算机上操作远端服务器上...
plsql连接oracle数据库报ora 12154错误解决方法
12-16
plsql连接oracle数据库报ora 12154错误 今天遇到一个问题，使用sqlplus能够连接到远程的数据库，但是使用plsql却连接不上，报错”ORA-12154: TNS: 无法解析指定的连接标识符” 解决方法如下： 1.先检查服务器端的...
PLSQL操作ORALCE数据库
10-19
使用PLSQL Developer，开发者可以方便地创建、修改和删除数据库对象，如表、视图、存储过程、触发器等。此外，它还支持对索引、分区、同义词等进行管理。 九、版本控制集成 PLSQL Developer支持与常见的版本控制...
Delphi_2009_2010_XE_泛型使用全集(队_栈_字典_列表_对象列表)
03-09
泛型使用全集(队_栈_字典_列表_对象列表)
Model实体类代码生成器
05-05
一款自动生成Model类的.cs文件生成器....
delphi 类的写法 和 控制台程序的制作---深入Delphi编程 数据库
chinajobs的专栏
12-21 2134
2、数据库 　　 　　在相对枯燥的理论之后，我们终于要开始接触到一些比较激动人心的实际应用了。 　　数据库编程是Delphi最强大的优势之一，恐怕也很少有Delphi程序员没有接触过数据库编程的。Delphi独特的Data-Aware构件，让很多初识Delphi的人为之目瞪口呆。不需要写任何代码，在几分钟之内就可以做出一个相当精巧的数据库程序，而且在开发期就可以看到运行期的结果，这真是不可思
126.Oracle数据库SQL开发之 数据库对象——PLSQL中使用对象
热门推荐
badman250的专栏
11-28 3万+
126.Oracle数据库SQL开发之 数据库对象——PLSQL中使用对象 欢迎转载，转载请标明出处： PLSQL中可以创建和操作对象。 看一个product_package 的包，如下： CREATE PACKAGE product_package AS   TYPEt_ref_cursor IS REF CURSOR;   FUNCTIONget_products RETURN
调用OpenCV的cvFindContours方法获取图像边界
henreash的专栏
04-20 1万+
//得到图像的外边框  procedure TFrmMain.Button3Click(Sender: TObject); var   oImg, oImg2: PIplImage;   contours: PCvSeq;   p: Pchar;   pSeq: PCvSeq;   oMem: TCvMemStorage;   I, nCnt, area: Integer;
plsql 自动生成月表日表年表
06-07
1. 自动生成月表： ```sql DECLARE table_name VARCHAR2(50); BEGIN -- 表名前缀 table_name := 'table_name_prefix'; FOR i IN 1..12 LOOP EXECUTE IMMEDIATE 'CREATE TABLE ' || table_name || '_' || i ||...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值