VB怎样显示登陆用户ID

Question

VB+Access分析维修管理系统，怎样进入系统窗体上显示登陆用户名；
请高手帮忙；

Answer 1

这个一般是用户经过了用户名＋密码验证通过后显示在statebar里的吧。

Answer 2

我用Baidu找了；
也是用狀態欄;
可是狀態欄不知道怎么設置;

Answer 3

frmmain.StatusBar1.Panels(1).Text = "登录用户：" + gp + Trim(subgroup) + un
statebar的详细资料都可以在网上找到。

Answer 4

登錄窗體：Login.frm
用戶工號：user.text
登錄后窗體:WareHouseSetting.frm-----其中一個窗體；
還是不懂;

Answer 5

一个简单的示例：
Private Sub cmdOK_Click()
    '检查正确的密码
If user.text = "abc"  Then
       if pass.text<>"123" then
           MsgBox "用户或密码错误，请重试!", , "错误"
           exit sub
       Else
           WareHouseSetting.StatusBar1.Panels(1).Text =trim(user.text)
           WareHouseSetting.show
           unload me
       End If
else
MsgBox "用户或密码错误，请重试!", , "错误"
exit sub
End If
End Sub

Answer 6

Tkanks" lsftest";
Issue is close;
Code As follows:
Me.StatusBar1.Panels(1).Text = "登錄用戶：" + UCase(loginUser)      '顯示"登錄用戶"帳號
    Me.StatusBar1.Panels(2).Text = "登錄時間：" + CStr(LoginDateTime)      '顯示"登錄用戶"日期及時間function:Public loginUser As String                         '保存登陸"用戶工號"
         Public LoginDateTime As Date                       '保存用戶"登錄日期及時間"
Login.frm:
         LoginDateTime = Now                                                '登錄日期及時間賦值給變量"LoginDateTime"
                loginUser = User.Text                                              '"登錄用戶"賦值給變量"loginUser"