癫狂编程

摘要： VCL里面的的实现 阅读全文

摘要： 借方表示增加，货方表示减少，有借必有贷，借贷必相等。做账时如果有增加项，就一定要有减少项，否则账就做不平。 借方和贷方与现实中的借贷并没有直接的关系。它在会计中就相当于是两个符号一样，一个是增（+），一个是减（—）。只是根据原则，资费成（资产，费用，成本）增加在借方，减少在贷方；债权收（负债，所有者 阅读全文

摘要： 恢复内容开始 介绍在手机应用上，我们不应该使用速度慢的代码，当然我们在桌面程序上也应该避免这个，当手机应用长时间没有相应的时候，程序会提示“程序没响应，是否关闭”的提示，这个非常不好，所以我们需要来解决这个问题。下面是一个普通代码，通过for来循环添加ListVIew行，代码很简单，大家都见过 在运 阅读全文

摘要： ParamStr函数: ParamStr(1),..ParamStr(N) ParamStr(1)代表程序入口的第一个参数，同理，ParamStr(N)代表第N个参数。可通过如下操作进行参数的赋值。 例如： C盘下面有个1.exe可执行程序; 在Win+R下输入：C:\1.exe 1 2 3 ... 阅读全文

摘要： public class TvbGiftOnOverSpendTimeTaskImpl implements TvbGiftOnOverSpendTimeTask { private static final Log log = LogFactory.getLog("timeTaskLog"); private Date excuteDate = null; private int execute 阅读全文

摘要： program AutoShutDown;usesWindows,ShellAPI,Sysutils,Messages;{$R *.RES}varWinClass: TWndClassA;Handle: hwnd;Inst, Button1, Label1, Edit1: Integer;Msg: 阅读全文

摘要： 关键：Find要事先Sort排序，Indexof不用排序。 TStringList内部查找相关的数据。待调试代码时才知道痛苦，浪费无数时间后，只得一步步跟踪，才发 现Find方法返回的Index总是错误的，当时一阵郁闷，随手按下F1键，Find的Help文档展现眼前，对于该 函数是这样描述的：Loc 阅读全文

摘要： DWORD GetTickCount(void); 1) 定义 For Release configurations, this function returns the number of milliseconds since the device booted, excluding any ti 阅读全文

摘要： BMP TO HEX 首先介绍Github上一个简单的Bmp转成16进制的py: https://github.com/robertgallup/bmp2hex 网上这种例子很多。思路也简单：将bmp文件一个个二进制进行分析，这里的1-2表示2个字节，16个二进制数据，0xXXXX四位16进制数据~ 阅读全文

摘要： procedure Hex2Png(str: string; out png: TPngObject); var stream: TMemoryStream; begin if not Assigned(png) then png := TPngObject.Create; stream := TMemoryStream.Create; stream.SetSize(Length(str) div 阅读全文

摘要： TPanel位于Standard组件面板上，也是常用的一种容器控件。面板的一个优点就是放在面板上的组件称为面板的一部分，因此它们与面板一起移动。这在设计阶段很有用。 Panel组件的大部分功能在于其Align属性。例如，想显示标题在窗体上端，更进一步假设想让它在中央，不管用户怎样设置窗口尺寸，只需设 阅读全文

摘要： TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能，而本身并不依赖上述几种数据库驱动程序，基本上能满足单机"瘦"数据库应用程序的需要。 一、TClientDataSet的基本属性和 阅读全文

摘要： 上传客户端的CLIENTDATASET.delta到服务器的clientdataset.data，服务端解析clientdataset的数据生成相应的SQL语句。 相对于直接调用datasetprovider.applyupdates()方法提交数据而言，前者的可控性更强，对于某些要求灵活性很强的场 阅读全文

摘要： Delphi做三层开发时,很多人都会在客户端放一个TClientDataSet,中间层远程数据模块就对应放一个TDataSetProvider,然后再连起来.其实这种方法很烦琐,而且程序痈肿不甘,不好维护.我们都知道TClientDataSet的Delta属性记录了数据的所有修改,应用它我们就可以方 阅读全文

摘要： 今天终于把纠缠了几天的问题改完了，说到底只是一个很小的问题，就是ADOQuery的一个小属性。 今天终于把纠缠了几天的问题改完了，说到底只是一个很小的问题，就是ADOQuery的一个小属性。 把控件DBGridEh的一列的checkbox设为true，将其绑定DataSource和ADOQuery。 阅读全文

摘要： 使用delphi中的ADOQuery控件中自带的,insert ,edit,delete此操作时,有时会出现下面的错误提示,提示错误信息："无法为更新定位行。一些值可能已在最后一次读取后已更改。" 此解决方案: 出现的原因: 1.可能是修改的时候在其它地方已经重新修改过此数据集中的某些字段信息,例如 阅读全文

摘要： ClientDataSet中使用Post提交变更的数据时，实际上并没有更新到后端数据库中，而是提交到了由DataSnap管理的数据缓冲区中。当使用了ClientDataSet.ApplyUpDates(MaxErrors:integer)方法才更新到数据库中。ApplyUpDates方法也只更新修改 阅读全文

摘要： //只要前五条记录 procedure TForm1.Button1Click(Sender: TObject); begin with ADODataSet1 do begin Close; CommandText := 'SELECT TOP 5 * FROM country'; Open; e 阅读全文

摘要： (*//标题:处理数据网格的编辑框说明:示例添加焦点颜色;获取还没有提交到数据集的字段文本设计:Zswang日期:2002-03-31支持:wjhu111@21cn.com//*)///////Begin Sourcefunction GetDBGridEdit(mDBGrid: TDBGrid): 阅读全文

摘要： 鼠标忙这段代码大概是用来演示鼠标的用法的。具体解释如下： 使鼠标指针为沙漏状。（以表示程序正忙）screen.Cursor:=crhourglass; 把（打开的）数据库关闭。adoQuery.close;（个人以为改成这样更好：if adoQuery.Active then adoAuery.cl 阅读全文