求VB程序代码!!如果登陆后我要在同一个窗口里显示“您好,XXX,欢迎登录!”,代码要怎么写?

原来界面是“用户名:[文本框] 密码:[文本框]”登陆后这两个label和text就没有了,界面变为“您好,XXX,欢迎登录!”,求代码啊!!
~~~~(>_<)~~~~ 我是刚接触VB的,大家原谅哈,说得不太明白,其实这个是和数据库连接的,用户信息中有用户名和昵称,登陆的是用户名,但是“你好,XXX,欢迎登陆!”的XXX显示的是昵称而不是用户名,这个是要用SQL吗,具体该怎么操作呢?

 è¿™ç§ä¸œè¥¿ï¼Œè¦ä¸¤ä¸ªçª—口的好(一个窗口也能做)

form1 ç™»å½•çª—口

text1  用户名

text2  密码

(label1)可省略,用窗口屏的一样。

command1 ç™»å½•æŒ‰é’®

form2   æ¬¢è¿Žçª—口

label1   æ¬¢è¿Žå­—幕

command1 å…³é—­æŒ‰é’®

这些东西,既然是在学,该是自己试着弄的。

 

Private Sub Command1_Click()

If Form1.Text1.Text = "" Or Form1.Text2.Text = "" Then

MsgBox "用户名或密码不能为空"

Exit Sub

End If

Form1.Visible = False

Form2.Visible = True

Form2.Label1.Caption = "您好" & Form1.Text1.Text & "欢迎登录"

End Sub

追问

~~~~(>_<)~~~~ 我是刚接触VB的,请原谅哈,其实这个是和数据库连接的,用户信息中有用户名和昵称,登陆的是用户名,但是“你好,XXX,欢迎登陆!”的XXX显示的是昵称而不是用户名,这个是要用SQL吗,具体该怎么操作呢?

追答

这得做一个数据库啊
ID - 帐号 - 用户昵称 - 密码 - 其他信息 列举出来。
用户不多的话,Select case就能做得很好啦。
我也是初学,闲下来就自己摸一下。

追问

谢谢你呀,我用了一个很笨的方法。。。
a = Text1.Text
Select Case rs.Fields("用户类型")

Case "会员"

Label1.Visible = 0
Label2.Visible = 0
Text1.Visible = 0
Text2.Visible = 0

Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label8 = a

这里label8显示的是用户名,我想让他显示数据库里对应的昵称,能具体告诉我怎么写么?O.OSelect case不是很明白。

追答

Select Case Text1.Text

Case "帐号1"
label8.caption = "您好" & 数据库里相应帐号1的昵称 & "欢迎登录"
Case "帐号2"
label8.caption = "您好" & 数据库里相应帐号2的昵称 & "欢迎登录"
.....
.....

温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-12-09

隐藏显示控件

 

Private Sub Command1_Click()

If Command1.Caption = "登陆" Then

If Text1.Text = "admin" And Text2.Text = "admin" Then

Label1.Visible = False

Label2.Visible = False

Label3.Visible = True

Text1.Visible = False

Text2.Visible = False

Command1.Caption = "关闭"

Label3.Caption = Text1.Text & "欢迎你的光临"

End If

Else

Unload Me

End If

 

End Sub

Private Sub Form_Load()

Label1.Caption = "用户名"

Label2.Caption = "密码"

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "登陆"

Label3.Visible = False

End Sub

 

 

第2个回答  2012-12-09
这么简单都不会!汗
在登录过程中,写这样的代码
控件名。visible=0
就可以隐藏掉那个控件了,至于剩下那个,道理差不多,我就不细说了

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网