提问:关于打开表的问题
我做了一个系统,建了一个密码表,在系统运行的时候,有一个提示输入密码的表单,用的就是密码表里储存的用户和密码。不知道怎么回事,当输入密码之后,系统提示:选择要打开的表,只有选择密码表的时候才可以继续程序的运行。我的问题是,怎么才能让这个选择打开表的窗口不再出现。附:主程序* 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
--------------------------------------------------------------------
以上代码不知道是否有错误,或者不足,请达人指正。谢谢!