我在sql sever 中建立了一个表有:用户名,用户密码两个属性。现在要做的是修改用户密码。在delphi中我用了一个combobox来供选择用户名,三个edit。一个是在你选择了用户名后,自动显示对应用户名的密码。一个是写新密码,另一个用来确认密码。请问如何实现上述功能?要原代码最好。谢谢。

解决方案 »

  1.   

    在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;
    修改密码后,再用类似的语句修改数据库表就可以了
      

  2.   

    update table1 set password='newpassword' where username='''+trim(edit1.text)+''''
      

  3.   

    combobox的onchange事件中写代码: 
      begin
        adotable1.active:=true;
        adotable1.Locate('md_usid',combobox1.items.text , [loPartialKey]);
        edit1.text:=adotable1.fieldbyname('password').asstring;
      end;