DBGRID组件显示问题

Question

菜鸟请教：左边是一个LISTVIEW组件，在该组件中显示可以选择的房间号码，右边是一个DBGRID组件，当在LISTVIEW中选择了房间号码后，在DBGRID中就显示被选择的房间号码、房间价格，可以给出具体代码示例吗，谢谢。

Answer 1

用adoquery或query
房间号no
dbgrid.datasource.dataset.close;
dbgrid.datasource.dataset.sql.text := 'select * from house where no = ' + quotedsrt(no);
dbgrid.datasource.dataset.open;

Answer 2

在LISTVIEW的CLICK事件内写
adoquery.sql.text:='select * from table1 where 房间号='+''''+listview.selected+'''';
adoquery.open;我没有测试，楼主自己试试~。

Answer 3

s:string;
s;=select 房间号码 房间价格 from 你的表 wehere 房间号码=strtoing(listview.selectd)adoquery.sql.clear;
adoquery.sql..add(s);
下面是标准的查询语句，我给往了，你自己查书看看adoquery.open;

Answer 4

若开始ADOQuery1之SQL为select * from tbl
在ListView的OnClick事件内写
...
  AdoQuery1.Filtered := false;
  AdoQuery1.Filter := 'RoomId=' + ListView1.Selectd; {假设其为整型}
  AdoQuery1.Filtered := true;
...

Answer 5

根据大家的意思我写了如下代码，可是不知道哪里错误，请大家指正：
procedure TGuest_Wel.BitBtn1Click(Sender: TObject);
var
  lt1:TListItem;
begin
lt1:=LV_ROOM.Selected;
  with DataModule1.ShareQuery do
  begin
     close;
     SQL.text:= 'select * from R_Code where Rc_Code='+lt1;
     Open;
     LV_ROOM.Selected.Delete;
  end;
end;

Answer 6

程序已经可以运行了，可是在DBGRID中根本无法显示所选择的房间号码，大家可以告诉我如何做吗？
procedure TGuest_Wel.BitBtn1Click(Sender: TObject);
var
  lt1:TListItem;
begin
lt1:=LV_ROOM.Selected;
  with DataModule1.ShareQuery do
  begin
     close;
     SQL.text:= 'select * from R_Code where Rc_Code='+lt1.caption;
     Open;
     LV_ROOM.Selected.Delete;
  end;
end;

Answer 7

procedure TGuest_Wel.BitBtn1Click(Sender: TObject);
var
  lt1:TListItem;
begin
lt1:=LV_ROOM.Selected;
  with DataModule1.adoCr1 do
  begin
     close;
     commandtext:= 'select * from R_Code where Rc_Code='+lt1.caption;
     Open;
     LV_ROOM.Selected.Delete;
  end;
end;

Answer 8

SQL.TEXT的值经过测试是正确的。

Answer 9

我想问一下 关于这个问题是不是可以加一个Tquery组件，然后在Tquery里设置查找sql语句.然后在LISTVIEW里搞个刷新的东西,就是当LISTVIEW更新的时候dbgrid也会自动刷新,我是菜鸟,我不懂的,大家不要取笑啊.