机房收费----登录界面

本是古典何须时尚 2022-05-10 03:33 202阅读 0赞

**对于一个程序来说登陆界面至关重要，因为一个软件的登录界面往往提供给用户一个初印象，而且登录界面的功能逻辑性也是比较强的，所以很有价值仔细的梳理一下这里面的学问！ **

**作为一个合格的程序员，首先我们在实现一个窗体的时候往往要根据客户提供给我们的要求来画一张流程图，而流程图也是一个帮助我们梳理逻辑关系的很好的工具，但是我这个图是在将整个程序都实现之后才来画的，因为我觉得这样对于逻辑和细节会掌握的更好，毕竟现在还算不上一个程序员，只能说是学习者。**

**下面这个就是我画的关于登陆界面的流程图：**

![70][]

在这个流程图中可以清晰的看到期中最关键的俩点就是：

1： 首先需要在 数据库的 user\_info  表中查询我们的信息 是否存在，其次就是 将我们的登陆信息存放在数据库的俩个表中

2：登陆的时候要根据数据库表 user\_info 中的数据来对我们的用户分级别： ”一般用户“，”操作员“ ，”管理员“

级别不同对于软件的使用权限也不尽相同。

![70 1][]

![70 2][]

下面是一些比较重要的部分代码

注意： 这并不是整体的代码，只是一个if end 判断语句中的一部分

一： 根据数据库中的数据来判断登陆我们软件的用户级别，通过用户级别来限制使用权限：

If Trim(mrc.Fields(1)) = Trim(PassWord.Text) Then
                                  Username = Trim(PassWord.Text)
                                  If Trim(mrc.Fields(2)) = "管理员" Then '----------
                                  
                                  ‘这里判断是何种等级
                                        MsgBox "登陆成功,您当前是管理员身份"
                                        isUser = False
                                   ’限制用户是使用权限
                                        frmMain.oper.Enabled = False

二：将登陆成功的用户信息存放在数据库中：

’链接到数据库，将数据存入数据库中
                                        txtsql = "select * from worklog_info"
                                        Set mra = ExecuteSQL(txtsql, msgtxt)
                                              mra.AddNew
                                              mra.Fields(1) = Username
                                              mra.Fields(2) = "管理员"
                                              mra.Fields(3) = owday
                                              mra.Fields(4) = owtime
                                              mra.Fields(8) = Str(True)
                                              mra.Fields(7) = "HYF"
                                              mra.Update
                                        txtsqlo = "select * from onwork_info"
                                        Set mro = ExecuteSQL(txtsqlo, msgtexto)
                                              
                                              mro.AddNew
                                              mro.Fields(0) = Username
                                              mro.Fields(1) = "管理员"
                                              mro.Fields(2) = owday
                                              mro.Fields(3) = owtime
                                              mro.Fields(4) = "HYF"
                                              mro.Update

[70]: /images/20220510/d246acc675b54660a834a6e4b94d0c72.png
[70 1]: /images/20220510/544af98bbf92424c9c6c064fffa1bc86.png
[70 2]: /images/20220510/0f1806321e1f4d2197a5056b47b6ad41.png