在combobox的onchange事件中写代码: with adoquery1 do begin close; sql.clear; sql.add('select * from table1 where username='+quotedstr(combobox1.text)); open; if not eof then edit1.text:=trim(fieldbyname('password').asstring); end; 修改密码后,再用类似的语句修改数据库表就可以了
update table1 set password='newpassword' where username='''+trim(edit1.text)+''''
combobox的onchange事件中写代码: begin adotable1.active:=true; adotable1.Locate('md_usid',combobox1.items.text , [loPartialKey]); edit1.text:=adotable1.fieldbyname('password').asstring; end;
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from table1 where username='+quotedstr(combobox1.text));
open;
if not eof then
edit1.text:=trim(fieldbyname('password').asstring);
end;
修改密码后,再用类似的语句修改数据库表就可以了
begin
adotable1.active:=true;
adotable1.Locate('md_usid',combobox1.items.text , [loPartialKey]);
edit1.text:=adotable1.fieldbyname('password').asstring;
end;