ddv_9527的专栏

信息管理系统中经常要提供各种打印功能，例如报表打印、凭证打印以及发票打印。在这些打印过程中所需要纸张的大小往往是不一致的，例如，打印报表有可能使用A4 纸或A3 纸，打印凭证或发票可能需要将打印纸张设置成自定义大小。如果在同一台打印机上打印这些内容，那么就应该针对不同的打印内容设置不同的纸张尺寸。显然如果用手动的方法来设置打印机的纸张尺寸是件很麻烦的事，最好的方法是让程序动态地修改打印机的纸张尺寸

Tag: Delphi .net WebService 最近公司有个系统升级，老系统为delphi所编写；老系统为传统的C/S两层结构，有一个瓶颈就是我们的客户端经常需要从数据库刷新数据，而且这些数据都是一样的，这极大地影响了系统效率，在系统升级时我们考虑使用WebService解决这一瓶颈；初步想法是需要刷新数据时由WebService中间层去数据库提取数据，所有的客户端都到中间层拿刷新后的数据，这样就避免了所有的客户端都直接去操作数据库提取同样的数据。但是用什么平台实

<br /> <br /><br />var<br />  s1:string;<br />begin<br />  screen.Cursor:=crSQLWait;<br />  s1:='insert into table_bus '+<br />      ' (BS_NO,BS_TYPE,bs_whos,bs_mode,bs_seat,bs_soalseat,bs_drseat,bs_oiltype,bs_buycard,bs_unit,BS_BDATE,bs_edate) '+<br />   

<br />delphi中locate查找方法默认分类 2009-09-25 13:51:37 阅读419 评论0   字号：大中小 订阅 <br /> <br />TDataSet控件以及它的继承控件，例如TSimpleDataSet/TClientDataSet等都可以使用Locate方法在结果数据集中查寻数据。程序首先必须使用SQL命令从后端数据库中取得数据并且形成结果数据集，然后才使用Locate方法查寻数据。 <br />当使用Locate方法查寻数据时，开发人员可以使用任何的字段条件来查寻，而无

<br />Occurs   just   before   the   data   is   written   to   the   record   buffer. <br />type   TFieldNotifyEvent   =   procedure(Sender:   TField)   of   object; <br />property   OnValidate:   TFieldNotifyEvent; <br />Description <br />Write   an   On

<br />Delphi中ShellExecute的妙用 ( Fri, 11 Jul 2008 08:44:48 +0800 ) <br />Description:<br />Delphi中ShellExecute的妙用<br /><br />    ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。<br />　　有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并

<br />Delphi中ShellExecute的妙用 ( Fri, 11 Jul 2008 08:44:48 +0800 ) <br />Description:<br />Delphi中ShellExecute的妙用<br /><br />    ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。<br />　　有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并

exit: 退出函数体abort: 遇到异常,安静处理,就是不显示不提示break: 退出当前循环体,包括for ,while, repeat等循环体continue: 结束循环内的本次处理,继续从循环体的开始位置继续执行Abort 是从 EAbort 过来的，可以激发 exception，其实质就是 Abort = RaiseException()，是一个不出现对话框

http://hi.baidu.com/secbug

一、ProcessMessages作用：调用ProcessMessages来使应用程序处于消息队列能够进行消息处理，ProcessMessages将Windows消息进行循环轮转，直至消息为空，然后将控制返回给应用程序。     注示：仅在应用程序调用ProcessMessages时勿略消息进程效果，而并非在其他应用程序中。在冗长的操作中，调用ProcessMessages周期性使得应用程序对画笔

 方法一（利用adoconnection.exe(sqlstate)）：adoconnection1.begintrans;//开始事务try adoconnection1.execute(sqlstr1); adoconnection1.execute(sqlstr2); ... adoconnection1.execute(sqlstrN); adoconnection1.commitra

 2001-11-09 08:51:25      一、概述　　在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证，税票等单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息，是解决问题]的关键。一般情况下，开发者都是通过在打印机上通过重复的测试来达到实际需求。那么，有没有简单有效而又灵活的方法实现上述功能呢？　　二、基本思路

uses winspool; //PaperName: 自定义纸张名称 //PaperWidth: 纸张的宽度，以0.1mm为单位 //PaperLength: 纸张的高度，以0.1mm为单位 procedure TDM.AddCustomPaper(const PaperName: string; PaperWidth, PaperLength:integer); var PrintDe

  procedure   DoOnDataException(aDataSet:   TDataSet;   bolClose:   Boolean);     var         lMessage:   string;         i:   integer;         lWhetherReConnect:   Boolean;     begin         lMessage

<br /> a）在“Search Path” 设置路径的前后顺序(仔细看readme中的说明）；（就是这个地方浪费了半晚上时间）<br />    b）使用压缩包中的 wsdlimp 文件来生成 WCF的调用文件pas文件；检查对应生成的文件中是否有（InvRegistry.RegisterInvokeOptions(TypeInfo(你调用服务的名字), ioDocument);，升级之前的版本，生成pas文件的时候是没有这句的）；<br />   c）在你的工程文件的属性中设置条件定义“CLEANUP