摘要：看到有人这样用VarToDateTime、存下来、强大的日期通杀 阅读全文

摘要：一、新建一控件 打开Delphi主菜单Cpmponent—New Cpmponent： 二、配置参数 点击OK键，打开Unit单元文件。 三、修改单元文件 unit LyCalendar; interface uses Windows, Messages, SysUtils, Variants, C 阅读全文

摘要：但我们为Label设置了热键的时刻，我们按这个热键，就会移动核心倒FocusControl指定的控件上！例如，设置Label.Caption:='Test For FocusControl(&F)'，Label.FocusControl-->Edit1，那么当我们按Alt+F的时刻，Edit1就会获 阅读全文

摘要：//判断单位转换率 try um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat; if um_rate 1) then abort else if (vp_mstr.F('vp_um').AsString vp_mstr.F('part_um'... 阅读全文

摘要：如何有效地让一个“ParentFont = False”子控件使用与父母相同的字体名称？(How to efficiently let a `ParentFont = False` child control to use same font name as parent?) 问 题 Most VC 阅读全文

摘要：窗体的构造函数和创建事件和OldCreateOrder属性有很大的关系。 情况1： 如果窗体继承自TForm，且有如下形式： 1. constructor TForm1.Create(AOwner: TComponent); 2. begin 3. inherited; 4. Button1.Cap 阅读全文

摘要：如果你不要行标志的话,你可以不改控件 直接注释掉这一行: ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas, ATextRect, AIndicatorViewInfo.IndicatorKind); 要标志的话,在DrawIndicator 阅读全文

摘要：ClientDataSet的数据查找。我所介绍的心得和技巧都是用ClientDataSet来做范例，也可以应用于其他的一些DataSet。废话就不多说了。我们还是先看代码，让后再总结。1.Scanning 扫描数据查找这是最简单最直接也是最慢的一种方法，遍历所有数据：procedure TForm1 阅读全文

摘要：1、Bookmark var p:pointer; procedure TForm1.Button1Click(Sender: TObject);//加个标签 begin p:=cxGrid1DBTableView1.DataController.DataSet.GetBookmark; end; 阅读全文

摘要：TClientDataSet 中计算字段有两种: Calculated(计算字段)、InternalCalc(内部计算字段).两者区别是: Calculated 在每次需要时都要重新计算; InternalCalc 只需要计算一次.Calculated 需要计算的时间, InternalCalc 需 阅读全文

摘要：选择菜单 Tools－－Environment在打开的对话框中选择 Designer 页，选 其中的 Options 选项勾选 Show component captions ，点击 OK即可 阅读全文

摘要：procedure TForm1.ClientDataSet1NewRecord(DataSet: TDataSet); begin ShowMessage('你好'); ClientDataSet1.First; while not ClientDataSet1.Eof do begin ClientDataSet1.Edit; ClientDataSet1.F... 阅读全文

摘要：procedure TMSWageEdit.aqyMSWageEditCalcFields(DataSet: TDataSet);begin inherited; with DataSet do if RecNo =-1 then FieldByName('计算字段').AsInteger := 1 阅读全文

摘要：软件提示“没有活动事务”，原因：使用事务时 Trydm.ADOConnection1.BeginTrans;1、 sql语句 dm.ADOConnection1.CommitTrans; 2、 代码出现异常 excetp dm.ADOConnection1.RollbackTrans;end;如上所 阅读全文

摘要：我们有一个Delphi的数据库应用程序,上面有个DBGrid和一个数据集： DBGrid是用来显示来自数据集（查询或表）的数据，根据设计,当您调用已经打开的数据集的Refresh方 法（例如使用DBNavigator的Refresh），当前行的位置将被设置为0 （第一个记录）。 这意味着，如果用户选 阅读全文

摘要：ClientDataSet.First;while not ClientDataSet.eof dobegin ClientDataSet.edit; ClientDataSet.FieldByName('行号字段').asInteger := ClientDataSet.RecNo; Client 阅读全文

摘要：DBGrid使用起来还是很方便的，但就是没有显示记录序号的功能，必须自己加，参照老外给的解决方案如下： 方案1： 1- 在DBGrid建一个第一列 (列的名字起“NO”) 2- 在DBGrid事件 DrawColumnCell 下加如下代码 阅读全文

摘要：var IsHave:Boolean; begin adoquery.first; while(not adoquery.eof) do begin if(adoquery.fieldbyname('列名').asstring="用户添加的值") then begin IsHave=True; break; end; adoquery.next; end; if(IsHav... 阅读全文

摘要：在 win7下可能报错请大家按下面的方式 delphi7运行不正常的提示unable to rename'c:\program files\Borland\delphi7\Bin\delphi32.$$$'to'c:\program files\Borland\delphi7\Bin\delphi3 阅读全文

摘要：procedure TForm1.Table1CalcFields(DataSet: TDataSet); begin table1.FieldValues['no']:=table1.RecNo; end; //聲明全局變量i procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; ... 阅读全文