中易网

VB怎样显示登陆用户ID

答案:3  悬赏:40  
解决时间 2021-01-04 08:24
VB+Access分析维修管理系统,怎样进入系统窗体上显示登陆用户名;
请高手帮忙;
首先谢谢“mingtian97091”回答:
对不起,我本人刚接触状态条,能否具体点,谢谢;
"user"为我登陆时用户工号的文本框;
”Login“为我的登陆窗体;
再次感谢“ yutianstar”,回答;
可是还无法现实,请各位DX出谋划策.TKS!
最佳答案
下面放一个状态条,把要现实的用户名现实在上面就可以
StatusBar 属性--窗格---分出多列,每列现实不同的内容(随便自己,例如用户名,时间,职位,权限等)

With StatusBar
.Height = 315
.Panels.Item(2).Text = "操作员: " & gobjUser.getFullName
.Panels.Item(3).Style = sbrCaps
.Panels.Item(3).Alignment = sbrCenter
.Panels.Item(4).Style = sbrIns
.Panels.Item(4).Alignment = sbrCenter
.Panels.Item(5).Style = sbrNum
.Panels.Item(5).Alignment = sbrCenter
.Panels.Item(6).Alignment = sbrLeft
End With
全部回答
在要显示登录用户名的系统窗体(如:Form1)上放上一个文本框(如:text1),然后在Login登录窗体中增加一句代码:Form1.text1.text=user.text。这样就行了。 Login窗体上肯定有一个确定按钮吧,把上面这句代码附在这个确定按钮上就行了。

你分开查询导致的 

function searchdata1(schstr1$, schstr2$) as boolean
searchdata1 = false
rs.movefirst
rs.find "usernm = " & chr(39) & schstr1 & chr(39)  & " and " & "passw = " & chr(39) & schstr2 & chr(39)
if not rs.eof then searchdata1 = true
end function

改成这样的 然后调用时 if searchdata1 (text1.text,text2.text)  then

我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
大连到淮安顺丰快递途径几站?需要几天?
a比b多3倍还多35,比b多4倍少75,问a有多少
浃堂的意思是什么啊?请解释下!
急!!北京人帮我参谋一下去哪个酒店实习比较
弄酒的意思是什么?弄酒的释义是什么啊?
刚才中午在店里看见客人死了有什么不好的预兆
1938年的较量写了一个什么故事 ,要表现的主
飞扬电脑地址在什么地方,想过去办事
求好看的主角失忆的耽美小说
用友T3打印项目明细时打印日期可以更改吗
生化危机5的修改器用不了Games For Windows L
同种的意思是什么啊?请解释下!
山水广告地址在什么地方,我要处理点事
小孩办理广州户口,小孩怎么办广州户口,父母
丽水庆元特产有那些?
推荐资讯
用鲜艾时艾炙可以吗?
Parker派克IM磨砂黑杆白夹宝珠笔专柜价
问一下克洛特充电器可以当插座又能当充电宝问
乐清芙蓉梅雨潭门票是多少
香菜能和什么海鲜炒着吃呢?
在5173买逆战号能被找回吗,可靠吗
说多都是泪,女司机有多可怕
经常在朋友圈晒吃喝玩乐的人是什么样的人??
梦三国口袋宝箱奖励左兹是什么
现在包工程能赚到钱吗
阅文集团的作家全勤请假条兑换之后需要补字数
带着空瓶子上路主要讲了一件什么事
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?