甲乙两仓共存粮300吨:vb中用户登陆界面,怎样写代码程序,有没有源代码提供一下,要解释一下阿
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/11 19:35:03
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