菜单
　　

       cnn.Open ConnectString
       If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
          cnn.Execute SQL
          MsgString = sTokens(0) & " query successful"
       Else
          Set rst = New ADODB.Recordset
          rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
          Set ExecuteSQL = rst
          MsgString = "查询到" & rst.RecordCount & " 条记录 "
       End If
    ExecuteSQL_Exit:
       Set rst = Nothing
       Set cnn = Nothing
       Exit Function
    ExecuteSQL_Error:
       MsgString = "查询错误: " & Err.Description
       Resume ExecuteSQL_Exit
    End Function
    ExecuteSQL函数有两个参数：SQL和MsgString。其中SQL用来存放需要执行的SQL语句，MsgString用来返回执行的提示信息。而在VB中不允许直接访问数据库中的表，只能通过记录集对象（Recordset）对其进行浏览和操作。
    在ExecuteSQL函数中使用了ConnectString函数，这个函数用来链接数据库的，代码如下：
    Public Function ConnectString() As String
       Dim strAppPath As String
       strAppPath = App.Path
       If Right(strAppPath, 1) <> "\" Then
           strAppPath = strAppPath & "\"
       End If
       strAppPath = strAppPath & "Data\cskc.mdb"
       ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strAppPath & ";UID=;PWD="
    End Function
    另外系统运行时，会先显示系统封面，然后需要对用户进行判断。如果登录者是授权用户，则允许进入系统，否则将停止程序的执行。这些都需要在系统运行的最初进行，因此将代码放在系统启动模块中，代码如下：
    Sub Main()
        Dim fInit As New frmInit
        fInit.Show vbModal
        If fInit.COVER Then
            Dim fLogin As New frmLogin
            fLogin.Show vbModal
            If Not fLogin.OK Then
                End
            End If
            Unload fLogin
            Set fMainForm = New frmMain
            fMainForm.Show
        End If
    End Sub
    3、测试结果
    图5-1 登录封面效果图
    （二）登录模块
    1、模块功能
    系统显示了登录封面以后需要对用户进行判断，登录模块就是用来判断用户是否为授权用户，判断依据就是数据库中已有的用户信息。
    2、模块界面
    登录模块界面比较简洁，给用户提供一个输入用户名和密码的平台，如图5-2所示。
     
    图5-2 登录界面
    3、主要代码分析
    txtSQL = "select * from 用户表 where UserID = '" & txtUserName.Text & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        If mrc.EOF = True Then
            MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
            txtUserName.SetFocus
        Else
            If Trim(mrc.Fields("UserPWD")) = Trim(txtPassword.Text) Then
  1. 上一篇：ASP.net高校教师工资管理系统设计与实现
  2. 下一篇：超市库存系统的国内外研究现状和发展趋势

  1. JAVA基于安卓平台的医疗护工管理系统设计

  2. java+mysql酒店管理系统设计与实现

  3. Ruby+mysql就业信息管理系统的设计与实现

  4. php进销存管理系统的设计与实现

  5. jsp医药连锁店管理系统的设计与实现

  6. jsp+mysql学生实践创新项目管理系统设计与实现

  7. jsp+mysql停车场车辆管理系统的设计与实现

  8. 河岸冲刷和泥沙淤积的监测国内外研究现状

  9. 当代大学生慈善意识研究+文献综述

  10. 十二层带中心支撑钢结构...

  11. 酸性水汽提装置总汽提塔设计+CAD图纸

  12. 电站锅炉暖风器设计任务书

  13. 杂拟谷盗体内共生菌沃尔...

  14. java+mysql车辆管理系统的设计+源代码

  15. 大众媒体对公共政策制定的影响

  16. 乳业同业并购式全产业链...

  17. 中考体育项目与体育教学合理结合的研究

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回