要求很简单，text1里输入表中的姓名，（表的名字为职工表），text2里输入对应的工号就进入另外一个表单，库存管理.scx,帮忙把按钮的代码写一下吧
* “登陆”的click代码
* use 职工表 && 如果前面未打开表，就把前面的“*”去掉
xm=alltrim(thisform.text1.value)
mm=alltrim(thisform.text2.value)
select 职工表
locate for alltrim(姓名)==xm AND alltrim(工号)==mm
if found()
thisform.release && 释放登陆表单
do form 库存管理
else
messagebox("姓名或密码不对，重新输入")
thisform.text2.value="" && 清空密码
thisform.text1.setfocus && 姓名框获得焦点
endif追问
* use 职工表 && 如果前面未打开表，就把前面的“*”去掉
xm=alltrim(thisform.text1.value)
mm=alltrim(thisform.text2.value)
select 职工表
locate for alltrim(姓名)==xm AND alltrim(工号)==mm
if found()
thisform.release && 释放登陆表单
do form 库存管理
else
messagebox("姓名或密码不对，重新输入")
thisform.text2.value="" && 清空密码
thisform.text1.setfocus && 姓名框获得焦点
endif追问
最近在做vf的课程设计，可是什么都不会，还有好多问题。我在一个表单上添加了一个表格控件，为什么只要一点运行，表格里就会有打开的表呢？还有要设计一个程序，要求：按状态查询，结果显示在表单的一个控件上，按钮的代码怎么写
我也在学习，有的会有的不会。在知道中一起探讨吧！
追问有一个“订单”表，其中一个字段为“状态“，要按状态查询并要把查询结果显示在表单的一个控件上，代码怎么写，我主要是不会显示
追答SQLX="select * form 订单 where 状态??? into cursor cursor1"
thisform.grid1.recordsourcetype= 4
thisform.grid1.recordsource=&SQLX
*我试了一下，好像行
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-12-26
一般简单的我会
