DBGrid和DataSource绑定,DataSource和Query绑定,
通过Query查询数据就可以了。
通过Query查询数据就可以了。
解决方案 »
- 如何将EDIT控件设置成LABEL控件一样,使其无法被选择,禁用焦点,禁用光标?
- 执行Dataset.Insert;方法之后 未提交前 如何得到插入的位置
- 各位师兄 小弟不知道如何让edit框中的文字(文字稍多时)自动缩小字体以填满整个编辑框 请指教
- 如何用IHTMLDocument2修改网页源代码再显示?
- 我以前是学C++的,由于工作需要要转学Delphi,请各位老鸟给点建议
- 改变已有的excel表格式,怎么操作excel表
- 关于Tmessage的一个问题,有兴趣的请……
- 一個奇怪的問提
- !!!请问各路高手:MDI窗体运行时,如何保存子窗体?
- 怎样知道当前窗口是那个EXE文件运行时创建的?
- 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'