Question

delphi 向数据库中添加内容

有组件edit1 edit2 数据库adoquery1，现在想往数据库中添加一个用户，该怎么添加。用户名对应字段为yh 密码对应字段为mm，表名字是denglu，希望实现下列功能，如果用户密码有空的，提示不能为空，如果添加的用户名在表中已经有的了，则提示有重复了不能添加，如果没这些，则把数据添加进去，并提示添加成功最好也写下修改密码的代码有原密码，然后一个新密码，一个确认新密码。。

Answer 1

if trim(edit2.text)='' then
begin
showmessage('密码不能为空');
exit;
end;
with adoquery1 do
begin
sql.text := 'select 1 from denglu where yh='+trim(edit1.text);
open;
if fields[0].AsInteger>0 then
begin
showmessage('有重名用户');
exit;
end;
sql.text := 'insert into denglu(yh,mm) values('''+trim(edit1.text)+''','''+trim(edit2.text)+''')';
ExecSQL;
showmessage('添加成功');
end;

以上代码未经调试，你可以调试下