我想通过这样的一个界面,点击注册把注册信息记录在表格 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