要求很简单,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
一般简单的我会