采用什么语言?vfp么?还是C?java?请楼主明确·
登陆表单简单描述如下:
第一步,建立默认账户自由表:
假设表名为yhdbf包含用户名yhm,密码mm两个字段,字段属性自己规定。
第二步,建立登陆表单:
表单名字loginscx,包含三个标签,三个文本框,三个按钮文件
三个标签的caption分别改为:用户名,密码,确认密码
三个按钮的caption分别改为:注册,登陆,退出
把第一步建立的表加入到该表单的数据环境中。
第三步,适当调整各个控件的位置。并填写以下代码:
表单form的init事件代码:
thisformlabel3visible=f
thisformtext3visible=f
注册(command1)按钮的click代码:
thisformlabel3visible=t
thisformtext3visible=t
thisformcommand2enabled=f
thisformcommand1caption=“保存”
thisformrefresh
if thisformtext3visible=t
use yh
go top
locate for alltrim(thisformtext1value)==alltrim(yhyhm)
if found()
messagebox(“该用户已存在!请重新输入用户名!”,0,“提示信息”)
return
eles
if alltrim(thisformtext2value)==alltrim(thisformtext3value)
append
replace yhm with alltrim(thisformtext1value)
replace mmm with alltrim(thisformtext2value)
messagebox(“注册成功!",0,"提示信息")
thisformtext2value=''
thisformtext3value=''
thisformtext3visible=f
thisformlabel3visiblef
thisformcommand1caption=”注册"
thisformrefresh
else
messagebox(“两次密码不一致”,0,"错误信息!")
thisformtext2value=''
thisformtext3value=''
return
endif
endif
endif
use
thisformrefresh
登陆按钮(command2)的代码:
locate for alltrim(thisformtext1value)==alltrim(yhyhm) and ;
alltrim(thisformtext2value)==alltrim(yhmm)
if found()
messagebox(”登陆成功!",0,"提示信息")
thisformtext1value=''
thisformtext2value=''
thisformrefresh
else
messagebox("用户名或者密码错误!",0,"错误信息!")
thisformtext1value=''
thisformtext2value=''
thisformrefresh
return
endif
退出按钮(command3)的代码:
thisformrelease
基本上可以实现你要的要求了。某些代码可能和你实际操作中的有所变化,请自行调整。另外,如果要实现密码框输入时是看不见数字的,那么要修改text的password char属性
那个表单元素种没有 id属性吧。
IE浏览器的这个方法在无id的情况下可以取到 name的,但火狐严格一些必须是id属性。
我想你可能是只写了name属性 没写id属性把。
二、
strSQL = "select from dl where yhm='" & combo1text & "' "
RSOpen strSQL, db, 3, 3
RSDelete
RSCLOSE
SET RS=NOTHING
一、
Dim db As New ADODBConnection
Dim RS As New ADODBRecordset
Private Sub Form_Load()
Combo1Clear
dbConnectionString = "DRIVER=Microsoft Access Driver (mdb);DBQ=" & AppPath & "\db1mdb"
dbOpen
strSQL = "select from dl Order By yhm"
RSOpen strSQL, db, 2, 2
Do While Not RSEOF
Combo1AddItem RS("yhm")
RSMovenext
Loop
RSClose
dbClose
以上就是关于如何自制个登陆表单全部的内容,包括:如何自制个登陆表单、火狐和Google浏览器不兼容document.getElementById("yhm").value;、vb要在combox中显示数据库中一个表的某一项怎么写代码啊高手帮忙 急!急!急!等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!