宋威的专栏

原创 SQLServer和Oracle常用函数对比

数学函数 　　1.绝对值 　　S:select abs(-1) value 　　O:select abs(-1) value from dual 　　2.取整(大) 　　S:select ceiling(-1.001) value 　　O:select ceil(-1.001) value from dual 　　3.取整（小） 　　S:select floor(-1.001) value 　　O

原创 无限制Undo

Implementing Multiple Undo in a Graphics Application by Steve Harman - sharman1@uswest.net The methodology presented here is useful for 24-bit bitmaps and small images, although the technique could be

原创 Delphi控制Excel2000

Delphi控制Excel2000类　别:COM & ActiveX(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelA

原创 用API函数实现简单的网络发送和接收

用API函数实现简单的网络发送和接收实际工作中的代码，向服务器发送特定格式命令后，取得想要的工艺位号数据。直接复制过来的，有兴趣的自己看吧。unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs,winsock, StdCtrls,

原创 字符串里包含很多空格,有什摸好办法快速删除

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3115124

原创 字符分解

str = 主办一,主办二如何能把它分解为str1 = 主办一str2 = 主办二不知代码该怎么写？----------------------var  S: string;  TS: TStrings; //最好不要用string数组，用list更加方便begin  S := 主办一,主办二;  S := StringReplace(S, , , [r

原创 查询text字段中指定字符的出现次数

--测试数据create table t1(a text)insert t1 select 案发司法速读法速读法司法速读法速度发来了吉林两岁凤飞飞速读法速读法速读法 --创建查询函数create function f_find(@str varchar(100))returns intas begindeclare @a intdeclare @b intdeclare @c intdecla

原创 通过身份证号查询出生日期小与当前日期的记录

SELECT * FROM 表 WHERE (CASE LEN(身份证号) WHEN 15 THEN  19+SUBSTRING(身份证号,7,6)                WHEN 18 THEN  SUBSTRING(身份证号,7,8)                ELSE 30001231 END)本文引用通告地址： http://blog.csdn.net/xueguang

原创 绘制图形的程序单元代码

绘制图形的程序单元代码 unit fxhsyplaa;interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, Db, DBTables; type  TForm1 = class（TForm）    Imag

原创 进制转换程序示例源码

进制转换程序示例源码之一 { ##################################################################### # 声明:本站资源由Delphi编程驿站[http://www.delphidak.com]整理收集， # 部分资源来自于网络,转发前请注意尊重版权,如果您发现本站的资源 # 侵犯了您的版权，请来信告知，版主将立即删除。 # #*

原创 如何使用Delphi设计强大的服务器程序

如何使用Delphi设计强大的服务器程序     选择自 hunter8888 的 Blog  关键字   如何使用Delphi设计强大的服务器程序 出处      现在网络的流行，使得服务器程序得到了广泛的应用，那么我们使用Delphi如何设计出强壮的服务器呢？有人说，如果要设计服务器的话，一定要使用VC来设计，其实这个人说的有一定道理，因为如果你要使用Delphi来设计服务器的话，要想设计高效

原创 总结一下SQL语句中引号

总结一下SQL语句中引号()、quotedstr()、()、format()在SQL语句中的用法以 及SQL语句中日期格式的表示(#)、()在Delphi中进行字符变量连接相加时单引号用(),又引号用()表示首先定义变量var AnInt:integer=123;//为了方便在此都给它们赋初值。虽然可能在引赋初值在某些情况下不对AnIntStr:string=456;A

原创 用于SQL SERVER2000数据库备份和恢复

用于SQL SERVER2000数据库备份和恢复 关键字: 分类: 个人专区 密级: 公开 (评分: , 回复: 2, 阅读: 73) ?? 用于SQL SERVER2000数据库备份和恢复/*备份数据库的过程*/if exists( select * from sysobjects  where name=pr_backup_db and xtype=p          )begi

原创 正则表达式

想必很多人都对正则表达式都头疼.今天,我以我的认识,加上网上一些文章,希望用常人都可以理解的表达方式.来和大家分享学习经验.　　开篇,还是得说说 ^ 和 $ 他们是分别用来匹配字符串的开始和结束，以下分别举例说明 　　"^The": 开头一定要有"The"字符串; 　　"of despair$": 结尾一定要有"of despair" 的字符串; 　　那么,　　"^abc$": 就是要求以abc开

原创 Combox图片

unit MainFrm;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    ComboBox1: TComboBox;    ListBox1: TListBox;   

原创 Transact_SQL小手册

--语 句 功 能--数据操作SELECT --从数据库表中检索数据行和列INSERT --向数据库表添加新数据行DELETE --从数据库表中删除数据行UPDATE --更新数据库表中的数据--数据定义CREATE TABLE --创建一个数据库表DROP TABLE --从数据库中删除表ALTER TABLE --修改数据库表结构CREATE VIEW --创建一个视图DROP VIEW --

原创 删除重复纪录

学习sql有一段时间了，发现在我建了一个用来测试的表（没有建索引）中出现了许多的重复记录。后来总结了一些删除重复记录的方法，在Oracle中，可以通过唯一rowid实现删除重复记录；还可以建临时表来实现...这个只提到其中的几种简单实用的方法，希望可以和大家分享（以表employee为例）。 SQL> desc employee  Name                             

原创 删除表中的重复记录

今天把网站的数据从ACCESS里导到SQ里,因为被他们手工编辑过,结果出现了大量的重复数据,用下面这个方法可以解决部分问题,但当表中有ntext字段时,就不能用DISTINCT函数了,因为不支持聚合,想了好久没找到什么好办法,只好先用聚合把ID提出来新建一个且,结构跟原表一样,再用两个表联合起来用UPDATE方法把值更新,总算解决了,但麻烦.郁闷SELECT DISTINCT * INTO TMP

原创 SQL删除逻辑重复记录的最简方法

问题：对于表 TestData : ID, DataID, A,B,C需要删除DataID重复的记录，仅保留第一条。 ID为Int型主键delete *  from  TestData where ID not in (select Min(ID) from TestDatagroup by DataID)本文引用通告地址： http://blog.csdn.net/dogbear2000/ser

原创 XML文档简单读写方法

XML文档简单读写方法 CST 2005-07-08最近参加一个项目需要写XML，因此我开始学习XML在delphi中的编程方法，我将我STEP BY STEP的入门过程记录下来，希望经验丰富的前辈能给我指点，也希望给像我一样有意尝试XML编程的朋友投石问路一下。 最近参加一个项目需要写XML，因此我开始学习XML在delphi中的编程方法，我将我STEP BY STEP的入门过程记录下来，希望经

原创 c#常用函数

1、DateTime 数字型  System.DateTime currentTime=new System.DateTime();  1.1 取当前年月日时分秒  currentTime=System.DateTime.Now;  1.2 取当前年  int 年=currentTime.Year;  1.3 取当前月  int 月=currentTime.Month;  1.4 取当前日  in

原创 交叉数据报表

交叉数据报表有时候需要旋转结果以便在水平方向显示列，而在垂直方向显示行。这就是所谓的创建 PivotTable®、创建交叉数据报表或旋转数据。假定有一个表 Pivot，其中每季度占一行。对 Pivot 的 SELECT 操作在垂直方向上列出这些季度：Year Quarter Amount---- ------- ------1990 1

原创 format常用用法

Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，但并不

原创 D2005的新特性

这两天就要开学了。之前几天太忙了，没时间写Blog，今天就写写Delphi 2005的新特性，for…in…语句在Delphi2005中，新增加了一个非常有用的语句，这个特性在其他很多语言中都有，就是著名的foreach循环，越来越多的人发现这个有用的东西了，也越来越多的语言在编译器层面直接加入了对这个的支持了。Delphi的编译器在集合类型，数组类型，字符串类型以及提供了GetEnumerato

原创 数据库开发规范

  数据库开发规范1、命名规范1.1、命名总规则1、  所有名称的字符范围为：A-Z, a-z, 0-9 和_(下划线)。不允许使用其他字符作为名称。2、  采用英文单词或英文短语（包括缩写）作为名称，不能使用无意义的字符或汉语拼音。3、  名称应该清晰明了，能够准确表达事物的含义，最好可读，遵循“见名知意”的原则。 1.2、表命名规范1、不使用tab或tbl作为表前缀（本来就是一个表，为什么还要

原创 Ado属性

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;type  TForm1 = class(TForm)    ADOConnection1: TADOCo

原创 一句话MDI

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sende

原创 表变量

declare @t table(mz char(50),old char(50))--使用Values报错insert into @t(mz,old)  select CustomerID,shipname from ordersselect * from @t where mz=vinet

原创 五种提高 SQL 性能的方法

五种提高 SQL 性能的方法author:Johnny Papa Data Points Archive 有时， 为了让应用程序运行得更快，所做的全部工作就是在这里或那里做一些很小调整。啊，但关键在于确定如何进行调整！迟早您会遇到这种情况：应用程序中的 SQL 查询不能按照您想要的方式进行响应。它要么不返回数据，要么耗费的时间长得出奇。如果它降低了报告或您的企业应用程序的速度，用户必须等待的时间过

原创 Excel

unit unitSql;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, ADODB, Grids, ComCtrls,DateUtils,ComObj,Excel2000,  ExtCtrls;type  TForm1

原创 Rave

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, RpBase, RpSystem, RpDefine, RpRave, StdCtrls, RpRender,  RpRenderCanvas, RpRenderPreview,

原创 基本算法

1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod B); end;  求两数的最小公倍数 function lcm(a,b:integer):integer; begin if alcm:=a; while lcm mod b >0 do inc(l

原创 Socket I/O模型全接触

Socket I/O模型全接触     选择自 flyinwuhan 的 Blog  关键字   Socket I/O模型全接触 本文简单介绍了当前Windows支持的各种Socket I/O模型，如果你发现其中存在什么错误请务必赐教。    一：select模型    二：WSAAsyncSelect模型    三：WSAEventSelect模型    四：Overlapped I/O 事件通

原创 日期时间转换

var Year,Month,Day,Hour,Minute,Second,MilliSecond:Word;MyDate,MyTime,MyDateTime:TDateTime;数字转日期  MyDate:=EncodeDate(Year,Month,Day);数字转时间  MyTime:=EncodeTime(Hour,Min,0,0);     MyDateTime:=EncodeDateT

原创 字符串实现类

tedit.Create(self).Name:=edit1;  with tedit(findcomponent(edit1)) do  begin    parent := self;    text := 2222;  end;

原创 http://blog.csdn.net/softj/