函数.bas

随着市场经济的发展

Attribute VB_Name = "Module1"
Public yhm As String  '用户名
Public xm As String '姓名
Public mm As String '密码
Public yhsf As String  '用户身份

'记录集函数，用来执行sql 语句，返回一个记录集
Public Function exesql(ByVal sql As String) As ADODB.Recordset
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
        Set cn = New ADODB.Connection
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
        Set rs = New ADODB.Recordset
        rs.ActiveConnection = cn
        rs.Open sql, cn, adOpenStatic, adLockOptimistic, adCmdText
        Set exesql = rs
        Set rs = Nothing
        Set cn = Nothing
End Function
'判断重复  在新用户注册,添加新用户时,用来检测是否有重复的用户名。 若有重复，则返回值为1，否则返回0
Public Function same(ByVal name As String)
    Dim sql As String
    Dim i As Integer
    Dim rs As ADODB.Recordset
      sql = "select yhm from yhxxb where yhm='" & name & "'"
      Set rs = exesql(sql)
      If rs.RecordCount = 0 Then
        i = 0
      Else
        If rs.RecordCount > 0 Then
          i = 1
        End If
      End If
    same = i
    Set rs = Nothing
End Function
'检查是否非空  ：检测相应的必填项是否为空 ，
'在用户注册，添加新用户时都有用到,参数Form代表要操作的窗体,若符合要求，则函数返回值为true,否则，返回false
Public Function NotEmpty(ByVal Form As Object, ByVal content As String) As Boolean
    NotEmpty = False
    Select Case content
      Case "zhuce"
        If Trim(Form.registext.Text) = "" Then
            MsgBox " 用户名不能为空！"
            Form.registext.SetFocus
            Exit Function
        End If
        If Trim(Form.nametext.Text) = "" Then
            MsgBox "姓名不能为空！"
            Form.nametext.SetFocus
            Exit Function
        End If
        If Trim(Form.passtext.Text) = "" Then
            MsgBox " 密码不能为空！"
            Form.passtext.SetFocus
            Exit Function
        End If
        If Trim(Form.surepass.Text) = "" Then
            MsgBox " 确认密码不能为空！"
            Form.surepass.SetFocus
            Exit Function
        End If
        NotEmpty = True
     Case "chaoshiziliao"
        If Trim(From.csmcext.Text) = "" Then
        MsgBox "超市名称不能为空！"
        From.csmcext.Text.SetFocus
        Exit Function
        End If
        If Trim(From.dzext.Text) = "" Then
        MsgBox "地址不能为空！"
        From.dzext.Text.SetFocus
        Exit Function
        End If
        If Trim(From.dhext.Text) = "" Then
        MsgBox "电话不能为空！"
        From.dhext.Text.SetFocus
        Exit Function
        End If
        NotEmpty = True
     End Select
End Function
    '检查长度是否合法
    '目的是为了检验输入值是否合法。长度是否符合要求
    '参数form 是窗体名，将要检测的控件所在的窗体传给函数。
    '返回的函数值checklenth 为true 时，合法，false 时，为不合法
Public Function checklenth(ByVal Form As Object, ByVal content As String) As Boolean
    checklenth = False                  '初始化为false 一旦有不合法的输入，则跳出该函数，若均合法，则为true
    Select Case content
    Case "zhuce"
            If Len(Trim(Form.registext.Text)) > 10 Then
                MsgBox "用户名长度超过10位!"
                Form.registext.SetFocus
                Exit Function
            End If
            If Len(Trim(Form.passtext.Text)) < 6 Or Len(Trim(Form.passtext.Text)) > 10 Then
                MsgBox "密码长度在6到10位之间 !"
                Form.passtext.SetFocus
                Exit Function
            End If
            checklenth = True
    Case "changpass"
            If Len(Trim(Form.Text2.Text)) < 6 Or Len(Trim(Form.Text2.Text)) > 10 Then
                MsgBox "密码长度在6到10位之间 !"
                Form.Text2.SetFocus
                Exit Function
            End If
            checklenth = True      '若能走到函数的最后，则上面的条件都合法，则将函数值置为真
    End Select
End Function