module1.bas

电子通迅寻的制作,请大家下载这个哦,一个现成的

Attribute VB_Name = "Module1"
Option Explicit
Public UserName As String   '记录登陆用户的名字
Public ViewJLName As String  '
Public ShowBirthday_Result As Boolean  '记录是否查看生日提示功能
Public PictureForfrmFind As Boolean

'------------------------------------------
'        功能：进行服务器连接
'        参数：SQL 代查询的sql语句
'        输出：返回一个数据集对象
'------------------------------------------

Public Function ExecuteSQL(ByVal SQL As String) As ADODB.Recordset
    Dim cnn As New ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    
On Error GoTo Error_Do

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\kfp.mdb;Persist Security Info=False"
    sTokens() = Split(SQL)
    
    If InStr("INSERT,DELETE,UPDATE", UCase(sTokens(0))) Then
        cnn.Execute SQL
    Else
        Set rst = New ADODB.Recordset
        
        With rst
            .ActiveConnection = cnn
            .CursorLocation = adUseClient
            .CursorType = adOpenStatic
            .LockType = adLockOptimistic
            .Open Trim(SQL)
        End With
        'rst.Open Trim(SQL), cnn, adOpenStatic, adLockOptimistic
        Set ExecuteSQL = rst
    End If
    
    Set cnn = Nothing
    Set rst = Nothing
    Exit Function
Error_Do:
    Dim Err_Str As String
    Err_Str = "服务器" & Err.Description
    If MsgBox(Err_Str, vbRetryCancel + vbCritical, "警告") = vbRetry Then
        Resume
    Else
        Set cnn = Nothing
        Set rst = Nothing
        End
    End If
End Function

'-------------------------------------------
'        功能：判断输入框是否为空
'        参数：Text 带检测的控件
'        输出：布尔值，True为空
'-------------------------------------------
Public Function TextIsNull(ByVal Text As String) As Boolean
    If Left(Trim(Text)) = 0 Then
        TextIsNull = True
    Else
        TextIsNull = False
    End If
End Function

'-----------------------------------------------
'      功能：利用ASCII码对密码进行简单加密
'      参数：PWD 代加密的密码
'      输出：返回加密后的密码
'-----------------------------------------------
Public Function EncodePassWord(ByVal PWD As String) As String
    Dim CodePwd As String
    Dim OnePwd As String * 1
    Dim i As Integer
    
    CodePwd = ""  '初始化
    OnePwd = ""
    PWD = Trim(PWD)
    i = 0
      
    If Len(PWD) = 0 Then
        EncodePassWord = ""
        Exit Function
    End If
    
    For i = 1 To Len(PWD)
        OnePwd = Mid(PWD, i, 1)   '从代加密的密码中取出一位字符进行ASCII变换
        CodePwd = CodePwd & Chr(Asc(OnePwd) + (3 * i + 1))
    Next
    EncodePassWord = CodePwd
End Function

'------------------------------------------------
'      功能：利用ASCII码对密码进行简单解密
'      参数：PWD 代解密的密码
'      输出：返回解密后的密码
'------------------------------------------------
Public Function DecodePassWord(ByVal PWD As String) As String
    Dim CodePwd As String
    Dim OnePwd As String * 1
    Dim i As Integer
    
    CodePwd = ""  '初始化
    OnePwd = ""
    PWD = Trim(PWD)
    i = 0
    
    If Len(PWD) = 0 Then
        DecodePassWord = ""
        Exit Function
    End If
    
    For i = 1 To Len(PWD)
        OnePwd = Mid(PWD, i, 1)  '从代解密的密码中取出一位字符进行ASCII变换
        CodePwd = CodePwd & Chr(Asc(OnePwd) - (3 * i + 1))
    Next
    DecodePassWord = CodePwd
End Function