并非所有变量都已绑定

日期: 栏目:跨境 浏览:1790 评论:0

declare
cursor login (tuser Users.UserName%type,tpwd Users.UserPwd%type)
is
select * from Users
where UserName=tuser and UserPwd=tpwd;
loginrow login%rowtype;
begin
open login(:login.tuser,:login.tpwd);
fetch login into loginrow;
if login%found then
go_block('main');
message('登录成功');commit;
:login.tuser:='';
:login.tpwd:='';

:global.quanxian:=loginrow.quanxian;
:global.userno:=loginrow.userno;
:global.punish:=0;
else
message('对不起,用户名或密码错误,请重新输入');commit;
:login.tuser:='';:login.tpwd:='';
end if;
close login;
end;
并非所有变量都已绑定-第1张图片-Ceacer网络

评论留言

我要留言

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。发布前请先查看评论规则:点我查看