十万火急 请帮帮我 ( 积分: 200 )

表A 表B
dwh(单位号） dwm（单位名） id(用户号） username(用户名） dwh(单位号)


DBLookupComboBox1与a.dwh连接 DBLookupComboBox2与b.id相连
让用户先择DBLookupComboBox1中的单位后，DBLookupComboBox2就只显示这个单位的用户。

procedure TForm1.DBComboBox2Enter(Sender: TObject);
var qry:tadoquery;
begin
qry:=tadoquery.create(nil);
qry.Connection :=ADOConnection1;
qry.SQL.Text :='select id,username from b where b.dwh='+quotedstr(DBComboBox1.text);
qry.open;
DBComboBox2.Items.Clear;
while not qry.eof do
begin
DBComboBox2.Items.Add(qry.fieldbyname('id').AsString);
qry.next;
end;

end;

建立主从关系表，表A为主，表B为从

DBLookupComboBox2根据DBLookupComboBox1的选择值查询结果作为DBLookupComboBox2数据源！

http://www.51zhan.com 最好的网址站
http://www.51zhan.com 最好的网址站
http://www.51zhan.com 最好的网址站