- 博客(18)
- 资源 (15)
- 收藏
- 关注
原创 文件的大小、创建时间、修改时间和访问时间
文件的大小、创建时间、修改时间和访问时间参考资料来源互联网【取文件的大小】function GetFileSize(const FileName: string): Int64;var Info: TWin32FindData; Hnd: THandle;begin Result := -1; Hnd := FindFirstFile(PChar(Fil
2011-11-30 15:59:16 2212
转载 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 620
原创 对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 3188
转载 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 582
原创 屏蔽打印功能
屏蔽打印功能 根据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 721
原创 创建一个新功能模块
创建一个新功能模块 首先用SmartID产生对应的DataModule、BrowseForm和EditorForm, 接下来对每个文件进行相应的设置。【DataModule】1.CN.DataBaseName -- 联接的数据库名称。例:ABC2.DataSet.Caption -- 中文名称。3.DataSet.ProviderName -- Provider的名字,可
2011-11-24 18:15:58 653
原创 TSmartDBLookupComboBox使用
TSmartDBLookupComboBox使用常用设定 //编辑DataSet信息 DataBinding.DataField = 'ClassID' DataBinding.DataSource = sMaster DataBinding.DisplayF
2011-11-23 18:08:06 750
原创 做一个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 724
转载 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 1403 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 596
原创 檢查字符串可否轉為數值型
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 816
转载 在delphi中怎么表示和使用静态的变量?
在delphi中怎么表示和使用静态的变量? 来源:http://topic.csdn.net/t/20031211/14/2552688.html答:在Delphi5中直接用const来定义静态局部变量,在Delphi6中则可以使用const和{$J+}开关来办到。但是这样的静态变量如果定义在类方法中,那么这个类所创建的对象里的静态变量都是共享的。我写了一个简单的例程如下:
2011-11-17 11:26:47 1545
转载 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
CSS Satyr 1.2
2014-04-25
kendoui-extended-api-master.zip
2014-02-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人