李家沱到大渡口新世纪:vb中用户登陆界面,怎样写代码程序,有没有源代码提供一下,要解释一下阿

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/01 19:43:29

mRst.Open "select * from sysuser where use_name='" & CboUser.Text & "'"
If mRst("use_password").Value = TxtPassword.Text Then
mRst("use_times").Value = mRst("use_times").Value + 1
mRst("use_logintime").Value = Now

mRst.Update
mRst.Close

gBlnAdmin = False
gStrUser = CboUser.Text

FrmMain.StbMain.Panels.Item(1).Text = "欢迎您," & CboUser.Text & "!"
FrmMain.StbMain.Panels.Item(2).Text = "登录时间 " & Date & " " & Time

Call FrmMain.fresh_project

mBlnLogon = True

Unload Me

Exit Sub
Else
mRst.Close

strMsg = MsgBox("密码错误,请重新输入!")

TxtPassword.Text = ""

TxtPassword.SetFocus
End If