Office中国论坛/Access中国论坛

标题: VBA代码必须得会吗？ [打印本页]
作者: playnoa    时间: 2018-4-12 01:48
标题: VBA代码必须得会吗？
最近在做公司的进销存系统，只要实现出入库记录和库存查询即可，一本书学到最后发现一个登陆验证需要VBA代码来完成
代码应该是在校验登陆的信息，我的疑问是这些操作必须得通过代码实现吗？有没有可能通过GUI点击来实现？因为从零开始学VBA需要很长时间才能做到以下代码的能力
代码示例
  1. Option Compare Database
  2. Option Explicit
  3. Dim mrc As ADODB.Recordset
  4. Dim txtSQL As String
  5. Dim i As Integer  '记录错误次数

  7. Private Sub 登录_Click()
  8. On Error GoTo Err_确定_Click '错误处理
  9. '判断用户名是否为空
  10. If IsNull(用户名) Then
  11. MsgBox "请输入用户名!", vbCritical, "提示"
  12.   用户名.SetFocus
  13. Else
  14.   txtSQL = "SELECT * from 管理员 where 用户名='" & 用户名 & "'"
  15. Set mrc = ExeSQL(txtSQL)
  16.    If mrc.EOF Then
  17.      MsgBox "没有该用户!", vbCritical, "提示"
  18.    Else
  19.      If (mrc(1) = 密码) Then
  20.      mrc.Close
  21.      Set mrc = Nothing
  22.      check = True
  23.      Me.Visible = False
  24.       '打开主切换面板
  25.      DoCmd.OpenForm "主切换面板"
  26.     Else
  27.         i = i + 1
  28.         If (i < 3) Then
  29.         MsgBox "您输入的密码不正确", vbOKOnly + vbExclamation, "提示"
  30.         Else
  31.         MsgBox "你已经连续3次错误输入密码，系统马上关闭！", vbOKOnly + vbExclamation, "警告"
  32.                 DoCmd.Close acForm, Me.Name  '关闭当前窗体
  33.                 DoCmd.Quit  '退出数据库
  34.                 Exit Sub
  35.        End If
  36.      密码.SetFocus
  37.      密码.Text = ""
  38.     End If
  39.   End If
  40. End If
  41. Err_确定_Click: '错误处理
  42.     Exit Sub
  43. Err_关闭_Click:
  44.     MsgBox (Err.Description)
  45.     Resume Err_确定_Click
  46. End Sub


  49. Private Sub 关闭_Click()
  50. If (MsgBox("确实要退出吗？", vbQuestion + vbYesNo, "确认") = vbYes) Then
  51. DoCmd.Quit acQuitSaveNone
  52. End If
  53. End Sub
复制代码
作者: playnoa    时间: 2018-4-12 02:09
竟然不允许编辑帖子[attach]62568[/attach]
作者: admin    时间: 2018-4-12 02:11
要写功能灵活的程序，必须要有代码的支持的。有些功能可以通过宏来处理，但是宏毕竟是代码块，太重，未必能达到想要的效果。
作者: playnoa    时间: 2018-4-12 03:29
苦于市面上关于access VBA的书籍和教程太少，大部分都是Excel的，难道access的应用真的很窄？



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3