PB中怎么记录注册信息

PB中如何记录注册信息
    我想通过这样的一个界面，点击注册把注册信息记录在表格 UserInfo(ID,UserName,PassWord)中，请问这个可以怎样实现？

// Profile SIMS001
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=SIMS001;UID=sa;PWD=123456'"
connect using SQLCA;
string userName
userName=trim(sle_username.text)
string passWord
passWord=trim(sle_password.text)
//假设userName不为空且不与数据库原有的UserName重复，passWord不为空
------解决方案--------------------

//定义一个变量 ll_id 作为 你新增记录的ID
long ll_id
string ls_error
//获取新的ID值
//自己打代码获取，因为不知道你用的什么数据库，ID值怎么设置的
insert into Userinfo
  (ID, UserName, PassWord)
values
  (:ll_id, :userName, :passWord);
ls_error = sqlca.sqlerrtext
if sqlca.sqlcode <> 0 then
     rollback;
     messagebox("提示","注册失败!~n"+ls_error)
else
      commit;
      messagebox("提示","注册成功!")
end if