主程序.txt

本人用VFP做成的家电信息管理系统

欢迎界面"动态画面"设置
if thisform.label1.left=thisform.width
       thisform.label1.left=0
else 
       thisform.label1.left=thisform.label1.left+2
endif
i=int(rand()*255)
j=int(rand()*255)
k=int(rand()*255)
thisform.label2.forecolor=rgb(i,j,k)


欢迎界面"进入"按钮
do form password

登录界面"确定"按钮
if thisform.text1.value="123456"
	thisform.release
	do form main
else
	thisform.text1.value=""
	thisform.text1.passwordchar=""
	thisform.text1.value="密码错误！请重输。"
	=inkey(2,"h")
	thisform.text1.value=""
	thisform.text1.passwordchar="*"
	thisform.text1.setfocus
endif


浏览商品基本信息
use jb
browse noedit
use

浏览商品具体信息
use js
browse noedit
use

浏览商品库存信息
use 表13
browse noedit
use

商品信息维护
do form 12


库存信息查询
do form 库存查询
locate all for 表13.商品编码= thisform.combo1.value 
thisform.grd表13.recordsource="select 商品编码,商品名称,商品型号,商品类型,当前库存 from 表13 where 表13.商品编码=alltr(thisform.combo1.value) into cursor grd表13"
thisform.grd表13.refresh
thisform.refresh


库存信息维护
do form 表单13


需要进货商品
use 表13
display for 当前库存< 警戒低库存 fields 商品编码,商品名称,商品型号,当前库存,警戒低库存
use

新进商品类型进货添加
do form 入库添加

原有商品类型进货添加
do form 表单13


输出商品基本信息报表
report form 报表jb

输出商品具体信息报表
report form 报表js

输出商品库存信息报表
report form 报表库存


商品入库"添加"按钮
bianma=alltrim(thisform.txt1.value)
mingch=alltrim(thisform.txt2.value)
xinghao=alltrim(thisform.txt3.value)
leixing=alltrim(thisform.txt4.value)
shuliang=val(thisform.txt5.text)
use 表13
append blank
replace 商品编码 with bianma 
replace 商品名称 with mingch
replace 商品类型 with leixing 
replace 当前库存 with shuliang
use


退出
do form 退出画面

labelt='label'+str(num,1)+'.top'
if thisform.&labelt<= top+20
thisform.&labelt=top
num=num+1
if num=5
thisform.timer1.enabled=.f.
num=1
endif
return
endif
thisform.&labelt=thisform.&labelt-20