基于校园网的化学药品管理系统.DOC

基于校园网的化学药品管理系统 一、主程序 set default to c:\ypgl set talk off set century on set date to ymd set sysmenu to set sysmenu automatic zoom windows screen max modi windows screen noclose nofloat nogrow zoom nominimize title 化学药品管理系统; fill file cc1.bmp public yyy yyy=y do ppp define windows mywin at 0,0 size 27.5,105.5 in SCREEN; panel fill file cc1.bmp title★ 刘正岐 傅向东设计 ★ activate windows mywin zoom windows mywin max if yyy=y do ddd endif return procedure ppp passwords=ypgl form1=createobject(form1) form1.show() read event return define class form1 as form scalemode=3 top=80 left=250 height=120 wi