你们好，最近小活发现有诸多的对于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、由于时间比较紧，本文可能存在不少问题，请对本文提出你的宝贵意见和建议。

以上就是登录界面设计这篇文章的一些介绍，希望对大家有所帮助。

关键词：