摘要：
同事演示了一个.NET的的PNG异形窗口.挺漂亮.于是也想用Delphi显摆一个. 关于Delphi用PNG做异形窗口的资料有不少.都是用GDIPlus或者TPNGImage组件加载PNG图像做的.但是我很懒,不想引用的GDIPlus,也不想去找PNGImage下载. 好在从Delphi2009开始
阅读全文
posted @ 2012-02-02 20:26
del88
阅读(19)
推荐(0)
摘要：
由于项目需要，近来研究了一下WebBrowser组件和MSHTML 在Delphi中的使用,整理了一下这段时间研究的结果,写下来一是方便大家查阅,二也可以加深我自己的记忆.希望能对大家有所帮助… …,同时,如果有更好的处理方式或者我没有提到的问题,请大家也告诉我哦, 咱们一块进步… ...,其中一部
阅读全文
posted @ 2012-02-02 20:20
del88
阅读(31)
推荐(0)
摘要：
delphi 新功能 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,Vcl.Imagi
阅读全文
posted @ 2012-02-02 19:44
del88
阅读(628)
推荐(0)
摘要：
FastReport 不用托控件直接引用单元就可，比如要编辑模板的话 需要在窗体上放一个frxDesigner1组件 其实也可以不放，推荐不放 以免界面过乱， 直接引用，frxDesgn这个单元就可 如： 其实就三个单元，分别对应如： frxClass frxReport frxDBSet frxD
阅读全文
posted @ 2012-02-01 11:52
del88
阅读(15)
推荐(0)
摘要：
官方的说法 这样的我以后 就不用定义多余的变量来判断 是点击的修改按钮还是增加按钮了 Stores an integer value as part of a component. Tag has no predefined meaning. The Tag property is provided
阅读全文
posted @ 2012-01-31 14:25
del88
阅读(23)
推荐(0)
摘要：
adoquery1.sql.add相当于添加一个值比如说adoquery1.sql.text:='a';adoquery1.sql.add('b');那么adoquery1.sql.text='ab' adoquery1.sql.text（）就是说写一行完整的查询语句放在SQl的查询里。当在delp
阅读全文
posted @ 2012-01-30 13:18
del88
阅读(12)
推荐(0)
摘要：
unit Unit1; interface {接口部分开始} uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部
阅读全文
posted @ 2012-01-26 15:08
del88
阅读(31)
推荐(0)
摘要：
批量删除的时候 切记不要用下面的代码： procedure TfrmMain.WeiXuanZhongDelete_btnClick(Sender: TObject);begin frmDataDm.WeiTopTradeShow_adoq.First; while not frmDataDm.We
阅读全文
posted @ 2012-01-26 12:23
del88
阅读(18)
推荐(0)
摘要：
随顺序逐步扩大范围。 private //不可见。 protected //派生类可见。 public //可见。 published //可见。用于运行时信息。 automated //可见。用于兼容。 //在范围以外时：{$M+}(默认)时是 published；{$M-}时是 public /
阅读全文
posted @ 2012-01-21 00:19
del88
阅读(320)
推荐(0)
摘要：
FastReport 在安装的时候 好像也有 32位和64位之分 看那里的32位和64位
阅读全文
posted @ 2012-01-17 14:36
del88
阅读(18)
推荐(0)
摘要：
Delphi执行sql语句总结 用TQuery: Query1.Close; Query1.SQL.Clear; Query1.SQL.Add(Insert Into MyTable Values(1,23,aa)); Query1.ExecSQL; 如果是Select 语句则把Query1.Exe
阅读全文
posted @ 2012-01-12 16:55
del88
阅读(13)
推荐(0)
摘要：
Delphi中使用ADO连接Excel有感 By panther666 今天在Delphi中使用ADO连接Excel(以前在一本书看过，复习一下-_-!!)，有所收获，不敢独享。 第一部分： 1. 设 置ADOConnection的ConnectionString属性的OLE DB的提供者要选择 M
阅读全文
posted @ 2012-01-12 16:52
del88
阅读(22)
推荐(0)
摘要：
会了这个方法 以后电脑不用装sql2000就可以给客户建立数据库了,因为只需要把备份文件给保存下 就可以了 以后客户买了 远程的版本 直接上传下 把这个数据库给覆盖下 就相当于建立数据库了 真是太方便了
阅读全文
posted @ 2012-01-12 14:41
del88
阅读(8)
推荐(0)
摘要：
西部数码的数据库空间,可以本地先做好 然后 直接上传下 把原来的数据库给 覆盖下 这种方法 真是不错 再来一张：
阅读全文
posted @ 2012-01-12 11:26
del88
阅读(12)
推荐(0)
摘要：
procedure TfrmMain.Button19Click(Sender: TObject); var I: Integer; begin for I:=0 to WeiTopTradeShow_dbgeh.Columns.Count-1 do begin WeiTopTradeShow_db
阅读全文
posted @ 2012-01-11 00:07
del88
阅读(21)
推荐(0)
摘要：
呵呵，找了很久，终于找到了。我试过了，按下面的处理。 [Tasks] //tasks 任务，desktopicon桌面, Name: "desktopicon"; Description: ""; GroupDescription: ""; Flags: checkablealone 系统默认是没有
阅读全文
posted @ 2012-01-09 00:55
del88
阅读(37)
推荐(0)
摘要：
颜色样本 十六进制 名称与注释 #ffb3a7 粉红：即浅红色。别称：妃色 杨妃色 湘妃色 妃红色。 #ed5736 妃色：妃红色。古同“绯”，粉红色。杨妃色、湘妃色、粉红皆同义。 #f00056 品红：比大红浅的红色。 #f47983 桃红：桃花的颜色，比粉红略鲜润的颜色。 #db5a6b 海棠红
阅读全文
posted @ 2012-01-08 17:01
del88
阅读(71)
推荐(0)
摘要：
分类运算符操作操作数结果类型范例 算术运算符 + 加 整数，实数 整数，实数 X + Y - 减 整数，实数 整数，实数 Result - 1 * 乘 整数，实数 整数，实数 P * InterestRate / 实数除 整数，实数 实数 X / 2 div 整数除 整数 整数 Total div
阅读全文
posted @ 2012-01-08 16:59
del88
阅读(30)
推荐(0)
摘要：
本来时间类型是设置的datetime但是由于SQLSERVER没有对应的能显示出来 日期+时分秒的 时间类型 原来时间类型可以存为varchar(50),如果要查询某个时间段 可以这样： select * from top_trade where top_pay_time BETWEEN '2011
阅读全文
posted @ 2012-01-07 22:35
del88
阅读(11)
推荐(0)
摘要：
Working with styles 类型是一个元素，它具有名称、属性及決定设计属性，例如颜色(color)、字型(font)及外框(frame)。类型決定报表物件应该如何显示，这个物件像是TfrxMemoView 有Style 属性，此处必须设定为类型的名称，当套用一个值到此属性，此类型的设计属
阅读全文
posted @ 2012-01-06 14:53
del88
阅读(16)
推荐(0)
摘要：
FastReport components review FastReport 包含许多元件供报表建立、修改、导出不同的格式及強化报表功能， 让我们探究每一个FastReport 元件栏上的元件。 TfrxReport 此为最主要的报表元件，一个TfrxReport 元件组成一份报表。在设计时期，双
阅读全文
posted @ 2012-01-06 14:51
del88
阅读(25)
推荐(0)
摘要：
adoquery1.sql.add相当于添加一个值比如说adoquery1.sql.text:='a';adoquery1.sql.add('b');那么adoquery1.sql.text='ab' adoquery1.sql.text（）就是说写一行完整的查询语句放在SQl的查询里。当在delp
阅读全文
posted @ 2012-01-06 14:47
del88
阅读(17)
推荐(0)
摘要：
MaskEdit是用来建立编辑框的，但它与Edit编辑框可以输入任意字符不同，MaskEdit可以限制用户只能按照既定的输入格式输入。掩码 编辑框（MaskEdit）是一种特殊的编辑框。使用它可以设计出许多复杂的输入格式。在选用MaskEdit之后，需要为它设计一个输入格式。方法如 下： 首先在窗体
阅读全文
posted @ 2012-01-06 14:45
del88
阅读(24)
推荐(0)
摘要：
HOW是非模式显示窗体 SHOWMODAL是模式显示窗体 前者关闭时窗体并没有释放,需要在FORM的ONCLOSE中添加ACTION:=NIL; 后者就不用 我一般都用后者 show 只简单的显示出所调用窗口，showmodal 需要在关闭窗口之后才能进行其它窗口的操作； 同时showmodal 能
阅读全文
posted @ 2012-01-06 14:42
del88
阅读(18)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from YourTABLE where 查询条件'); ADOQ
阅读全文
posted @ 2012-01-06 14:41
del88
阅读(59)
推荐(0)
摘要：
这里的情况适用于FastReport2.53版本。 报表页码一般情况下就象在Word里一样不用费什么脑筋，FastReport里直接从系统变量可以得到。但特殊情况下就无法轻松得到了。 这里谈的是分组页码的问题，就是在报表分组的情况下。首先是每个分组强制分页，然后页码重新计数。比如5页分为二组，一组占
阅读全文
posted @ 2012-01-06 14:39
del88
阅读(56)
推荐(0)
摘要：
1.FastReport中如何共用TFrxreport及TfrxDBDataSet 一个程序中，不管多么大的程序，只要打印或预览时是模式的，则完全可以共用一个TFrxreport 变量及几个TfrxDBDataSet。只不过，要注意完成一个报表程序的步骤，主要是下面几步1)清除报表，得到一个全新的报
阅读全文
posted @ 2012-01-06 14:09
del88
阅读(23)
推荐(0)
摘要：
同事觉得我的FastReport的设计器很好用, 不用打开Delphi就可以设计报表, 这样就可以直接在用户电脑上改报表了, 其实很简单, 1. 四个控件' frReport1: TfrReport; frDesigner1: TfrDesigner; frDBDataSet1: TfrDBData
阅读全文
posted @ 2012-01-06 14:03
del88
阅读(33)
推荐(0)
摘要：
FastReport套打，纸张是连续的带锯齿的已经印刷好的，类似于通信公司发票 这里设计的是客户销售记录。 客户有两个要求： 1、因为打印纸张是印刷的，明细记录只有8行，所以，如果明细记录如果不到8行，就将公司名称、销售记录打印在上面，下一个公司的信息打印在下一页，而不能接在该页上（呵呵，是啊，如果
阅读全文
posted @ 2012-01-06 13:59
del88
阅读(54)
推荐(0)
摘要：
FASTREPORT中MEMO的wordwrap设为True,使文本自动换行，但当最后一个字为中文时总是出现乱码。怎样才能使最后的字为中文且剩下文本区不足两格时自动换行，避免出现乱码?主要改fr_class.pas中的wrapline过程，其中有一段：else if s[last] = thenOu
阅读全文
posted @ 2012-01-06 13:50
del88
阅读(76)
推荐(0)
摘要：
目前正在做一个管理信息系统，用的是Delphi平台，报表用的是FastReport，一个很奇怪的问题困惑着我 报表有时候能预览，有时候无法预览 原来的预览程序是： frxEITRep.Clear; frxEITRep.LoadFromFile('EPFRep.fr3');//加载报表 frxEITR
阅读全文
posted @ 2012-01-05 20:14
del88
阅读(50)
推荐(0)
摘要：
procedure inipage(fr:frxReport;frfile:string;printini:string);varPage:TfrxReportPage;IniFile:TINIFile;CDir:String;begin//fr.LoadFromFile(ExtractFilePa
阅读全文
posted @ 2012-01-05 19:26
del88
阅读(17)
推荐(0)
摘要：
有时候许多报表很可能大同小异，只是有个别地方显示的不同，如报表标题，一些控件标题等等。 这样我们只需要设计一次报表，在许多地方调用同一份报表，这时候，我们可能需要在显示一份报表前，稍微改变一下样式或内容（适用于fastreport3.0）： procedure TForm2.printReportB
阅读全文
posted @ 2012-01-05 19:14
del88
阅读(12)
推荐(0)
摘要：
var PageLine: integer;//现在打印到第几行 PageMaxRow: integer=15; //空行行数 procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin PageLine := <Line> mo
阅读全文
posted @ 2012-01-05 19:10
del88
阅读(13)
推荐(0)
摘要：
function IsRuning(const AObjectName: string): Boolean;{AObjectName='aaa.exe'} var lppe : TProcessEntry32; sshandle: Thandle; found: boolean; begin Res
阅读全文
posted @ 2012-01-05 19:09
del88
阅读(14)
推荐(0)
摘要：
人民币大写金额转换函数 function MoneyToCn(ANumberic: Real): string; const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; function StrTran(const S, s1
阅读全文
posted @ 2012-01-05 19:08
del88
阅读(30)
推荐(0)
摘要：
原本在开发一个报表插件,因为需要远程传输,因此需要序列化报表,序列化FastReport有两种方式, 1.仅序列化数据,由客户端接受到数据,并呈现报表,这种方式需要在客户端存储报表格式文件xxx.Frf, 2.序列化FastReport的结果集(即,得到数据后可以存成的frp文件),这样frf文件不
阅读全文
posted @ 2012-01-05 19:06
del88
阅读(41)
推荐(0)
摘要：
随着项目的失败，这些天一直在总结失败的原因，到底是为什么？ 一、技术层面 1、少用指针类型，多用类。 虽然指针类型能有效的节约内存和加快运行速度，但指针远没有类来得稳定及易用。在日常使用中，往往指针对应的是record类型，例如 1 PDataColumns = ^DataColumns; 2 Da
阅读全文
posted @ 2012-01-05 19:03
del88
阅读(18)
推荐(0)
摘要：
防止同时打开多个应用程序的实例，也就是同时只有一个程序在运行，再运行同一个程序时，会自动关闭，以下代码放在项目的.dpr(项目文件)中的Application.Initialize;上面。代码如下: var hMutex: DWORD; Ret: Integer;{以上代码要放在begin..end
阅读全文
posted @ 2012-01-05 18:57
del88
阅读(16)
推荐(0)
摘要：
默认DBGRID选中行的颜色为深蓝色，可以在程序中改变 在DBGRID的OnDrawColumnCell中写入 if (State=[gdSelectd..gdFocused,gdCurrent]) then begin Grid.Canvas.Font.Color :=clRed; Grid.Ca
阅读全文
posted @ 2012-01-05 17:39
del88
阅读(31)
推荐(0)
浙公网安备 33010602011771号