自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(14)
  • 资源 (1)
  • 收藏
  • 关注

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

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

2014-02-21 15:38:45 593

转载 存储过程实现行转列

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

2010-02-24 09:04:00 1148

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

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

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

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

2009-02-02 14:58:00 2159 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 1781

原创 delphi 指针

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

2008-09-09 13:06:00 570

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

原创 delphi存储图片路径

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

2008-06-23 08:55:00 1849 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 573

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

delphi glscene

一个茶壶的旋转的小实例

2008-07-25

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除