求助：如何获取当前登录的用户名 - 编程论坛

#2

lowxiong2013-02-26 01:07

模块中声明的写法：public struName as string

#3

olike2013-02-26 02:28

声明了，但是在在在窗体调用的时候调用不了。

#4

lowxiong2013-02-26 06:55

不会，只要声明了全局变量，在任何窗体里都访问的到，直接使用即可。
你检查下你的程序，看是不是在窗体调用前有什么初始化的过程把变量值还原了，有些控件事件在加载时，即使你没有人为产生也会先于窗体加载前调用的，如combobox中click事件

[ 本帖最后由 lowxiong 于 2013-2-26 07:00 编辑 ]

#5

olike2013-02-26 07:54

确实声明了，赋值之后第一次调用可以用，Unload了以后再进去看就不行了。。
请问登录成功后怎么将用户名赋值给StruName，在Form7中的Label6.Caption调用，Unload me以后也一直存有？
我贴代码出来~
模块中声明Public StruName As String
————————————————————————
LoginForm的一段
  Private Sub Command1_Click()
      Dim strSno As String
      Dim strSelect As String
       strSno = Trim(Text1.Text)                                                '检测用户名是否存在
       strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"
       = adCmdText
       Adodc1.RecordSource = strSelect
       Adodc1.Refresh
      If Adodc1.Recordset.EOF = True Then
        MsgBox "用户名不存在，请重新输入！", , "登录提示信息："
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
        Exit Sub
      End If
      If Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Then                '检测密码是否正确
         Unload Me
        StruName= StrSon ……………………………………赋值了。。
         MDIForm1.Show
——————————————————————————

Form7的时候
    Private Sub Form_Load()
      Label6.Caption=StruName  ………………………………就是这里测试的时候不能显示
——————————————————————————
或者我在Login画面+    Form7.Label6.Caption=StruName
可以显示一次，Unload Me之后就不显示了。。

新手不会……能不能帮我改改，我只是想返显现在登录的用户名而已……不知道该怎么做。。

[ 本帖最后由 olike 于 2013-2-26 07:56 编辑 ]

#6

lowxiong2013-02-26 08:19

没有你全部源代码，我无法帮你调试修改的，你自己检查下你全部的工程里，是不是哪里有StruName=""的语句，只有执行该语句了才会改变该变量值的。

#7

zhengang10262013-02-26 08:31

Dim strSno As String
......
StruName= StrSon ……………………………………赋值了。。
兄弟你看看，这两个变量量拼错了！

#8

olike2013-02-26 08:57

回复 7楼 zhengang1026

手打的，所以没注意。。

#9

olike2013-02-26 09:03

回复 6楼 lowxiong

不要直接赋坿值，要变量的

#10

olike2013-02-26 10:32

如果直接打struname=""就等于直接赋值了，我想要变量的，本次登录的是123就赋值123，如果本次登录的是456就是456，随着登录的人变化而变化。。

#11

olike2013-02-26 10:33

求解答。。。

#12

zhengang10262013-02-26 11:31

我以为你是将代码复制到此的，如果这拼错了就是程序代码也出错了。

#13

olike2013-02-26 11:41

回复 12楼 zhengang1026

没错。。。怎么样写才能引用～～真的没辙了。。求打救。

#14

Artless2013-02-26 13:02

以下是引用olike在2013-2-26 07:54:13的发言：
确实声明了，赋值之后第一次调用可以用，Unload了以后再进去看就不行了。。

unload 对象？

以下是引用olike在2013-2-26 07:54:13的发言：
请问登录成功后怎么将用户名赋值给StruName，在Form7中的Label6.Caption调用，Unload me以后也一直存有？

unload me=unload form7?

#15

Susake2013-02-26 13:03

Kk

#16

olike2013-02-26 22:13

返显用户名怎么写？求解答