vb用户界面设计(vb用户界面设计代码)
VB设计一个登陆(注册)界面
将以下代码复制到Form1.frm中，然后用vb打开Form1.frm。
’代码开始
VERSION
5.00
Begin
VB.Form
Form1
Caption
=
"Form1"
ClientHeight
=
1260
ClientLeft
=
60
ClientTop
=
345
ClientWidth
=
4065
LinkTopic
=
"Form1"
ScaleHeight
=
1260
ScaleWidth
=
4065
StartUpPosition
=
3
'窗口缺省
Begin
VB.CommandButton
C1
Caption
=
"确定"
Height
=
495
Left
=
960
TabIndex
=
2
Top
=
480
Width
=
1815
End
Begin
VB.TextBox
T1
Height
=
270
Left
=
840
TabIndex
=
Top
=
120
Width
=
2895
End
Begin
VB.Label
Label1
AutoSize
=
-1
'True
BorderStyle
=
1
'Fixed
Single
Caption
=
"账号："
Height
=
240
Left
=
120
TabIndex
=
1
Top
=
120
Width
=
600
End
End
Attribute
VB_Name
=
"Form1"
Attribute
VB_GlobalNameSpace
=
False
Attribute
VB_Creatable
=
False
Attribute
VB_PredeclaredId
=
True
Attribute
VB_Exposed
=
False
Private
Sub
C1_Click()
Static
num
As
Integer
'定义静态变量，储存次数
If
T1
=
"abcd"
Then
'假设账号为abcd
MsgBox
"登录成功"
End
ElseIf
num
=
3
-
1
Then
MsgBox
"你无权使用本系统"
End
Else
MsgBox
"账号错误,再次一次"
num
=
num
+
1
End
If
End
Sub
'代码结束
关于VB设计中一个用户登录界面的代码
我好像看出来一点问题，，，
Adodc1.Recordset.Fields(1).Value对应是应该是数据库里的“密码”这个字段。
而你是用Adodc1.Recordset.Fields(1).Value
Combo1.Text
进行比较，肯定是比不来出什么正确的结果的，它俩天生就不相等。所以程序会继续向下运行。
用户名应该
对应Adodc1.Recordset.Fields(0).Value
使用VB设计界面，如何让界面更漂亮些
使用无边框窗体，
然后使用各种图片（可以网上去找），
自定义最大化、最小化、关闭等按键，
也可以自定义标题栏，
总之就是用图片去美化。
VB设置用户和密码登录界面设计及代码 我是新手哦 先谢个
Const
Pwd="Admin"
Const
Usr="Admin"
加入两个文本框和一个按钮控件，2个文本框控件名分别为
UsrTxt
和
PwdTxt
按钮控件写代码:
if
UsrTxt
=
Usr
and
PwdTxt=Pwd
then
msgbox
"密码正确!",vbinformation,"提示"
else
msgbox
"密码错误!",vbinformation,"提示"
end
if
这是简单的密码登陆，通过更改常量在程序内部规定用户名和密码!其他的自己琢磨下或者给我发邮件
TimeDev@QQ.Com
VB的登陆界面设计
新建一个文本文档，复制下面代码到记事本，保存后更改后缀为VB窗口文件 frm
更改 txt ----- frm
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "密码登陆窗"
ClientHeight = 1740
ClientLeft = 45
ClientTop = 435
ClientWidth = 4890
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1740
ScaleWidth = 4890
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 270
Left = 1080
TabIndex = 3
Top = 1095
Width = 2295
End
Begin VB.TextBox Text1
Height = 270
Left = 1080
TabIndex = 2
Top = 375
Width = 2295
End
Begin VB.CommandButton Command2
Caption = "取消(C)"
Height = 375
Left = 3720
TabIndex = 1
Top = 1035
Width = 975
End
Begin VB.CommandButton Command1
Caption = "确定(O)"
Height = 375
Left = 3720
TabIndex = 0
Top = 330
Width = 975
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "密 码："
Height = 180
Left = 360
TabIndex = 5
Top = 1155
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "用户名："
Height = 180
Left = 360
TabIndex = 4
Top = 435
Width = 720
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
End Sub
vb中如何设计登录界面怎么连接数据库
（1）新建数据库并命名为denglu，在该数据库中新建表User1,表包含的列为“ID,username,pwd”。
（2）设计登录界面Frmlogin，以及登录成功后要显示的界面Form2,并连接到数据库，使包含在数据库中的合法用户能成功登录该程序，而不合法用户则无法进入程序。