card.bas

金算盘软件代码

    Set recSalary = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
    If recSalary.EOF Then
        recSalary.Close
        Exit Function
    End If
    i = 0
    strValues = recSalary.rdoColumns(0).Value
    For Each fieX In recSalary.rdoColumns
        If i > 0 Then strValues = strValues & "," & fieX.Value
        i = i + 1
    Next fieX
    recSalary.Close
    
    strSql = "SELECT " & strFieldStr & " FROM Salary WHERE lngSalaryListID=" & lngSalaryListID _
        & " AND lngEmployeeID=" & lngPID
    Set recSalary = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
    If recSalary.EOF Then
        strSql = "UPDATE Salary Set lngEmployeeID=" & lngPID & " WHERE lngSalaryListID=" _
            & lngSalaryListID & " AND lngEmployeeID=" & lngID
    Else
        strSql = "DELETE FROM Salary WHERE lngSalaryListID=" & lngSalaryListID & " AND lngEmployeeID=" & lngID
        If Not gclsBase.ExecSQL(strSql) Then GoTo ErrHandle
        strSql = MakeMergeSalarySQL(strFieldStr, strValues) & " WHERE lngSalaryListID=" _
            & lngSalaryListID & " AND lngEmployeeID=" & lngPID
    End If
    If Not gclsBase.ExecSQL(strSql) Then GoTo ErrHandle
    Exit Function
ErrHandle:
    MergeSalaryDetail = False
End Function

'设置下拉列表框选项
Public Sub setlistbox(lstSetting As ListText, ByVal Index As Integer, Optional ByVal lngInitID As Long, _
    Optional ByVal blnIsShow As Boolean = False, Optional lngTemplateID As Long = 41)
    Dim iRight As Integer, strSql As String ', strSeek As String
    
    On Error Resume Next
    lstSetting.ClearRefer
    Select Case Index '指定下拉列表框选项的数据来源
        Case 0  '科目
            iRight = 10
'            strSql = "SELECT lngAccountID,strAccountCode,strAccountName FROM Account" _
                & " WHERE NOT blnIsInActive ORDER BY strAccountCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = GetListRecordSet(lrtAccount)
'            Set lstSetting.Recordset = gclsBase.BaseDB.openresultset(strSql, rdopenstatic)
        Case 1 '单位
            iRight = 11
'            strSql = "SELECT lngCustomerID,strCustomerCode,strCustomerName FROM Customer" _
                & " WHERE NOT blnIsInActive ORDER BY strCustomerCode"
            lstSetting.SeekCol = "1,2,3"
'            Set lstSetting.Recordset = gclsBase.BaseDB.openresultset(strSql, rdopenstatic)
            Set lstSetting.Recordset = GetListRecordSet(lrtCustomer)
        Case 2  '单位类别
            iRight = 11
            strSql = "SELECT lngCustomerTypeID,strCustomerTypeCode,strCustomerTypeName FROM " _
                & "CustomerType WHERE blnIsInActive=0 ORDER BY strCustomerTypeCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 3  '付款条件
            iRight = 25
'            strSql = "SELECT lngTermID,strTermCode,strTermName FROM Term" _
                & " WHERE NOT blnIsInActive ORDER BY strTermCode"
            lstSetting.SeekCol = "1,2,3"
'            Set lstSetting.Recordset = gclsBase.BaseDB.openresultset(strSql, rdopenstatic)
            Set lstSetting.Recordset = GetListRecordSet(lrtTerm)
        Case 4  '职务
            strSql = "SELECT lngTitleID,strTitleName FROM Title  ORDER BY strTitleName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            strSeek = "1,2"
        Case 5  '职员
            iRight = 12
'            strSql = "SELECT lngEmployeeID,strEmployeeCode,strEmployeeName FROM Employee" _
                & " WHERE NOT blnIsInActive ORDER BY strEmployeeCode"
            lstSetting.SeekCol = "1,2,3"
'            Set lstSetting.Recordset = gclsBase.BaseDB.openresultset(strSql, rdopenstatic)
            Set lstSetting.Recordset = GetListRecordSet(lrtEmployee)
        Case 6  '工程状态
            iRight = 15
            strSql = "SELECT lngJobStatusID,strJobStatusName FROM JobStatus ORDER BY strJobStatusName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            strSeek = "1,2"
        Case 7  '工程类型
            iRight = 15
            strSql = "SELECT lngJobTypeID,strJobTypeCode,strJobTypeName FROM JobType" _
                & " WHERE blnIsInActive=0 ORDER BY strJObTypeCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 8  '部门
            iRight = 12
'            strSql = "SELECT lngDepartmentID,strDepartmentCode,strDepartmentName FROM " _
                & "Department WHERE NOT blnIsInActive ORDER BY strDepartmentCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = GetListRecordSet(lrtDepartment)
'            Set lstSetting.Recordset = gclsBase.BaseDB.openresultset(strSql, rdopenstatic)
        Case 9    '文化程度
            strSql = "SELECT lngEducationID,strEducationName FROM Education ORDER BY strEducationName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            strSeek = "1,2"
        Case 10   '个人所得税类别
            strSql = "SELECT lngPersonTaxTypeID,rtrim(strPersonTaxTypeName),rtrim(dblStartAmount) || '元' FROM PersonTaxType ORDER BY strPersonTaxTypeName"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            strSeek = "1,2"
        Case 11   '职员类别
            strSql = "SELECT lngEmployeeTypeID,strEmployeeTypeCode,strEmployeeTypeName FROM " _
                & "EmployeeType ORDER BY strEmployeeTypeCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            strSeek = "1,2"
        Case 12   '单据模版
            strSql = "SELECT lngTemplateID,strTemplateName FROM Template WHERE blnIsInActive=0 ORDER BY strTemplateName"
            lstSetting.SeekCol = "1,2"
            #If conVersionType = 16 Then
            strSql = "SELECT lngTemplateID,strTemplateName FROM Template " _
                     & " WHERE lngReceiptTypeID=" & lngTemplateID & " and blnIsInActive=0 and (bytVersion=16 or bytversion=17) order by strTemplateName"
            #ElseIf conVersionType = 1 Then
                strSql = "SELECT lngTemplateID,strTemplateName FROM Template " _
                     & " WHERE lngReceiptTypeID=" & lngTemplateID & " and blnIsInActive=0 and (bytVersion=1 or bytversion=17) order by strTemplateName"
            #ElseIf conVersionType = 2 Then
                strSql = "SELECT lngTemplateID,strTemplateName FROM Template " _
                     & " WHERE lngReceiptTypeID=" & lngTemplateID & " and blnIsInActive=0 and bytVersion=2 order by strTemplateName"
            #ElseIf conVersionType = 4 Then
                strSql = "SELECT lngTemplateID,strTemplateName FROM Template " _
                     & " WHERE lngReceiptTypeID=" & lngTemplateID & " and blnIsInActive=0 and bytVersion=4 order by strTemplateName"
            #ElseIf conVersionType = 8 Then
                strSql = "SELECT lngTemplateID,strTemplateName FROM Template " _
                     & " WHERE lngReceiptTypeID=" & lngTemplateID & " and blnIsInActive=0 and bytVersion=8 order by strTemplateName"
            #End If
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
            'Set lstSetting.Recordset = GetListRecordSet(lrtTemplate)
'            strSeek = "1,2"
        Case 13  '凭证类型
            iRight = 23
            strSql = "SELECT lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName" _
                & " WHERE blnIsInActive=0 FROM VoucherType ORDER BY strVoucherTypeCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = GetListRecordSet(lrtVoucherType)
        Case 14  '摘要
            strSql = "SELECT lngRemarkID,strRemarkCode,strRemarkName FROM Remark" _
                & " ORDER BY strRemarkCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            Set lstSetting.Recordset = GetListRecordSet(lrtRemark)
        Case 15  '税率
            iRight = 19
            strSql = "SELECT lngTaxID,strTaxName FROM Tax WHERE blnIsInActive=0 ORDER BY strTaxName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            Set lstSetting.Recordset = GetListRecordSet(lrtTax)
'            strSeek = "1,2"
        Case 16  '商品类型
            iRight = 16
            strSql = "SELECT lngItemTypeID,strItemTypeCode,strItemTypeName FROM" _
                & " ItemType WHERE blnIsInActive=0 ORDER BY strItemTypeCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 17  '商品性质
            iRight = 16
'            strSql = "SELECT lngItemNatureID,strItemNatureName FROM ItemNature"
            #If conVersionType = 16 Then
                strSql = "SELECT lngItemNatureID,strItemNatureName,strItemCategory,'' FROM ItemNature" _
                    & " ORDER BY strItemNatureName"
            #Else
                strSql = "SELECT lngItemNatureID,strItemNatureName,strItemCategory," _
                    & "Decode(strCostMethod,1,'全月平均',2,'移动平均',3,'先进先出',4,'后进先出'," _
                    & "5,'个别计价',6,'计划价',7,'进销差价率',8,'最后进价') FROM " _
                    & "ItemNature ORDER BY strItemNatureName"
            #End If
            lstSetting.SeekCol = "1,2,4"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
            lstSetting.ColWidth(3) = 0
'            lstSetting.ColWidth(4) = 0
'            strSeek = "1,2"
        Case 18  '地区
            strSql = "SELECT lngAreaID,strAreaCode,strAreaName FROM Area " _
                & "ORDER BY strAreaCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 19  '货位
            iRight = 18
'            strSql = "SELECT lngPositionID,strPositionCode,strPositionName FROM Position " _
                & "WHERE NOT blnIsInActive ORDER BY strPositionCode"
            lstSetting.SeekCol = "1,2,3"
'            Set lstSetting.Recordset = gclsBase.BaseDB.openresultset(strSql, rdopenstatic)
            Set lstSetting.Recordset = GetListRecordSet(lrtPosition)
        Case 20  '供应商
            iRight = 12
            strSql = "SELECT lngCustomerID,strCustomerCode,strCustomerName " _
                & "FROM Customer WHERE blnIsInActive=0 ORDER BY strCustomerCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 21  '自定项目0
            iRight = 17
            strSql = "SELECT lngCustomID,strCustomCode,strCustomName FROM " _
                & "Custom0 WHERE blnIsInActive=0 ORDER BY strCustomCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            Set lstSetting.Recordset = GetListRecordSet(lrtCustom0)
        Case 22  '自定项目1
            iRight = 17
            strSql = "SELECT lngCustomID,strCustomCode,strCustomName FROM " _
                & "Custom1 WHERE blnIsInActive=0 ORDER BY strCustomCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            Set lstSetting.Recordset = GetListRecordSet(lrtCustom1)
        Case 23  '自定项目2
            iRight = 17
            strSql = "SELECT lngCustomID,strCustomCode,strCustomName FROM " _
                & "Custom2 WHERE blnIsInActive=0 ORDER BY strCustomCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            Set lstSetting.Recordset = GetListRecordSet(lrtCustom2)
        Case 24  '自定项目3
            iRight = 17
            strSql = "SELECT lngCustomID,strCustomCode,strCustomName FROM " _
                & "Custom3 WHERE blnIsInActive=0 ORDER BY strCustomCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            Set lstSetting.Recordset = GetListRecordSet(lrtCustom3)
        Case 25  '自定项目4
            iRight = 17
            strSql = "SELECT lngCustomID,strCustomCode,strCustomName FROM " _
                & "Custom4 WHERE blnIsInActive=0 ORDER BY strCustomCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            Set lstSetting.Recordset = GetListRecordSet(lrtCustom4)
        Case 26  '自定项目5
            iRight = 17
            strSql = "SELECT lngCustomID,strCustomCode,strCustomName FROM " _
                & "Custom5 WHERE blnIsInActive=0 ORDER BY strCustomCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            Set lstSetting.Recordset = GetListRecordSet(lrtCustom5)
        Case 27  '计量单位
            strSql = "SELECT lngUnitID,strUnitName FROM ItemUnit ORDER BY strUnitName"
'            Set lstSetting.Recordset = GetListRecordSet(lrtItemUnit)
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            strSeek = "1,2"
        Case 28      '个人税
            strSql = "SELECT lngPersonTaxTypeID,strPersonTaxTypeName FROM PersonTaxType ORDER BY strPersonTaxTypeName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            strSeek = "1,2"
        Case 29      '操作员组
            strSql = "SELECT lngOperatorGroupID,strOperatorGroupName FROM OperatorGroup ORDER BY strOperatorGroupName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'            strSeek = "1,2"
        Case 30      '代发银行名称
            strSql = "SELECT lngBankID,strBankName FROM Bank ORDER BY strBankName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 31      '到款折扣名称
            strSql = "SELECT lngItemPayDiscID,strItemPayDiscName FROM ItemPayDisc ORDER BY strItemPayDiscName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 32      '促销折扣名称
            strSql = "SELECT lngItemSaleDiscID,strItemSaleDiscName,strStartDate,strEndDate," _
                & "DECODE(dblDiscountRate,0,100,dblDiscountRate),'' FROM ItemSaleDisc ORDER BY strItemSaleDiscName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 33     '付款方式
            strSql = "SELECT lngPaymentMethodID,strPaymentMethodCode,strPaymentMethodName FROM PaymentMethod ORDER BY strPaymentMethodCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 34     '医院等级
            strSql = "SELECT lngLevelID,strLevelName FROM HospitalLevel ORDER BY strLevelName"
            lstSetting.SeekCol = "1,2"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 35     '工程项目
            strSql = "SELECT lngProjectID,strProjectCode,strProjectName FROM Project ORDER BY strProjectCode"
            lstSetting.SeekCol = "1,2,3"
            Set lstSetting.Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Case 36     '统计核算
            strSql = "SELECT lngClassID,strClassCode,st