博文
家明Flash播放器(2005-11-08 11:25:00)
摘要：昨天从网上找了一些三国系列的Flash，但是没装播放工具，所以今天早上做了一个简单的，本程序功能简单,使用方便,可以播放swf文件，作为个人播放Flash的小工具还是比较方便的，安装包16m大小，欢迎和我一起交流。......
ado连接dbf文件的方法(2005-09-01 10:29:00)
摘要：写这篇文章的目的就是让像我一样的初学者不要走太多弯路，起初我用的是data控件来连接dbf文件，在用的过程中发现经常出现错误，感觉data控件很不稳定，后来用ado来操作一点问题都没有了，特贡献给大家参考
Public DBFcon As New ADODB.Connection
'打开DBF文件
Public Function OpenDBF(DirPath As String) As Boolean
On Error GoTo err
DBFcon.open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" + DirPath + ";SourceType=DBF; "
OpenDBF = True
Exit Function
err:
OpenDBF = False
MsgBox err.Description
End Function
‘关闭dbf文件
Public Sub CloseDBF()
If DBFcon.state = adStateOpen Then DBFcon.Close
End Sub
’执行select ，update，delete 操作
Public Function ExeDBF(sql As String, rs As ADODB.Recordset) As Boolean
On Error GoTo err
rs.open sql, DBFcon, adOpenKeyset, adLockOptimistic
ExeDBF = True......
我的登陆密码的加密方法(2005-09-01 10:14:00)
摘要：这个函数不能实现两次异或得到原字符串，数据库里存储的是一个16进制字符串
这个加密算法比较简单，我的思路就是把登陆的密码和一个密钥进行异或，异或的结果转换为16进制串保存到数据库中，在程序登陆的时候把用户输入的登陆密码进行同样的处理，和数据库中保存的结果对比，如果相同则正确，不同则提示错误。
'加密函数
Public Function Encrypt(StrEncrypt As String) As String
Dim x, y As Integer
Dim C1, C2,C3 As String
Dim CodeWord As String'密钥
Dim KeyLen As Integer'密钥长度
Dim strEncryptLen As Integer‘需要加密的字符串的长度
Dim Num As Integer 'xor后的值
Dim HexNum As String '16进制字符串
Dim HexNumLen As Integer
On Error GoTo err
strEncryptLen = Len(StrEncrypt) '字符串长度
CodeWord = "zhaojiaming"
KeyLen = Len(CodeWord)
Encrypt = ""
For x = 1 To strEncryptLen
&nbs......