- 博客(14)
- 资源 (1)
- 收藏
- 关注
转载 更新某个字段的部分内容
update 表 set 字段=replace(字段,'CNCNZ_JXC.WinForm','aaa')where pkid='3BE123C3-51C9-45E6-9607-0BCB470CA27F'
2014-02-21 15:38:45 616
转载 存储过程实现行转列
(表1)要将其转变为: (表2)可以看得出来,表2列是由表1的行数据转化而来的,只有姓名列是表1中的列。一步一步的来嘛,其他的列难搞,如果表2只有1列姓名的话,那么very easy了,不就是一个简单的分组嘛。Select 姓名 From 表1 Group By 姓名 现在sql语句的架子搭起来了,无论以后如何变化,分组是少不了的。那么开始下一步,想
2010-02-24 09:04:00 1174
转载 delphi 加密字符串
1.function EncrypStr(Src, Key: String): String;//字符串加密函数 //对字符串加密(Src:源 Key:密匙)var KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :string; SrcPos :Integer; SrcAsc :Integer;
2009-08-18 15:33:00 3308
原创 加密.swf文件
unit Uni_DataModule;interfaceuses SysUtils, Classes,Windows,Dialogs;type TDM1 = class(TDataModule) private { Private declarations } public { Public declarations } end;Function FileE
2009-03-04 14:09:00 625
原创 虚拟桌面服务程序 [转载]
一、为什么要使用虚拟桌面。 场景一、上班的时候,我们经常会趁老板不注意,去一些工作时间不应该去的网站,或是运行一些不应该运行的程序,比如一些聊天工具,小游戏,股票软件等等。而且,经常会打开一大堆。当老板或其他同事来到你的桌前的时候,你正在手忙脚乱的关着这些程序,而且,还来不及保存想要保存的东西。 场景二、在你给别人做讲演的时候,需要在电脑桌面上展示很多资料。当然一个桌面经常
2009-02-02 14:58:00 2193 2
转载 treeview添加背景图片
在uses中加types;procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean); var btop, bLeft: Integer; rect
2008-09-18 09:22:00 1819
原创 delphi 指针
浅谈Object Pascal的指针 以下内容分为八个部分,分别是 一、类型指针的定义 二、无类型指针的定义 三、指针的解除引用 四、取地址(指针赋值) 五、指针运算 六、动态内存分配 七、字符数组的运算 八、函数指针 一、类型指针的定义。对于指向特定类型的指针,在C中是这样定义的: int *ptr; char *ptr;
2008-09-09 13:06:00 584
原创 delphi 如何将两张图片合并成一张
有两张图片,我想通过程序把他合并成一张,然后另存为一张新图 var DestRect,SrcRect:TRect; begin DestRect:=Rect(0,0,Image2.Width,Image2.Height); SrcRect :=DestRect; Image2.Canvas.CopyMode:=cmSrcAnd
2008-09-05 13:36:00 7021
原创 delphi存储图片路径
用到的控件有adoconnection,adoqury,edit,image,opendialog.还需要在工程存储的文件夹下有一个photo的文件夹,用来挑选图片和保存图片.procedure TForm1.Image1Click(Sender: TObject);varworkpath:string;photopath:string;beginworkpath:=ExtractFilePath
2008-06-23 08:55:00 1881 1
原创 delphi编写dll
开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞ 代码: //自动产生Code如下: ibrary Project2; //这有段废话。 uses SysUtils, Classes; {$R *.RES} begin end. 2.加个Func进来: 代码: library Project2
2008-06-10 10:01:00 5185 1
原创 ADO的事务处理例子(Delphi)
ADO的事务处理例子(Delphi) ADOConnection1.BeginTrans; //开始事务try with ADOCommand1 do begin Connection:=ADOConnection1; commandtext:=update [country] set [population]=10000 where [name=Venezuel
2008-05-26 09:01:00 2253
原创 调用外部程序的方法
我们常用的函数有两个,WinExec 和 ShellExecute。 1) 使用 WinExec 函数 (属于 WinProcs单元) · 声明形式 UNIT WinExec(LPCSTR lpCmdLine, UINT uCmdShow); [例] var SDir:string; SetLength(SDir,1
2008-05-05 08:20:00 583
原创 inifile
在uses中键入inifiles.写INI文件代码:procedure TForm1.Button1Click(Sender: TObject);Var FINI : TINIFile;begin FINi:=TINIFile.Create(ExtractFilePath(Paramstr(0))+serverip.ini); Try FINI.WriteString(serve
2008-04-28 09:46:00 461
原创 tcpserver/client
SERVER端用TCPSERVER, MEMO .CLIENT端用TCPCLIENT, MEMO,BUTTON.procedure Tclient.button1Click(Sender: TObject);var i:integer;begin try if tcpclient1.Connect then for i:=0 to memo1.Lines.Count-1 do
2008-04-28 09:01:00 1177
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人