摘要：
这应该不算是什么技巧，估计有数据库方面程序的DELPHI程序员都知道；本来没有写想到需要把它写成一篇贴子，但前不久看个别刚入门的兄弟的代码时。才发展他们还在刀耕火种，为此才想把它写出来算是对入门的兄弟们的一点帮助，让大侠们见笑了； 我们都知道TCLIENTDATASET有把对它其中的数据所做的修改记录下来的功能；如果需要还可以将 修改回复到以前的某个状态，而且结合DATASETPROVIDER还可能自动完成改动到SQL映射，将改动成批提交到数据库中 这个特性对于写数据库程序来说非常有用。其实我所说的保存CLIENTDATASET的数据也是利用这个特性来实现的； 代码很简单:unit uCDSS 阅读全文
posted @ 2011-05-11 18:25
星星的学习小志
阅读(424)
评论(0)
推荐(0)
摘要：
随着“金盾工程”建设的逐步深入和公安信息化的高速发展，公安计算机应用系统被广泛应用在各警种、各部门。与此同时，应用系统体系的核心、系统数据的存放地――数据库也随着实际应用而急剧膨胀，一些大规模的系统，如人口系统的数据甚至超过了1000万条，可谓海量。那么，如何实现快速地从这些超大容量的数据库中提取数据（查询）、分析、统计以及提取数据后进行数据分页已成为各地系统管理员和数据库管理员亟待解决的难题。在以下的文章中，我将以“办公自动化”系统为例，探讨如何在有着1000万条数据的MS SQL SERVER数据库中实现快速的数据提取和数据分页。以下代码说明了我们实例中数据库的“红头文件”一表的部分数据结 阅读全文
posted @ 2011-05-11 18:24
星星的学习小志
阅读(146)
评论(0)
推荐(0)
摘要：
procedure OBDCDelete(ODBCName:string);var registerTemp:TRegistry;begin registerTemp := TRegistry.Create; with registerTemp do begin try RootKey:=HKEY_LOCAL_MACHINE; if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then begin //注册一个DSN名称 DeleteValue(ODBCName); end ; closeKey; regis 阅读全文
posted @ 2011-05-11 18:23
星星的学习小志
阅读(308)
评论(0)
推荐(0)
摘要：
unit WLFtp; interface uses Windows, Messages, Variants,SysUtils, Classes, Wininet, Dialogs; type TWLFtp = class(TObject) private FInetHandle: HInternet; // 句柄 FFtpHandle: HInternet; // 句柄 FHost: string; // 主机IP地址 FUserName: string; // 用户名 FPassword: string; // 密码 FPort: integer; // 端口 FCurrentDir: s 阅读全文
posted @ 2011-05-11 18:22
星星的学习小志
阅读(1509)
评论(0)
推荐(0)
摘要：
此方法不适用于9x系统我们知道在NT及以上操作系统提供了一个函数VirtualAllocEx,利用这个函数我们可以在其它进程中申请一块内存,其定义如下function VirtualAllocEx(hProcess: THandle; lpAddress: Pointer; dwSize, flAllocationType: DWORD; flProtect: DWORD): Pointer; stdcall;其中hProcess为要申请内存的进程的句柄,可以用如下方法得到指定的窗口所属的进程的进程句柄.Function GetProcessHandle: THandle;varWndHand 阅读全文
posted @ 2011-05-11 18:22
星星的学习小志
阅读(365)
评论(0)
推荐(0)
摘要：
由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。 1只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出了几种版本的DCU文件，用户根据需要选择使用。这样的组件的安装方法是：在Component菜单中，选择install component，在对话框中的"into existing package 阅读全文
posted @ 2011-05-11 18:21
星星的学习小志
阅读(350)
评论(0)
推荐(0)
摘要：
近日做的程式需要取得字符点阵数据的功能，研究了一下，费了点周折才成功，现将方法总结如下。 取得字符点阵主要用GetGlyphOutline函数：DWORD GetGlyphOutline( UINT nChar, UINT nFormat, LPGLYPHMETRICS lpgm, DWORD cbBuffer, LPVOID lpBuffer, const MAT2 FAR* lpmat2 )他需要类型为GLYPHMETRICS、MAT2的变量；MAT2 结构要手动填充， GLYPHMETRICS结构则由GetGlyphOutline填充；GLYPHMETRICS包含了点阵数据的一些有用的信 阅读全文
posted @ 2011-05-11 18:21
星星的学习小志
阅读(1407)
评论(0)
推荐(0)
摘要：
通常，你需要获得当前日期和计算一些其他的日期，例如，你的程序可能需要判断一个月的第一天或者最后一天。你们大部分人大概都知道怎样把日期进行分割（年、月、日等），然后仅仅用分割出来的年、月、日等放在几个函数中计算出自己所需要的日期！在这篇文章里，我将告诉你如何使用DATEADD和DATEDIFF函数来计算出在你的程序中可能你要用到的一些不同日期。 在使用本文中的例子之前，你必须注意以下的问题。大部分可能不是所有例子在不同的机器上执行的结果可能不一样，这完全由哪一天是一个星期的第一天这个设置决定。第一天（DATEFIRST）设定决定了你的系统使用哪一天作为一周的第一天。所有以下的例子都是以星期天作为 阅读全文
posted @ 2011-05-11 18:20
星星的学习小志
阅读(221)
评论(0)
推荐(0)
摘要：
//-----下面是一个支持任意表的 SQL SERVER2000分页存储过程//----分页存储过程开始创建-----------------------------------------------------------------------------------------------------------IF EXISTS (SELECT name FROM sysobjects WHERE name = 'PageShowOne' AND type = 'P') DROP PROCEDURE PageShowOneGOCREATE Proc 阅读全文
posted @ 2011-05-11 18:18
星星的学习小志
阅读(299)
评论(0)
推荐(0)
摘要：
unit Fuck_CAD_Unit;interfaceuses Windows, TLHelp32,SysUtils;const MyKernel='SnowmanLockScreenHook.Dll'; //释放完得文件名，可以自己改 Winlogon='winlogon.exe'; MyKernelSize=9216; MyKernelBuf:Array [0..9215] of Byte = ( $4D,$5A,$50,$00,$02,$00,$00,$00,$04,$00,$0F,$00,$FF,$FF,$00,$00, $B8,$00,$00,$00 阅读全文
posted @ 2011-05-11 18:17
星星的学习小志
阅读(382)
评论(0)
推荐(0)
浙公网安备 33010602011771号