PB创建系统操作日志，插入操作日志表（optlog）失败，求助

string ls_user,ls_pass,ls_passdata,ls_no
integer li_count

ls_user = trim(sle_user.text)
ls_pass = trim(sle_pass.text)

if isnull(ls_pass) then ls_pass = ""

select count(*) into :li_count from 用户清单 where 姓名 =:ls_user;
if li_count < 1 then
messagebox("提示信息","请输入正确的用户名！")
sle_user.setfocus()
return
end if
//查询密码以及一些别的有用数据
select 密码 into :ls_passdata from 用户清单 where 姓名 =:ls_user;
if isnull(ls_passdata) then ls_passdata = ""
if ls_pass <> trim(ls_passdata) then
messagebox("提示信息","请输入正确的密码！")
sle_pass.setfocus()
return
end if
gs_username = ls_user
//
if li_count > 0 then
gs_userid = sle_no.text

//Close(parent)
insert into OptLog(ActName, LogID)
values('系统登录', :gs_userid)
;
commit;

select Max(recordid) into :gl_recoredid
from OptLog
;
open(w_main)
//Open ( w_blackplum_frame )

end if

//closewithreturn(parent,"login")

不成功，但是跟踪不出异常，不知道为啥，请高手指点一二

你这编程习惯不好，内嵌SQL语句后要加上判断，这样更有助于查找问题，比如：
If SQLCA.SQLCODE < 0 Then
MessageBox("提示","出错!~r~n" + SQLCA.SQLErrText
Return
End If

有的查询还可判断SQLCA.SQLCODE=100的情况

试试看。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息