用vb.net做系统登陆框 遇到了问题里面有详细代码

panweiwebweb 2005-03-08 10:16:08
主要想问大家那个公有属性MyUser在代码里起了什么作用 然后具体公有属性是怎么用的

Inherits System.Windows.Forms.Form
'定义一个变量存放是否可以关闭系统登录对话框的标志
Dim blnClose As Boolean
'定义存放用户名的变量
Dim strUserID As String

'为frmPassword类创建一个公有属性MyUser
Public Property MyUser() As String
Get
MyUser = strUserID
End Get
Set(ByVal Value As String)
strUserID = Value
End Set
End Property

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
cmdAuthority.CommandText = "SELECT 用户名 FROM 用户 " & _
"WHERE 用户名 = '" & txtUserID.Text & "'" & _
"AND 密码 = '" & txtPassword.Text & "'"
'打开数据库连接
cnQTGL.Open()

'用输入的用户名和密码在用户表查询记录,将查询结果赋给strUserID
strUserID = CType(cmdAuthority.ExecuteScalar, String)


'如果结果是空串, 说明找不到该用户, 可能是用户名或密码错误

If strUserID = "" Then
MessageBox.Show("用户名或密码错误!", _
"身份确认失败", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
'身份错误不可按OK离开
blnClose = False
Else
'若找到, 可以离开
blnClose = True
strUserID = txtUserID.Text
End If

'关闭数据库连接
cnQTGL.Close()

End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
MyUser = ""
blnClose = True
End Sub

Private Sub frmPassword_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
blnClose = True
End Sub

Private Sub frmPassword_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = Not blnClose
End Sub
End Class
在确定按钮里有用到公有属性 这是起什么作用
...全文
212 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
panweiwebweb 2005-03-09
  • 打赏
  • 举报
回复
有没有人能在详细点解释一下 或者简单举个事例
hamadou 2005-03-09
  • 打赏
  • 举报
回复
方便在其他窗口使用userid。因为userid是私有的。而myuser是公开的属性,一般都使用这样的方法,来获得对私有数据的访问。
wqdzgh 2005-03-09
  • 打赏
  • 举报
回复
使用其他窗体可以访问登陆框的UserID属性.
尚和空四 2005-03-08
  • 打赏
  • 举报
回复
定义全局变量
junwhj 2005-03-08
  • 打赏
  • 举报
回复
使用了Public属性后,就在其它Form中可以得到登录窗口的UserID。

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧