ComboBox 连接数据库条件查询问题!麻烦各位费心了!

Question

如图 我要做到选择左边ComboBox选项一个部门  右侧 DBGrid 就只显示哪一个部门全部人员
我用的是paradox7数据库！
希望能给出代码  所有分相送！

Answer 1

看你用的什么样的DataSet控件了。Table？Query？

Answer 2

定义个 Tstrings
用来保存相应的ID，

Answer 3

http://hiphotos.baidu.com/%BA%DA%C6%EF%D2%E3%BB%A4/pic/item/958361187f4b481634fa417e.jpg
用的是Table控件!!

Answer 4

和数据库没什么太大关系的.我用的sqlserver
create table dept(deptno int,deptname varchar(100))
insert into dept values(1,'人事');
insert into dept values(2,'行政');
insert into dept values(3,'其它');create table users(userid int,uname varchar(10),deptno int);
insert into users values(1,'张三',1);
insert into users values(2,'李四',1);
insert into users values(3,'王二',2);
insert into users values(4,'孙五',2);
insert into users values(5,'钱大',3);procedure TForm1.FormShow(Sender: TObject);
begin
  with adoquery2 do
  begin
    close;
    sql.text := ' select deptname from dept order by deptno';
    open;
    combobox1.Items.Clear;
    while not eof do
    begin
      combobox1.Items.Add(fields[0].asstring);
      next;
    end;
  end;
end;procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  with adoquery1 do
  begin
    close;
    sql.text := ' select userid,uname,deptname from users a,dept b'+
                ' where a.deptno=b.deptno and deptname='''+trim(combobox1.Text)+'''';
    open;
  end;
end;

Answer 5

我用的是Table控件!!希望高手能解答
看不要图的看下面 谢谢！
http://hiphotos.baidu.com/%BA%DA%C6%EF%D2%E3%BB%A4/pic/item/958361187f4b481634fa417e.jpg 
http://hiphotos.baidu.com/%BA%DA%C6%EF%D2%E3%BB%A4/pic/item/9eafb1f426f7fec8f2d38584.jpg

Answer 6

数据源控件用Query的代码（重建SQL查询）procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := Format('select * from 表 where 字符串字段=''%s''', [Combobox1.Items[Combobox1.ItemIndex]]);
  Query1.Open;
end;

Answer 7

lihuasoft  先谢谢你  但是我用的Table控件该怎么写代码呢？

Answer 8

所以我要问你用的什么控件。上面我和zxf_feng（阿日）写的代码都是用的重建SQL查询。对TTable我不太熟悉，爱莫能助。等楼下回答吧。

Answer 9

请问用Filter如何写呢？？昨天我这停电了！！

Answer 10

  adotable2.Filter := 'deptno=1';
  adotable2.Filtered := true;别用table控件了,改成query控件得了.

Answer 11

其实我也想改控件  但是改了table要改的就都要从做了，我刚学delphi 很多都不是很懂
这看一点那问一点才做到这种程度  一旦改了  很多就要全改了  
不过我会考虑看看的  谢谢~

Answer 12

combobox的OnChange事件里面写SQL查询出要显示出来的就可以了.