DoDoDTa-优快云博客

原创 ucomm

unit uComm;interface uses classes,msxml2_tlb,Windows;type TPubToolKit = class(TObject) private FXmlHttp : IXMLHTTPRequest; public class function NewInstance: TObject; override; ...

2018-09-01 10:55:31 509

转载 oracle的递归查询语句

比如模块表 mod 字段 number modId number parentModId varchar modName 从下往上查 select * from mod m start with m.modId = ? connect by prior m.parentModId = m.modId 从上往下查 select * from mod m start with m.pa...

2018-09-01 10:53:51 501

原创传入表或SQL语句,分页查询

create or replace procedure 分页查询(pvc_input varchar2, pi_backcode out integer, pvc_message out varchar2, ...

2018-09-01 10:53:15 416

原创数字金额转化为大写金额

create or replace function Fn_GetMoneyToChina(p_money in number) return varchar2 is /* 功能:数字金额转化为汉字金额最大支持金额 9999999999999999.99 (支持千万亿的任何金额) 小数点支持2位 */ type myArray is ta...

2018-09-01 10:52:30 512

为了让 PL/SQL 函数返回数据的多个行，必须通过返回一个 REF CURSOR 或一个数据集合来完成。REF CURSOR 的这种情况局限于可以从查询中选择的数据，而整个集合在可以返回前，必须进行具体化。Oracle 9i 通过引入的管道化表函数纠正了后一种情况。表函数是返回整个行的集（通常作为一个集合）的函数，可以直接从 SQL 语句中进行查询，就好像它是一个真正的数据库表一样。管道化表函数...

2018-09-01 10:49:21 686

转载 Oracle 获取当前年、月、日

Oracle 获取当前年、月、日1、//oracle中extract()函数从oracle 9i中引入,用于从一个date或者interval类型中截取到特定的部分 //语法如下： EXTRACT ( { YEAR | MONTH | DAY | HOUR | MINUTE | SECOND } | { TIMEZONE_HOUR | T...

2018-09-01 10:47:17 2590

原创 oracle 中,查找小于指定日期的最近日期

create or replace function fn_GetNearDateFromTable(p_date int) return date is Result date;begin select max(a.datefiled) into result from tables a where a.datefiled <= to_date(p_date, 'Y...

2018-09-01 10:41:44 9882

原创 delphi获取时间差，消除时间差

uses DateUtils{------------------------------------------------------------------------------- 功能: 获取 tmpdt与当前系统时间的差参数: 返回值 Days,Hours,Minutes,Seconds:相差天数，相差时数，相差分...

2018-09-01 10:40:02 1550

原创 delphi 往DBF插入数据，日期时间格式，时间部分无法插入问题

一般的参数赋值的方法是不行的，如下方法： var i:integer; fldName : string; d : TDateTime; begin ... sSQL := Format('insert into abc.dbf (TyNUMERIC,TyChar,TyDate,Tyvarchar,Tydatetime)' ...

2018-09-01 10:37:44 837

转载 VFP命令，DBF数据内部函数

VFP命令是一种实现对数据库系统进行操作的动词或短语。VFP命令可在VFP命令窗口中单独运行，也可编制成程序成批运行，由命令和函数编制的程序可对数据库系统进行自动、复杂的操作，使数据库系统应用起来更加友好、方便。¨ VFP常用命令分类表类别命令建立文件类 ...

2018-09-01 10:36:12 8704

原创 oracle 字符串切分包函数

create or replace package StringSplit is type Col_MaskIndexChar is Record( MaskIndexOfString int); type v_table is table of Col_MaskIndexChar index by binary_integer; My_table v_table; Co

2016-07-06 15:08:22 418

原创快速生成Insert、Update、Select语句

declare sText VARCHAR2(3000); sTable varchar2(30);begin sTable := '&Tablename'; select get_sql_insert(sTable) INTO sText from dual; DBMS_OUTPUT.put_line(sText);DBMS_OUTPUT.put_line('...

2016-06-08 15:00:05 5698

翻译数据库线程池

unit ConnPool;interfaceuses SysUtils, Classes, SyncObjs, Windows, Variants, DateUtils, IniFiles, math, StrUtils, Ora, OraProvider, DBAccess, DB, ConnPool_Intr, DAScript, OraScript, MemD...

2016-06-08 14:56:17 1019

转载 PMyBaseDebug

Unit PMyBaseDebug;{单元名：PMyBaseDebug创建者：马敏钊创建日期：20050407类：TBaseDebug功能描述：提供基本的Debug方法和日志显示记录的功能本单元自己维护一个全局变量Gob_Debug20050412 添加了TBaseDebug 的自动注册热键的能力将公开的方法 InitDebugSystem(Imain...

2015-03-17 11:41:30 425

转载 uClosingEffect 玻璃效果

unit uClosingEffect; interface uses Windows, Messages, SysUtils, Classes, Graphics; const WM_REDIRCREATE = WM_USER + 382; WM_REDIRDESTROY = WM_USER + 383; WM_REDIRCLOSING = WM_USER + 384

2014-08-14 00:42:34 877

原创字符串分割类

TSPString = Class private FsSRC:string; sList:TStrings; FcMask: String; procedure SetMask(const Value: String); procedure SplitSToListEx(S: String; Seperator: String; List: TStri

2014-07-15 23:31:25 724

转载字符串分割

function colCounts(const src:string;cMask:string):Integer;var i:Integer; preIndex:Integer; tempStr:string;begin tempStr := src; i :=0; while True do begin preIndex := Pos(cMask,tem

2014-07-12 21:36:14 499

转载 strFieldByName

CREATE OR REPLACE FUNCTION strFieldByName(sRow VARCHAR2, sFieldName VARCHAR2, sFieldMask VARCHAR2,

2014-07-03 00:13:36 426

转载 colcount

CREATE OR REPLACE FUNCTION colcount(pvar_s VARCHAR2, pvar_mask VARCHAR2) RETURN INTIS pvar_i INT; pvar_len INT; pvar_count INT; pvar_inst int;BEGIN pvar_i := 0; p

2014-07-02 23:57:29 592

转载 colindex

CREATE OR REPLACE FUNCTION colindex( pvar_s VARCHAR2 , pvar_substr VARCHAR2 , pvar_mask VARCHAR2) RETURN INTIS pvar_i INT; pvar_count INT; pvar_result INT;

2014-07-02 23:56:21 616

转载 getcol

CREATE OR REPLACE FUNCTION getcol ( pvar_s VARCHAR2 , pvar_index INT , pvar_mask VARCHAR2) RETURN VARCHAR2IS pvar_i INT; pvar_result VARCHAR2 (4096);BEGIN pvar_

2014-07-02 23:55:48 682

原创 DLL 实现单元

unit uSetConfig;interfaceuses SysUtils, uInterface, Windows, Controls, Forms, FSetForm;type{ TDllTest } TIConfig = class(TInterfacedObject, IConfig) private FNotic:INotic; pro

2014-06-29 23:55:35 415

原创接口文件

unit uInterface; //接口单元interfaceuses Windows,Classes;type{ IDllTest } IHtpCom = interface; INotic = interface ['{F4AA4BD8-7015-46D2-BD8B-D911CF111FD7}'] procedure setState(const bStart

2014-06-29 23:48:40 749

转载数字金额转化为大写金额

create or replace function Fn_GetMoneyToChina(p_money in number) return varchar2 is /* 功能:数字金额转化为大写金额最大支持金额 9999999999999999.99 (支持千万亿的任何金额) 小数点支持2位 */ type myArray i

2014-06-01 01:19:22 710

转载 Oracle索引-2

一、概述索引是用于加速数据存取数据对象，合理的使用索引可以大大降低I/O次数，从而提高数据访问性能。索引有很多种我们主要介绍常用的几种。二、创建索引1、单列索引单列索引是基于单个列所建立的索引。sql>create index 索引名 on 表名(列名); 2、复合索引复合索引是基于两列或是多列的索引，在同一张表上可以有多个

2014-06-01 01:17:10 510

转载 Oracle索引-1

学习Oracle时，经常会遇到Oracle索引问题，这里将介绍Oracle索引问题的解决方法。Oracle索引和对应的表应该位于不同的表空间中,Oracle能够并行读取位于不同硬盘上的数据，可以避免产生I/O冲突B树索引：在B树的叶节点中存储索引字段的值与ROWID。唯一索引和不唯一索引都只是针对B树索引而言.Oracle最多允许包含32个字段的复合索引Oracle索引创建策略1.导入

2014-06-01 01:16:38 629

翻译 oracle解锁表

select t2.username,t2.sid,t2.serial#,t2.logon_timefrom v$locked_object t1,v$session t2where t1.session_id=t2.sid order by t2.logon_time;alter system kill session '56,9010';

2014-06-01 01:12:52 570

原创 oracle 对象查询

---dba_ 所有 user_ 当前select * from dba_tables where owner = ''; select * from user_tables; select * from dba_source where owner = '' and type not in( 'PROCEDURE','FUNCTION'); select ...

2014-06-01 01:03:49 864

翻译 ORACLE SQL性能优化系列 (十四) 完结篇

ORACLE SQL性能优化系列 (十四) 完结篇作者: black_snail关键字 ORACLE PERFORMANCE TUNING PL/SQL 出处 http://www.dbasupport.com 46. 连接多个扫描如果你对一个列和一组有限的值进行比较, 优化器可能执行多次扫描并对结果

2014-06-01 00:56:56 575

翻译 ORACLE SQL性能优化系列 (十三)

ORACLE SQL性能优化系列 (十三)作者: black_snail 关键字 ORACLE PERFORMANCE TUNING PL/SQL 出处 http://www.dbasupport.com 43. 用WHERE替代ORDER BY ORDER BY 子句只在两种严格的条件下使

2014-06-01 00:56:26 514

翻译 ORACLE SQL性能优化系列 (十二)

ORACLE SQL性能优化系列 (十二)作者: black_snail 关键字 ORACLE PERFORMANCE TUNING PL/SQL 出处 http://www.dbasupport.com 39. 总是使用索引的第一个列如果索引是建立在多个列上, 只有在它的第一

2014-06-01 00:55:57 570

翻译 ORACLE SQL性能优化系列 (十一)

ORACLE SQL性能优化系列 (十一)作者: black_snail 关键字 ORACLE PERFORMANCE PL/SQL TUNING 出处 http://www.dbasupport.com 36. 用UNION替换OR (适用于索引列) 通常情况下, 用UNION替换WH

2014-06-01 00:55:32 533

翻译 ORACLE SQL性能优化系列 (十)

ORACLE SQL性能优化系列 (十)作者: black_snail 关键字 ORACLE PERFORMANCE TUNING PL/SQL 出处 http://WWW.DBASUPPORT.COM 31. 强制索引失效如果两个或以上索引具有相同的等级,你可以强制命令ORACLE优

2014-06-01 00:55:03 486

翻译 ORACLE SQL性能优化系列 (九)

ORACLE SQL性能优化系列 (九)作者: black_snail 关键字 ORACLE PL/SQL TUNING PERFORMANCE 出处 http://www.dbasupport.com 27. 基础表的选择基础表(Driving Table)是指被最先访问的表

2014-06-01 00:54:11 569

翻译 ORACLE SQL性能优化系列 (八)

ORACLE SQL性能优化系列 (八)作者: black_snail 关键字 ORACLE SQL PERFORMANCE TUNING 出处 http://www.dbasupport.com 25. 用索引提高效率索引是表的一个概念部分,用来提高检索数据的效率. 实际上,

2014-06-01 00:53:29 475

翻译 ORACLE SQL性能优化系列 (七 )

ORACLE SQL性能优化系列 (七 )作者: black_snail 24. 用EXPLAIN PLAN 分析SQL语句 EXPLAIN PLAN 是一个很好的分析SQL语句的工具,它甚至可以在不执行SQL的情况下分析语句. 通过分析,我们就可以知道ORACLE是怎么样连接表,使用什么方式扫

2014-06-01 00:52:55 523

翻译 ORACLE SQL性能优化系列 (六 )

ORACLE SQL性能优化系列 (六 )出处 http://www.dbasupport.com 20. 用表连接替换EXISTS 通常来说 , 采用表连接的方式比EXISTS更有效率 SELECT ENAME FROM EMP E WHERE EXISTS (SELECT ‘X' FROM DEPT WHERE DEPT_NO

2014-06-01 00:51:47 539