怎样自动显示主表内容？？？？（区是菜鸟）(50分)

Y

yippee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-27

• #1

我建了一个表‘部门’，内容是：部门，人员；
用Listbox输入人员名字：张三，李斯。张三属于科技部，李斯属于劳人部；
用DBEdit连接‘部门’表中的‘部门’；
我相当鼠标点击‘张三’时，DBEdit自动显示‘科技部’。
请问个位大侠，该怎样实现呢？

 

Y

yippee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #2

我用的是：DBedit呀， table的方法可能不行把

 

Y

yippee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #3

更正：
我用的是DCOM连接，clientdataset,datasource
没有用table，是不是应该有类似
DBEdit.text:=...什么的

 

X

xushucheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #4

用 SQL 查询吧:
procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;name,sql:string;
begin
for i:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected then name:=ListBox1.Items
sql:='select 部门 from table_name where 人员='+name;
//用 Query 执行
DBEdit.text:=Query.fields[0].asstring;
end;

 

X

xushucheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #5

用 SQL 查询吧:
procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;name,sql:string;
begin
for i:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected then name:=ListBox1.Items
sql:='select 部门 from table_name where 人员='+name;
//用 Query 执行
DBEdit.text:=Query.fields[0].asstring;
end;

 

D

dq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-28

• #6

用ClientDataSet和用Table是一样的啊：
只要把DBEdit的DataSource指向你的TDataSource控件，
然后DataField指向正确的字段（“部门”），
并且DataSource控件的DataSet指向TClientDataSet控件不就行了？

btw：我的上一条信息（404634）怎么没了？？

 

Y

yippee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-04

• #7

to :dq
我也不知道呀，赫赫。
各位，这几天有事，偷懒了，今天才回来
各位的意见，我先试试。
还望各位多多指教！

 

Y

yippee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-06

• #8

多人接受答案了。