Question

表单程序问题

系统登陆和注册,登陆-用户名密码正确才可以进入(要求用户名密码使用班级学生姓名和学号) ,还有注册的表单程序怎么写啊?谢谢了。。
用vf做

Answer 1

采用什么语言？vfp么？还是C？java？请楼主明确·
登陆表单简单描述如下：
第一步，建立默认账户自由表：
假设表名为yh.dbf包含用户名yhm，密码mm两个字段，字段属性自己规定。
第二步，建立登陆表单：
表单名字login.scx，包含三个标签，三个文本框，三个按钮文件
三个标签的caption分别改为：用户名，密码，确认密码
三个按钮的caption分别改为：注册，登陆，退出
把第一步建立的表加入到该表单的数据环境中。
第三步，适当调整各个控件的位置。并填写以下代码：
表单form的init事件代码：
thisform.label3.visible=.f.
thisform.text3.visible=.f.
注册（command1）按钮的click代码：
thisform.label3.visible=.t.
thisform.text3.visible=.t.
thisform.command2.enabled=.f.
thisform.command1.caption=“保存”
thisform.refresh
if thisform.text3.visible=.t.
use yh
go top
locate for alltrim(thisform.text1.value)==alltrim(yh.yhm)
if found()
messagebox(“该用户已存在！请重新输入用户名！”,0,“提示信息”)
return
eles
if alltrim(thisform.text2.value)==alltrim(thisform.text3.value)
append
replace yhm with alltrim(thisform.text1.value)
replace mmm with alltrim(thisform.text2.value)
messagebox(“注册成功！",0,"提示信息")
thisform.text2.value=''
thisform.text3.value=''
thisform.text3.visible=.f.
thisform.label3.visible.f.
thisform.command1.caption=”注册"
thisform.refresh
else
messagebox(“两次密码不一致”,0,"错误信息！")
thisform.text2.value=''
thisform.text3.value=''
return
endif
endif
endif
use
thisform.refresh
登陆按钮（command2）的代码：
locate for alltrim(thisform.text1.value)==alltrim(yh.yhm) and ;
alltrim(thisform.text2.value)==alltrim(yh.mm)
if found()
messagebox(”登陆成功！",0,"提示信息")
thisform.text1.value=''
thisform.text2.value=''
thisform.refresh
else
messagebox("用户名或者密码错误！",0,"错误信息！")
thisform.text1.value=''
thisform.text2.value=''
thisform.refresh
return
endif
退出按钮（command3）的代码：
thisform.release

基本上可以实现你要的要求了。某些代码可能和你实际操作中的有所变化，请自行调整。另外，如果要实现密码框输入时是看不见数字的，那么要修改text的password char属性