关于vb创建登陆界面

其实也不是很简单的，一会儿这样，一会儿那样，也很烦人的哦

vb设计一个登录界面_用vb做一个登录界面vb设计一个登录界面_用vb做一个登录界面


vb设计一个登录界面_用vb做一个登录界面


vb设计一个登录界面_用vb做一个登录界面


以下代码我加了详细的注释，不需要添加任何控件

private

sub

form_load()

dim

user

as

string,

pwd

as

string,

temp1

as

string,

temp2

as

string,

try

as

integer,

pass

as

integer

user

="admin"

pwd

="12345"

try

='记录尝试次数

me.hide

'隐藏程序主窗体

again:

temp1

=inputbox("请输入用户名：",

"登录")

temp2

=inputbox("请输入密码：",

"登录")

try

=try

+1

if

lcase(temp1)

=user

and

temp2

=pwd

then

'用lcase函数，实现用户名不区分大小写

msgbox

"用户名和密码输入正确！",

0,

"登录"

me.show

'显示程序主窗体

else

if

try

=4

then

msgbox

"用户名和密码输入不正确！错误超过3次，程序将退出！",

0,

"登录"

end

end

if

pass

=msgbox("用户名和密码输入不正确！",

5,

"登录")

'用pass得到用户按重试还是按取消键去响应

if

pass

=2

then

'选择取消

end

else

'选择重试

goto

again

'返回到重新输入用户名和密码的地方

end

if

end

if

end

sub

怎样用VB编写一个登陆系统，可以注册账号的那种

1、打开“Microsoft Visual Basic 6.0 中文版”，选择“标准 EXE”，并单击“打开”按钮，进入软件界面。

2、建立如图所示窗体。

3、双击窗体，定义如下全局变量。

4、双击“开始”按钮。

5、输入如下代码。

6、双击“停止”按钮。

7、双击Timer控件，输入如下代码。

8、运行程序，单击“开始”按钮，计时器开始计时。

VB设置用户和密码登录界面设计及代码 我是新手哦 先谢个

Const

Pwd="Admin"

Const

Usr="Admin"

加入两个文本框和一个按钮控件，2个文本框控件名分别为

UsrTxt

和PwdTxt

按钮控件写代码:

if

UsrTxt

=Usr

and

PwdTxt=Pwd

then

msgbox

"密码正确!",vbrmation,"提示"

else

msgbox

"密码错误!",vbrmation,"提示"

end

if

这是简单的密码登陆，通过更改常量在程序内部规定用户名和密码!其他的自己琢磨下或者给我发邮件

TimeDev@QQ.Com

怎么用VB设计一个登陆界面？

1.首先添加2个label控件，一个caption为用户名，一个为密码然后分别在2个label控件后面添加一个text控件，

2.将text的text属性设置为空再添加2个button按钮，一个名为登陆，一个名为取消简要代码如下：

private sub text2_change() sswordchar=""end subprivate sub button1_click()if text1.text="text" and text2.text="123456" then '这里写验证代码... '通过验证后要干么elsemsgbox("用户名或者密码不正确！")end if end subprivate sub button2_click()endend sub

用vb编一个简单的登录系统

这是一个例子。Access 中有一个表，“学生表”，表中有“姓名”，"学号"字段。

VB窗体有两个，一个名为“Form1", 另一个名为"Form2"

Form1是登录窗体，该窗体上有Text1, Text2 和Command1控件。 在Form1窗体中加入下面代码：

Public cnn As New ADODB.Connection

Public rs As New ADODB.Recordset

Private Sub Form_Load()

cnn.Open "Driver=Microsoft Access Driver (.mdb);DBQ=" & App.Path & "学生表.mdb;"

End Sub

Private Sub Command1_Click()

If (Text1.Text = "") Or (Text2.Text = "") Then

MsgBox "用户名和密码不能为空！", vbOKOnly, "提示："

End If

rs.Open "SELECT FROM 学生表 where 姓名='" & Text1 & "' and 学号='" & Text2 & "'", cnn, adOpenKeyset, adLockOptimistic

If rs.RecordCount > 0 Then

If rs.Fields("学号") = Text2.Text Then

MsgBox "登录成功！"

Unload Me

Form2.Show

Else

Unload Me

End If

End If

rs.Close

End Sub

VB做登录界面，当正确输入帐户和密码，显示登录成功时怎样进入系统界面，如何写代码？在哪写？

弄一个登录的界面。

先新添加一个窗体，在这个窗体上放上你要的控件，比如放用户名呀，密码呀什么的。

然后右键点击你的VB右边的那个小窗口也就是导航窗口上的“工程1”（注，如果你已给你的工程取了名字，此处应该显示的是你取的名字），然后选择“工程项1属性”，这时会弹出一个对话框，里面有个“通用”选项卡，在这个界面里有个启动对象，把你刚建立的窗体设置在里里，然后点击确定，这时程序将可以从你刚建立的窗体启动，你只要在这个刚建立的窗体代码里写上验证密码的代码就可以了，如果密码错误就“end”，正确就"Load

你的主窗体"。

在登录按钮里写代码啊

很简单

if

条件（判断账号和密码是否正确）

then

系统界面.show

me.close

else

msgbox("用户名/密码错误")

end

if