时间:2019-11-10 23:24作者:admin来源:未知人气:331我要评论(0)
很久以前帮客户做的一个客户管理系统,有一个取软件版本号的函数,感觉还有点用,与大家分享一下
Access数据库软件版本号保存在INI文件中,然后从INI文件中提取软件的当前版本号(可用来与服务器的最新版本号对比,然后提示是否需要更新)
'软件版本号保存在INI文件中,然后从INI文件中提取版本号
Private Sub GetCurrVer()
'作者:tmtony 2003-02-03
Dim sLine As String, iPos As Integer, sTmp As String
Dim sFormName As String, sTmp2 As String
Dim bFormFound As Boolean
Dim intType As Integer
Dim iPos2 As Integer
Dim iSubIndex As Integer
Dim iIndex As Integer
Dim sFile As String
sFile = CurrentProject.Path & "cn2005.ini"
Open sFile For Input As #1
Do
Input #1, sLine
If Left$(sLine, 1) = ";" Or sLine = "" Then GoTo Jump
iPos = InStr(sLine, "=")
'sTmp = Mid$(sLine, iPos + 1, InStr(sLine, "=") - iPos - 1)
If iPos > 0 Then
sTmp = Left$(sLine, iPos - 1)
'If sTmp = "Version" Then
sTmp2 = Mid$(sLine, InStr(sLine, "=") + 2)
'End If
If Right$(sTmp2, 1) = Chr$(34) Then sTmp2 = Left$(sTmp2, Len(sTmp2) - 1)
Select Case sTmp
Case "Version"
txtCurrVersion = sTmp2
Case "VersionDate"
txtCurrVersionDate = sTmp2
Case "Path"
Me.txtCurrPath = sTmp2
End Select
GoTo Jump
End If
Jump:
Loop Until EOF(1)
Close #1
txtCurrPath = Nz(CurrentProject.Path)
End Sub
相关阅读 access怎么做点击选择学历的效果access怎么取消冻结字段access怎么冻结字段access怎么删除子数据表access怎么在表格中插入子数据表access设置快速访问栏在功能区下方显示access设置快速访问栏在功能区上方显示access怎么将设计视图加到快速访问栏access怎么将导出Excel表格加到快速访问栏access怎么将数据表视图加到快速访问栏
热门文章 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩
最新文章
access怎么做点击选择学历的效果access怎么取消冻结字段
access怎么冻结字段access怎么删除子数据表access怎么在表格中插入子数据表access设置快速访问栏在功能区下方显示
人气排行 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩怎么在Access报表的页面页脚区添加一个计算控件Access 2007、2010、2016三个版本的使用心得Access查询标准(条件)详解电脑没有access怎么办? access文件打不开怎么办?
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>