1111

来自「这是用PB开发语言开发的一个小型图书管理系统」· 代码 · 共 16 行

insert into G_type
values(:d,:c);
insert into g
values(:a,:b,:c,:f);
insert into p_g
values(:k,:e,:a,:g,:j);
select sid into :ss from store
where gid=:a;
if ss<>"" then
update store
set quantity=quantity + :g
where gid=:a;
else 
insert into store
values(:a,:h,:g);
end if