dainiao01

摘要： procedure TForm1.FormCreate(Sender: TObject); var DT:TdateTime; Dw:Integer; S:String; begin Dt:=now; Dw:=DayOfWeek(Dt); StatusBar1.Panels[0].Text:=SysUtils.DateToStr(Dt); Case Dw of 1:S:='星期天'; 2:S:='星期一'; 3:S:='星期二'; 4:S:='星期三'; 5:S:='星期四'; ... 阅读全文

摘要： 我们在用Delphi编译完程序，准备发布产品时，总希望随产品发布个性信息以标示产品的来源以及开发者等信息，就像windows的程序一样，使我们一看属性就知道他是微软的产品，这些在Delphi中是如何实现的呢？下面我就来给大家演示和说明给exe,dll文件添加版本信息的方法。正在装载数据……第一，给exe文件添加版本信息。这个我想大家都会添加的，Delphi已经给我们提供了相关选项了.具体做法:打开你的工程，选择菜单Project-->Options...--->Version info选中"Include version infomation in project&quo 阅读全文

摘要： Exit 是跳出当前代码块，也就是当前函数，跳出后是要继续向下执行的（如果有后续代码）。Abort 是从 EAbort 过来的，可以激发 exception，其实质就是 Abort = RaiseException()，是一个不出现对话框的异常。所以 Abort 的行为和异常是一样的，其代码执行顺序也是follow异常的流程。例如：try (1) //执行了 abort; (2) //不执行exception (3) //执行了end;用 Abort 能够执行 exception 里边的代码，但是如果用 Exit，就直接离开，不管 exception。例如：procedure p1;begi. 阅读全文

摘要： ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。 ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务。 设计思路(***本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/ ****) 本例包括一个服务器端程序和一个客 阅读全文

摘要： 如何让Listview（vsReport）选中的一行字体变色或底色改变？把属性HideSelection设为false就可以得到你的想要的效果!奇偶颜色不同 procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);begin if odd(item.Index) then //奇偶判断 //if item.Index = ListView1.ItemIndex then item.Li 阅读全文

摘要： TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'); {第一次出现的位置} List.Sort; ... 阅读全文

摘要： SELECT (case when a.colorder=1 then d.name else '' end)表名, a.colorder 字段序号, a.name 字段名, (case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else '' end) 标识, (case when (SELECT count(*) FROM sysobjects WHERE (name in (SELECT name FROM sysindexes WHERE (id = 阅读全文

摘要： CREATE procedure selectAllUsers DYNAMIC RESULT SETS 1 BEGIN DECLARE temp_cursor1 CURSOR WITH RETURN TO CLIENT FOR SELECT * FROM test; OPEN temp_cursor1; END; 映射文件中关于存储过程内容如下 <hibernate-mapping package="com.unmi.vo"> <class name="Test" table="TEST"> ......... 阅读全文

摘要： sp_configure 'show advanced options',1reconfiguregosp_configure 'xp_cmdshell',1reconfiguregosp_configure 'show advanced options',0reconfiguregoUSE masterGODECLARE @DBName sysname, @DestPath varchar(256)DECLARE @DB table( name sysname, physical_name sysname) BEGIN TRYSELECT @D 阅读全文

摘要： 本文是三篇论述Delphi 6中XML功能系列文章的第二篇，论述Delphi 6中的XML数据绑定(XML Data Binding)。 [/b][/blue] Delphi 6 含有许多更新更强的XML支持功能，增加了XML文件编程，XML数据绑定向导，XML映象和BizSnap(SOAP/XML Web服务)。 我在上一篇文章论述了Delphi 6中的XML文件编程(XML Document Programming)。本文是三篇论述Delphi 6中XML功能系列文章的第二篇，论述Delphi 6中的XML数据绑定(XML Data Binding)。 ... 阅读全文