管理信息系统案例第8章_图文.pptVIP

8.5 系统主要界面与核心代码 ⒉ 库存查询 string storage,brief,typename1,typename2 long typeid brief=trim(tab_1.tabpage_1.sle_1.text) storage=trim(tab_1.tabpage_1.ddlb_1.text) typename1=trim(tab_1.tabpage_1.ddlb_2.text) select DRUG_TYPE_ID into:typeid from DRUG_TYPE where DRUG_TYPE.DRUG_TYPE_NAME=:typename1; string typename long typeno reset (tab_1.tabpage_1.ddlb_3) declare name cursor for select DRUG_TYPE.DRUG_TYPE_ID,DRUG_TYPE.DRUG_TYPE_NAME from DRUG_TYPE where DRUG_TYPE.DRUG_TYPE_PARENTID =:typeid; open name; fetch name into :typeno,:typename; 参考文献 1.陈承欢. 信息系统应用与开发案例教程[M]. 北京:清华大学出版社, 2008. 2.陈娴, 雒海涛.