你们好，最近小活发现有诸多的小伙伴们对于excel登录界面设计，登录界面设计这个问题都颇为感兴趣的，今天小活为大家梳理了下，一起往下看看吧。
1、 一个程序启动后，首先需要进入启动界面，学生管理系统(以下简称系统)也不例外。启动后进入用户身份确认界面，因为现在的大学结构是学校学院院系结构，也就是一个大学包含几个学院。
2、 一个学院下面有几个系，一个完善的学生管理系统必须考虑这个问题。系统启动后首先确定注册人的身份是非常重要的。下图是登录身份确认：
3、 图一。登录身份确认界面
4、 登录身份无非是管理员或者用户，但是如何确定登录人是哪个级别的管理员或者用户，必须事先在数据库中设置好。在本系统中，我们使用的是Access数据库，数据库的文件名为：学生管理。mdb，
5、 这个数据库有八个数据表，以后我们会陆续介绍。今天我们先来介绍一下数据表【用户数据】，下面是这个数据表的结构以及数据表的部分数据：
6、 表1。用户数据表(一些示例数据可以根据您的需要进行修改)
7、 从数据表中可以明显看出，管理员和用户都不是一个，他们的部门也不一样。因为部门不同，登录权限也不同，在界面设置上给我们提供了很多便利。
8、 登录用户选择身份后，会根据身份进入不同的登录界面。以下是管理员登录界面和用户登录界面：
9、 图二。管理员登录界面图3。用户登录界面
10、 好了，这里介绍一下界面和数据库。下面介绍一下程序窗口和窗口需要的基本代码。
11、 程序的启动和登录由两个窗口和一个模块组成。这两个窗口的名称是：启动窗口。frm和用户登录。frm。
12、 启动窗口如图1所示。主要控件有：一个名为Combo1的ComboBox控件；三个名为Command1、Command2和Command3的CommandButton控件；定时器控制，
13、 名称是Time1；和几个标签控件。
14、 Combo1有两个列表值，即administrator和user，它们的作用是为登录提供身份选择。命令1的标题是OK，命令2的标题是Exit。
15、 Command3的标题是“系统帮助”，用来让程序点击。点击【确定】，进入登录界面；点击【退出】，将退出系统；当您单击[系统帮助]时，
16、 显示系统帮助界面(至于系统帮助的问题，本文不讨论，不做介绍。)。
17、 下面是启动界面的主要代码：
18、 Private SubCommand1_Click()‘按钮【确定】的点击过程
19、 Dim MC As String
20、 MC=Combo1.Text
21、 If MC=''Then
22、 MsgBox '您没有选择登录方式，请重新选择！', 16, '错误！'
23、 Exit Sub
24、 End If
25、 If MC='管理员' Then
26、 DLQX1='管理员'
27、 ElseIf MC='用户' Then
28、 DLQX1='用户'
29、 End If
30、 Unload Me
31、 用户登录.Show
32、 End Sub
33、 Private SubCommand2_Click()
34、 End
35、 End Sub
36、 Private SubCommand3_Click()
37、 系统帮助.Show
38、 End Sub
39、 Private Sub Form_Load()
40、 Label4(1).Caption='当代电子科技学院'
41、 Label2.Caption=FormatDateTime(Date, 1)
42、 Label3.Caption=FormatDateTime(Now, 3)
43、 Timer1.Interval=1000
44、 Timer1.Enabled=True
45、 End Sub
46、 Private SubTimer1_Timer()
47、 Label3.Caption=FormatDateTime(Now, vbLongTime)
48、 End Sub
49、 上面代码都特别简单，这里就不一一解释了。
50、 在启动窗口不论你选择管理员还是用户，点击【确定】后都会进入用户登录窗口，由于选择身份不同，程序会给出不同的运行界面，如果身份是管理员，以图二的界面运行，如果身份是用户，则以图三的界面运行，
51、 不论是那个界面，其实就是一个窗口“用户登录”窗口。
52、 用户登录如图二、图三，主要控件是：二个TextBox控件，名称为Text1、Text2；三个CommandButton控件，
53、 名称为Command1、Command2、Command3；以及几个Label控件。
54、 Text1是一个输入框，需要登录人输入登录名称，Text2也是一个输入框，需要登录人输入登录密码。Command1的Caption是“登录”，Command2的Caption是“退出”，
55、 Command3的Caption是“返回”，其作用是让程序产生单击动作，在点击【登录】按钮时，系统根据数据库的记录，检测这个登录人是否存在，如果存在，进入登录人应该进入的界面；如果不存在，将终止登录。
56、 点击【退出】按钮时，退出系统。点击【返回】按钮时，将返回到启动界面。
57、 下面是用户登录窗口的主要代码：
58、 Dim zong As Integer‘声明窗口级公用变量
59、 Private SubCommand1_Click()
60、 '登录确认
61、 If zong=3 Then'若用户输入的次数超过三次，则自动退出
62、 Unload Me
63、 Exit Sub
64、 End If
65、 If Trim(Text1.Text='') Then
66、 MsgBox '没有输入用户名，请输入!', vbOKOnly + vbExclamation, '警告'
67、 Text2.Text=''
68、 Exit Sub
69、 End If
70、 Call SJK(db)‘注意：这里在调用一个过程，请查看模块一节！
71、 strSQL='select * from用户资料where用户名='' Text1.Text '' AND身份='' DLQX1 '''
72、 RS.Open strSQL, db, 2, 2‘RS是什么呀？请查看模块一节！
73、 If RS.EOF=True Then
74、 MsgBox '没有这个用户，请重新输入用户名!', vbOKOnly + vbExclamation, '警告'
75、 Text1.Text=''
76、 Text2.Text=''
77、 RS.Close
78、 Call GBSJK
79、 zong=zong + 1'累加输入次数
80、 Exit Sub
81、 End If
82、 If RS('密码') Trim(Text2.Text)Then
83、 MsgBox '密码不正确，请重新输入!', vbOKOnly + vbExclamation, '警告'
84、 Text2.SetFocus
85、 RS.Close
86、 Call GBSJK
87、 zong=zong + 1'累加输入次数
88、 Exit Sub
89、 End If
90、 SZBM=RS('部门')
91、 YHMC=RS('用户名')
92、 YHMM=RS('密码')
93、 YHSF=RS('身份')
94、 YHQX==RS('权限')
95、 RS.Close
96、 Set RS=Nothing
97、 Call GBSJK‘注意：这里在调用一个过程，请查看模块一节！
98、 Unload Me
99、 主窗口.Show
100、 End Sub
101、 Private SubCommand2_Click()
102、 Dim anw As Intege‘声明过程级变量r
103、 anw=MsgBox('确定要退出系统吗？', vbYesNo, '请问')
104、 If anw=6 Then
105、 Unload Me
106、 Else
107、 Text1.Text=''
108、 Text2.Text=''
109、 End If
110、 End Sub
111、 Private SubCommand3_Click()
112、 Unload Me
113、 启动窗口.Show
114、 End Sub
115、 Private Sub Form_Load()
116、 Me.Caption=DLQX1 '登录'
117、 Label4(1).Caption=DLQX1 '登录'
118、 Label4(2).Caption='当代电子科技学院'
119、 Label1.Caption=DLQX1 '名称：'
120、 Label2.Caption=DLQX1 '密码：'
121、 zong=0
122、 Text1.Text=''
123、 Text2.Text=''
124、 End Sub
125、 （程序共用变量、过程在模块中设置）模块名称Module1
126、 前面的程序代码中，出现了几个调用过程和几个变量，这些过程和变量是全局公用过程和变量，那么这些过程和变量是如何设置的？在VB中有一个模块程序，这个模块是用来设置全局调用过程和全局调用变量的。
127、 我们点击【工程】-【添加模块】，出现添加模块对话框，点击【打开】按钮，在工程中就会添加一个名称为Module1的模块，模块名称可以修改为你认为比较容易理解的名称，我们在这里仍然使用程序默认的名称。
128、 注意：模块仅仅是代码，没有界面的。
129、 在模块中我们就可以添加程序公用的变量和过程（或函数），在模块中声明公用变量必须使用关键字Public，在设置公用过程也必须使用关键字Public。
130、 在我们这个程序中，需要链接数据库，VB不默认链接数据库，因此我们必须添加链接数据库的引用，添加方法是点击【工程】-【引用】，打开引用对话框，
131、 在对话框中选择Microsoft DAO 3.6 Object Library和Microsoft ActiveX Data Object 2.7 Library，勾选这二项，点击确定。
132、 这样链接数据库的引用就添加成功了。
133、 添加了数据库的引用，我们在模块中就可以声明数据库链接对象和记录集对象了，在我们的模块中，我们声明了这二个对象，分别是db（数据库链接对象）、RS（记录集对象）。另外，我们在模块中还设置了5个公用变量，
134、 这些变量是程序在运行过程中需要随时调用的，并且在运行过程中需要确定运行窗口的变量，其实这些变量就是登录人的信息。
135、 下面是模块代码：（）
136、 Public db As NewADODB.Connection‘数据库链接对象
137、 Public RS As NewADODB.Recordset‘数据库记录集对象
138、 Public DLQX1 As String‘登录人身份变量
139、 Public SZBM AsString'=登录人的('部门')
140、 Public YHMC As String'=登录人的('用户名')
141、 Public YHMM AsString'=登录人的('密码')
142、 Public YHSF AsString'=登录人的('身份')
143、 Public YHQX AsString'=登录人的('权限')
144、 Public Sub SJK(db)“数据库链接公用过程
145、 db.ConnectionString='DRIVER=MicrosoftAccess Driver (*.mdb);DBQ=' App.Path '\DATA\学生管理.mdb'‘注意：数据库名是学生管理.mdb
146、 db.Open
147、 End Sub
148、 Public Sub GBSJK()“关闭数据库公用过程
149、 db.Close
150、 Set db=Nothing
151、 End Sub
152、 最后说明一点：在程序中声明的变量可以是全局变量，也可以是模块级（窗体）变量，还可以是过程级变量，变量声明的位置不同，使用的关键字不同，变量的级别是不同的。
153、 如果你需要设置全局变量，必须在模块中声明，使用Public关键字。
154、 如果你声明模块级变量（注意：所谓模块级其实就是一个窗体，不要和程序模块混淆），必须在窗体的代码窗口的通用部分声明（通用部分就是窗体代码窗口的最上端），使用Dim关键字或Private关键字。
155、 如果你需要声明过程级变量，在一个过程的任何部位都可以声明，使用Dim关键字。
156、 全局变量的生命期在程序运行开始就已经声明了，这个变量直至程序运行结束才结束。全局变量在任何一个窗体或任何一个过程中都可以调用他的值，也可以在任何一个窗体或任何一个过程中都可以赋值，
157、 在程序结束后这个变量的生命就结束了，但是如果你在程序中转换窗体，这个变量仍然存在，直至程序结束（即关闭程序）这个变量才结束。
158、 模块级变量的生命期是一个窗体在运行时，这个变量就被声明，在这个窗体运行过程中，这个变量始终是存在的，在这个窗体的任何过程都可以调用这个变量，同样也可以给变量赋值，在转换窗体后，
159、 这个模块级变量的生命就结束了。
160、 过程级变量的生命期是一个窗体的某一个过程在运行时被声明，这个变量在这个过程中使用，包括调用和赋值，在过程结束后，这个变量的生命就结束了。
161、 下一节我们介绍程序最关键的一个窗体“主窗口”，在主窗口牵扯到程序菜单，程序菜单是程序运行的依据，根据登录权限不同，所需要的菜单不同。
162、 由于时间比较紧，本文可能存在不少问题，请对本文提出你的宝贵意见和建议。
以上就是登录界面设计这篇文章的一些介绍，希望对大家有所帮助。
标签：
免责声明：本文由用户上传，如有侵权请联系删除！