- 博客(52)
- 资源 (7)
- 收藏
- 关注
原创 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
484
转载 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
444
原创 传入表或SQL语句,分页查询
create or replace procedure 分页查询(pvc_input varchar2, pi_backcode out integer, pvc_message out varchar2, ...
2018-09-01 10:53:15
372
原创 数字金额转化为大写金额
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
467
转载 管道化表函数PIPELINED
为了让 PL/SQL 函数返回数据的多个行,必须通过返回一个 REF CURSOR 或一个数据集合来完成。REF CURSOR 的这种情况局限于可以从查询中选择的数据,而整个集合在可以返回前,必须进行具体化。Oracle 9i 通过引入的管道化表函数纠正了后一种情况。表函数是返回整个行的集(通常作为一个集合)的函数,可以直接从 SQL 语句中进行查询,就好像它是一个真正的数据库表一样。管道化表函数...
2018-09-01 10:49:21
642
转载 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
2502
原创 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
9659
原创 delphi获取时间差,消除时间差
uses DateUtils{------------------------------------------------------------------------------- 功能: 获取 tmpdt与当前系统时间的 差 参数: 返回值 Days,Hours,Minutes,Seconds:相差天数,相差时数,相差分...
2018-09-01 10:40:02
1446
原创 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
784
转载 VFP命令,DBF数据内部函数
VFP命令是一种实现对数据库系统进行操作的动词或短语。VFP命令可在VFP命令窗口中单独运行,也可编制成程序成批运行,由命令和函数编制的程序可对数据库系统进行自动、复杂的操作,使数据库系统应用起来更加友好、方便。¨ VFP常用命令分类表 类别 命令 建立文件类 ...
2018-09-01 10:36:12
8068
原创 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
384
原创 快速生成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
5606
翻译 数据库线程池
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
968
转载 PMyBaseDebug
Unit PMyBaseDebug;{单元名:PMyBaseDebug创建者:马敏钊创建日期:20050407类:TBaseDebug功能描述: 提供基本的Debug方法 和日志显示记录的功能 本单元自己维护一个全局变量Gob_Debug20050412 添加了TBaseDebug 的自动注册热键的能力 将公开的 方法 InitDebugSystem(Imain...
2015-03-17 11:41:30
405
转载 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
853
原创 字符串分割类
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
676
1
转载 字符串分割
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
481
转载 strFieldByName
CREATE OR REPLACE FUNCTION strFieldByName(sRow VARCHAR2, sFieldName VARCHAR2, sFieldMask VARCHAR2,
2014-07-03 00:13:36
400
转载 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
563
转载 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
579
转载 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
657
原创 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
390
原创 接口文件
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
702
转载 数字金额转化为大写金额
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
660
转载 Oracle索引-2
一、概述索引是用于加速数据存取数据对象,合理的使用索引可以大大降低I/O次数,从而提高数据访问性能。索引有很多种我们主要介绍常用的几种。 二、创建索引1、单列索引单列索引是基于单个列所建立的索引。sql>create index 索引名 on 表名(列名); 2、复合索引复合索引是基于两列或是多列的索引,在同一张表上可以有多个
2014-06-01 01:17:10
493
转载 Oracle索引-1
学习Oracle时,经常会遇到Oracle索引问题,这里将介绍Oracle索引问题的解决方法。Oracle索引和对应的表应该位于不同的表空间中,Oracle能够并行读取位于不同硬盘上的数据,可以避免产生I/O冲突B树索引:在B树的叶节点中存储索引字段的值与ROWID。唯一索引和不唯一索引都只是针对B树索引而言.Oracle最多允许包含32个字段的复合索引Oracle索引创建策略1.导入
2014-06-01 01:16:38
607
翻译 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
558
原创 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
829
翻译 ORACLE SQL性能优化系列 (十四) 完结篇
ORACLE SQL性能优化系列 (十四) 完结篇作者: black_snail关键字 ORACLE PERFORMANCE TUNING PL/SQL 出处 http://www.dbasupport.com 46. 连接多个扫描 如果你对一个列和一组有限的值进行比较, 优化器可能执行多次扫描并对结果
2014-06-01 00:56:56
541
翻译 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
497
翻译 ORACLE SQL性能优化系列 (十二)
ORACLE SQL性能优化系列 (十二)作者: black_snail 关键字 ORACLE PERFORMANCE TUNING PL/SQL 出处 http://www.dbasupport.com 39. 总是使用索引的第一个列 如果索引是建立在多个列上, 只有在它的第一
2014-06-01 00:55:57
547
翻译 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
507
翻译 ORACLE SQL性能优化系列 (十)
ORACLE SQL性能优化系列 (十)作者: black_snail 关键字 ORACLE PERFORMANCE TUNING PL/SQL 出处 http://WWW.DBASUPPORT.COM 31. 强制索引失效 如果两个或以上索引具有相同的等级,你可以强制命令ORACLE优
2014-06-01 00:55:03
467
翻译 ORACLE SQL性能优化系列 (九)
ORACLE SQL性能优化系列 (九)作者: black_snail 关键字 ORACLE PL/SQL TUNING PERFORMANCE 出处 http://www.dbasupport.com 27. 基础表的选择 基础表(Driving Table)是指被最先访问的表
2014-06-01 00:54:11
553
翻译 ORACLE SQL性能优化系列 (八)
ORACLE SQL性能优化系列 (八)作者: black_snail 关键字 ORACLE SQL PERFORMANCE TUNING 出处 http://www.dbasupport.com 25. 用索引提高效率 索引是表的一个概念部分,用来提高检索数据的效率. 实际上,
2014-06-01 00:53:29
456
翻译 ORACLE SQL性能优化系列 (七 )
ORACLE SQL性能优化系列 (七 )作者: black_snail 24. 用EXPLAIN PLAN 分析SQL语句 EXPLAIN PLAN 是一个很好的分析SQL语句的工具,它甚至可以在不执行SQL的情况下分析语句. 通过分析,我们就可以知道ORACLE是怎么样连接表,使用什么方式扫
2014-06-01 00:52:55
505
翻译 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
513
翻译 ORACLE SQL性能优化系列 (五)
ORACLE SQL性能优化系列 (五)作者: black_snail 关键字 ORACLE PERFORMANCE SQL TUNING 出处 http://WWW.DBASUPPORT.COM 17. 使用表的别名(Alias) 当在SQL语句中连接多个表时, 请使用表的别名并把
2014-06-01 00:50:27
452
翻译 ORACLE SQL性能优化系列 (四)
ORACLE SQL性能优化系列 (四)作者: black_snail 关键字 ORACLE SQL PERFORMANCE TUNING 出处 http://WWW.DBASUPPORT.COM 13. 计算记录条数 和一般的观点相反, count(*) 比count(1)稍快 ,
2014-06-01 00:49:52
415
翻译 ORACLE SQL性能优化系列 (三)
ORACLE SQL性能优化系列 (三)作者: black_snail 关键字 ORACLE SQL PERFORMANCE TUNING 出处 http://www.dbasupport.com 8. 使用DECODE函数来减少处理时间 使用DECODE函数可以避免重复扫描
2014-06-01 00:49:15
462
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人