libman 图书管理系统 pb powerbulider

long ls_cert string ls_cname,ls_name,ls_depart integer ls_cid,ls_cvalue,ls_cflag if rb1.checked=true then ls_cname=rb1.text elseif rb2.checked=true then ls_cname=rb2.text else rb3.checked=true then ls_cname=rb3.text end if ls_name=sle2.text ls_cdepart=sle3.text ls_cvalue=sle1.text if rb4.checked=true then ls_cflag=0 elseif rb5.checked=true then ls_cflag=1 end if select CertificateInfo.Cert_id into: ls_cert from CertificateInfo where CertificateInfo.Cert_id=:ls_cid; insert into "CertificateInfo" ("cert_id", "cert_name", "cert_value", "name", "depart", "flag") values (:ls_cid, :ls_cname, :ls_cvalue, :ls_name, :ls_depart, :ls_flag); messagebox("证件管理","新增证件成功！") close(parent) ----------------------- long o_id set o_id = select max(cert_id) from CertificateInfo st_7.text="o_id+1"