额，总算是做完，最后一个问题了，

我的查询这里出了问题，

我用的grid控件，把查询结果显示在这个控件中，单独执行这个表单查询的数据能正常返回，但是连编后执行就不行了，查询返回为空白，我想可能是没有关闭数据表的原因，但是我这些数据表只有单一的grid控件调用，没有其他调用



这是进入这个可查询界面前的最后一个按钮的代码，在主程序中用的是Pageframe控件。
hide window screen &&隐藏vf主窗口
*判断密码是否正确


i=i-1

locate all for alltrim(thisform.text1.value)==alltrim(yonghu.用户名)
DO CASE
CASE i>=1 and found() and alltrim(thisform.text2.value)==alltrim(yonghu.密码)
use
Do form .\main\cxzjm.scx &&调用程序主界面
thisform.release

CASE i>0 AND NOT FOUND()

MESSAGEBOX("密码错误,请重输!","警告")
THISFORM.Text1.Value=""
THISFORM.Text2.Value=""




CASE i=0
MESSAGEBOX("禁止进入系统!","警告")
THISFORM.Release
quit
ENDCASE

[此贴子已经被作者于2007-4-20 13:33:34编辑过]

额，确实是这个问题，嘿嘿，搞定了，谢谢啊

可是我又发现一个问题，我点添加新记录的时候出现”不能更新临时表“

按钮代码：

SELECT xsjl
APPEND BLANK
GO BOTTOM

THISFORM.REFRESH

怎么回事呢。

这个数据我是关联了的，我现在知道是怎么回事了。

我的进入主界面的按钮设置了2个事件一个是按下回车，一个是鼠标点击。我只在其中一个中用了use，我现在改过来了，就好了。

但是还有个问题，就是我设置了在grid中显示鼠标选中的行的颜色，原来的数据都能正常显示颜色，这个新添加的数据就不会改变颜色。

grid控件的afterrowcolchange事件代码为：

This.SetAll("DynamicBackColor","IIF(This.ActiveRow<>RecNo(),RGB(255,255,255),RGB(0,255,0))","Column")

还有，还有，就是1楼的那段代码貌似有问题，我故意输错密码验证代码的时候发现，这个“密码错误,请重输!”是不会显示的，只有最后那个退出系统。

我看了半天也没看出哪有问题

locate all for alltrim(thisform.text1.value)==alltrim(yonghu.用户名)
locate all for alltrim(thisform.text2.value)==alltrim(yonghu.密码)

DO CASE
CASE i>0 and found() and alltrim(thisform.text2.value)==alltrim(yonghu.用户名).and.alltrim (thisform.text1.value)==alltrim(yonghu.密码)
close all
Do form .\main\cxzjm.scx &&调用程序主界面
thisform.release

CASE i>0 AND NOT FOUND()

MESSAGEBOX("密码错误,请重输!","警告")
THISFORM.Text1.Value=""
THISFORM.Text2.Value=""
THISFORM.Text1.Setfocus &&焦点指向text1


CASE i=0 AND NOT FOUND()

MESSAGEBOX("禁止进入系统!","警告")
THISFORM.Release
quit
ENDCASE

i=i-1

[此贴子已经被作者于2007-4-21 23:42:26编辑过]

呵呵，那个弄好了，后面那段代码没问题。

我也大概猜到了颜色不能显示出来的原因了，就是不能更新临时表的原因，临时表会在哪些时候创建呢？

刚刚出去了一下,回来BAIDU了一下,解决了问题,是我把数据表设置成包含了的原因.这下所有问题都解决了.

真是谢谢各位了.十分感谢....