delphi中ComboBox实现一个简单功能

来源：百度知道 编辑：UC知道 时间：2024/06/21 12:17:20
ComboBox中有1，2，3，4四个选项。我想把ComboBox跟一个dbgrid链接。当下拉框选择1时，dbgrid中某个字段的值为1的全部记录显示在dbgrid中。同理选择2时dbgrid中某个字段的值为2的全部记录显示在dbgrid中.
这个功能如何实现？谢谢了

需要四个控件

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我..