怎将注册的数据自动写下数据库的一个表里面

怎将注册的数据自动写入数据库的一个表里面
string zh
string passid,pass,newpass
string err

passid=sle_1.text
pass=sle_2.text
newpass=sle_3.text


err=""
if passid="" then
err="帐号设置不能为空!~n"
end if
if pass="" then
err=err + "密码设置不能为空!~n"
end if
if newpass="" then
err=err + "重复密码不能为空!~n"
end if
if pass<>newpass then
err=err+"密码和重复密码不同，请重新输入!~n"
sle_2.text=""
sle_3.text=""
end if
if err<>"" then
messagebox("错误警告!",err)
return
end if

select "name"
into :zh
from yonghu
using sqlca;

if zh=passid then
messagebox("系统警告：","此用户ID已经存在，请重新输入!")
sle_1.text=""
return
end if
INSERT INTO yonghu (zh,mm )  
  VALUES ( :passid,  pass)  
  using sqlca;

messagebox(",","新用户注册成功！")
这是注册代码
我想做个登陆注册想把注册信息生成在数据库中，然后可以等陆
求大神们帮忙
------解决方案--------------------
INSERT INTO yonghu (zh,mm )  
  VALUES ( :passid,  pass)  
  using sqlca;
if sqlca.sqlcode=-1 then 
  messagebox('',sqlca.sqlerrtext)
else
  commit;
messagebox('','快看,成功了!')
end if