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!
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 ls_flag = '1' then //如果flag字段值为'1'ls_dh = dw_1.object.dh.dh[i] //取这一行dh字段的值(此处是不是代码拷贝错了?不可能出现dh.dh)//更新表gdzc_info,把表中字段dh等于本行dh值的数据,设置shzt列 = '1'update gdzc_infoset shzt = '1'where dh = :ls_dh ;if sqlca.sqlcode ...
DB2命令参数选项Db2list command options 可以查看 -a 显示 SQLCA OFF -c 自动落实 ON -e 显示 SQLCODE/SQLSTATE OFF -f 读取输入文件 OFF -l 将命令记录到历史文件中 OFF -n 除去换行字符 OFF -o 显示输出 db2 语法表 db2 数据库 table database ...
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...