密码修改界面

Question

老师要求我们自己写一个系统，用delphi写，就半个月，老师也就教了我们一个月，所以
对里面的控件还是很陌生，迫不得已请教各位同仁，希望得到你们的帮助！
问题：
我要从oracle服务器的数据库的表Account1416中检索出所有的账号accountNo1416和密码password,将其检索在DBListBox中.要求：
账号的子项显示密码，然后当单击某一个账号时，在DBListBox中的右边显示出账号及相应的密码。同时，能够修改这个账号的密码，请问这个怎么实现，
告诉我怎么做，当然有代码更好，再次感谢了。

Answer 1

首先是连接oracle数据库，可以用Oracle Access控件读取表
Self.OraQuery6.Close;
Self.OraQuery6.Connection:=Self.OraSession1;
Self.OraQuery6.SQL.Clear;
Self.OraQuery6.SQL.Add('select * from Account1416');
self.OraQuery6.Open;
while not self.OraQuery6.Eof do
begin
  user:=self.OraQuery6.FieldByName('accountNo1416').asstring;
  passwd:=self.OraQuery6.FieldByName('password').asstring;
  //添加到dblistbox中你自己写吧
  self.OraQuery6.Next;end;
//修改密码Self.OraQuery6.Close;
Self.OraQuery6.Connection:=Self.OraSession1;
Self.OraQuery6.SQL.Clear;
Self.OraQuery6.SQL.Add('update Account1416 set passwd=:s1 where accountNo1416=:s2');
self.OraQuery6.Params.ParamByName('s1').Value:=你修改密码的账号;
Self.OraQuery6.Params.ParamByName('s2').Value:=修改后的密码;
self.OraQuery6.ExecSQL;

Answer 2

Self.OraQuery6.Close;
Self.OraQuery6.Connection:=Self.OraSession1;
Self.OraQuery6.SQL.Clear;
Self.OraQuery6.SQL.Add('select * from Account1416');
self.OraQuery6.Open;
while not self.OraQuery6.Eof do
begin
  user:=self.OraQuery6.FieldByName('accountNo1416').asstring;
  passwd:=self.OraQuery6.FieldByName('password').asstring;
  self.DBListBox1.Items.Add(user+'|'+passwd);
  self.OraQuery6.Next;end;完全可以使用普通listbox嘛

Answer 3

等了半天，就一个好心人回答我，尽管我没用了listbox，你那好像不！