1.DELPHI comboboxå¦ä½ä¸DBGRIDçç»å
2.DELphi å¦ä½ç»åå符串
3.Delphi DBCombobox如何获取选项文本
DELPHI comboboxå¦ä½ä¸DBGRIDçç»å
å æ代ç åå¨combobox1çonchangeäºä»¶é
Query.close;
Query.sql.text:=ConCat('select * from å¤ä»¶ where ç©æå· like ',物料jediscluster 源码#,'%',combobox1.text,'%',#,' and å称 like ',#,'%',combobox2.text,'%',#);
if dtpTime.text<>'' then
Query.sql.text:=ConCat(Query.sql.text,' and æ¥æ=',#,dtpTime.text,#);
Query.open;
DELphi å¦ä½ç»åå符串
WLBH := StringOfChar('0', 4 - Length(WLLB)) + WLLB + StringOfChar('0', 4 - Length(WLPP)) + WLPP + StringOfChar('0', 4 - Length(WLGG)) + WLGG;
Delphi DBCombobox如何获取选项文本
先把代码写在combobox1的onchange事件里
Query.close;
Query.sql.text:=ConCat('select * from 备件 where 物料号 like ',#,'%',combobox1.text,'%',#,' and 名称 like ',#,'%',combobox2.text,'%',#);
if dtpTime.text<>'' then
Query.sql.text:=ConCat(Query.sql.text,' and 日期=',#,dtpTime.text,#);
Query.open;