StringReplace函数的用法示例: 比如将日期和时间中间的“-”和“:”去掉 Label1.Caption :=StringReplace(datetostr(date),'-','',[rfReplaceAll]); Label2.Caption :=StringReplace(timetostr(time),':','',[rfRe
Delphi 7里DBGridEh里行变颜色的代码 例如在DBGridEh的OnDrawColumnCell事件里输入如下代码: if ADOQuery1.FieldByName('status').AsString='True' then //如果条件成立 begi
Delphi 7里使用ADOQuery控件连接SQL Server查询刷新后停留在原位置,显示控件可以是DBGrid或DBGridEh。 例一: procedure TForm1.BitBtn1Click(Sender: TObject); var DoubleNo_nid: Integer; Begin &
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号