delphi 怎么样删除一个用户

在界面中，有一个edit1控件和ADOquery1连接数据库，表名是denglu，用户字段对应是yh，密码对应字段是mm，想实现下列功能：输入一个用户账号，点击删除，首先肯定要查询表里面有没有这个用户，如果没有则提示没有该用户，如果有，这跳出一个密码框，要求输入密码，正确则删除，密码错误则提示错误并关闭窗口

答案：
原代码在这你看下！
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 with adoquery1 do begin
     close;
     sql.Clear;
     sql.Add('select*from denglu where yh='''+trim(edit1.Text)+'''');
     open;
     if adoquery1.RecordCount>0 then begin
         s:=InputBox('密码确认','请输入密码',s);
         with adoquery1 do begin
          close;
          sql.Clear;
          sql.Add('select*from denglu where yh='''+trim(edit1.Text)+'''and mm='''+s+'''');
          open;
              if adoquery1.RecordCount>0then begin
                    with adoquery1 do begin
                       close;
                       sql.Clear;
                       sql.Add('delete from denglu where yh='''+trim(edit1.Text)+'''and mm='''+s+'''');
                       execsql;
                       showmessage('删除成功！');
                   end;
              end else begin
                 showmessage('密码错误,请重新输入！');
              end;
         end ;
     end else begin
        showmessage('用户表中没有该记录,请重新输入！');
     end;
 end;
end;
if adoquery1.RecordCount>0 then begin
s:=InputBox('密码确认','请用户输入密码',s);
if(s<>'')then
begin
with adoquery1 do begin
close;
sql.Clear;
sql.Add('select*from denglu where yh='''+trim(edit1.Text)+'''and mm='''+s+'''');
open;
if adoquery1.RecordCount>0then begin
with adoquery1 do begin
close;
sql.Clear;
sql.Add('delete from denglu where yh='''+trim(edit1.Text)+'''and mm='''+s+'''');
execsql;
application.MessageBox('删除成功！','提示:',mb_ok);
form7.Close;
end;
end else begin
application.MessageBox ( '密码错误,请重新输入！','提示:',mb_ok);
end;
end ;
end else begin
application.MessageBox('用户表中没有该记录,请重新输入！','提示:',mb_ok);
end;
end;
end;
end;

上一个：DELPHI 7.0 编译问题
下一个：Delphi 7怎么编译