第一步:获取本计算机用户名

Private Sub Form_Load()重点内容Dim sBuffer As String   '缓冲器Dim lSize As LongsBuffer = Space$(255)   '缓冲器容量255Byte,sBuffer为255个空格字符串lSize = Len(sBuffer)     'sBuffer串的长度Call GetUserName(sBuffer, lSize)     '读取用户名到sBuffer中If lSize > 0 ThentxtUserName.Text = ""Else

第二步:判断文本框

Private Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringUserName = ""If Trim(txtUserName.Text = "") ThenMsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElsetxtSQL = "select*from user_Info where user_ID='" & txtUserName.Text & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)

第三步:ExecuteSQL函数执行

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
'execute SQL and return recordsetDim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As StringOn Error GoTo ExecuteSQL_ErrorsTokens = Split(SQL)Set cnn = New ADODB.Connectioncnn.Open ConnectString

第四步:打开ConnectString,连接数据库

Public Function ConnectString() As String       '以文件DSN标记,访问ODBC数据源
ConnectString = "FileDSN=student.dsn;UID=sa;PWD=123456"      '连接文件dsn
End Function

第五步:判断增删改查

If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Thencnn.Execute SQLMsgString = sTokens(0) & " query successful"ElseSet rst = New ADODB.Recordsetrst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimisticSet ExecuteSQL = rstMsgString = "查询到" & rst.RecordCount & "条记录"End IfExecuteSQL_Exit:Set rst = NothingSet cnn = NothingExit Function

第六步:数据库查询后的判断

If mrc.EOF ThenMsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElseIf Trim(mrc.Fields(1)) = Trim(txtPassword.Text) ThenOK = Truemrc.CloseMe.HideUserName = Trim(txtUserName.Text)ElseMsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"txtPassword.SetFocustxtPassword.Text = ""End If

第七步:登录成功

学生信息管理系统之用户登录:用户登录流程相关推荐

  1. JAVA登录界面学生和老师_学生信息管理系统之第三篇登录界面java代码

    class DLFrame extends JFrame implements ActionListener, ItemListener {// 登录界面 JPanel p1 = null; JPan ...

  2. 基于java的学生信息管理系统(含源文件)

    欢迎添加微信互相交流学习哦! 项目源码:https://gitee.com/oklongmm/biye 内容摘要    - 2 - 引言    - 4 - 学生信息管理系统开发的意义和目的    - ...

  3. (解析+源码)基于JAVA Swing+MySQL实现学生信息管理系统(增、删、改、查)数据库/文件存储

    根据学校对学生信息日常管理需要,学生信息管理系统包括以下功能: 登录系统: 新建学生信息:添加学生信息: 删除学生信息:对指定学生信息进行删除: 修改学生信息:对指定学生信息进行修改 查找学生信息:输 ...

  4. 添加老师信息的php学生信息管理,PHP+MySQL学生信息管理系统的开发与设计

    一直以来我国领导人提倡以人为本的治国方案,而大学是未来人才的培养基地,如何能够更好的对学生信息进行管理,是很多高校一直在研究的一个问题,只有更加科学的对学生信息进行管理,才能够更加积极的培养国家的栋梁 ...

  5. 基于PHP+MySQL学生信息管理系统的开发与设计

    一直以来我国领导人提倡以人为本的治国方案,而大学是未来人才的培养基地,如何能够更好的对学生信息进行管理,是很多高校一直在研究的一个问题,只有更加科学的对学生信息进行管理,才能够更加积极的培养国家的栋梁 ...

  6. 基于php学生信息管理系统——计算机毕业设计

    本毕业设计所描述的学生信息管理系统是采用php,Mysql编写的系统.系统主要实现了:学生档案维护:教师管理:考勤情况:作业完成情况:平时成绩的生成和查询等功能等功能.基于B/S模式的. 本系统通过三 ...

  7. 基于php学生信息管理系统

    本毕业设计所描述的学生信息管理系统是采用php,Mysql编写的系统.系统主要实现了:学生档案维护:教师管理:考勤情况:作业完成情况:平时成绩的生成和查询等功能等功能.基于B/S模式的. 本系统通过三 ...

  8. 基于文件操作的学生信息管理系统(含登录验证)

    本人C++大一小白,最近有闲着的时间,就写了个学生信息管理系统,全文件操作,有些地方复杂度太大,还有很大的修改空间. 功能结构图 后期关于成绩修改和信息修改实现没写,思想跟已经实现的修改密码一样,你若 ...

  9. Java学生信息管理系统——管理员登录模块(简单易上手)

    前言 这一篇是用来记录我编写学生信息管理系统时实现登录操作的过程,这是学生信息管理系统的第一个模块,之后我还会陆续将其它模块分享出来. 其它章节 ------------------------> ...

  10. 学生信息管理系统(登录功能)

    工具eclipse 主要操作登陆,增删查改 编写实体类 public class Student {private int id;private String sId;//学号private Stri ...

最新文章

  1. JavaScript (二)
  2. adb命令开启手机的一些功能,请问怎么操作?
  3. python 如何将代码打包成exe可执行程序?(导出为exe可执行文件)pyinstaller
  4. linux中用参数代替键盘输入,Linux终端中使用上一命令减少键盘输入
  5. treegrid,可以展开的jqgrid树
  6. nyist oj 37 回文字符串 (动态规划经典)
  7. 使用Git推送代码到GitHub远程仓库
  8. C/C++轻松写电脑锁机程序
  9. 第三章:选择结构(一)
  10. Hive 元数据库表信息
  11. 如何将unity3d动画嵌入html,在Unity3D中使用精灵动画引擎制作动画的两种方法
  12. 苹果Mac好用的图片编辑工具:Acorn 再升级
  13. dos 命令检索文件
  14. Linux系统中如何查看日志信息
  15. Cisco路由器密码设置
  16. office2019 图目录_赶快收藏!这款强大的PPT通路图插件ScienceSlides 2016来了!
  17. live.com与live.cn邮箱收不到QQ绑定激活信的解决方法
  18. Java实现文件批量导入导出实例(兼容xls,xlsx)
  19. 没有目标,永远也找不到人生方向
  20. Kafka学习征途:.NET Core操作Kafka

热门文章

  1. GPS接收机(三)低噪放设计和版图仿真优化
  2. 图片瘦身的正确姿势,让你的 CDN 费用省 50% 以上!
  3. Linux中PATH、PYTHONPAT、sys.path小结
  4. 微信小程序--震动反馈
  5. Python如何写接口,以及请求多种外部接口的方法
  6. 网络OSI(七层模型)
  7. 微信开发者小程序项目拉取与推送
  8. kafka部署时出现的天坑
  9. linux下面编译java代码及打包
  10. 论文写作-引言怎么写