- 博客(43)
- 资源 (11)
- 收藏
- 关注
原创 SQL 得到日期是星期几?
SELECT datename(weekday,DateField) as fWeekday from TableName 如果你需要的是今天是这个星期第几天,就用 select datepart(weekday,getdate()) (1,表示星期天,2 表示星期一 .... 7表示星期六) 如果你要显示星期几,就用
2008-09-29 14:37:00 6848
原创 两个数据表同步的触发器
假如有两个表,TableName1和TableName2,两个表字段相同,都是有一个fID(TableName1表为标识,自动+1,TableName2表设置为普通字段),和一个varchar类型的content两个字段。现在要实现TableName2作为TableName1的备份,对TableName1的所有修改(增、删、改)都要对TableName2同时生效。可以使用以下触发器CREATE T
2008-09-26 15:09:00 609
转载 淺談如何使用Delphi 2009的泛型容器類別
Delphi2009在Delphi程式語言方面加入了兩個主要的功能,一個是泛型程式設計(GenericsProgramming),另外一個就是匿名方法(Anonymous Method)。Delphi2009在Win32加入了泛型程式設計之後,Delphi程式語言便可以同時在Win32,.NET平台下使用泛型程式設計。由於Delphi2009在Delphi程式語言本身加入了泛型程式
2008-09-23 23:01:00 694
转载 Tiburon遊記2 DataSnap和JSON
什麼是JSON,我想我不必多說,因為Internet上一堆有關JSON的說明各位可以自行搜尋,簡單的說JSON是一種資料傳遞的格式,流行於JavaScript和Ajax的世界。OK,那麼JSON和DataSnap又有什麼關係? 當DataSnap應用於分散式架構時不是使用COM/COM+嗎?Tiburon的DataSnap為什麼要使用JSON呢? 其實這些問題在我第一次知道DataSnap使
2008-09-23 22:53:00 657
转载 Tiburon遊記3 動手建立一個DataSnap JSON伺服器吧
也許讓我們先動手用Tiburon實作一個DataSnap JSON分散式架構再搭配前面說明的觀念的話,各位將會更加瞭解Tiburon把這些強大的功能做得多麼的方便。DataSnap新的JSON分散式架構可以有許多不同的型態,更可以結合資料庫和Web應用程式,不過在一開始讓我們先學習如何建立最簡單的JSON分散式架構,下面是我們即將實作的JSON分散式架構的簡單說明:1. 建立一個分散式JS
2008-09-23 22:53:00 677
转载 Tiburon遊記1
看來在CodeGear併入了Embarcardero之後,整個公司的文化似乎瞬間活潑了起來,雖然CodeGear尚未正式宣佈Tiburon的發行日期,但是在CodeGear的部落格中卻出現了大量討論Tiburon的文章,這在以前Borland的時代是不可能發生的,我還記得前幾年我還在Borland工作時,有幾次在部落格中不小心提及了尚未推出的Delphi/C++Builder時就會被老外叮的滿頭
2008-09-23 22:52:00 560
转载 Delphi2009/C++Builder2009新特性
当地时间8月25日,Delphi易主后第一次进行了新版本的发布。这一次Delphi和C++两个环境同时进行了发布,开发代号Tiburon,发布名称为Delphi2009和C++Builder2009。这次的新版本实际上也是兑现了在Borland/CodeGear时期的最后一次更新计划。该计划公布于2008年4月,原文见这里,译文见那里。一、新特性作为重要的一次版本更新,Delphi2009在
2008-09-23 22:48:00 725
原创 求某年某月的天数
Function GetDays(AYear,AMonth:Integer):Integer;begin Case AMonth of 1,3,5,7,8,10,12: Result:=31; 4,6,9,11: Result:=30; 2: Begin If IsLeapYear(AYear) Then Result:=29 Else Result:=28;
2008-09-23 22:33:00 953
原创 DBGridEh 过滤错误的解决
找到 DbUtilsEh.pass 文件在第 71行左右你将看到: STFilterOperatorsSQLStrMapEh: array[TSTFilterOperatorEh] of String = (, =, , >, , >=, , LIKE, NOT LIKE, IN, NOT IN, IS NULL, IS NO
2008-09-22 14:58:00 1535
转载 Delphi2009带来了什么?
目前网上多数Delphi2009新特性的介绍集中在Unicode,以及一些新的VCL上,我试图从一些不同的角度察看一下Delphi2009都有些什么新东西。 集成开发环境 IDE:粗看起来Delphi2009的IDE较之Delphi2007并没有什么特别的增强。主要的UI元素也没有大的变化。最显著的变化就是Project Manager和Tool Palette,另外DockWin
2008-09-21 22:17:00 1051
转载 SQL经典短小代码收集1
1、固定列数的行列转换 如 student subject grade --------- ---------- -------- student1 语文 80 student1 数学 70 student1 英语 60 student2 语文 90 student2 数学 80 student2 英语 100 …… 转换为 语文 数学 英语 student1 80 7
2008-09-20 20:48:00 782
转载 DLL详解
DLL文件(Dynamic Linkable Library 即动态链接库文件),是一种不能单独运行的文件,它允许程序共享执行特殊任务所必需的代码和其他资源 比较大的应用程序都由很多模块组成,这些模块分别完成相对独立的功能,它们彼此协作来完成整个软件系统的工作。可能存在一些模块的功能较为通用,在构造其它软件系统时仍会被使用。在构造软件系统时,如果将所有模块的源代码都静态编译到整个应用
2008-09-20 20:45:00 510
转载 两个非常有用的进程函数
/// /// 根据程序名(全路径)获得进程ID(PID)/// /// 程序完整路径+文件名/// function GetPIDByProgramName(const APName: string): THandle;varisFound: boolean;AHandle, AhProcess: THandle;ProcessEntry32: TProcessEntry32;APath: ar
2008-09-20 19:59:00 725
原创 查询 SQL SERVER 的版本号
有时会需要查询一下SQL SERVER 的版本好, 以下代码从网上收集而来。 在DELPHI 下测试通过。--SQL SERVER 2000SELECT SERVERPROPERTY(productversion), SERVERPROPERTY (productlevel), SERVERPROPERTY (edition)--SQL SERVER 20
2008-09-20 14:30:00 548
转载 解密SQL SERVER 2005加密存储过程,函数
在SQL SERVER 2005中必须用专用管理连接才可以查看过程过程中用到的表EG:sqlcmd -A1>use test2>go1>sp_decrypt p_testa2>goText----------------------Create procedure P_testawith encryptionasselect * from test
2008-09-20 14:29:00 969
转载 SQL Server 索引结构及其使用
一、深入浅出理解索引结构实际上,您可以把索引理解为一种特殊的目录。微软的SQL SERVER提供了两种索引:聚集索引(clusteredindex,也称聚类索引、簇集索引)和非聚集索引(nonclusteredindex,也称非聚类索引、非簇集索引)。下面,我们举例来说明一下聚集索引和非聚集索引的区别:其实,我们的汉语字典的正文本身就是一个聚集索引。比如,我们要查“安”字
2008-09-20 14:28:00 459
转载 Delphi数据类型详细介绍
一、整数类型类型 所占字节数 取值范围byte 1 0-255word 2 0-65535shortint 1 -128-127smallint 2 -32768-32767integer 4 -214748648-214748467longint
2008-09-20 14:27:00 1873
转载 System.Trunc、System.Round、System.Int - 返回整数部分
举例:vari: Integer;d: Real;begini := Trunc(1234.5678); {截取整数}ShowMessage(IntToStr(i)); {1234}i := Trunc(-1234.5678);ShowMessage(IntToStr(i)); {-1234}i := Round(1234.5678); {四舍五入}ShowMessage(IntToStr(i))
2008-09-20 14:25:00 538
转载 软件加密技术和注册机制
本文是一篇软件加密技术的基础性文章,简要介绍了软件加密的一些基本常识和一些加密产品,适用于国内软件开发商或者个人共享软件开发者阅读参考。 1、加密技术概述一个密码系统的安全性只在于密钥的保密性,而不在算法的保密性。对纯数据的加密的确是这样。对于你不愿意让他看到这些数据(数据的明文)的人,用可靠的加密算法,只要破解者不知道被加密数据的密码,他就不可解读这些数据。但是,
2008-09-20 14:24:00 899
转载 建立任意图片形状窗口的方法
增加一个新的函数,内容如下,直接复制 即可function Tform1.CreateRegion(wMask: TBitmap; wColor: TColor; hControl: THandle): HRGN;vardc, dc_c : HDC;rgn : HRGN;x, y : integer;coord : TPoint;line : boolean;color : TColor;beg
2008-09-20 14:19:00 508
转载 我的Delphi开发经验谈
--------开发环境-------- Delphi 7是一个很经典的版本,在Win2000/XP下推荐安装Delphi7来开发软件,在Vista下推荐使用Delphi 2007开发软件。安装好Delphi 7后,应立即安装Delphi 7 UpdatePack 1,Delphi2007则建议尽量安装最新的版本。工欲善其事,必先利其器,为了提升开发
2008-09-20 14:07:00 845
转载 SQLSERVER远程备份、恢复
SQLSERVER服务实例名称:192.168.0.2需要备份的数据库名称: a备份机器名称(Client端):192.168.0.3备份机用户:zf 密码:123备份机域名:domain备份机提供备份需求的文件夹:D:/sqlbak备份数据库第一步: 在备份机建立共享文件夹 在程序代码中调用(或者CMD窗口) net share sqlbak
2008-09-20 10:34:00 543
转载 SQL 数据库开发一些精典的代码
1.按姓氏笔画排序:Select * From TableName Order By CustomerName Collate Chinese_PRC_Stroke_ci_as2.数据库加密:select encrypt(原始密码)select pwdencrypt(原始密码)select pwdcompare(原始密码,加密后密码) = 1--相同;否则不相同3.取回表
2008-09-20 10:32:00 496
转载 SQL 分组查询,把纵向显示的结果变成横向显示
/**//*create table BookLibary([图书馆] varchar(10), [科目] varchar(10), [数量] int)insert into BookLibary select A, 语文, 5 union all select B,
2008-09-20 10:31:00 1491
转载 Delphi通过SQLDMO來控制SQLSERVER
首先, 需要把 SQLDMO.DLL 文件导入到DELPHI 中。sqldmo.dll 是一个com, 安装SQLServer 后位于 Program Files/Microsoft SQL Server/80/Tools/Binn打开Delphi,Project菜单->Import Type Library...,在列表框中找到"Microsoft SQLDMO ObjectLibra
2008-09-20 10:31:00 1080
转载 SQL 查询结果的纵向变横向排列
这个问题终于找到答案了, 针对纵向转横向的模式.drop procedure Model_his_mid;GOcreate procedure Model_his_mid(/**//* * @vColumns 分组的列 (最后一个字段后面一定不要加,)* @vClause 查询表的条件(没有条件=)* @vOrderby 查询结果排序的字段 为默认排序* @vTop
2008-09-20 10:30:00 1344
转载 如何从SQL Server 中取得字段说明
如何从SQL Server 中取得字段说明SQL Server 2000你可以在企业管理器中增加字段说明,也可以使用下面的代码:EXEC sp_addextendedproperty MS_Description, some description, user, dbo, table, table_name, co
2008-09-20 10:29:00 697
转载 让程序自己更新本程序
先介绍一下 MOVEFILEEX 的使用.移动文件:MoveFileEx(c:/winnt/system32/xxxx.exe, d:/winnt.bak/system32/xxxx.exe,MOVEFILE_REPLACE_EXISTING);MoveFileEx(c:/winnt/system32/xxxx.exe, d:/winnt.bak/system32/
2008-09-20 10:28:00 939
转载 Delphi 中取本机的计算机名、IP地址、Windows登录的用户名
几个在Delphi 中取本机的计算机名、IP地址、Windows登录的用户名的函数.uses Windows, WinSock;{ ComputerLocalIP }//取本机的 IP 地址function ComputerLocalIP: string;var ch: array[1..32] of char; wsData: TWSAData; myHost: PHostE
2008-09-20 10:28:00 1700
转载 数据查询方法的比较
查寻方式缺点优点Locate会从数据来源中下载所有的数据,如果数据表中包含大量的数据,那么执行效率会很缓慢,而且容易造成客户端的当机查寻数据的执行效率保持稳定的结果,而不管要查寻的数据是否已经存在于结果数据集中,而且没有其他的副作用使用CloneCursor如果欲查寻的数据不在结果数据集中,那么仍然会下载数据表中所有
2008-09-20 10:26:00 483
转载 DELPHI 数据库控件心得
TField对象的SetText和GetText事件处理函数使用TField对象的SetText和GetText事件处理函数可方便的解决字段的代码与代码所对应值的显示问题TSimpleDataset/TClientDataset对象的Aggregation使用TDataset对象的Aggregate属性可以来计算客户端数据集中数据的总计数值、平均值或是计算最大值和最小值。使用TBookMa
2008-09-20 10:24:00 1149
转载 DELPHI 中让嵌入窗体的 WebBrowser 控件无边框
最近写一个程序。需要用到 TWebBrowser 控件。出现了一个问题:WebBrowser 组件在未载入 HTML 之前是无边框的,当载入 HTML 之后,WebBrowser 四周出现了一个三维边框,和程序本身的风格极不协调。经过测试以后发现,该边框并不是 WebBrowser 产生的,而是 WebBrowser 中载入的 HTML 产生的。后来真接用 CSS 去掉了边框,在网上
2008-09-20 10:22:00 1171
转载 一份详尽的ipc$入侵资料
网上关于ipc$入侵的文章可谓多如牛毛,而且也不乏优秀之作,攻击步骤甚至可以说已经成为经典的模式,因此也没人愿意再把这已经成为定式的东西拿出来摆弄. 不过话虽这样说,但我个人认为这些文章讲解的并不详细,对于第一次接触ipc$的菜鸟来说,简单的罗列步骤并不能解答他们的许多迷惑(你随便找一个hack论坛搜一下ipc,看存在的疑惑有多少). 因此我写了这篇相当于解惑的教程.想把一些容易混淆,容易迷
2008-09-20 10:21:00 434
转载 DELPHI 心得
1. 有几种方法可以禁止主窗口在不任务栏显示. 1) 通过SetWindowLong设置主窗口的属性:SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);2) 设置 窗口的 ParentWindow 为桌面窗口的句柄var AHandle: THandle;begin SetWindowLong(Handle, GWL_EXST
2008-09-20 10:19:00 505
转载 自己收集整理的 DELPHI 中控制与使用HMTL帮助文件的单元代码。
在程序里加帮助文件,是常用的方法,我一直使用以下这个单元,不过 DELPHI2007好像对HTML帮助文件的支持有所改善。但没试过,因为自己整理使用的这个单元一直很好用。所以常得有用(对使用DELPH的朋友)。所以贴出来了。主要有以下几个函数,//取帮助文件名function HelpFileName: String;//根据 ContextId 调用帮助function ShowHel
2008-09-20 10:10:00 872
转载 几个WebBrowser相关的函数
贴几个 TWebBrowser 编程相关的函数。{ 去掉 TWebBrowser 的边框 }procedure WB_Set3DBorderStyle(Sender: TWebBrowser; bValue: Boolean);{ WebBrowser 从内存中读取 HTML 文件}procedure WebBrowserLoadFromStream(WebBrowser
2008-09-20 10:09:00 742
转载 介绍如何通过代码实现模拟按键的函数
Windows API 的 keybd_event 函数,它可以产生键盘消息。实现向其他窗口模拟真实的按键动作。例如: {按下A键} Edit1.SetFocus; keybd_event(VK_SHIFT, 0, 0, 0); keybd_event(ord(A), 0, 0, 0); keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP,
2008-09-20 10:09:00 698
转载 加壳原理与简单实现加壳(delphi源码)
{*****************************************************************AddShell()源自于前一段时间有写的addsection()新增区段代码,在增加区段代码的基础上,追加了1.修改启动入口点位置2.增加一段壳头xor $50的代码function AttachStart-function AttachEnd 这一段代码是先填充
2008-09-20 10:06:00 667
转载 DELPHI 外挂
在几年前我看到别人玩网络游戏用上了外挂,做为程序员的我心里实在是不爽,想搞清楚这到底是怎么回事。就拿了一些来研究,小有心得,拿出来与大家共享,外挂无非就是分几种罢了(依制作难度):1、动作式,所谓动作式,就是指用API发命令给窗口或API控制鼠标、键盘等,使游戏里的人物进行流动或者攻击,最早以前的“石器”外挂就是这种方式。2、本地修改式,这种外挂跟传统上的一些游戏修改器没有两样,做这种外挂在编程
2008-09-20 10:04:00 860
转载 在XP/2K 下实现 Win+Ctrl+Del 等键的屏蔽的方法
在 Windows 98 下我们知道用 SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @temp, 0); 来实现 Win+Ctrl+Del 的屏蔽,但这种方法在NT的操作系统下如 Windows XP / Windows 2000等就不行了,这里我给大家提供一个新的方法,采用钩子拦截的方式,来实现屏蔽系统按键。本示例附详细的源码与演示程
2008-09-20 09:56:00 614
CrossVcl 1.53.7z
2021-05-28
FlyTreeViewPro.Suite.7z
2020-06-02
控件开发基础.rar
2020-06-02
InfoPower 4K v20.0.2.3 for XE10.3 RIO_ByJoe.7z
2019-08-04
TscExcelExport 3.6 full source
2008-12-23
Ehlib 4.3.2.1 (完整源代码)
2008-12-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人