摘要：
program Project2;{$APPTYPE CONSOLE}uses SysUtils;type //定义一个对象事件方法 TCallbackFunc = function (i: Integer): Integer of object; TMyCallBackObject = class private FcallBack: TCallbackFunc; function SetcallBack(const Value: TCallbackFunc): Integer; public function call(param: In... 阅读全文
摘要：
program WriteStruct;{$APPTYPE CONSOLE}uses SysUtils;//写入结构体type TCustomer = record ID: string[10]; Code: string[10]; Name: string[10]; end;var Customers: array[1..10] of TCustomer; i: Integer; myText: file of TCustomer; //file of type type必须是固定大小的，不能是对象, String, Variant等 customer:... 阅读全文
摘要：
当Session was created or was destroyed 使用HttpServletListener 监听 触发HttpSessionEvent 当Session was added or removed or replacedAttribute 使用HttpSessionAttributeListener 监听 触发HttpSessionBindingEvent 当Session has been Actived 使用HttpSessionActivationListener 监听 触发HttpSessionEvent 阅读全文
摘要：
<!--测试学习初始化参数 --> <servlet> <servlet-name>BeerParamTests</servlet-name> <servlet-class>org.ps.demo.TestInitParams</servlet-class> <init-param> <param-name>adminEmaail</param-name> <param-value>444733551@qq.com</param-value> </init- 阅读全文
摘要：
CREATE PROCEDURE GetDataByRow( @SqlStr varchar(8000), --起始语句 @FirstRec int, --首条记录 @LastRec int --最后记录)AS--一个字符型的随机数 结果放入临时表中,表名随机生成SELECT @dt = substring( Convert( varchar,rand()), 3, 10 )-- STUFF(原字符串 , 开始替换的位置 , 被替换的字符数 , 用于替换的字符串 )select @SqlStr = stuff(@SqlStr,charindex('FR... 阅读全文
摘要：
create procedure GetDataByPage( @sqlStr varchar(8000), @pageSize int --页面大小 @currentPage int --当前页面)as declare @firstRec int declare @lastRec int declare @dt varchar(20) declare @tempTableName varchar(16) --计算页面算法 select @firstRec = ( @currentPage - 1) * @pageSize select... 阅读全文
摘要：
今天维护一个老项目是用delphi5 + BDE写的。为了更方便查询数据，就增加一个查询功能.由于数据量查询出来后就比较少，于是就想到Filter like但 BDE并不支持 Filter = 'name like' BDE的模糊查询只有' name = A*' 匹配只能从第一个字母开始，无法达到要求.后来在OnFilterRecord中解决由于TQuery.Filtered := False;TQuery.Filtered := True;会触发OnFilterRecord事件于是写一个事件处理过程procedure OnFilterRecord(DataSe 阅读全文
摘要：
要对一个任意进程（包括系统安全进程和服务进程）进行指定了写相关的访问权的OpenProcess操作，只要当前进程具有SeDeDebug权限就可以了。要是一个用户是Administrator或是被给予了相应的权限，就可以具有该权限。可是，就算我们用Administrator帐号对一个系统安全进程执行OpenProcess(PROCESS_ALL_ACCESS,FALSE, dwProcessID)还是会遇到“访问拒绝”的错误。什么原因呢？ 原来在默认的情况下进程的一些访问权限是没有被启用（Enabled）的，所以我们要做的首先是启用这些权限，windows提供与此相关的一些API函数有... 阅读全文
摘要：
一、函数介绍在Windows系统中动态链接库kernel32.dll提供了获取和处理系统进程的许多接口函数，Delphi语言把这些函数接口封装到Tlhelp32.pas中，供Delphi用户开发过程调用。要详细了解相关知识可以查阅Tlhelp32.pas原文件和Windows SDK提供的帮助文件。其中同本文涉及的接口函数主要有CreateToolhelp32Snapshot、process32first、 process32next、module32first、module32next五个函数以及TMODULEENTRY32、 TPROCESSENTRY32两个数据结构。1、CreateTo 阅读全文
摘要：
网上说的不全 只要以DataBaseUrl加入 jdbc:jtds:sybase://10.0.2.15:5000;DatabaseName=qcsoft;charset=gb2312 服务器名称：10.0.2.15 端口:5000 数据库名称:qcsoft 字体集:gb2312就Ok了 阅读全文