自定义博客皮肤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)
  • 论坛 (159)
  • 收藏
  • 关注

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

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

2014-02-21 15:38:45 457

转载 存储过程实现行转列

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

2010-02-24 09:04:00 786

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

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

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

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

2009-02-02 14:58:00 1902 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 1378

原创 delphi 指针

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

2008-09-09 13:06:00 500

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

原创 delphi存储图片路径

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

2008-06-23 08:55:00 1392 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 4812 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 1877

原创 调用外部程序的方法

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

2008-05-05 08:20:00 441

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

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

delphi glscene

一个茶壶的旋转的小实例

2008-07-25

循环与线程的写法

发表于 2020-07-09 最后回复 2020-07-10

dev日历控件 schedulerControl

发表于 2017-10-19 最后回复 2020-03-16

百度地图删除标注

发表于 2013-12-19 最后回复 2020-01-01

.net不添加webservice引用,调用webservice方法

发表于 2017-01-11 最后回复 2019-04-17

求一个用bootstrap的数据列表加增删改查的DEMO

发表于 2014-08-23 最后回复 2018-05-21

2个字段首位相连的问题

发表于 2017-04-23 最后回复 2017-05-03

用soap调用带有验证的webservice,该怎么写?

发表于 2017-01-12 最后回复 2017-01-12

点击按钮后跳转新页面,主页面的焦点位置如何变换?

发表于 2014-09-22 最后回复 2016-11-20

dwz刷新div后保持滚动条位置不变?

发表于 2016-04-19 最后回复 2016-04-20

springmvc 列表页增加checkbox

发表于 2016-02-25 最后回复 2016-03-02

存储过程疑问

发表于 2015-11-17 最后回复 2016-02-25

存储过程怎么返回结果集

发表于 2015-09-01 最后回复 2016-02-25

tcp客户端怎么接收服务端发送的文件?

发表于 2014-12-18 最后回复 2015-09-01

SSH问题,There is no Action mapped for action name null. - [unknown location]

发表于 2012-11-13 最后回复 2015-07-13

fastreport.net求解

发表于 2014-04-23 最后回复 2015-05-02

fastreport.net疑问

发表于 2014-07-11 最后回复 2015-05-02

开发带串口通信的OCX时,提示IClassFactory::CreateInstance failed

发表于 2014-07-03 最后回复 2015-04-30

dwz框架怎么在点击关闭按钮后刷新navtab?

发表于 2014-10-14 最后回复 2014-12-18

dev的lookupedit怎么清空选择?

发表于 2014-12-16 最后回复 2014-12-18

dwz的uploadify怎么获取是否上传成功?

发表于 2014-09-29 最后回复 2014-10-08

百度地图问题

发表于 2014-08-22 最后回复 2014-08-28

请教easyui的问题。

发表于 2014-08-18 最后回复 2014-08-19

jquery easyui 把页面嵌入到tab后,按钮都无效了

发表于 2014-06-30 最后回复 2014-07-11

listbox问题:当 SelectionMode 为 Single 时,不能选择多项。

发表于 2014-06-11 最后回复 2014-06-11

求个方法计算文本框内输入的数字结果

发表于 2014-04-14 最后回复 2014-04-16

gridview行单击

发表于 2014-02-18 最后回复 2014-02-21

jquery easyui 在webform中的使用

发表于 2014-01-03 最后回复 2014-02-18

gridview行点击事件提示缺少对象

发表于 2013-12-24 最后回复 2013-12-25

查询页跳转的问题

发表于 2013-12-23 最后回复 2013-12-24

做了个ACTIVEX,在网页上显示红叉呢?

发表于 2013-11-13 最后回复 2013-11-15

gridview实现分组统计?

发表于 2013-08-12 最后回复 2013-08-16

安装VS2010问题

发表于 2013-03-29 最后回复 2013-04-03

向串口发送数据问题

发表于 2012-12-12 最后回复 2012-12-13

发送到串口的数据,串口接收是相反的?

发表于 2012-12-03 最后回复 2012-12-04

WINAPI串口通信

发表于 2012-11-29 最后回复 2012-12-03

字符串转换为结果集?

发表于 2012-10-12 最后回复 2012-10-16

你们敢不敢给我发个砖厂让我生猩猩?

发表于 2012-07-27 最后回复 2012-07-27

我即将变身猩猩!

发表于 2012-07-26 最后回复 2012-07-26

ListView排序的疑问

发表于 2012-07-23 最后回复 2012-07-23

亲,tan598121925,爱死你了!

发表于 2012-07-20 最后回复 2012-07-20

空空如也

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

TA关注的人 TA的粉丝

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