大家帮帮忙

Question

怎样象QQ那样制作一个密码修改功能
用sql语句连接
procedure TForm3.Button1Click(Sender: TObject);
begin
query1.close;
query1.ParamByName('t_name').Value:=edit1.Text;
query1.Open;
if query1.FieldByName（'password'）.Value=edit2.Text
后面怎么写啊？？

Answer 1

if (table1.FindKey([Edit4.text])) and  (Edit1.text=table1.FieldByName('密码').asstring) and (Edit2.text=edit3.text) then
 begin
 if (edit2.Text='') or (edit3.Text='') then
 Application.MessageBox('请输入新密码!','重要提示!', 0)
 else
 begin
 table1.edit;
 //table1.FieldByName('用户名').asstring:=Edit4.Text;
 table1.FieldByName('密码').asstring:=Edit2.Text;
 table1.post;
 table1.Refresh;
 Application.MessageBox('★密码已修改★※','重要提示!', 0);
 table1.Active:=false;
//close;
 end;
 end
else
Application.MessageBox('用户名或密码错误！','错误信息提示', 0);
给你个例子，把table换成query 你自己整理吧