_screen.autocenter=.T.
_screen.zoombox=.f.
_screen.borderstyle=3
_screen.showtips=.T.
_screen.windowstate=0
_screen.ControlBox=.f.
_screen.closable=.T.
_screen.visible=.f.
open database xs
do form welcome
read events
release main

   求解 非常谢谢

参考VFP帮助文件中的有关命令、属性，自然就明白了。如果楼主连这些资料都不想看的话，就不要学VFP了。

我答了他还要另发一贴啊，还要没反应啊。

郁闷啊

是不是要你再答一次

关于 找不到别名的问题 求解答 非常感谢
我在command1中的click输入


if empty(thisform.text1.value) or empty(thisform.text2.value)
    messagebox("输入的信息不完整,请重新输入!",48,"警告")
    inpswd1=inpswd1+1
    if inpswd1>=3
        messagebox("请不要乱来!!",64,"警告")
        thisform.release
    else
        thisform.text1.value=""
        thisform.text2.value=""
        thisform.text1.setfocus
    endif
else
    sele 口令
    locate for 用户名=alltrim(thisform.text1.value)
    if 密码=alltrim(thisform.text2.value)
        thisform.release
        do case
        case mm=3
            do form 数据输入维护选择表
        case mm=4
            do form 删除界面
        endcase
    else
        messagebox("输入的信息有误,请重新输入!",64,"警告")
        inpswd1=inpswd1+1
        if inpswd1>=3
            messagebox("请不要乱来!!",64,"警告")
            thisform.release
        else
            thisform.text1.value=""
            thisform.text2.value=""
            thisform.text1.setfocus
        endif
    endif
endif

command2是退出 click是  thisform.release

口令 是我的一个表，  数据删除维护选择表 和 删除界面 是我做的表单

可是我一运行  它就报错 说 找不到别名 口令

我把口令 改成 kouling 还是不行   ，求解答

看来楼主喜欢东一榔头、西一棒子的。

。。。。。 不是啊  我在做小学期作业   要赶着做 我怕你没有看到  所以就又发了一遍
不过还是很谢谢啊   

。。。。。。。 我们在学VFP   很多不会的  刚学  怕他没看到  所以才发的多    诶诶

嗯  好的  谢谢啊