我是初学者，最近自己做了一个小程序，但是有些地方不足，希望能给予赐教！
按照我的创作本意，我是想在程序运行时，先运行我设计登陆界面，然后在运行菜单界面，但是我开始运行的时候却无法实现以上功能，这是我的主程序，你给纠正一下吧！
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

本论坛上有几篇关于主程序的文章，你自己搜索出来看看。
另外，不知道您有没通过项目管理器把你的主程序设置为主文件？

首先谢谢一楼的大哥。
你所指的那些文章我已经看过了，但是按照上面的做法作了以后还是不行！
我也设主程序了阿！

表单的确定代码：
If !Used('user.dbf')
Use user in 0
EndIf
cx=alltrim(thisform.text1.value)
cy=alltrim(thisform.text2.value)
if Empty(cx) Or Empty(cy)
messagebox("用户名或密码不能为空,请重新输入!",4+32,"提示信息")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
Select user
Locate All For Alltrim(user.User_ID)==cx And Alltrim(user.user_PD)==cy
if Eof()
messagebox("用户名或密码错误,请重新输入!",0+32,"提示信息")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
do form xtct
_screen.visible=.t.
thisform.release
endif
endif

楼上的兄弟,我试过了,结果一样啊!
登陆以后还是无法进入菜单界面啊?
我想登陆代码没问题啊!

是不是我的主程序有问题啊?????????

晕,登录的时候有什么错误提示,你说清楚点行不?