pb中的elseif要连起来写 select username into:l_s_username from U_YHCS WHERE username=:g_s_username AND password=:g_s_password; if SQLCA.sqlcode = 100 then messagebox("提示信息","用户名或密码错误!") return elseif SQLCA.sqlcode < 0 then MessageBox("提示信息",SQLCA.SQLerrText,Exclamation!
if sqlca.sqlcode = 0 then//如果更新成功,不处理,sqlcode = 0表示执行成功else //如果更新失败rollback; //取消更新rollback表示回滚事务,取消先前的数据库操作messagebox('','审核错误!') //弹出提示框,提示审核错误return //停止程序的执行,return后,程序不会再继续执行.end ifend ifnextcommit ; //确认...
pb中的elseif要连起来写 pb中的elseif要连起来写 select username into:l_s_username from U_YHCS WHERE username=:g_s_username AND password=:g_s_password; if SQLCA.sqlcode = 100 then messagebox("提⽰信息","⽤户名或密码错误!")return elseif SQLCA.sqlcode < 0 then MessageBox("提⽰...
if SQLCA.sqlcode 0 thenMessageBox("提示信息",SQLCA.sqlerrtext)else messagebox("提示","添加成功")dw_rmain.settransobject(sqlca)ls_filter="(登录名='"+ lgname+"') and (消费日期=string(datemain))" dw_rmain.setfilter(ls_filter)dw_rmain.retrieve(1)return...