附:主程序* 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
--------------------------------------------------------------------
以上代码不知道是否有错误,或者不足,请达人指正。谢谢!