机房系统之一

登陆界面简介

就目前来看所有的登陆界面都大同小异，都是需要用户名密码，当然微信的登陆界面比较特殊，微信是扫为二维码登陆的。微信目前不支持账号密码登陆（2017.12.22）。

今天主要说说VB做机房的时候的登陆界面。和传统的登陆界面一样，需要用户名和密码登陆的，界面设计如下图所示：

很经典的一个登陆界面，不过有人问过我，为什么要有这个取消按钮呢？这个问题大家都可以想想，可以想想都见过什么样的登陆界面，都各有什么好处，设计者为什么要设计成这样的，其中的学问很大，希望看到这篇文章的人能够重视。

针对于这个取消按钮我给出的答案是：软件运行中我不知道用户名和密码，而且恰巧我鼠标也不能用了，我想退出这个界面我应该怎么办呢？如果有这个按钮的话就可以通过键盘的tab键来切换退出界面了，或许设计者还有其他的意图，只是我没有深究出来，希望朋友们可以集思广益来讨论一下这个问题。

下来说说写代码中遇到的问题。

最开始脑子里完全没有头绪，不知道怎样去写这个代码。下不了口，就跟面前放着一个大榴莲似的，想吃无从下口。因为之前有做个一个学生系统的小软件，所以就借鉴参考了一下。最后做出了机房登陆系统的登陆窗口代码，具体代码如下

Option ExplicitPublic ok As Boolean'记录确定次数    Dim micount As IntegerPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal Lpbuffer As String, Nsize As Long) As LongPrivate Sub Command1_Click()'用来存放SQL 语句   Dim txtSQL As String   Dim mrc As ADODB.Recordset'用来存放记录集对象    Dim msgtext As String         username = ""     '判断输入用户名是否为空     If Trim(Text1.Text = "") Then          MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"            Text1.SetFocus             Else                '查询指定用户名的记录                  txtSQL = "select*from user_info where userid='" & Text1.Text & "'"                      '执行查询语句                       Set mrc = ExecuteSQL(txtSQL, msgtext)                            If mrc.EOF Then                              MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"                                 Text1.SetFocus                                 Else                                  '判断输入密码是否正确                                    If Trim(mrc.Fields(1)) = Trim(Text2.Text) Then                                       ok = True                                         mrc.Close                                           Me.Hide                                             username = Trim(Text1.Text)                                             'FrmMain.Show                                         Else                                        MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"                                                                    Text2.Text = ""                                Text2.SetFocus                          End If            End If    End If        '记载输入密码次数         micount = micount + 1           If micount = 3 Then              MsgBox "输入错误已到3次，请检查后再登陆！", vbOKOnly + vbExclamation, "警告"              End            End If       ' Call main        Exit SubEnd SubPrivate Sub Command2_Click()   ok = False   Me.HideEnd SubPrivate Sub Form_Load()        Dim Sbuffer As String        Dim Lsize As Long        Sbuffer = Space$(255)        Lsize = Len(Sbuffer)        Call GetUserName(Sbuffer, Lsize)   '防止存在上一次输入的用户名        If Lsize > 0 Then           Text1.Text = ""            Else           Text1.Text = vbNullString        End If                ok = False        micount = 0        End Sub