摘要: 问题:为什么打印的时候都挤在一起. 而且只有一行显示.(x,y 是全局变量), 为什么没有按我的一行加上间距一行的打印呢?复:打印机分辨率不一样,不要给定具体值,必须通过API获得具体打印参数。你先更改这两个地方再打印试试。你这是要干嘛,如果喷墨激光打印机,肯定打在一起了,若你要分行打,可以改成要打成一列,改成类似这样要打成一行,改成类似这样 阅读全文
posted @ 2010-12-18 01:38 fyen 阅读(2917) 评论(1) 推荐(0) 编辑
摘要: 对文本文件进行写操作,当文本文件的文件名为“LPT”或“COM”等保留字里,即是对指定端口写。源代码截自“吉胜超市POS” 阅读全文
posted @ 2010-12-18 01:33 fyen 阅读(3677) 评论(0) 推荐(0) 编辑
摘要: 用下面的替换 TfrxPDFFont.GetFontName: AnsiString 中的同名函数 阅读全文
posted @ 2010-12-18 00:53 fyen 阅读(1496) 评论(0) 推荐(0) 编辑
摘要: FastReport 4.9.20 中文菜单显示不全或者乱码解决方法:可以自己编译一个frcc.exe,替换Res目录下的,然后再recompile即可。 delphi 2010(update5)测试界面都正常。用delphi 2010建立一个console工程,名称为frcc,代码如下: 阅读全文
posted @ 2010-12-18 00:44 fyen 阅读(2951) 评论(0) 推荐(0) 编辑
摘要: function CreateAccessFile(FileName: string; PassWord: string = ''): boolean;constSConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=%s;';varvCatalog: OleV... 阅读全文
posted @ 2010-12-18 00:40 fyen 阅读(350) 评论(0) 推荐(0) 编辑
摘要: SELECT *, (SELECT SUM(AD_in-AD_out) FROM account_Detail AS AD2 WHERE ((AD2.ADate = AD.ADate AND AD2.idno <= AD.idno) or (AD2.Adate < Ad.ADate)) ) as TotalCountFROM account_Detail AS AD WHERE Yea... 阅读全文
posted @ 2010-12-18 00:35 fyen 阅读(298) 评论(0) 推荐(0) 编辑
摘要: 与WINDOWS打交道,消息是免不了的。系统除了向我们提供自身的消息外,也允许用户自己定义消息。定义消息很多情况下会直接这种这样的定义很容易出现冲突。最好的方法是用函数“RegisterWindowMessage”注册生成唯一的消息ID 阅读全文
posted @ 2010-12-18 00:28 fyen 阅读(278) 评论(0) 推荐(0) 编辑
摘要: 1、GetInterface通过类信息查是否有该支持接口,简单点说就中只能要到Class=(TXXXX,Interface1,...interfacen);后面的Interface2、QueryInterface依赖实现者,即使类没有这个接口,实现者可以返回另外的一个对象。DELPHI中事件的派送便是一例纵上所述:GetInterface由编译器去实现,QueryInterface由方法实现都去决定。 阅读全文
posted @ 2010-12-18 00:17 fyen 阅读(3130) 评论(1) 推荐(0) 编辑