7518
社区成员
请问如何实现以下的一个登录界面？
请问如何实现以下的一个登录界面？
功能如下：
根据用户输入的用户名和密码进行判断，如果同数据库内的useid和password相同，则进入操作界面。
功能如下：
根据用户输入的用户名和密码进行判断，如果同数据库内的useid和password相同，则进入操作界面。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
victorwu 2003-05-20
可以用sql语句来进行判断
先用select查找出该用户 再用语句来判断 pw
先用select查找出该用户 再用语句来判断 pw
netwar 2003-05-20
private sub cmd_login()
dim username as string
dim userpass as string
dim cn,fs,path
username=trim(text1.text)
userpass=trim(text2.text)
set cn=createobject("adodb.connection")
cn.open "provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\system.mdb"
set fs=createobject("adodb.recordset")
sql="select * from member where username='" & name & "' and userpass='" & userpass & "'"
fs.open sql,cn,1,1
if fs.eof then
msgbox "对不起，登录错误",vbokonly+vbinformation,"系统消息"
else
......
end if
dim username as string
dim userpass as string
dim cn,fs,path
username=trim(text1.text)
userpass=trim(text2.text)
set cn=createobject("adodb.connection")
cn.open "provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\system.mdb"
set fs=createobject("adodb.recordset")
sql="select * from member where username='" & name & "' and userpass='" & userpass & "'"
fs.open sql,cn,1,1
if fs.eof then
msgbox "对不起，登录错误",vbokonly+vbinformation,"系统消息"
else
......
end if
bhhxd 2003-05-19
你用向导生成一个程序，参考一下
「风险评估」支持国产密码算法的OpenSSL设计实现及应用 - 金融安全.zip 「风险评估」支持国产密码算法的OpenSSL设计实现及应用 - 金融安全
WAF
基础架构安全
WAF
网络安全
APT
kernel-plus-headers-3.10.0-1160.6.1.el7.centos.plus.x86_64.rpm kernel-plus-headers-3.10.0-1160.6.1.el7.centos.plus.x86_64.rpm
