我做了一个系统，建了一个密码表，在系统运行的时候，有一个提示输入密码的表单，用的就是密码表里储存的用户和密码。不知道怎么回事，当输入密码之后，系统提示：选择要打开的表，只有选择密码表的时候才可以继续程序的运行。我的问题是，怎么才能让这个选择打开表的窗口不再出现。

附：主程序* main.prg
clear all
set talk off
set escape off
set safety off
set deleted on
public ok
use e:\gs\data\信息.dbf
use e:\gs\data\密码表.dbf
set default to e:\gs
do form e:\gs\forms\密码.scx
if ok
DO e:\gs\menus\系统首页.mpr
endif
_screen.hide
release ok
Read Event
quit



*密码输入窗口的确定按钮
sele 密码表
use E:\gs\data\密码表.dbf
select mm from 密码表.dbf into array mmb_a
select yhm from 密码表.dbf into array mmb_b
for i=1 to alen(mmb_a)
if alltrim(mmb_a(i))==alltrim(thisform.text1.value);
and alltrim(mmb_b(i))==alltrim(thisform.text2.value)
ok=.t.
thisformset.release
return
endif
next
messagebox("用户名或密码错，禁止进入系统！")
thisform.command2.click

--------------------------------------------------------------------
以上代码不知道是否有错误，或者不足，请达人指正。谢谢！

错误很多，试着注释如下：

附：主程序* main.prg
clear all
set talk off
set escape off
set safety off
set deleted on
public ok
use e:\gs\data\信息.dbf
sele 0
use e:\gs\data\密码表.dbf 在同一个工作区重复打开表会自动关闭先前打开的表，修改方法是在此之前加sele 0
set default to e:\gs
do form e:\gs\forms\密码.scx
if ok
DO e:\gs\menus\系统首页.mpr
endif
_screen.hide
release ok
Read Event
quit

*密码输入窗口的确定按钮
sele 密码表
use E:\gs\data\密码表.dbf 此行语句应该删除，不能重复打开表
select mm from 密码表.dbf into array mmb_a
select yhm from 密码表.dbf into array mmb_b
for i=1 to alen(mmb_a)
if alltrim(mmb_a(i))==alltrim(thisform.text1.value);
and alltrim(mmb_b(i))==alltrim(thisform.text2.value)
ok=.t.
thisformset.release
return 表单不能用return结束，应该用release thisform
endif
next
messagebox("用户名或密码错，禁止进入系统！")
thisform.command2.click

非常感谢！

不用感谢，有很多错误我没有时间注释呢!

那还是感谢，发现一个错误，就长了一分知识