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

最新推荐文章于 2022-08-02 04:58:42 发布
最新推荐文章于 2022-08-02 04:58:42 发布
阅读量226 收藏
点赞数
文章标签： 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
关注
plsql导出文件转mysql_PLSQL Developer导入导出数据库
weixin_39822629的博客
02-28 953
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 1258
原来总是直接 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 1078
如何使用PLSQL Developer从oracle数据库 导入导出数据如何使用PLSQL Developer从oracle数据库 导入导出数据　　用pl/sql developer导出表的数据时有三种方式：Oracle Export，Sql Insert，pl/sql developer　　只有“Oracle Export”方式导出再导入后，表结构和索引结构没有...文章珠海_jadeluo...
用PLSQL自动生成数据库表的Delphi对象
henreash的专栏
11-14 2087
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 263
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导出表结构到excel_将数据库中的表结构导出到excel中（写数据库设计说明书）...
weixin_39944944的博客
12-18 2020
这两天接到一个任务，写数据库设计说明书。很头疼啊~~网上翻阅了下范本，发现数据库设计说明书一般由数据库结构、数据字典、sql附件组成。这是我刚刚写好的数据库设计说明书。 这里记录下，方便自己下次查阅。一、数据库表结构第一步：在plsql中将所有表的sql都导出来。操作：选择表→view→view sql→复制所有的表的sql到一个word中第二步：将word转换成sql。新建一个txt，改成....
plsql 复制表结构到指定表空间_MySQL数据库教程-数据表的创建与复制
weixin_39853131的博客
11-21 1402
数据表的复制与创建数据表Table是实现数据存储与管理的基础，也是使用数据库技术进行数据存储的核心对象之一。本节主要介绍数据表的定义、表的复制等语法与实例。(课程配套视频教程请关注后查阅视频资源)。创建数据表基本语法MySQL数据库管理系统使用SQL结构化查询语法实现对数据表进行创建。数据表创建主要包括数据表名字的确定、字段属性的定义与约束的设置等。数据表创建的基本语法描述如下：创建数据表语法其中...
Oracle数据库移植到MySQL实战
12-14
项目做好了，更高的要求被提出来，比如，要多数据库支持，怎么办？移植！有没有人做过这事，我好参考一下？哦，这有一个… 　　关键词：Oracle MySQL 移植 　　一、前言 　　公司原来的项目是基于Oracle数据库的，Oracle功能强大，但是部署和管理较复杂，更重要的是，购买Oracle的费用不是每个客户都愿意承担的。因此，迫切需要把公司项目所用数据库移植到一个简单好用的数据库上。当然，如您所料，我们选择了广受欢迎的MySQL。 　　作为一个开源数据库，MySQL用无数案例证明了她的可用性，因此让我们把重点放在如何将Oracle移植到MySQL上。已经有很多的文章和专题介绍了Ora
mysql 生成测试数据
08-16 78
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...
Oracle数据库表转换为Mysql
03-29
使用PowerDesigner将Oracle数据中的库表转换为Mysql中的库表格式
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 5243
项目上要将Oracle数据导出到mysql，从网上查到navicat premium是个不错的工具，就是试了一下。期间遇到很多问题，记录如下： 1、首先是将现场数据库还原到公司远程数据库，一直报“必须说明 'SET_NO_OUTLINES' 组件”错误，上网查了一下，说是导出的Oracle数据库与导入的数据库版本不一致导致，但是我是低版本导入高版本，应该不存在这个问题。试了很长时间，发现是因
PLSQL导入导出数据库
pc_grass的专栏
05-21 650
<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
Oracle PLSQL 导入导出数据库
流年~~
04-23 2099
导出步骤： 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 Import然后再导入
Oracle 数据如何迁移到MySQL 图文详细教程
m0_67394230的博客
08-02 1万+
先自我介绍一下，小编13年上师交大毕业，曾经在小公司待过，去过华为OPPO等大厂，18年进入阿里，直到现在。深知大多数初中级java工程师，想要升技能，往往是需要自己摸索成长或是报班学习，但对于培训机构动则近万元的学费，着实压力不小。因此我收集了一份《java开发全套学习资料》送给大家，初衷也很简单，就是希望帮助到想自学又不知道该从何学起的朋友，同时减轻大家的负担。点击工具选择数据传输，注意；如果是从Oracle到MySQL，就选中Oracle库，然后在使用数据传输，这个是传输和被传输的关系。...
mysql导入del文件_mysql导入导出sql文件
weixin_29429691的博客
02-18 1527
window下1.导出整个数据库mysqldump -u 用户名 -p 数据库名 > 导出的文件名mysqldump -u dbuser -p dbname > dbname.sql2.导出一个表mysqldump -u 用户名 -p 数据库名 表名> 导出的文件名mysqldump -u dbuser -p dbname users> dbname_users.sql3....
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值