DBGrid和DataSource绑定,DataSource和Query绑定,
通过Query查询数据就可以了。
通过Query查询数据就可以了。
解决方案 »
- 怎么办……怎么办……delphi新手……
- 圆内排列随机个正方形
- 现在盗版越来越难找了。求addin express 2008 2009或 2010 for vcl (Delphi)
- delphi什么函数能判断一个字符串包含在另一字符串中(要能判断中文字符串)?
- 关于悬浮窗口
- 有没有人会用IdDayTimeServer或IdDayTimeUDPServer
- 谁有flatstyle for delphi7的控件(是一组纯平控件)?
- 调用外部exe程序,如何知道程序是否正常结束呢?
- 关于Number类型出错问题,高手请进!
- 求高效的查询算法和较为完整的解决方案
- DELPHI各个版本有何区别,个人版支不支持BDE
- 在图象上面标注的问题(急,在线等,100分)
如果你用TTable,也一样的DBGRID会自己刷新结果集的
看看例子吧
//查询操作
if da.ds_dhd.active<>false then
da.ds_dhd.active:=false;
da.ds_dhd.CommandText:='select * from dhd '
+' where (dh like :dhzt) '
+' and(Ghdw like :ghdw) '
+' and(lxr like :lxr) '
+' and(czy like :czy) ';
da.ds_dhd.Parameters.ParamByName('dhzt').Value:=DHZT;
da.ds_dhd.Parameters.ParamByName('ghdw').Value:=GHDW;
da.ds_dhd.Parameters.ParamByName('lxr').Value:=LXR;
da.ds_dhd.Parameters.ParamByName('czy').Value:=CZY;分//击活
da.Ds_DHD.Active:=true;
那把readonly设为true
那把readonly设为true
var
s:string;
begin
with dm.query1 do begin
s:='%'+combobox1.text+'%';
close;
sql.clear;
sql.add('select * from tableaaaa where xxxxx like '''+s+'''');
open;
end;
//查询操作
if da.ds_dhd.active<>false then
da.ds_dhd.active:=false;
da.ds_dhd.CommandText:='select * from dhd '
+' where (dh like :dhzt) '
+' and(Ghdw like :ghdw) '
+' and(lxr like :lxr) '
+' and(czy like :czy) ';
da.ds_dhd.Parameters.ParamByName('dhzt').Value:=DHZT;
da.ds_dhd.Parameters.ParamByName('ghdw').Value:=GHDW;
da.ds_dhd.Parameters.ParamByName('lxr').Value:=LXR;
da.ds_dhd.Parameters.ParamByName('czy').Value:=CZY;
da.Ds_DHD.Active:=true;
Query1.DatabaseName:=WorkDir;
Query1.SQL.Add('select * from Mbde');
DataSource1.DataSet := Query1;
Query1.Active := true;
DbGrid1.DataSource :=DataSource1;
DbGrid1.Columns[0].FieldName:='deh';
DbGrid1.Columns[1].FieldName:='MbDeh';
DbGrid1.Columns[2].FieldName:='DeName';
DbGrid1.Columns[3].FieldName:='MbJcmj';
Query1.Close();
Query1.SQL.Clear();
Query1.SQL.Add('select * from Mbde');
DataSource1.DataSet := Query1;
Query1.Active := true;
DbGrid1.DataSource :=DataSource1;
DbGrid1.Columns[0].FieldName:='deh';
DbGrid1.Columns[1].FieldName:='MbDeh';
DbGrid1.Columns[2].FieldName:='DeName';
DbGrid1.Columns[3].FieldName:='MbJcmj'
出现意想不到的结果.
Query1.DatabaseName:=WorkDir;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from Mbde');
DataSource1.DataSet := Query1;
Query1.open;//这样写是不是好些.
DbGrid1.DataSource :=DataSource1;
DbGrid1.Columns[0].FieldName:='deh';
DbGrid1.Columns[1].FieldName:='MbDeh';
DbGrid1.Columns[2].FieldName:='DeName';
DbGrid1.Columns[3].FieldName:='MbJcmj'