我的程序在登录界面上查询的用户信息,比如员工编号在其他界面中自动显示?比如登录员工编号0101姓名张三我在进货界面里用label,或textbox自动显示员工编号0101姓名张三的信息应如何编写代码?
我的登录界面代码如下
Dim strcon, strcmd As String
strcon = "Initial Catalog=blddatebase;Data Source=(local);User ID=sa;Password=;"
Dim sqlcon As SqlConnection = New SqlConnection(strcon) '建立数据库
sqlcon.Open()
strcmd = "Select * From yhxinxi Where [Name]='" & TextBox1.Text & "' And [Password]='" & TextBox2.Text & "'And [ygbh]='" & TextBox4.Text & "'" '查询yhxinxi表内name,password,ygbh信息
Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
Dim dr As SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read() Then
Dim login As New Form2
login.ShowDialog()
Else
MessageBox.Show("你输入的用户名和密码或员工编号不正确,请重新输入!", "错误提示!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.Focus()
Me.Label4.Text = DBUser.AttachCode
Exit Sub
End If
------解决方案--------------------
三种办法:
第一,你取出用户名及编号后
dim newForm as new frmJHForm '实例进货的窗体,或者不在这里实例窗体,窗体是全局的变量更好
newForm.labelX.text=用户名
newForm.labely.text= 编号
第二,声明全局的变量sUserName 及sUserID,赋好值后用的时候调用就OK了
第三,找到进货窗体的句柄,用sendmessage(API函数)向窗体发消息,然后……
------解决方案--------------------
声明全局的变量sUserName 及sUserID
----------------------------------
這個方便點。
------解决方案--------------------
定义一个:
- VB.NET code
Public Class CurrentUserCls Public Shared UserName As String Public Shared UserID As String '... End Class