把某字段内容都截取以211开头的前5位数字,然后在dbgrid中显示截取字段内容,此段程序应该如何写?
解决方案 »
- 菜单图标的原来是灰色的,有鼠标焦点后变成彩色的效果怎么做...
- 求怎么把一个10进制转换成16进制(不是inttohex那么简单)进来看看吧!谢谢各位啦。。。分不多了,只给100先。
- 急求delphi开源作品(具有学生收费之类的),在线等待!急~~~`
- 怎么样监视系统中有打开的文件,如TXT,DOC等
- spcomm控件的一个属性————在线等待!!
- 我怎么把窗口始终在桌面的最前面啊(在DELPHI里面)
- 在DELPHI中释放DIRECTDRAW对像是难道不用RELEASE吗?
- 转向DELPHI 2009 大家都用什么报表控件了?
- 如何把运行程序最小化?
- 请问ProCoffee99(冬月)怎样将SringGrid复制到一个TStringList中
- 关于窗体!难,急,难,急!!!
- 我想用qreport来把dbgrid里面的数据打印出来,有高手能指导我一下具体怎么做吗?
procedure TMainForm.ADODataSet1CalcFields(DataSet: TDataSet);
begin
If not ADODataSet1.FieldByName('编号').IsNull Then
ADODataSet1.FieldByName('编号1').AsString := copy(ADODataSet1.FieldByName('编号').AsString,1,5);
end;
或者用SQL条件查询。
或者在永久字段的ONGetText事件改變顯示:
procedure TForm1.Table1ADDRESS_1GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
text:=Copy(Sender.AsString,0,5);
end;
adoquery1.sql.clear;
adoquery1.sql.text:='select substring(field1,1,5) from txxx where field1 like '211+'%''';
adoquery1.open;
然后datasource1链adoquery1
dbgrid1链datasource1