附件: 您所在的用户组无法下载或查看附件//函数 lock
string ls_computername
Registryget("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName","ComputerName",RegString!,ls_computername)
INSERT INTO dlock (crydm,cjqm) VALUES (s_rydm, :ls_computername);
if sqlca.sqlcode <> 0 then
        ROLLBACK USING SQLCA;
        return false
else
        COMMIT USING SQLCA;
        return true
end if
调用该函数：        if of_add_flock(gs_rydm,ls_computername) = false then
                  ............................
                                end if
出错

保证
of_add_flock(gs_rydm,ls_computername)
返回的是布尔型