delphi中ComboBox实现一个简单功能
发布网友
发布时间：2022-04-11 04:30
共1个回答
热心网友
时间：2022-04-11 05:59
ComboBox, dgbrid, AdoQuery(这里选用Ado组件,常用点), DataSource
首先设定好dbgrid的属性.
dbgrid.DataSource 设为 你的Datasource.
DataSource的Dataset属性设为 Adoquery.
下面你就可以在Combobox的onchange事件中这么写
if Combobox.Text='' then exit;
Adoquery1.close;
Adoquery1.sql.text:='select * from yourtable where 字段='''+Combobox1.Text+'''';
Adoquery1.open; //同时dbgrid会显示你查出来的值了..
都是手写的,,可能哪儿有点小错什么的,你可以调试下,不懂hi我..
