如何自制个登陆表单

苏州园林的特点2023-05-01  23

采用什么语言?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中显示数据库中一个表的某一项怎么写代码啊高手帮忙 急!急!急!等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

转载请注明原文地址:https://juke.outofmemory.cn/read/3757322.html

最新回复(0)