2011年11月_chelen_jak

12月 11月 07月 05月 03月

原创文件的大小、创建时间、修改时间和访问时间

文件的大小、创建时间、修改时间和访问时间参考资料来源互联网【取文件的大小】function GetFileSize(const FileName: string): Int64;var Info: TWin32FindData; Hnd: THandle;begin Result := -1; Hnd := FindFirstFile(PChar(Fil

2011-11-30 15:59:16 2211

转载 Delphi文件操作所涉及的一些函数

Delphi文件操作所涉及的一些函数附例子（转载：作者:webfly 日期:2008-09-10）来源：http://www.cnblogs.com/zwz_good/archive/2009/09/08/1562515.html//判断文件是否存在 FileExists//判断文件夹是否存在 DirectoryExists//删除文件 DeleteFile; W

2011-11-30 15:27:37 619

原创对LayoutControl内的控件进行分组2 - 编辑框 + 按钮的排版

编辑框 + 按钮的排版第1步、设定编辑框的Margins.umRight=False 第2步、中间按钮的Margins.umLeft=False、Margins.umRight=False 和 RunTimeHorzClient=False 第3步、右边按钮的Margins.umRight=False 和 RunTimeHorzClient=False

2011-11-30 12:20:54 3187

转载 TCustomClientDataSet.CloneCursor相关

TCustomClientDataSet.CloneCursor相关来源：http://hi.baidu.com/davidjkl/blog/item/bc57f035e23e259ca71e1221.htmlShares the data belonging to another client dataset. 【共用属于另一个cds的数据。】procedure CloneCur

2011-11-30 09:26:09 1333

原创 TCustomClientDataSet.CloneCursor的用法

TCustomClientDataSet.CloneCursor的用法var ds1: TSmartDataSet;begin ds1 := TSmartDataSet.Create(nil); try ds1.CloneCursor(SourceDataSet, False); ds1.First; while not ds1.Eof do

2011-11-30 09:24:09 5178

原创搜索助手

搜索助手【Browser页面默认显示出搜索助手】将SmartBrowser1.SearcherHide = False，而不是设dpSearch.AutoHide = False;【即时刷新数据】1.即时刷新数据 properties.ImmediateExecute = True;2.延时刷新数据（按“打开”按钮再刷新） properties

2011-11-29 14:51:27 581

原创屏蔽打印功能

屏蔽打印功能根据CustomBrowser和CustomED中均有过程SetReportActionprocedure TfrmCustomBrowser.SetReportAction;begin Processor.ReportOptions.CanPrint := aPrint.Enabled; Processor.ReportOptions.CanD

2011-11-29 11:48:21 791

原创调用另一个功能的编辑窗体或单据窗体

调用另一个功能的编辑窗体或单据窗体uses SmartFormIntf, SmartDllProvider, CustomED, , SmartShare【查看】var Form1: TForm; CustomChild: ICustomChild;begin //如果被调用的窗体在同一个Dll中，则'XXX_Crm'可以省去 Form1 :=

2011-11-25 15:14:30 720

原创创建一个新功能模块

创建一个新功能模块首先用SmartID产生对应的DataModule、BrowseForm和EditorForm, 接下来对每个文件进行相应的设置。【DataModule】1.CN.DataBaseName -- 联接的数据库名称。例：ABC2.DataSet.Caption -- 中文名称。3.DataSet.ProviderName -- Provider的名字，可

2011-11-24 18:15:58 652

原创 TSmartDBLookupComboBox使用

TSmartDBLookupComboBox使用常用设定 //编辑DataSet信息 DataBinding.DataField = 'ClassID' DataBinding.DataSource = sMaster DataBinding.DisplayF

2011-11-23 18:08:06 748

原创做一个TClientDataSet影像

做一个TClientDataSet影像unit DataSetShadow;interfaceUses DB, DBClient, Variants, SysUtils, Dialogs, MConnect, StdCtrls, Classes, Controls, Forms, ShellAPI, Windows;Type TDataSetShadow = Cl

2011-11-18 11:16:08 833

转载如何让断点做到“定点停车”

如何让断点做到“定点停车”注：Steven原创比如一个循环i从 1 到 100 的程序，如何跟到 i=55 的代码．程序：1：for i := 0 to 100 do2： Caption := IntToStr(I); //断点行做法：在菜单 View -> Debug Windows -> BreakPoints （ctrl + alt + b），选择

2011-11-18 10:57:35 722

转载 TStringList的使用技巧

TStringList的使用技巧注：Tony 原创 Name=Value应用于一些根据键值找对应值的情况． 1.增加一项设置StringList.Add('1班上班时间=11:00');StringList.Add('1班下班时间=18:00'); 2.判断是否有此项目, 没有则增加, 有则修改if StringList.IndexOfName('1班上

2011-11-18 10:47:46 1401 1

原创 Unicode轉字符

Unicode轉字符 function UnicodeToStr(strUnicode: string): string;var str1, str2: string; i: integer; int1: integer;begin str1 := ''; Result := ''; for i := 1 to length(strUnicode

2011-11-18 10:41:15 595

原创檢查字符串可否轉為數值型

1.用Delphi函数（建义）function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload;function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;function TryStrToFloa

2011-11-18 10:38:57 814

转载在delphi中怎么表示和使用静态的变量？

在delphi中怎么表示和使用静态的变量？来源：http://topic.csdn.net/t/20031211/14/2552688.html答：在Delphi5中直接用const来定义静态局部变量，在Delphi6中则可以使用const和{$J+}开关来办到。但是这样的静态变量如果定义在类方法中，那么这个类所创建的对象里的静态变量都是共享的。我写了一个简单的例程如下：

2011-11-17 11:26:47 1543

转载 delphi控件安装与删除

delphi控件安装与删除来源：http://www.cnblogs.com/qiangqiang/archive/2010/06/01/1748800.html附带通用控件安装方法：----------基本安装1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install;2、对于带*.dpk文件

2011-11-09 09:52:42 662

转载 SQL SERVER 2000 自动下载木马病毒 cmd.exe和ftp.exe解决办法

SQL SERVER 2000 自动下载木马病毒 cmd.exe和ftp.exe解决办法来源：本人在Windows 2003和windows 7 下安装SQL SERVER 2000就算打了SP4补丁也会中毒，莫名其妙的自动下载木马，不定期随机在system32下生成.exe病毒，而且清除了以后，一会儿又自动生成。但是在XP下还没遇到过这种情况，很是纠结，查了很多资料现在转帖一个

2011-11-04 16:05:57 6028