| « | October 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:DeathCat的猫窝
日志总数:17
评论数量:89
留言数量:0
访问次数:216251
建立时间:2005年4月5日 |
| |
|
 [塞扣塞窝(SqlServer)]在存储过程中调用动态Sql语句
原创空间, 软件技术
DeathCat 发表于 2005/4/8 13:01:22 |
这段代码我在CSDN上贴过，不过因为Blog搬家了，所以把文章也搬过来啦
原文如下：
该存储过程的功能是去完成在多个无关系数据表中执行联合查询和计算，最后生成一个统计表。
这个存储过程中包括了：参数传递，存储过程间相互调用并返回结果集到临时表中，使用sp_executesql执行动态生成的Sql语句，临时表的创建以及使用
==============================================================
CREATE procedure sp_MakeCond
@FdName nvarchar(20),
@FdRecord nvarchar(250),
@CXZT int,
@GSBM nvarchar(10),
@Cond nvarchar(250) output
as
/*
功能：
根据@CX |
|
|
 [Delphi食堂]还有还有 某位虾客的学习笔记～～
网上资源, 软件技术
DeathCat 发表于 2005/4/6 11:46:02 |
某位虾客的学习笔记～～大名我就不公布啦
不过都是些很有用的咚咚
×调用EXCLE打开文件。
USES SHELLAPI
Shellexecute(handle,nil,pchar('c:\报表.xls'),nil,nil,sw_shownormal);
◇[DELPHI]关于处理注册表
uses Registry;
var reg:Tregistry;
reg:=Tregistry.create;
reg.rootkey:='HKey_Current_User';
reg.openkey('Control Panel\Desktop',false);
reg.WriteString('Title Wallpaper','0');
reg.writeString('Wallpaper',filelistbox1.filename);
reg.closereg;
reg.free;
×报错函数
procedur |
|
|
[Delphi食堂]懒人函数 之 “朋友提供的函数”
网上资源, 软件技术
DeathCat 发表于 2005/4/6 11:38:03 |
全力感谢Ｓｅａ的帮忙，提供了这些函数～～
//-----取得快捷方式中的连接
function ExeFromLink(const linkname: string): string;
var
FDir,
FName,
ExeName: PChar;
z: integer;
begin
ExeName:= StrAlloc(MAX_PATH);
FName:= StrAlloc(MAX_PATH);
FDir:= StrAlloc(MAX_PATH);
StrPCopy(FName, ExtractFileName(linkname));
StrPCopy(FDir, ExtractFilePath(linkname));
z:= FindExecutable(FName, FDir, ExeName);
if z > 32 then
Result:= StrPas(ExeName)
else
Result:= ''; |
|
|
[Delphi食堂]懒人函数 之 “网络应用”
网上资源, 软件技术
DeathCat 发表于 2005/4/6 11:19:58 |
这些函数是朋友Sea提供，DeathCat整理。。
因为是网上收集的，所以不晓得原作者~~
向原作者发出崇高的敬意~~
多余的话就不说了，大家拿去用吧
procedure getsharefolder(const computername:string);
var //----获取某一计算机上的共享目录
errcode,a:integer;
netres:array[0..1023] of netresource;
enumhandle:thandle;
enumentries,buffersize:dword;
s:string;
mylistitems:tlistitems;
mylistitem:tlistitem;
mystrings:tstringlist;
begin
with n |
|
|
[Delphi食堂]懒人函数 之 “存储Grid中的数据到Excel”
软件技术
DeathCat 发表于 2005/4/6 11:14:54 |
这段代码真是懒到极点了！！
声明：这段代码是我把其它人的代码改出来的，但是出自谁的手我就忘记啦~~大家用吧~~~向原作者致以崇高的敬意！！！
我直接写到了Button的Click下面，懒得做函数了，要用的人拿去自己改改吧，不着急的人就等我有时间改吧~~
procedure TMain.Button3Click(Sender: TObject); //另存为Excel
var
ModuleName:string; //Excel 模板文件名 *.Xlt
FileName: String ; |
|
|
 [Delphi食堂]懒人函数 之 “取汉字拼音”
软件技术
DeathCat 发表于 2005/4/6 10:48:24 |
其实很简单~~~调用的时候只要把字符串传进去就可以了，然后出来就是汉字拼音的字符串了。。。。需要用的时候比较爽哦~~不过有些奇形怪状的字就认不出来了。
如果你要有奇形怪状的汉字拿来到这个函数里面用，别怪我要打人哦~~~
function GetHzPy(const AHzStr: string): string;
const
ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),
(2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),
(2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),
|
|
|
[Delphi食堂]懒人函数 之 “注册表操作”
原创空间, 软件技术
DeathCat 发表于 2005/4/5 16:34:00 |
对于使用注册表,很多人都有自己的方法,因为俺是属于比较懒惰滴~,所以在这里我就把使用注册表的地方拿出来做个函数来用，在外部调用的时候也不用去创建注册表类什么的了，用起来还是比较方便的。就是注意在使用的时候，如果碰到瑞星一类的对注册表监控的程序会有问题，应该先把这些监控程序关掉再用哦。
function ReadKey(Root : HKEY;KeyRout : string;KeyName : String;var Value : string) : boolean;
///////////////////////////////////////////////////////////////////
//
// 函数名称：ReadKey
// 函数功能：从注册表中读取数据
// 输入： 无
// Root : HKEY 注册表的根路径
// &n |
|
|