Question

vfp登陆界面设计，急急急！

不需要密码，只需要验证新老用户，题目如下，请帮我写完整代码。

输入用户名，点击“老用户”按钮，从username数据表中查找，如果有该用户名，则调用相应的“单词表格”，例如，输入“zhangsan”，则系统自动调用表格“zhangsantable”；如果在username数据表中找不到该用户，则提示用户“无此用户名，是否重新输入”。
输入用户名，点击“新用户”按钮，从username数据表中查找，如果该用户已经存在，则提示“该用户名已经存在，请重新输入一个用户名称”；如果该用户名不存在，则在username数据表中添加一条新记录，例如：输入用户名xxx，则将xxxa存入username数据表的用户名字段，程序自动在单词表格字段中填入“xxxtable”,并自动创建名称为 ”xxxtable” 的单词表格

Answer 1

设你用户表名"username.dbf",其字段 用户名 c(10),单词 c(20)两字段
保证你表单上有一个文本框text1以容纳用户名字段，再在表单上加入你说的那两个按钮，再加一个表格控件grid1

在表单的初始init过程中写入
close all data
set talk off
set exac on
use username
在老用户命令按钮的点击click中写入

sele 1
name=allt(thisform.text1.value)
if len(name)=0
messagebox("请输入用户名")
retu
endif
loca all for name=allt(用户名)
if !eof()
sele 2
zf=name+[table]
use &zf alia xxxtable
thisform.grid1.recordsource=[xxxtable]
else
thisform.grid1.recordsource=[]
messagebox("没有这个用户的")
endif

在新用户命令按钮的点击click中写入

sele 1
name=allt(thisform.text1.value)
if len(name)=0
messagebox("请输入用户名")
retu
endif
loca all for name=allt(用户名)
if eof()
appe blan
repl 用户名 with name,单词 with name+[table]
zf=name+[table.dbf]
crea table &zf(单词内容 c(20))
sele 2
use &zf alia xxxtable
thisform.grid1.recordsource=[xxxtable]
else
thisform.grid1.recordsource=[]
messagebox("这个用户已经存在，请重新输入一个新用户名")
endif

如此就搞定了