安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access数据库软件版本号保存在INI文件中,然后从INI文件中提取版本号

2017-09-07 09:05:00
zstmtony
原创
497


很久以前帮客户做的一个客户管理系统,有一个取软件版本号的函数,感觉还有点用,与大家分享一下

Access数据库软件版本号保存在INI文件中,然后从INI文件中提取软件的当前版本号(可用?#20174;?#26381;务器的最新版本号对比,然后提示是否需要更新)


'软件版本号保存在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
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.17
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假