7年-CSDN博客

转载更新某个字段的部分内容

update 表 set 字段=replace(字段,'CNCNZ_JXC.WinForm','aaa')where pkid='3BE123C3-51C9-45E6-9607-0BCB470CA27F'

2014-02-21 15:38:45 590

转载存储过程实现行转列

(表1)要将其转变为： (表2)可以看得出来，表2列是由表1的行数据转化而来的，只有姓名列是表1中的列。一步一步的来嘛，其他的列难搞，如果表2只有1列姓名的话，那么very easy了，不就是一个简单的分组嘛。Select 姓名 From 表1 Group By 姓名现在sql语句的架子搭起来了，无论以后如何变化，分组是少不了的。那么开始下一步，想

2010-02-24 09:04:00 1140

转载 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 3279

原创加密.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 611

原创虚拟桌面服务程序 [转载]

一、为什么要使用虚拟桌面。场景一、上班的时候，我们经常会趁老板不注意，去一些工作时间不应该去的网站，或是运行一些不应该运行的程序，比如一些聊天工具，小游戏，股票软件等等。而且，经常会打开一大堆。当老板或其他同事来到你的桌前的时候，你正在手忙脚乱的关着这些程序，而且，还来不及保存想要保存的东西。场景二、在你给别人做讲演的时候，需要在电脑桌面上展示很多资料。当然一个桌面经常

2009-02-02 14:58:00 2153 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 1774

原创 delphi 指针

浅谈Object Pascal的指针以下内容分为八个部分，分别是一、类型指针的定义二、无类型指针的定义三、指针的解除引用四、取地址（指针赋值）五、指针运算六、动态内存分配七、字符数组的运算八、函数指针一、类型指针的定义。对于指向特定类型的指针，在C中是这样定义的： int *ptr; char *ptr;

2008-09-09 13:06:00 568

原创 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 6449

用到的控件有adoconnection,adoqury,edit,image,opendialog.还需要在工程存储的文件夹下有一个photo的文件夹,用来挑选图片和保存图片.procedure TForm1.Image1Click(Sender: TObject);varworkpath:string;photopath:string;beginworkpath:=ExtractFilePath

2008-06-23 08:55:00 1843 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 5141 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 2231

原创调用外部程序的方法

我们常用的函数有两个，WinExec 和 ShellExecute。 1）使用 WinExec 函数（属于 WinProcs单元） · 声明形式 UNIT WinExec(LPCSTR lpCmdLine, UINT uCmdShow); [例] var SDir:string; SetLength(SDir,1

2008-05-05 08:20:00 572

原创 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 441

原创 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 1155

zzflover的专栏