Question

怎么用VFP设计一个用户的登陆窗口?

登陆什么的都行.最好有步骤.谢谢!越详细越好
最好有清楚的原代码,能看着做出来的最好!
比如QQ的登陆界面!
希望大家帮帮忙啊!

Answer 1

先用表单建立一个封面，在form上面建立一个label和image,timer等，加上图片，在所有控件的click属性上面编辑：
do form"(你登录窗口的路径)"
release thisform
以上表示你点击任何地方都会从封面调到登陆界面，timer控件你可以设置几秒钟不点击自动跳转（自愿），设置timer的interver属性为5000（5秒），timer事件代码如下：t=t+1
if t=5 form
do form"(你登录窗口的路径)"
release thisform
endif
表单的init事件中定义变量：
public t as number
t=0

然后是登陆界面，你首先要新建自由表，在里面输入几个用户和密码，一个权限是管理员，其他是普通用户，保存。假设表名为user:
登陆“确定”按钮代码：
LOCAL Temp
uname=thisform.txtid.value
psw=thisform.txtid.value

close tables all

use"(user表路径)"
set exact on

dimension s(10)
for i=1to10
s(i)=""
endfor

select *from user where(user.用户名=uname and user. 密码=psw)into array s

select *from user where(user.用户名=uname and user. 密码=psw)into cursor temp
qx=temp.用户权限

if s(1)=""then
messagebox(错误，0，)
else
if qx="管理员" do form(新建管理员界面路径)
else
if qx="普通用户" do form(新建普通用户界面路径)
endif
close tables all
thisform.release
endif

以上不是很详细，但我成功过，可能有漏洞，我尽力了，望给分，谢谢，呵呵

Answer 2

VFP教材上有详细的步骤