Public Function EncRec(strPW As String)
Dim strTmp As String
Dim i As Integer
For i = 1 To Len(strPW)
strTmp = Mid(strPW, i, 1)
If Not Asc(strTmp) Mod 2 = 0 Then
strTmp = Chr(Asc(strTmp) - 1)
Else
strTmp = Chr(Asc(strTmp) + 1)
End If
EncRec = EncRec & strTmp
Next
End Function作者: yanfeige 时间: 2006-6-23 08:57
还是不太清楚,谁能详述一点作者: iorihong 时间: 2006-6-23 17:17
关注中作者: andymark 时间: 2006-6-23 19:44
如果单纯防止前端导出数据库,那就不采用连接表,所有访问表、查询都在窗体下的代码完成。生成MDE