测试的时候比较重要，我们可以知道当前交易影响了哪些表
--用于记录用户在当前表上什么时候、做的什么操作：update、insert、delete
create table TriggerRecord
(
operdt datetime, --触发时间
opertp varchar(10), --操作类型：update、insert、delete
opertb varchar(50) --表名
)
--这个表于用保存生成的触发器语句，在过程中循环执行
--因为Sqlserver不允许在一个批次同时执行多条create trigger语句
create table T(sqlTrigger varchar(500))
--循环执行存于表中触发器的存储过程
create proc loopExecTrigger
as
begin
declare @sql varchar(500)
declare cur cursor for select sqlTrigger from T
open cur
fetch cur into @sql
while @@fetch_status=0
begin
execute(@sql)
fetch cur into @sql
end
close cur
deallocate cur
delete T
end
--用于生成插入语句的触发器，并将触发器语句保存到表中
select 'insert into T values(''create trigger T_'+name+' on '+name+' for insert as insert into TriggerRe ......
这两天有个需求，需要在数据库中判断字符串的格式，于是从网上搜集了一些资料，整理了一下。
下面这个是一个自定义函数，用户可以调用这个函数判断指定的字符串是否符合正则表达式的规则.
CREATE FUNCTION dbo.find_regular_expression
(
@source varchar(5000), --需要匹配的源字符串
@regexp varchar(1000), --正则表达式
@ignorecase bit = 0 --是否区分大小写，默认为false
)
RETURNS bit --返回结果0-false，1-true
AS
BEGIN
--0（成功）或非零数字（失败），是由 OLE 自动化对象返回的 HRESULT 的整数值。
DECLARE @hr integer
--用于保存返回的对象令牌，以便之后对该对象进行操作
DECLARE @objRegExp integer DECLARE @objMatches integer
--保存结果
DECLARE @results bit
/*
创建 OLE 对象实例,只有 sysadmin 固定服务器角色的成员才能执行 sp_OACreate,并确定机器中有VBScript.RegExp类库
*/
EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT ......
1) Error loading midas.dll 没有注册midas.dll 运行RegSver32.exe midas.dll
2)Result := GetProcAddress(FGDIPlusLibrary, PChar(ProcName));编译 出现这样的问题，应该是设置方面的问题，Project->Options->Complier->Hugestrings 钩上就ok了！
3) TCheckListBox有个itemEnable[Index] := False属性控制某一项不可改
4) 批量根据AText是否为空判断颜色
procedure TM4_FaultModifyForm.SetColor(ALabel: array of TLabel;
AText: array of string);
var
VIndex: Integer;
begin
for VIndex := Low(AText) to High(AText) do
if AText[VIndex] = '' then
ALabel[VIndex].Font.Color := clBlue
else
ALabel[VIndex].Font.Color := clWindowText;
end;
5) 界面网格修改记录后要重新定位到该条记录用dsQuery.DataSet.Locate('file_no', VFileNo, []);
6) Could not convert variant of type(Null) into type (string) 加VarToStr
7) 修改网格的DataController.Summary.Options.soSelectedRecords := True时竟然会出现这样的异常‘List index out of bounds(8)’
8) 新建或修改时间时，应该对控件 ......
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/maozefa/archive/2009/10/28/4737584.aspx
图像缩放是最常用的图像处理，在图像拉伸和取得图像略图中都要用到。图像缩放质量的好坏与图像像素插值方式有关，本文定义了常用的3种插值方式，即临近插值、线性插值和双立方插值方式：
view plaincopy to clipboardprint?
type
// 插值方式: 缺省(线性插值)，临近，线性，双立方
TInterpolateMode = (imDefault, imNear, imBilinear, imBicubic);
type
// 插值方式: 缺省(线性插值)，临近，线性，双立方
TInterpolateMode = (imDefault, imNear, imBilinear, imBicubic);
具体的缩放及其用到的插值过程代码如下：
view plaincopy to clipboardprint?
过程定义：
// 设置双立方插值的斜率。缺省值为-0.75
procedure SetBicubicSlope(const Value: Single);
// 缩放图像，IpMode插值方式
procedure ImageScale(Dest: TImageData; const Source: TImageData;
&n ......
图像缩放是最常用的图像处理，在图像拉伸和取得图像略图中都要用到。图像缩放质量的好坏与图像像素插值方式有关，本文定义了常用的3种插值方式，即临近插值、线性插值和双立方插值方式：
type
// 插值方式: 缺省(线性插值)，临近，线性，双立方
TInterpolateMode = (imDefault, imNear, imBilinear, imBicubic);
具体的缩放及其用到的插值过程代码如下：
过程定义：
// 设置双立方插值的斜率。缺省值为-0.75
procedure SetBicubicSlope(const Value: Single);
// 缩放图像，IpMode插值方式
procedure ImageScale(Dest: TImageData; const Source: TImageData;
IpMode: TInterpolateMode = imDefault); overload;
// Source分别按比例ScaleX和ScaleY缩放到Dest的(x,y)坐标，IpMode插值方式
procedure ImageScale(Dest: TImageData; x, y: Integer; const Source: TImageData;
ScaleX, ScaleY: Single; IpMode: TInterpolateMode = imDefault); overload;
// TGraphic对象缩放到Dest
procedure ImageScale(Dest: TImageData; const Source: TGraphic;
IpMode: TInterpolateMode = imDe ......
delphi获取Windows系统的进程运行信息
自从出现windows系统以来，各种各样的软件层出不穷。购买或者免费下载以后，轻轻点击Install或者Setup以后，稍作些许简单配置就完成安装的整个过程。显然这给用户带来了许多方便，但对用户来说这些软件似乎是个"黑匣子"，展现在用户面前的仅仅是华丽的外表和简洁的操作，至于软件运行过程中调用了哪些文件和模块文件就无法知道了。或许真正希望了解这些的用户并不是很多，甚至对某些用户来说是不必要的，但是对于一个系统安全管理员来说这是一件很重要的事情。本文重点阐述如何获取系统的所有进程以及进程运行过程中所调用的模块文件(象EXE、DLL文件)，实际是对Windows系统所提供的任务管理器进一步完善，开发工具采用Delphi语言。
一、函数介绍
在Windows系统中动态链接库kernel32.dll提供了获取和处理系统进程的许多接口函数，Delphi语言把这些函数接口封装到Tlhelp32.pas中，供Delphi用户开发过程调用。要详细了解相关知识可以查阅Tlhelp32.pas原文件和Windows SDK提供的帮助文件。其中同本文涉及的接口函数主要有CreateToolhelp32Snapshot、process32first、process32next、module32first、module32next五个函数以及TMODU ......
最新文章 :