显示操作员 机房
在其他窗体显示操作员:
先在登陆窗体:
Public UserName As String
再设置登陆的用户名是 UserName
UserName = Trim(txtUserName.Text)
一般窗体:
Private Sub Form_Load()
Label4.Caption = frmLogin.UserName
End Sub
MDI窗体:
Private Sub Timer1_Timer()
Label18.Caption = Format(Now, "hh:mm:ss") '获取当前时间
Label20.Caption = frmLogin.UserName
End Sub
还没有评论,来说两句吧...