用户登陆界面程序VB设计说明书

合集下载

第02章 VB创建用户界面

第二章创建用户界面
2.1 创建窗体
5.Print方法 5.Print方法
格式：[Object].Print p1 <s> p2 <s> ··· 格式：作用：将文本输出到指定对象上。如果缺省对象，则将内容输出到当前窗体上。例：在程序代码中增加下列内容： Print “新北京！”;“新奥运！” Print “新北京！”,“新奥运！” 运行程序则在窗体上输出如图：
Visual Basic 程序设计
第二章创建用户界面
2.2 常用控件
4．列表框（ListBox）列表框（ListBox）
列出可供用户选择的项目列表。运行时，列出可供用户选择的项目列表。运行时，可用鼠标或箭头键选中其中的一项或多项，选中的项被加亮显示。中的一项或多项，选中的项被加亮显示。
(2)方法 (2)方法
Visual Basic 程序设计
第二章创建用户界面
2.1 创建窗体
(2) 窗体的方法
窗体可调用多个方法。常用的方法有： • Hide Hide：隐藏窗体。(如图) • Move Move：把窗体移到某个位置。 • Print Print：显示文本或数据。 • PrintForm ：打印窗体。 • Refresh Refresh：强制重新绘制一个窗体。 • Show Show：显示窗体。
(3) 窗体的事件
窗体可以响应许多事件。常用的事件有： • Click Click：单击。 • Dbclick Dbclick：双击。 • Load Load：装载。 • Resize Resize：调整尺寸。 • Activate Activate：激活。 • Deactivate：失去激活。 Deactivate Visual Basic 程序设计

用VB编写登录程序

用VB编写登录程序○王海燕我们在使用许多软件时都遇到过这样的情况,当你运行它时,通常需要用户输入一个用户名和密码才能进入,其实我们在编制自己的软件时,也完全可以自己设计一个必须输入密码才能登录运行的程序。

现将登录程序的编写过程介绍如下。

一、建立窗体首先,打开"VB6.0",出现"新建工程"对话框,选择"标准EXE"单击"打开"即可新建一个工程。

新建一个工程后,VB自动生成了一个窗体,其默认的名称是Form1,且显示的标题也是Form1,显然与我们要编写的程序不符。

我们可以更改这些设置,方法是点击Form1窗体,在右边的属性窗口中的"名称"后输入"Denglu"(在后面讲的Denglu就是指的这个窗体),在"Caption"后输入"登录窗口"。

窗体设置好后,我们便可以将控件放置到这个窗体中去了。

二、加入控件"登录窗口"中主要用到的是TextBox（文本框）控件,该控件主要是用于接收用户输入的文字并显示出来。

在该程序中我们便可以使用TextBox控件接收用户输入的信息来判断是否是合法的用户。

另外,我们还将用到Label(标签)控件及CommandButton(命令按钮)控件。

Label控件用来显示"用户名"及"密码"标题;CommandButton控件用来设计"确定"及"取消"按钮。

下面我们将这些控件放置到窗体中,在工具箱中选择"Label"控件,在窗体中拖动鼠标直到一定的大小,然后在属性窗口中的"Caption"属性后输入"用户名",然后在其下方再拖动一个Label控件,将Caption的值改为"密码:";在工具箱中选择"TextBox"控件,在"用户名"后拖动一个TextBox控件,用同样的方法在"密码:"后拖动一个TextBox 控件,然后在"属性窗口"中将Text的值改为空(即删除默认的Text1),为了不显示出用户输入的密码,我们将第二个TextBox控件的PasswordChar属性设置为,这样在用户输入密码时显示的就是了;在工具箱中选择"CommandButton"控件,将其拖动到窗体的下方(一共两个),分别将其Caption属性设置为"确定"和"取消"。

用户登陆界面程序vb设计说明书

工程学院课程设计说明书课程名称: 计算机应用基础课程设计课程代码:题目: 用户登录界面程序设计年级/专业/班: 学生姓名:学号:开始时间: 2011 年 4 月25 日完成时间: 2011 年 5 月 8 日课程设计成绩：指导教师签名：年月日目录摘要 (2)1 引言 (3)2 设计方案 (4)2.1程序功能设计 (4)2.1.1系功能描述 (5)2.1.2系结构分析 (5)2.1.3系统流程分析 (5)2.2程序界面和代码设计 (7)2.2.1系统工程设计框架 (7)2.2.2系统各界面设计及代码设计 (7)3 结果分析 (11)结论 (14)致谢 (15)参考文献 (16)摘要随着计算机的普及，计算机高级语言已经运用到生活中的各个方面，本次课程设计使用VB语言作为开发工具，进行了用户登录系统的程序设计，该程序能实现用户登录系统的模拟功能，进行用户的登录，提醒，注册，退出等操作，这些操作都能模拟实际生活中的登录情况，最后分析所开发软件系统的优点和不足。

该运行界面清晰实用，操作方便。

关键词：用户登录模拟操作界面1 引言随着科学技术的发展，计算机已经应用到生活、工作的各个方面。

VB一种可视化的、面向对象和采用事件驱动方式的高级程序设计语言，可用于开发Windows环境下的各类应用程序。

本次课程设计主要内容就是使用VB编制简单、实用的小程序，以巩固我们所学的计算机VB语言知识，提高分析问题和解决问题的能力，锻炼我们独立动手的能力以及综合创新能力。

1.1 选题背景通过一个学期对Visual Basic 高级语言程序设计的学习，我已经掌握了一些常用的控件的使用方法，对简单的程序设计的常用算法也有了一定的了解，还掌握了对文件输入与输出的一些基本操作。

为了进一步加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化Visual Basic对程序流程控制、常用控件的属性、事件、方法的理解和使用；为了进一步提高编程能力、程序的调试能力，理论联系实际的能力；巩固所学的这些程序设计的方法，为了达到后续课程对实际编程计算能力的要求，特选定“用户登录界面程序设计”题目作为课程设计实践教学环节的题目，有助于培养综合运用所学知识解决实际问题的能力，可以充分发挥想象力和创新能力；有助于提高独立思考能力，自学能力1.2任务与分析任务：设计一用户的登录窗口界面，实现模拟用户登录系统时的各种情况具体要求：遵循面向对象和结构化程序设计的编程思路，设计合理的界面，设置所需控件及其属性，编写相应的事件过程，并上机调试程序，在基本要求达到后，进行一定创新设计预期功能：实现用户成功登录系统，当用户明不正确或者密码错误时，提醒用户重新输入或者注册，当三次登录失败时，强制性退出操作界面。

vb程序设计登陆界面代码详例

vb程序设计登陆界面代码详例Imports System.Data.SqlClientPublic Class frmMagementMain'Inherits System.Windows.Forms.FormDim constr As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)" '定义一个变量，连接字符串Dim sqlstr As String = "select * from manid" '定义一个变量，SQL语句Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象Dim myReader As SqlDataReader '定义一个变量，阅读器Dim i As Integer = 0Dim userIDsys() As ArrayPrivate Sub frmMagementMain_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadmycon.Open() '打开这个联接myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器myReader.Read()Dim k As Integer = 0While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项k = k + 1'MsgBox(myReader.Item(1))End WhileMsgBox(k)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click' Visual Basic 2005' Declare a new TextBox.Dim TextBox2 As New TextBox' Set the location below the first TextBoxTextBox2.Left = 102TextBox2.Top = 242' Add the TextBox to the form's Controls collection.Me.Controls.Add(TextBox2)TextBox2.Text = "这可是我动态加的控件呀"End SubPrivate Sub mnu_magement_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles mnu_magement.ClickDim frmlogin As frmlogin = New frmloginfrmlogin.Show()'GBmagemetPeple.Left = 8'GBmagemetPeple.Top = 28'GBmagemetPeple.Visible = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.ClickEnd SubEnd Class/////////////////////////////////////Imports System.Data.SqlClientPublic Class frmloginDim i As Integer = 0Dim constr1 As String = "" '定义一个变量，连接字符串Dim sqlstr1 As String = ""Dim mycon1 As New SqlConnection(constr1) '定义一个变量，为一个连接对象Dim mycom1 As New SqlCommand(sqlstr1, mycon1) '定义一个变量，为命令对象Dim myReader1 As SqlDataReader '定义一个变量，阅读器Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles OK_Button.ClickIf txtUsename.Text = "" Or txtPassword.Text = "" ThenMsgBox("请输入用户名和密码")Exit SubEnd Ifsqlstr1 = "select * from mgpep where usernameID='" & txtUsename.Text & "' andpasswordID='" & txtPassword.Text & "'" '定义一个变量，SQL语句constr1 = "User ID=sa;pwd=a;Initial Catalog=SaleCD;DataSource=(local)" '定义一个变量，连接字符串mycon1.ConnectionString = constr1mandText = sqlstr1mycon1.Open() '重新打开这个联接myReader1 = mycom1.ExecuteReader '第二次把这个命令的连接送入阅读器If myReader1.VisibleFieldCount = 0 ThenMsgBox("密码不对请重新输入～")Exit SubEnd IfmyReader1.Read() '阅读器重新使用read方法On Error GoTo ssIf myReader1(0) > 0 ThenfrmMagementMain.GBmagemetPeple.Visible = Truesqlstr1 = "select * from mgpep"If mycon1.State = 1 Thenmycon1.Close()End Ifmycon1.Open()myReader1 = mycom1.ExecuteReader '把这个命令的连接送入阅读器Dim userIDsys(myReader1.VisibleFieldCount - 1, 2)'ReDim userIDsys(10, 2)Dim k As Integer = 0While myReader1.ReadfrmMagementMain.CmbUser.Items.Add(myReader1(0)) For i = 0 To 2userIDsys(k, i) = myReader1.Item(i)Nextk = k + 1End WhileMsgBox("已经成功登录～")mycon1.Close()Me.Close()Exit SubElseMsgBox("您没有权限登录～")mycon1.Close()Me.Close()Exit SubEnd Ifss:MsgBox("您没有权限登录～")Me.Close()End SubPrivate Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Cancel_Button.ClickMe.Close()End SubEnd ClassPublic ADOcn As ConnectionPublic Sub main()Dim strSQLServer As StringstrSQLServer = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=图书销售管理系统;DataSource=longmingxue\SQLEXPRESS"Set ADOcn = New ConnectionADOcn.Open = strSQLServerFrmMain.ShowEnd SubPrivate Sub Command1_Click()Dim ADOrs As New RecordsetDim strSQL As StringDim strXB As StringADOrs.ActiveConnection = ADOcnADOrs.Open "select 学号 from 学生表"If Not ADOrs.EOF ThenMsgBox "该学号已经存在，不能继续添加～", vbCritical + vbOKOnly, "信息提示"ElseIf Option1.Value ThenstrXB = "男"ElsestrXB = "女"End IfstrSQL = "Insert Into 学生表( 学号,姓名,性别)"strSQL = strSQL + " Values('" + Text1 + "','"strSQL = strSQL + Text2 + "','" + strXB + "')"ADOcn.Execute strSQLMsgBox "添加成功～", vbOKOnly, "信息提示"End IfEnd Sub。

VB程序设计程序用户界面设计

返回或设置用户所要打开或另存为的文件名
过滤器属性，是一个字符串，用于设置对话框中可以显示的文件类型
过滤器索引属性，是一整数，表示文件列表框中默认的文件类型是Filter属性的设置的第几组。
初始化路径属性，设置对话框的初始文件目录
DefaultExt
设置保存文件时默认的文件扩展名
“颜色”对话框的常用属性
实例5-1程序界面
实例5-1程序实现分析
通用对话框的属性设置在窗体中显示图像文件的路径与文件名
的实现如何调用外部程序编辑图像文件实现步骤代码清单
自定义对话框
创建自定义对话框就是建立一个窗体，然后根据实际需要或自己的喜好在窗体上放置控件，通过设置属性值来自定义窗体的外观。
通用对话框的属性和方法
Action属性 0 1 2 3 4 5 6
Show方法
ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp
打开的通用对话框的类型无对话框显示打开文件对话框另存对话框颜色对话框字体对话框打印机对话框帮助对话框
坐标位置][，y坐标位置]）使用示例：
s= InputBox("请输入您的Email地址", "用户信息输入") 说明
输出消息框
基本格式：MsgBox（提示信息，[，按钮数值][，标题]）
使用示例：c=MsgBox("密码错",21， "密码核对" )
说明（详见教材）
用于指定按钮数目及形式的VB常数
5
显示“重试”、“取消”按钮
用于指定图标样式的VB常数
VB符号常量 VbCritical VbQuestion VbExclamation VbInformation

VB6.0程序设计课件_制作登录窗体

4.3 制作登录窗体一、复习1、文本框控件的常用属性有哪些？上一章讨论了文本框控件的属性、方法、事件及如何将文本框控件设置访问键。

本节课我们来通过制作小程序，学习命令按钮控件的属性、事件。

二、本节重点1、命令按钮控件(CommandButton)的常用属性2、命令按钮控件(CommandButton)的常用事件三、自主学习1、命令按钮的常用属性。

除了具有控件的通用属性外，命令按钮还具有以下属性。

1）Cancel：返回或设置一个值，用来指示窗体中命令按钮是否为“取消”按钮。

如果设置为True，则命令按钮控件时“取消”按钮，此时可通过按“ESC”键选中该按钮；如果设置为False（默认值），则命令按钮控件不是“取消”按钮。

窗体中只能有一个命令按钮时取消按钮。

当某个命令按钮的Cancel设置为True时，其他命令按钮自动设置为False。

2）Defaule：返回或设置一个值，以确定哪一个命令按钮控件是窗体的默认命令按钮。

若设置为True，则该命令按钮是默认命令按钮，此时可通过按“Enter”键选中该按钮。

若设置为False（默认值），则该命令按钮不是默认命令按钮。

窗体中只能有一个命令按钮可以是默认命令按钮。

当某个命令按钮的Defaule 设置为True时，窗体中的其他命令按钮自动设置为False。

3）Style：返回或设置一个值，指示控件的显示类型和行为。

该属性有以下设置值：0-vbButtonStandard（默认值）表示标准的没有相关图像命令按钮，1-vbButtonGraphical表示图像样式按钮，可通过Picture属性设置在按钮中显示的图像。

该属性在运行时是只读的。

4）Value：返回或设置指示该按钮是否可选的值，在设计时不可用。

如果该属性为True，则表示已选择该按钮；如果为False（默认值）表示没有选择该按钮。

如果在代码中设置Value属性值为True，则激活该按钮的Click事件。

VB6.0Access制作登陆界面超详细讲解（适合新手）

VB6.0 + Access‎制作登陆界面‎&超详细讲解&（适合新手）前段时间，我也为用VB‎ 6.0制作登陆界‎面而痛苦，为此，我没少上百度‎，没少查资料，终于，现在大功告成‎了，现在我也来分‎享一下我的个‎人经验！（在说步骤之前‎，我要着重强调‎，要完成本实例‎，首先得进行的‎步骤是“工程”——>“引用”——> Micros‎o ft Active‎X Data Object‎s2.X Librar‎y,即ADO(建议用2.6往上)）步骤一：建立数据库要想用Acc‎e ss中存放‎的帐号数据来‎登陆，肯定要先有存‎放帐号密码的‎数据库吧，这里假设我们‎用到的数据库‎为 Test ，其中有一张表‎，叫做test_i‎nfo ，表中有两个字‎段，分别是userID‎和 passwo‎r d ，分别存放登陆‎帐号和密码。

步骤二：新建窗体①在VB中，本就有现成的‎登陆窗体，我们可以直接‎选择，当然，也可以创建一‎个空白的窗体‎，我们自己添加‎内容（即“控件”），然后Capt‎i on 属性设置为“登陆”或者“login”，当然，也可以自己随‎意添加，主要用来让窗‎口显示我们希‎望的标题。

②建立登陆界面‎，肯定是想登陆‎成功后进入另‎一个界面，因此，我们需要再添‎加一个窗体，用来验证登陆‎是否成功，在这里，我们将这个窗‎体的Name‎(名称) 属性设为默认‎的Form2步骤三：设置窗体首先向新建的‎窗体分别添加‎两个 Label 控件、两个 TextBo‎x控件和两个Comman‎d Butto‎n，各控件属性如‎下表：如果想让按下‎回车就默认选‎择“确定”按钮，只需将 Comman‎d1 的Defau‎l t 属性更改为 True 即可，设置好后的窗‎体如下图步骤四:填写代码（最重要的一步‎）说到代码，我想就是大家‎最关切的问题‎了，那我就具体来‎说说这个代码‎吧，首先双击窗体‎，打开代码编辑‎界面，输入如下代码‎：Privat‎e Sub Form_L‎o ad() ‘此段代码的主‎要作用是当窗‎体打开时就连‎接数据库Dim conn As New ADODB.Connec‎t ionDim connec‎t ionst‎r ing As String‎Connec‎t ionst‎r ing = "Provid‎e r=Micros‎o ft.Jet.OLEDB.4.0;Data Source‎=" & "E:\Test.mdb;Persis‎t Securi‎t y Info=False" ‘将Data Source‎处的路径改为‎你本机数据库‎所在路径即可‎conn.Open connec‎t ionst‎r ingEnd Sub接着双击“确定”，同样的，输入如下代码‎：Privat‎e Sub Comman‎d1_Cli‎c k()Dim sql As String‎Dim conn As New ADODB.Connec‎t ionDim rs_log‎i n As New ADODB.Record‎s etIf Trim(Text1.Text) = "" Then ‘检测用户名正‎确与否MsgBox‎"用户名不能为‎空，请重新输入！", vbOkOn‎l y + vbExcl‎a matio‎n, "错误"Text1.SetFoc‎u sElsesql = "select‎* from Test where test_i‎n fo = '" & Text1.Text & "'" rs_log‎i n.Open sql, conn, adOpen‎K eyset‎, adLock‎P essim‎i sticIf rs_log‎i n.EOF = True ThenMsgBox‎"用户名不存在‎，请重新输入！",vbOkOn‎l y + vbExcl‎a matio‎n, "错误"Text1 = ""Text1.SetFoc‎u sElse ‘检测密码正确‎与否If Trim(rs_log‎i n.Fields‎(1)) = Trim(Text2) Thenrs_log‎i n.CloseUnload‎MeForm2.ShowElseMsgBox‎"密码错误，请重新输入！", vbOKOn‎l y + vbExcl‎a matio‎n, "错误"Text2.SetFoc‎u sEnd IfEnd IfEnd IfEnd Sub最后双击“取消”按钮，输入如下代码‎：Privat‎e Sub Comman‎d2_Cli‎c k()MsgBox‎"您已成功退出‎！", vbOkOn‎l y + vbExcl‎a matio‎n, "提示"Unload‎MeEnd Sub如果想加入三‎次输入错误就‎退出的功能，这个倒网上找‎个小代码加入‎Comman‎d_Clic‎k()就行了，思路是定义一‎个变量，赋初值为 0 ，错误一次，这个变量增加‎1，如果这个变量‎等于 3 了，就 Unload‎Me。

vb课程设计电子文档

目录一、程序设计的需求分析与设计目标 (2)1.1课程设计的目的 (2)二、界面设计 (2)2.1程序首页 (2)2.2 登陆界面 (3)2.3索引目录 (4)2.4 XX宿舍简介 (4)2.5个人信息 (5)2.6宿舍成员简介 (6)2.7文艺展览 (7)2.8信息记录与预览 (8)2.9结束界面 (9)三、触发顺序流程图 (10)四，源程序代码.......................................................................... 错误！未定义书签。

4.1 程序首页............................................................................... 错误！未定义书签。

4.2 登陆界面............................................................................... 错误！未定义书签。

4.3索引目录................................................................................ 错误！未定义书签。

4.4 XX宿舍简介......................................................................... 错误！未定义书签。

4.5 个人信息............................................................................... 错误！未定义书签。

4.6 宿舍成员简介....................................................................... 错误！未定义书签。

vb登陆

Else
Static WrongTime As Integer
WrongTime = WrongTime + 1
If WrongTime = 2 Then End
MsgBox "密码错误!", vbExclamation, "友情提示"
If Myrs.RecordCount = 0 Then
MsgBox "用户不存在!", vbExclamation, "友情提示"
Exit Sub
End If
Myrs.MoveFirst
If TxtPassword.Text = Myrs.Fields("password") Then '登陆成功
TxtPasswordSure.SetFocus
Exit Sub
End If
If CmdLoad.Caption = "注册" Then
If TxtPasswordSure.Text <> TxtPassword.Text Then
MsgBox "密码和确认密码不同!", vbExclamation, "Sorry"
Else
Myrs.Fields("Run") = "0"
End If
Myrs.Update
Myrs.MoveNext
Next
'登陆成功,你加入要执行的操作.
Unload Me '登陆窗口卸载
If Dir(App.Path & "\save.mdb", vbHidden) = "" Then '数据文件不见了

如何用VB编写一个用户登录窗口

方法/步骤6
在form1窗体里，双击“登录”按钮，弹出代码窗口，写上代码（在编写代码时系统会自动检查代码错误，但不是万能的哦，有些错误系统检查不出来），然后关闭代码窗口，代码会自动保存。我把代码也写下来，以方便亲手复制粘贴验证一下。 Private Sub Command1_Click() If Text1 = "aaa" And Text2 = "abc123" Then Form1.Hide Form2.Show Else Form1.Hide Form3.Show End If End Sub
方法/步骤4
在右边右键点击 “窗体”，选中 “添加”，点击 “添加窗体”，如图在出现的窗口里双击“窗体”，添加一个form2窗体；用同样的方法再添加一个form3窗体。
方法/步骤5
在form2窗体各添加一个标签和按钮。在标签的 Caption属性值改为“登录成功！”也可以通过Font 属性更改字体；按钮的 Caption属性值改为“返回”。在form3窗体各添加一个标签和按钮。在标签的 Caption属性值改为“用户名或密码错误，请重新登录！”也可以通过Font属性更改字体；按钮的 Caption属性值改为“重新登录”。
方法/步骤9
在form3窗体里，双击“重新输入” 按钮，弹出代码窗口，写上代码，然后关闭代码窗口。 Private Sub Command1_Clic k() Form3.Hide Form1.Show Form1.Text1 = "" Form1.Text2 = ""先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文本框然后再从控件栏选择按钮控件在form1窗窗体的相应位置画两个大小适合的按钮

VB用户界面设计

说明：窗体的坐标
X轴屏幕原点窗体原点框架Top 框架Width 框架原点窗体Height 框架Height 按钮Height 窗体Left 按钮Left 框架Left 按钮Top
窗体Top
窗体Width
按钮Width
Y轴
3.1.2 窗体的事件

窗体作为对象，能够对事件作出响应。
窗体事件过程的一般格式为：
文件列表框
实例：图片浏览器
自定义一个打开图片的对话框，并使该对话框具有预览图片的功能。

实例：图片浏览器
程序运行界面

用来判断用户在驱动器列表框中选择驱动器名。

例如：Dir1.Path = Drive1.Drive
Dir1.Path = “c:\windows”
ListIndex=-4

常用事件是Change事件，当Drive属性改变时发生。
ListIndex=3 ListIndex=1 ListIndex= 1 ListIndex=4 ListIndex=2 ListIndex= 0
6.5.3文件列表框（FileListBox
文件列表框的作用是显示当前目录的文件名。文件列表框的常用属性有：Path，Pattern，FileName

Path属性：被显示的目录；
Pattern属性：限定的文件类型；
FileName属性：值是用户在列表框中选定的文件名。

文件列表框中的常用事件是： Click 和 DbClick。
第3章用户界面设计
本章要求：

掌握窗体对象的常用属性、事件和方法
掌握窗体的添加、设置和启动方法掌握基本控件（文本框、标签等）的常用属性、事件和方法掌握通用对话框控件的添加，以及打开、保存、字体、颜色打印等对话框的使用

vb程序设计登陆界面代码详例

vb qq

实验四QQ登录应用程序
Combo1中选择收入标准，Text1中显示相应的税率；组合框中的数据项可在属
图1 QQ登录界面图2 QQ好友展示界面图3 好友聊天界面
登录界面好友展示界面个人资料聊天界面
作品功能介绍：
1.qq登陆界面功能，QQ图片展示QQ账号密码输入，密码字符为*登录按钮，检测账号密码正确进入好友展示界面。

具备查杀木马功能（可选如果账号输入有误，给出msgbox消息框。

7. 添加combo 控件，实现登录状态（在线、隐身、离开）选择，使用public变量实现好友状态显示
自己的在线状态颜色随机变幻；换肤功能，单击“换肤”，窗体背景色变换颜色；
QQ聊天界面分组显示成员头像；单击个人头像显示个人资料；
个人资料功能，显示跟人资料；计算工资所得税；你到已经快乐生活了多少天，其中学习用了多少小时，睡觉用了多少小时；
聊天窗口功能，复制，粘贴，剪切。

发送消息；改变字体颜色；。

vb制作登陆界面

体验用vb制作登陆界面的美感（程序源代码）先建一个模块在里面输入下列内容：Public conn As ADODB.ConnectionSub main()Set conn = New ADODB.Connectionconn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _+ "User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"conn.Openfrom1.Show’登录界面End Sub再在登录界面“确定”下写入如下代码：Private Sub Command1_Click()If id.Text = "" ThenMsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"id.SetFocusExit SubEnd IfIf password.Text = "" ThenMsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"password.SetFocusExit SubEnd IfDim strSQl As StringstrSQl = "select * from Users where users_name='" & Trim$(id.Text) & "' and password='" & Trim$(password.Text) & "' "Dim str As New ADODB.RecordsetSet str = New ADODB.Recordsetstr.CursorLocation = adUseClientstr.Open strSQl, conn, adOpenStatic, adLockReadOnlyWith strIf .State = adStateOpen Then .Close.Open strSQlIf .EOF ThenTry_times = Try_times + 1If Try_times >= 3 ThenMsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"Unload MeElseMsgBox "对不起，用户名不存在或密码错误！", vbOKOnly + vbQuestion, "警告"id.SetFocusid.Text = ""password.Text = ""End IfElseUnload MeForm2.Show’登录进入的另一个界面End IfEnd WithEnd Sub。

Vb登陆界面设计

Vb登陆界面设计1.所用主要控件，以及关键属性：2.使用了什么样的过程和方法登陆界面程序代码：Dim i As Integer, j As IntegerPrivate Sub Command1_Click()If Text2 <> "2008512" Thenj = j + 1i = MsgBox("请重新输入密码？", vbOKCancel + vbQuestion, "密码错误！" & "第" & j & "次")If i = 1 ThenText2.Text = ""Text2.SetFocusIf j > 3 ThenMsgBox ("密码错误3次，强制退出！")EndElseText2.Text = ""Text2.SetFocusEnd IfEnd IfIf i = 2 ThenEndEnd IfElseLoad Form2Form2.ShowEnd IfEnd SubPrivate Sub Text1_LostFocus()If IsNumeric(Text1) = False ThenMsgBox ("请输入数字！")End IfEnd Sub程序实现的功能：用户名必须输入数字，不然会出现提示窗口：请输入数字。

密码如果输入正确则进入form2登录成功界面，输入错误会出现提示窗口：密码错误！第n次，请重新输入，当三次输入错误时，提示密码输入超过3次，程序自动结束。

3．上机遇到的问题开始对于变量的声明不是很清楚，不懂全局变量和局部变量的作用范围，后来上百度搜索并且和同学讨论使得程序得以顺利编完。

循环的嵌套问题还是不是很清楚，下课还要在研究一下，多参照些课外资料，多上网搜搜。

登录界面VB课程设计

登录界面VB课程设计一、课程目标知识目标：1. 让学生掌握VB编程中登录界面的基本设计原理和实现方法；2. 学会使用VB语言中的控件，如文本框、按钮等，完成登录界面的布局和功能实现；3. 了解计算机编程中变量、条件语句和循环语句的应用，为后续功能拓展打下基础。

技能目标：1. 培养学生运用VB语言设计登录界面的实际操作能力；2. 提高学生分析问题、解决问题的能力，使其能够独立完成登录界面的编写和调试；3. 培养学生团队合作意识，通过小组讨论和协作，共同完成课程设计任务。

情感态度价值观目标：1. 激发学生对计算机编程的兴趣和热情，培养其主动学习的习惯；2. 培养学生面对困难和挫折时的坚持和毅力，使其具备克服编程中各种问题的信心；3. 引导学生关注网络安全，了解登录界面在保护用户隐私方面的重要性，提高其社会责任感。

分析课程性质、学生特点和教学要求，本课程目标旨在使学生在掌握登录界面VB编程的基础上，提高其编程技能和实际操作能力，培养其团队协作和情感态度价值观。

课程目标具体、可衡量，以便于教学设计和评估的实施。

二、教学内容本章节教学内容依据课程目标，结合教材，科学系统地组织以下内容：1. VB编程基础回顾：变量、数据类型、运算符等基本概念；2. 控件应用：文本框、按钮、标签等控件的使用方法；3. 界面设计原则：登录界面的布局、美化和用户交互设计；4. 功能实现：使用条件语句和循环语句完成登录验证功能；5. 项目实践：分组进行登录界面设计，培养学生的实际操作能力和团队协作精神。

教学大纲安排如下：第一课时：回顾VB编程基础，介绍控件应用，分析登录界面设计原则；第二课时：讲解并演示登录界面功能实现，引导学生动手实践；第三课时：分组讨论和协作，进行登录界面项目实践，教师巡回指导；第四课时：展示学生作品，进行评价和总结，巩固所学知识。

教学内容与教材紧密关联，确保学生在掌握基本知识的基础上，逐步提高编程能力和实践操作技能。

VB教程用户界面设计

确定
通用对话框图标
第10章用户界面设计
16
10.2.1 通用对话框的基本属性和方法
1. CommonDialog控件的基本属性
（1） Action属性：该属性决定打开何种类型的标准对话框，其取值如表10.4所示。该属性不能在属性窗口中设置，只能在程序中赋值。
表10.4
打开通用对话框的方法与Action属性设置
第10章用户界面设计
6
10.1 菜单设计
10.1.2 下拉式菜单
在下拉式菜单中，一般有一个主菜单，称为菜单栏。每个菜
单栏包括一个或多个选择项，称为菜单标题。在下拉式菜单中，一般只需要对下拉菜单的最低级菜单项编写单击事件代码，如果对一个有下级菜单的菜单项编写了单击事件，则在执行下一级菜单时，该菜单程序将先执行。菜单控件（对象）只有一个事件——单击事件（Click()）
第10章用户界面设计
11
10.1.3 弹出式菜单设计
表10.2 flags参数值表
位置常数 vbPopupMenuLeftAlign vbPopupMenuCenterAlign vbPopupMenuRightAlign 行为常数 vbPopupMenuLeftButton vbPopupMenuRightButton 值值描述 0 缺省值。弹出式菜单的左边定位于 x。 4 弹出式菜单以 x为居中心。 8 弹出式菜单的右边定位于 x。描述 0 缺省值。仅当使用鼠标右键单击时，弹出式菜单中的项目才响应鼠标单击。 2 弹出式菜单中的项目可接受左、右键单击。
17
（2）Name属性：CommonDialog控件的名称属性。
（3）CancelError属性：多数对话框都有“取消”按钮，用于向应用程序表示用户想取消当前操作。CancelError属性的作用是向应用程序报告用户取消当前的操作，通过一个错误报告给应用程序。如果该属性设置为True，在程序的运行阶段，用户选择“取消”操作时，出现错误提示。默认是False，不出现错误提示。对话框打开后，为了防止用户没有输入任何信息便使用取消操作，则可用此属性设置出错警告。（4）Flags属性：用于设置对话框外观及工作方式。对于每种对话框都有许多不同的设置值。在通用对话框的使用过程中，每种对话框都有自己的特殊属性。CommonDialog控件的属性可以在属性窗口中设置，也可在其“属性页”对话框中设置。在窗体中的 CommonDialog控件上右击，在弹出的快捷菜单中选择“属性”命令，打开“属性页”对话框，该对话框中有五个选项卡，分别可对不同类型的标准对话框设置属性。

VB用户界面设计

VB的图形控件主要有两个，它们是画线控件Line 和形状控件Shape。
[例3-19] 利用画线控件和形状控件设计一指针式秒表如图3-21所示。程序启动后，点击窗体上的“开始”按钮，表的指针开始转动，每秒动一下，一分钟转一圈。指针转动时，命令按钮的标题变为“暂停”，如果此时再点击命令按钮，指针停止转动。命令按钮的标题又变为 “继续”，再点击，指针又开始转动。
3.10.2 MDI窗体的创建
1. 建立有一个子窗体的MDI窗体。（有六个操作步骤）
2. 建立有多个子窗体的MDI窗体。（有四个操作步骤）
3. 子窗体的排列完成子窗体的排列操作，要使用
MDIForml的Arrange方法，其语法格式为： MDIForml 名称 .Arrange 排列方式
3.4.3 复选框(CheckBox)
[例3-13]设计一程序，通过复选框来控制用户界面上的文本框中文字的字体、字型、颜色和大小。
3.4.4 框架（Frame）
[例3-14]重新设计例3-13的用户界面，用框架控件将9个单选按钮分为3组，一组用来改变文本框中文字的字体；一组用来改变字的大小；一组用来改变字的颜色。
[对象.] Pset [Step] (x, y), [color]
[例3-20] 利用Pset方法或Line方法均可以画出任意曲线。下面用Pset方法在图片框中绘制阿基米德螺旋线，用Line方法画一正弦曲线。
3.8 公用对话框
“公共对话框”(Common Dialog)控件为用户提供了一组标准的系统对话框，可以使用它进行打开或保存文件、设置打印选项、选择各种颜色以及选择字体等的操作。另外还可以通过调用Windows帮助引擎来显示应用程序的帮助。

VB制作系统登录界面,包括用户名,密码和错误校验及效果全代码

VB制作系统登录界面,包括用户名,密码和错误校验及效果全代码VB制作系统登录界面，包括用户名，密码和错误校验及效果全代码第十讲:教你用VB制作系统登录界面，包括用户名，密码和错误校验及效果全代码以下代码均为个人学习心得，经过测试并且无误，可以嵌入大型程序中作为身份认证的功能作用。

其中有一些窗体名和效果代码，不必复制，否则会出现错误，请仔细阅读核心代码理解即可。

红色代码部份为实现用户检测的关键代码，必需要有后台数据库用来存放用户信息，通过conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\HISDB.mdb"来连接，然后用If rs.EOF = True Then进行判断表中是否存在用户信息即可。

Option ExplicitDim Cnum As IntegerPrivate Sub CmdCancel_Click()'//结束EndEnd SubPrivate Sub CmdLogin_Click()Dim UserName As StringDim PassWord As StringDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim StrSQL As Stringconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &App.Path & "\HISDB.mdb"UserName = Trim(TxtUserName.T ext) '//将文本框内的值赋给定义好的全局变量PassWord = Trim(TxtPassword.Text) If UserName = "" Or PassWord = "" ThenMsgBox "对不起，用户或密码不能为空～请重新输入～～", vbCritical, "错误"ElseIf UserName <> Empty And PassWord <> Empty Then '//用户名与密码是否为空Cnum = Cnum + 1StrSQL = "select * from 用户信息表where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"rs.Open StrSQL, conn, adOpenKeyset, adLockPessimistic '//打开记录集If rs.EOF = True ThenMsgBox "对不起，无此用户或者密码不正确～请重新输入～～", vbCritical, "错误"TxtUserName.T ext = ""TxtPassword.Text = ""TxtUserName.SetFocusrs.CloseIf Cnum >= 3 ThenMsgBox "对不起，您已经多次失败，无权操作本系统～", vbCritical, "无权限"Unload MeExit SubEnd IfElse '登陆成功,以下为权限验证If rs.Fields("用户权限").Value = "系统管理" Then Frmmdimain.Show Unload MeElseIf rs.Fields("用户权限").Value = "挂号" ThenFrmregistration2.ShowUnload MeElseIf rs.Fields("用户权限").Value = "诊断" Then Frmdiagnose2.Show Unload MeElseIf rs.Fields("用户权限").Value = "收费" Then Frmcharges2.Show Unload MeElseIf rs.Fields("用户权限").Value = "发药" Then Frmmedicine2.Show Unload MeEnd Ifrs.CloseEnd IfEnd IfEnd SubPrivate Sub Form_Load()'//加载主窗时给文本框赋值TxtUserName.T ext = "Admin"TxtPassword.Text = "123"Cnum = 0End SubPrivate Sub TmrChangeColor_Timer() '//调用定义好的改变颜色过程, Call changecolor(LblWelcome(0), 0, 1, 2, 3, 4, 5, 6, 7) End SubPrivate Sub TmrMoveText1_Timer() '//移动LblShaSiLblShaSi(0).Move LblShaSi(0).Left + 20 LblShaSi(1).Move LblShaSi(1).Left + 20 End SubPrivate Sub TmrMoveText2_Timer() '//移动LblShaSiIf LblShaSi(0).Left + LblShaSi(0).Width >= Me.Width +LblShaSi(0).WidthThenLblShaSi(0).Move -1500End IfIf LblShaSi(1).Left + LblShaSi(1).Width >= Me.Width +LblShaSi(1).WidthThenLblShaSi(1).Move -1500End IfEnd Sub'//定义一个改变颜色的过程,下面的control就是我们所说的控件Sub changecolor(LCnt As Control, color1 As Integer, _ color2 As Integer, color3 As Integer, _color4 As Integer, color5 As Integer, _color6 As Integer, color7 As Integer, _color8 As Integer)Dim tmep As Integertmep = Val(LCnt.T ag) '//将返回包含于字符串内的数字赋给TEMP Select Case tmepCase color1LCnt.Tag = color2Case color2LCnt.Tag = color3Case color3LCnt.Tag = color4Case color4LCnt.Tag = color5Case color5LCnt.Tag = color6Case color6LCnt.Tag = color7Case color7LCnt.Tag = color8Case color8LCnt.Tag = color1End SelectLCnt.ForeColor = QBColor(LCnt.Tag) '//给控件LCnt中的字体赋予颜色,注意QBColor是将一值'//转换为三色,MSDN详解,我也是在那查的````哈End Sub。

第二章 VB的界面设计

第二章VB的界面设计2.1 VB用户界面设计基础1. 概述界面的设计有两步：先绘制控件，然后确定控件属性。

绘制控件：在工具箱里单击想画的控件，在窗体里按下鼠标并拖曳，然后松开鼠标即可。

确定属性：先选中控件，然后按F4键或单击工具栏上的属性窗口进入属性（Properties）窗口，再在属性窗口中找到要设置的属性并进行设置。

2. 常用属性的设置（1）Name属性对象都有名字，计算机把名字看成对象于对象之间的根本差异，因此在同一窗体里不许出现重名的情况（除非这是一个控件数组），且名字不得超过40个字。

在简单的程序里，给控件命名不是很必要，完全可以使用控件Name属性的缺省值。

例如Text1。

但在有几十个控件的复杂窗体里，就很难区分它们。

所以，VB推荐由三个小写字母的前缀和一个第一个字母为大写的描述性单词组成的名字。

例如cmdMyButton是一个命令按钮（前缀是cmd）推荐的前缀（2）Caption属性Caption即标题，是可以在对象外观上直接看见的文本，可以长达255字符，包括空格和标点符号，比如一个叫cmdOk的命令钮，它的Caption属性就可以是“Ok”。

注意：并不是所有的对象都有此属性，比如文本框、图片框、线条等就没有。

为按钮设置热键：在设置Caption属性时，在需要加下划线的字母前加上“&” 符号，例如“&File”，输出的就是“F ile”，这样就可以通过按ALT键和标题上那个带下划线的字母来选取它了, 不必为此编任何代码。

Name和caption的比较：1）Name是系统用来识别对象的，编程时需要用它来指代各对象；Caption是给用户看的，提示用户该对象的作用；2）Name可以采用系统默认的名称，但Caption应该根据实际情况改成意义明了的名词；3）所有对象都有Name，但不一定都有Caption；（3）Top，Left属性这两个属性决定对象的位置。

只有两种情况需要在属性窗口里设置这两个属性：第一种是用户没有鼠标，第二种是程序员需要十分精确地设定这两个值。

用户登陆界面程序VB设计说明书

第02章 VB创建用户界面

用VB编写登录程序

用户登陆界面程序vb设计说明书

vb程序设计登陆界面代码详例

VB程序设计程序用户界面设计

VB6.0程序设计课件_制作登录窗体

VB6.0Access制作登陆界面超详细讲解（适合新手）

vb课程设计电子文档

vb登陆

如何用VB编写一个用户登录窗口

VB用户界面设计

vb程序设计登陆界面代码详例

vb qq

vb制作登陆界面

Vb登陆界面设计

登录界面VB课程设计

VB教程 用户界面设计

VB用户界面设计

VB制作系统登录界面,包括用户名,密码和错误校验及效果全代码

第二章 VB的界面设计

VB教程用户界面设计