mod_ywcl.bas

用VB实现连接oracle817数据月报数输入并统计

Attribute VB_Name = "mod_ywcl"
'/--------------------------------------------------------------------------------
'/
'/    功能：获取全省支队代码参数
'/
'/--------------------------------------------------------------------------------

Public Function InitXtcs() As Boolean
Dim i As Integer
Dim iCount As Integer
Dim strSql As String
Dim varRs As Variant
Dim blnHave As Boolean
Dim iPos As Integer
Dim strTmp(3) As String
Dim Tmp(3) As String

InitXtcs = False
                  
On Error GoTo errHandle

strSql = "SELECT VCSZ FROM B_YWCS WHERE VBMDH='" & tmpKsbt.KSDW & "' AND NCSBH<=23 ORDER BY NCSBH"
If Not gGetRs(strSql, varRs, blnHave) Then
   SM "获得系统参数信息失败！"
   Exit Function
Else
   If blnHave Then
      iCount = UBound(varRs, 2)
      For i = 0 To iCount
          arrYwcs(i) = Trim(gCharVal(varRs(0, i)))
      Next i
   Else
      SM "没有系统参数信息！"
      Exit Function
   End If
End If

For i = 10 To 15

   iPos = InStr(arrYwcs(i), ":")
   If iPos = 0 Then
      SM "评分标准格式设置有误！请检查你的设定值！"
      Exit Function
   Else
      Tmp(0) = Mid(Trim(arrYwcs(i)), iPos + 1)
      strTmp(0) = Mid(Trim(arrYwcs(i)), 1, iPos - 1)
      arrPfcws(i - 10, 0) = gNumVal(strTmp(0))
   End If
   iPos = InStr(Tmp(0), ":")
   If iPos = 0 Then
      SM "评分标准格式设置有误！请检查你的设定值！"
      Exit Function
   Else
      Tmp(1) = Mid(Tmp(0), iPos + 1)
      strTmp(1) = Mid(Trim(Tmp(0)), 1, iPos - 1)
      arrPfcws(i - 10, 1) = gNumVal(strTmp(1))
   End If
   strTmp(2) = Trim(Tmp(1))
   arrPfcws(i - 10, 2) = gNumVal(strTmp(2))
Next i

InitXtcs = True
Exit Function

errHandle:
   SM "警告！初始化系统参数有误！"

End Function