原来界面是“用户名:[文本框] 密码:[文本框]”登陆后这两个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çæµç§° & "欢è¿ç»å½"
.....
.....
隐藏显示控件
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
在登录过程中,写这样的代码
控件名。visible=0
就可以隐藏掉那个控件了,至于剩下那个,道理差不多,我就不细说了