使用VB6.0怎么画出一个没有任何效果的 登录框

yinqiandai

也就是像QQ那种
用户名
密码
登录
不会画。。。怎么画这种界面  我只是想画出一个雏形 不要有效果 也就是，只能看的登录程序

sam__天涯

Private Sub Command1_Click()
If LCase(Trim(Txtname.Text)) = "" Or Trim(Txtpswd.Text) = "" Then MsgBox "用户名或密码为空！", vbOKOnly, "提示": Exit Sub
Call Connect

End Sub


Public Sub Connect()
Dim pass As Boolean
pass = False
Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\admin.mdb;Persist Security Info=False"
If conn.State = 0 Then conn.Open

RS.CursorLocation = adUseClient
RS.Open "select * from TB_admin", conn, adOpenKeyset, adLockOptimistic, -1
Dim i
For i = 1 To RS.RecordCount
    If RS.Fields("U_name") = Txtname.Text And RS.Fields("U_pswd") = Txtpswd.Text Then
        pass = True
    Else
        If RS.EOF = True Then Exit For
        RS.MoveNext
    End If
Next
If pass = True Then

If RS.Fields("U_root") = True Then

MsgBox "ok,Pass!" & "你是管理员"
Form1.Show

Else
MsgBox "ok,Pass!" & "你是普通用户"
End If

Else
    MsgBox " NO! shutdown!"
End If

End Sub



Private Sub Form_Load()

End Sub

Private Sub Txtpswd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call Connect
End Sub
这样做

yinqiandai

sam__天涯 发表于 2012-3-10 21:30
Private Sub Command1_Click()
If LCase(Trim(Txtname.Text)) = "" Or Trim(Txtpswd.Text) = "" Then MsgB ...

看不懂
这学期刚学
我连入门都不到
我的意思是用什么控件画出一个如上图的没有任何效果的伪界面

super-bleach

用到的控件有：两个标签控件，两个文本框控件，两个按钮控件。之后设置控件的属性即可。

yinqiandai

super-bleach 发表于 2012-3-10 21:51
用到的控件有：两个标签控件，两个文本框控件，两个按钮控件。之后设置控件的属性即可。

求样张。。谢谢。。
在哪该用label
在哪该用text

super-bleach

yinqiandai 发表于 2012-3-10 21:54
求样张。。谢谢。。
在哪该用label
在哪该用text

用户名，密码两个用label控件,那两个输入框用TEXTBOX控件，那两个按钮用commandbutton控件
两个label控件的caption（标题）属性分别填写 ：  用户名  密码
两个textbox控件的text属性设置为“”
两个commandbutton控件caption（标题）属性分别填写 ： 登陆  退出

另外FORM窗体的caption属性填写你想要的窗口标题。

yinqiandai

super-bleach 发表于 2012-3-10 22:10
用户名，密码两个用label控件,那两个输入框用TEXTBOX控件，那两个按钮用commandbutton控件
两个label控件 ...

textbox的属性设为无？

super-bleach

yinqiandai 发表于 2012-3-10 22:12
textbox的属性设为无？

嗯，TEXTBOX控件里面的TEXT属性设置为""
也就是清空文本框内文字。