现在有两个表 a和b
a表结构:
account user
管理 张三
经济 张三
经济 李四
. .
. .
. .
b表结构:
user pwd department
张三 1 行政室
李四 2 行政室
. . .
. . .
. . .
现在在一个combox中选择一个account,另一个combox就会显示可以使用这个account的所有user,请问这个代码该怎么写???
a表结构:
account user
管理 张三
经济 张三
经济 李四
. .
. .
. .
b表结构:
user pwd department
张三 1 行政室
李四 2 行政室
. . .
. . .
. . .
现在在一个combox中选择一个account,另一个combox就会显示可以使用这个account的所有user,请问这个代码该怎么写???
解决方案 »
- 求算法,PLC梯形图向语句转换
- 关于chart自身坐标与屏幕坐标的问题 急~(刚才的发错版块了 不好意思)
- 怎样检测系统中有没有摄像设备、设备是否已打开?
- 调用WinRAR命令时,如何得知rar压缩文件已经完成?
- 报表问题,分不够留言时讲一声,我在给
- 这个是什么错误?(本来洋文很成问题,请高手指点。)
- 我做的一个程序,同时装在几台WIN98的机器上,其中有一台运行时显示‘2003-5-5’为非法日期,而其它的则运行正常,。。。。
- 怎样设 TStringList 对象的大小?
- 奇耻大辱!!!!!!!!(所有华人的耻辱)
- 一个关于IE历史操作的问题
- 求delphi声音采集程序
- 关于报表中日期显示的问题
在ComboBox1的onChange事件中写入:procedure TForm1.ComboBox1Change(Sender: TObject);
begin
with ComboBox1 do begin
if Text<>'' then begin
Items.Clear;
with adoquery2 do begin
close;
sql.Text:='select * from 表2 where user in(select user from 表1 where account='+QuotedStr(ComboBox1.Text)+')';
open;
while not eof do begin
ComboBox1.Items.Add(FieldValues['user']);
next;
end;
end;
end;
end;
end;
select user from a where account = 选择的account
2.需要用户详细信息
select b.* from a left join b on a.user = b.user
where account = 选择的account
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select distinct fact from faccount');
adoquery1.open; adoquery1.first;
combobox1.Clear;
while not adoquery1.eof do
begin
combobox1.Items.add(adoquery1.fields[0].asstring);
adoquery1.Next;
end;
combobox1.itemindex:=1;
一会结贴了 !!!!