plsql导出表到mysql数据库表_用PLSQL自动生成数据库表的Delphi对象 (转)

最新推荐文章于 2021-02-10 23:19:21 发布
最新推荐文章于 2021-02-10 23:19:21 发布
阅读量196 收藏
点赞数
文章标签： plsql导出表到mysql数据库表
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_35639750/article/details/113477379
版权

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:= 'TB_OS_INFO';

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＞[,]])

--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;

quanthub
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
plsql导出文件转mysql_PLSQL Developer导入导出数据库
weixin_39822629的博客
02-28 929
PLSQL Developer导入导出数据库 导出步骤： 1 tools -export user object 选择选项，导出.sql文件 2 tools -export tables- Oracle Export 选择选项导出.dmp文件 导入步骤： 1 tools-import tables-SQL Inserts 导入.sql文件 2 tools-import talbes-Oracle ...
plsql导出表到mysql数据库表_PLSQL导入导出表的正确步骤
weixin_36275605的博客
02-08 1232
原来总是直接 tools->import talbes->Oracle Import结果发现有的时候会出错：有的表不能正确导入， baidu+googel解决办法如下(看解释1)：导出步骤：1 tools ->export user object 选择选项，导出.sql文件2 tools ->export tables-> Oracle Export 选择选项导出.d...
plsql导出文件转mysql_plsql导出dmp文件 导入数据库
weixin_30977281的博客
02-10 1054
如何使用PLSQL Developer从oracle数据库 导入导出数据如何使用PLSQL Developer从oracle数据库 导入导出数据　　用pl/sql developer导出表的数据时有三种方式：Oracle Export，Sql Insert，pl/sql developer　　只有“Oracle Export”方式导出再导入后，表结构和索引结构没有...文章珠海_jadeluo...
用PLSQL自动生成数据库表的Delphi对象
henreash的专栏
11-14 2047
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; 
plsql developer data generator
spring
09-12 252
VARCHAR   250   FirstName VARCHAR   250   LastName VARCHAR   240   Company NUMBER     10,6   Sequence(1,1) NUMBER     Sequence(1,1) NUMBER     Sequence(1,1) VARCHAR   24000 Address1 DATE     ...
PLSQL Developer导入导出表数据结构
12-14
找到工具——》导出用户对象——》选择当前用户——》导出文件为xxx.sql位置自己选择（导出的只是数据结构） 导出表数据： 找到工具——》导出表——》选择当前用户——》选择Oracle导出——》选择导出可执行文件...
PLSQL.zip_plsql redis_非关系型数据库
09-20
包含了Redis的客户端和可视化工具，还有集群的安装，很快上手。
plsql配置连接远程数据库_instantclient_10_2.rar
09-17
将instantclient_10_2拷贝到plsql的安装目录下 1.打开plsql，不输入用户名和密码，直接点取消； 2.plsql会打开窗口-->点首选项设置； 3.连接-->在OCI 库中输入oci.ll的绝对路径，重启plsql即可。
PLSQL.rar_Oracle数据库_Java_
08-10
Oracle 客户端工具，PL/SQL Developer是一个集成开发环境，专门开发面向Oracle数据库的应用。PL/SQL也是一种程序语言，叫做过程化SQL语言
Oracle数据库表转换为Mysql
03-29
使用PowerDesigner将Oracle数据中的库表转换为Mysql中的库表格式
Oracle数据库移植到MySQL实战
12-14
项目做好了，更高的要求被提出来，比如，要多数据库支持，怎么办？移植！有没有人做过这事，我好参考一下？哦，这有一个… 　　关键词：Oracle MySQL 移植 　　一、前言 　　公司原来的项目是基于Oracle数据库的，Oracle功能强大，但是部署和管理较复杂，更重要的是，购买Oracle的费用不是每个客户都愿意承担的。因此，迫切需要把公司项目所用数据库移植到一个简单好用的数据库上。当然，如您所料，我们选择了广受欢迎的MySQL。 　　作为一个开源数据库，MySQL用无数案例证明了她的可用性，因此让我们把重点放在如何将Oracle移植到MySQL上。已经有很多的文章和专题介绍了Ora
plsql批量生成数据功能研究
09-07
plsql批量生成数据功能研究
mysql 生成测试数据
08-16 69
1. 创建database create database test; 2. 创建数据表 字段类型： id : 编号uname: 用户名ucreatetime : 创建时间age : 年龄 CREATE TABLE usertb( id serial, uname varchar(20) , ucreatetime datetime , age int(11)) ENGINE=innodb D...
PLSQL 导出、导入 表和数据
热门推荐
trouble is a friend
09-10 7万+
导出： 首先点击 TOOLS，选择 EXPORT TABLES 选中你需要导出的表， 勾选 “Create tables” 是因为在导入的数据库中没有此表 如果勾选"Drop tables" 而没有勾选 “Create tables” ，而数据库中没有此表，会报表和视图不存在 Output file 为导出的路径 如果你想导的表 数据记录很多，就只想导出...
PL/SQL简单使用——导入、导出数据表
随风半水
05-18 4万+
使用PL/SQL导出、导入表在使用PL/SQL操作oracle数据库时，经常使用的一个操作就是将自己写的数据表导出，或者想把他人的数据表导入到自己的数据库中。虽然是很简单的操作，但自己之前一直出错，所以在这里记录一下使用方法。
navicat premium从Oracle导出数据到mysql
飞龙在天
02-17 5219
项目上要将Oracle数据导出到mysql，从网上查到navicat premium是个不错的工具，就是试了一下。期间遇到很多问题，记录如下： 1、首先是将现场数据库还原到公司远程数据库，一直报“必须说明 'SET_NO_OUTLINES' 组件”错误，上网查了一下，说是导出的Oracle数据库与导入的数据库版本不一致导致，但是我是低版本导入高版本，应该不存在这个问题。试了很长时间，发现是因
PLSQL导入导出数据库
pc_grass的专栏
05-21 623
<br />导出步骤：<br />1 tools ->export user object 选择选项，导出.sql文件<br />2 tools ->export tables-> Oracle Export 选择选项导出.dmp文件<br />导入步骤：<br />1 tools->import tables->SQL Inserts 导入.sql文件<br />2 tools->import talbes->Oracle Import然后再导入dmp文件<br />数据库的导入导出成功<br /> <b
一个基于C语言的简易学生管理系统.zip
最新发布
06-15
C语言是一种广泛使用的编程语言，它具有高效、灵活、可移植性强等特点，被广泛应用于操作系统、嵌入式系统、数据库、编译器等领域的开发。C语言的基本语法包括变量、数据类型、运算符、控制结构（如if语句、循环语句等）、函数、指针等。在编写C程序时，需要注意变量的声明和定义、指针的使用、内存的分配与释放等问题。C语言中常用的数据结构包括： 1. 数组：一种存储同类型数据的结构，可以进行索引访问和修改。 2. 链表：一种存储不同类型数据的结构，每个节点包含数据和指向下一个节点的指针。 3. 栈：一种后进先出（LIFO）的数据结构，可以通过压入（push）和弹出（pop）操作进行数据的存储和取出。 4. 队列：一种先进先出（FIFO）的数据结构，可以通过入队（enqueue）和出队（dequeue）操作进行数据的存储和取出。 5. 树：一种存储具有父子关系的数据结构，可以通过中序遍历、前序遍历和后序遍历等方式进行数据的访问和修改。 6. 图：一种存储具有节点和边关系的数据结构，可以通过广度优先搜索、深度优先搜索等方式进行数据的访问和修改。 这些数据结构在C语言中都有相应的实现方式，可以应用于各种不同的场景。C语言中的各种数据结构都有其优缺点，下面列举一些常见的数据结构的优缺点： 数组： 优点：访问和修改元素的速度非常快，适用于需要频繁读取和修改数据的场合。 缺点：数组的长度是固定的，不适合存储大小不固定的动态数据，另外数组在内存中是连续分配的，当数组较大时可能会导致内存碎片化。 链表： 优点：可以方便地插入和删除元素，适用于需要频繁插入和删除数据的场合。 缺点：访问和修改元素的速度相对较慢，因为需要遍历链表找到指定的节点。 栈： 优点：后进先出（LIFO）的特性使得栈在处理递归和括号匹配等问题时非常方便。 缺点：栈的空间有限，当数据量较大时可能会导致栈溢出。 队列： 优点：先进先出（FIFO）的特性使得

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值