我是初学者，最近自己做了一个小程序，但是有些地方不足，希望能给予赐教！
按照我的创作本意，我是想在程序运行时，先运行我设计登陆界面，然后在运行菜单界面，但是我开始运行的时候却无法实现以上功能，这是我的主程序，你给纠正一下吧！
clear all
close all
local ljsys,lj
ljsys=sys(16)
lj=substr(ljsys,at(":",ljsys)-1)
cd left(lj,rat("\",lj))
deactivate window "kjzygl"
do setting
do form yhdl

read events
_screen.caption="课件资源管理系统"
read events
do resetting
这是我做的登陆界面里的确定代码：
use user
cx=alltrim(thisform.text1.value)
cy=alltrim(thisform.text2.value)
set order to user_ID
seek cx
if cx==""
messagebox("用户名不能为空,请重新输入!",4+32,"提示信息")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
if alltrim(user.user_ID)==cx
if alltrim(user_pd)==cy
do form xtct
_screen.visible=.t.
thisform.release
else
messagebox("密码错误,请重新输入!",0+32,"提示信息")
thisform.text2.value=""
thisform.text2.setfocus
endif
else
messagebox("用户名错误,请重新输入!",0+32,"提示信息")
thisform.text1.value=""
thisform.text1.setfocus
endif
endif