yonghenghaha-CSDN博客

转载 oracle怎么实现id自增和设置主键

呵呵，这个问题，是从其他数据库转过来的开发者最常见的问题。1、关于主键：在建表时指定primary key字句即可：create table test( id number(6) primary key, name varchar2(30));如果是对于已经建好的表，想增加主键约束，则类似语法：alter table test add constraint pk_

2014-06-09 10:28:52 706

转载 DELPHI - FindFirst查找文件

Delphi——FindFirst学习FindFirst在SysUtils中声明原型为Fucntion FindFirst(const Path:String;Attr:Integer;Var F:TSearchRec):Integer;描述:从指定的目录中搜索第一个给定属性文件实例返回结果保存到参数F中,F参数是一个文件结构包含文件信息成功返回0，否则返回错误代码参

2014-05-28 08:59:09 3184

转载 delphi调用外部程序

这个程序主要作用就是用Delphi调用外部程序并实现运行过程中不显示/显示运行窗口的功能这样就可以实现运行批处理不出现黑窗口的功能了。具体实现过程如下，如果你其中有不明白的地方可以先放着因为这是给网吧专用的快速入门教程。（如果你没看昨天的教程一，建议你先看）下面是详细实现过程：1、按照昨天讲的方法，放置一个按钮组件到窗口设计界面上，双击按钮，转到代码编辑窗口

2014-05-22 09:50:58 1564

转载 c++ 类模板

1.模板的概念。我们已经学过重载(Overloading)，对重载函数而言,C++的检查机制能通过函数参数的不同及所属类的不同。正确的调用重载函数。例如，为求两个数的最大值，我们定义MAX()函数需要对不同的数据类型分别定义不同重载(Overload)版本。//函数1.int max(int x,int y);{return(x>y)?x:y ;}//函数2.float

2013-12-09 10:11:43 362

转载 delphi发送邮件代码

procedure TForm1.Button1Click(Sender: TObject); begin try IdSMTP1.AuthenticationType:=atLogin; //设置登陆类型 IdSMTP1.Username:=Edit1.Text; //设置登陆帐号 IdSMTP1.Password:=Edit2.Text; //设

2013-12-03 16:15:37 686

转载 Delphi 关键字详解

absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str := 'abc';

2013-09-25 16:14:25 538

转载 WinAPI: FindWindow、FindWindowEx - 查找窗口

FindWindow( lpClassName, {窗口的类名} lpWindowName: PChar {窗口的标题}): HWND; {返回窗口的句柄; 失败返回 0}//FindWindowEx 比 FindWindow 多出两个句柄参数:FindWindowEx( Parent: HWND; {要查找子窗口的

2013-09-25 13:21:50 1789

转载 delphi中pchar、char、string的定义与区别

Char是单个字符；PChar 就是指向一个以Null 结尾的每个字符为一个字节的字符串的指针。 (可以看成是一个字符串)String是字符数组，以字符#0结尾；Char只占一字节的空间，而Pchar保存的是一个指针，在现在32位的系统中占有1个指针字节的大小。type PChar=^Char; PChar类型是一个指向Char的指针,并使用Delphi的扩展语法.它也能够

2013-08-29 11:04:56 1008

原创 DELPHI好东西

http://www.cnblogs.com/dabiao/category/221941.html

2013-08-26 13:33:52 353

转载 delphi读取excel的两种方法

两种方法,一是用ADO连接,问题是Excel文件内容要规则,二是用OLE打开,但操作就没有象操作数据库那么方便了.一、用ADO连接：设置属性ConnetionString 选择 Microsoft Jet 4.0 OLE DB provider Select or enter a datasorce name -> 选择你要打开Excel文件 User name默认是A

2013-08-26 09:47:00 935

转载 delphi Format格式化函数

Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安

2013-08-15 11:53:19 392

转载截图：截取当前程序的界面，并保存到bmp图片中。

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Clipbrd;type TForm1 = class(TForm) btn1: TButton; d

2013-08-09 11:45:07 917

转载 api CopyFile

移动一个文件，一般可使用：BOOL WINAPI MoveFile(LPCSTR Existing, LPCSTR Target);其中 Existing是现有文件或目录，Target是目标文件或目录。此函数还可以用来对文件改名。例：MoveFile("D:\\Temp\\a.txt", "E:\\MyPath\\b.txt"); 将D:\Temp\a.txt移动到E:\MyPath并

2013-08-06 15:55:43 740

转载 Delphi——FindFirst学习

FindFirst在SysUtils中声明原型为Fucntion FindFirst(const Path:String;Attr:Integer;Var F:TSearchRec):Integer;描述:从指定的目录中搜索第一个给定属性文件实例返回结果保存到参数F中,F参数是一个文件结构包含文件信息成功返回0，否则返回错误代码参数Path:包含路径和搜索模糊文件名，包括

2013-07-23 13:19:40 1704

转载在delphi ocx控件的安装

第一步: 使用过Activex的人都知道，Activex不注册是不能够被系统识别和使用的，一般安装程序都会自动地把它所使用的Activex控件注册，但如果你拿到的一个控件需要手动注册怎么办呢？如果修改注册表那就太麻烦了，在Windows的system文件夹下有一个regsvr32.exe的程序，它就是Windows自带的Activex注册和反注册工具。它的用法为：regsver32详

2013-07-19 16:49:23 958

转载 Delphi中SendMessage使用方法

找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);用这个函数需要自己写一个回调的函数，比如：fu

2013-07-18 13:27:49 2431

转载一位软件工程师的6年总结

“又是一年毕业时”，看到一批批学子离开人生的象牙塔，走上各自的工作岗位；想想自己也曾经意气风发、踌躇满志，不觉感叹万千……本文是自己工作6年的经历沉淀或者经验提炼，希望对所有的软件工程师们有所帮助，早日实现自己的人生目标。本文主要是关于软件开发人员如何提高自己的软件专业技术方面的具体建议，前面几点旨在确定大的方向，算是废话吧。谨以此文献给那个自己为你奉献3年青春与激情的开发团队。还有

2013-07-17 17:22:17 415

原创事故反思报告

ITO机台事故反思报告2013年7月6日下午3点30分时，我用ScreenEdit软件连接ITO机台时，误以为下载功能是将机台程式拷贝到计算机中，但事实相反。误将机台原程式覆盖掉，造成原程式的丢失。使机台无法开机，影响了公司的正常运作，差点造成公司停产，给公司带来了巨大的经济损失。发生这种事件，我感到非常的不安与自责。在当天晨会时陈处长曾给我任务，让我搞懂ScreenEdit软件，具体有哪些功

2013-07-11 16:43:47 1804

转载内存中的堆栈

2012-08-28 22:20 关于内存中的堆栈堆和栈是两个不同的概念。堆（heap）上分配的内存，系统不释放，而且是动态分配的。栈（stack）上分配的内存系统会自动释放，它是静态分配的。运行时栈叫堆栈。栈的分配是从内存的高地址向低地址分配的，而堆则相反。由malloc或new分配的内存都是从heap上分配的内存，从heap上分配的内存必须有程序员自己释放，用free来释放，否则这块内

2013-07-11 16:36:25 623

转载 Delphi读取INI

2013-02-18 10:51 Delphi 读取INI文件一、有必要了解INI文件的结构：;注释[小节名]关键字=值...---- INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。---- 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。---- 注释

2013-07-11 16:36:02 1505

原创 Sendmessage最大最小化窗口

keybd_event只用来产生键盘事件，系统捕捉到键盘事件后，会转化为键盘消息的形式派发给拥有键盘输入焦点的应用程序。PostMessage首先把消息发送到指定句柄所在线程的消息队列再由线程派发。SendMessage直接把消息送到指定句柄窗体或控件。SendMessage(hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0); // 最大化SendMessa

2013-07-11 16:34:28 6314

转载在Delphi中读写TXT文件

Procedure NewTxt(FileName:String);Var　F : Textfile;Begin if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}　AssignFile(F, FileName); {将文件名与变量 F 关联}　ReWrite(F); {创建一个新的文件并命名

2013-07-11 16:32:29 567

转载 Delphi下遍历文件夹下所有文件的递归算法

procedure MakeTree(var slFile: TStrings; const FileExt: string);var Sr : TSearchRec; Err : integer; TrSize, FilePath : string;begin Err:=FindFirst('*.*', $11, Sr) ; While (Err = 0)

2013-05-13 13:58:09 910

转载 Windows消息大全使用的详细介绍

消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg，它在Windows单元中是这样声明的：　　type

2013-05-13 13:55:49 416

转载 LBN_开头。LB_开头。API常数用途介绍

HIWORD(wParam)中是具體消息。有些消息由Windows處理，有些消息要由程序處理，這類消息包括：LBN_DBLCLK //雙擊列表框中的某一項LBN_ERRSPACE //列表框不能分配足夠的內存實現一個要求LBN_KILLFOCUS //列表框失去鍵盤焦點LBN_SELCANCEL //取消對某一項的選擇LBN_SELCHANGE //列表框中被選中的

2013-05-13 13:51:58 785

转载 Delphi 文件操作

var file_name:string;file_name:='c:\luther.gliethttp.txt';FileWrite(com.log_fd, PChar(file_name)^, length(file_name));文件是同一种类型元素的有序集合，是内存与外设之间传输数据的渠道。文件的本质是一个数据流，所有的文件实际上是一串二进制序列。文件管理包括：1、文件操作

2013-03-25 09:25:30 452

yonghenghaha的专栏