易截截图软件、单文件、免安装、纯绿色、仅160KB

VB怎样显示登陆用户ID

VB+Access分析维修管理系统,怎样进入系统窗体上显示登陆用户名;
请高手帮忙;
这个一般是用户经过了用户名+密码验证通过后显示在statebar里的吧。

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

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


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

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

一个简单的示例:VB code:

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



Tkanks" lsftest";
Issue is close;
Code As follows:
Me.StatusBar1.Panels(1).Text = &q


相关问答:

关于ASP.net(vb)播放监控录像的问题

我有厂家做的ASP的监控录像(DVR)的局域网播放的源程序与控件,想要用ASP.net做一个视频回放的程序(利用他的控件)但不知如下去做,望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......

为何用vb api获取的窗口标题为空,而SPY++却可以

VB中callbacke function 如下:
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim slength As Long, WndTitle As String ' title bar text length an ......

vb如何调用Illustrator(此前Illustrator未启动)?

请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

关于VB中的MDI子窗体不能以模式窗体显示

Private Sub cmdModify_Click()
    Dim iRet As Integer
    If dltUser.Text = "" Then
        MsgBox "请选择要修改的用户!", vbOKOnly ......

VB读取XML的问题

VB code:

Private objXml As New DOMDocument60
Private xmlRoot As IXMLDOMElement
Public Function xmlNode()
Set objXml = New DOMDocument
objXml.async = False
objXml.Load ("E:\Li ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号