事件代码

Do form 1.scx 或 do 1.mpr Thisform.release Else

Wait “用户名或密码错误，重新输入!” window timeout 3 thisform.text1.value=”” thisform.text2.value=”” endif

查询

USE 仓库

A=alltrim(thisform.text1.value)

select * from 仓库 where 仓库号=A into cursor aa BROWSE USE

THISFORM.RELEASE 添加

Use 仓库

A=alltrim(thisform.text1.value) B= alltrim(thisform.text2.value) C= alltrim(thisform.text3.value) D=val(thisform.text4.value)

Insert into 仓库(仓库号,仓库名,城市,面积) values(A,B,C,D ) Use

Thisform.release 删除 use 仓库

A=alltrim(thisform.text1.value) delete for 仓库号=A use

thisform.release 修改

USE 仓库

A=alltrim(thisform.text1.value) B=alltrim(thisform.text2.value) C=alltrim(thisform.text3.value)

D=val(thisform.text4.value)

update 仓库 set 仓库名=B ,城市=C , 面积=D where 仓库号=A USE

THISFORM.RELEASE