• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

用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
在确定按钮里有用到公有属性 这是起什么作用
...全文
158 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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。
回复
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2005-03-08 10:16
社区公告
暂无公告