2019年2月12日

delphi如何检索adoquery里面某一列存在的重复行？

摘要： 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... 阅读全文

posted @ 2019-02-12 23:06 癫狂编程 阅读(556) 评论(0) 推荐(0) 编辑

Embarcadero Delphi 7 Enterprise 7.0.4.453 中文版

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

posted @ 2019-02-12 12:51 癫狂编程 阅读(255) 评论(0) 推荐(0) 编辑

dbgrid如何在最左边的列上显示行序号

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

posted @ 2019-02-12 00:02 癫狂编程 阅读(556) 评论(0) 推荐(0) 编辑

导航

好的代码像粥一样，都是用时间熬出来的