mdlgetitemname.bas

一个用VB写的财务软件源码

Attribute VB_Name = "mdlGetItemName"
Option Explicit

Public Function GetItemName(ByVal sCode As String) As String
Dim rSt As New Recordset
rSt.Open "Select * from tZW_Item" + glo.sOperateYear + _
    " where cCode='" + sCode + "'", glo.cnnMain, adOpenKeyset, adLockOptimistic
If rSt.EOF Then
    GetItemName = ""
Else
    GetItemName = rSt.Fields("cName").Value
End If
rSt.Close
End Function

Public Function GetItemClassName(ByVal sCode As String) As String
Dim rSt As New Recordset
rSt.Open "Select * from tZW_ItemClass" + glo.sOperateYear + _
    " where cClsCode='" + sCode + "'", glo.cnnMain, adOpenKeyset, adLockOptimistic
If rSt.EOF Then
    GetItemClassName = ""
Else
    GetItemClassName = rSt.Fields("cClsName").Value
End If
rSt.Close
End Function

Public Function GetDepartmentName(ByVal sCode As String) As String
Dim rSt As New Recordset
rSt.Open "Select * from tUSU_Department" + glo.sOperateYear + _
    " where cDepCode='" + sCode + "'", glo.cnnMain, adOpenKeyset, adLockOptimistic
If rSt.EOF Then
    GetDepartmentName = ""
Else
    GetDepartmentName = rSt.Fields("cDepName").Value
End If
rSt.Close
End Function