clsvchquerysqlbi.cls

用友U8财务软件VB源程序, 本版本为2002年版本

                RelationTable = "tableTemp1" & "." & objTranEO("accunit_id").SourceField
                Set objTranEO = objUnitBI.Init(DataSourceName)
                If InStr(1, CreateSQL, "rcv_accunit_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "rcv_accunit_name" & " as ") - 1) & "tableTemp3" & "." & objTranEO("accunit_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "rcv_accunit_name" & " as ") + Len("rcv_accunit_name"))
                End If
                SQLfrom = SQLfrom & " left join " & objTranEO.SourceTable & " as tableTemp3"
                SQLfrom = SQLfrom & " on " & RelationTable & "=" & "tableTemp3" & "." & objTranEO.SourceOIDField
                
                If InStr(1, CreateSQL, "settle_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "settle_name" & " as ") - 1) & "SettleStyle." & "cSSName" & Mid(CreateSQL, InStr(1, CreateSQL, "settle_name" & " as ") + Len("settle_name"))
                    SQLfrom = SQLfrom & " left join " & "SettleStyle"
                    SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("settle_code").SourceField & "=" & "SettleStyle" & "." & "cSSCode"
                End If
                
                If InStr(1, CreateSQL, "equalsubject_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "equalsubject_name" & " as ") - 1) & "code." & "ccode_name" & Mid(CreateSQL, InStr(1, CreateSQL, "equalsubject_name" & " as ") + Len("equalsubject_name"))
                    SQLfrom = SQLfrom & " left join " & "code"
                    SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("equalsubject_code").SourceField & "=" & "code" & "." & "ccode"
                End If
                
                Set objTranEO = Nothing
            Case 25
                SQLfrom = " from " & objEO.SourceTable
                sqlwhere = " where substring(" & objEO.SourceOIDField & ",1,2)=" & NodeKey
                
                If InStr(1, CreateSQL, "digest" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "digest" & " as ") - 1) & objEO.SourceTable & "." & "digest" & Mid(CreateSQL, InStr(1, CreateSQL, "digest" & " as ") + Len("digest"))
                End If
                
                If InStr(1, CreateSQL, "capitalmoney_name" & " as ") > 0 Then
'                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "capitalmoney_name" & " as ") - 1) & Rmbdx(objEO.Fields.Item("sum_mny").Value) & Mid(CreateSQL, InStr(1, CreateSQL, "capitalmoney_name" & " as ") + Len("capitalmoney_name"))
                End If
                
                If InStr(1, CreateSQL, "naturalmoney_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "naturalmoney_name" & " as ") - 1) & objEO.Fields.Item("sum_mny").SourceField & "*" & objEO.Fields.Item("exchange_rate").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "naturalmoney_name" & " as ") + Len("naturalmoney_name"))
                End If
                
                Set objTranEO = objAccDefBI.Init(DataSourceName)
                If InStr(1, CreateSQL, "pay_acc_code" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "pay_acc_code" & " as ") - 1) & "tableTemp1" & "." & objTranEO("accdef_code").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "pay_acc_code" & " as ") + Len("pay_acc_code"))
                End If
                If InStr(1, CreateSQL, "pay_accdef_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "pay_accdef_name" & " as ") - 1) & "tableTemp1" & "." & objTranEO("accdef_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "pay_accdef_name" & " as ") + Len("pay_accdef_name"))
                End If
                If InStr(1, CreateSQL, "bank_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "bank_name" & " as ") - 1) & "tableTemp1" & "." & objTranEO("accbank").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "bank_name" & " as ") + Len("bank_name"))
                End If
                If InStr(1, CreateSQL, "money_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "money_name" & " as ") - 1) & "tableTemp1" & "." & objTranEO("money_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "money_name" & " as ") + Len("money_name"))
                End If
                SQLfrom = SQLfrom & " left join " & objTranEO.SourceTable & " as tableTemp1"
                SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("pay_acc_id").SourceField & "=" & "tableTemp1" & "." & objTranEO.SourceOIDField
                
                If InStr(1, CreateSQL, "bank_acc_code" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "bank_acc_code" & " as ") - 1) & "tableTemp2" & "." & objTranEO("accdef_code").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "bank_acc_code" & " as ") + Len("bank_acc_code"))
                End If
                If InStr(1, CreateSQL, "bank_accdef_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "bank_accdef_name" & " as ") - 1) & "tableTemp2" & "." & objTranEO("accdef_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "bank_accdef_name" & " as ") + Len("bank_accdef_name"))
                End If
                SQLfrom = SQLfrom & " left join " & objTranEO.SourceTable & " as tableTemp2"
                SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("bank_acc_id").SourceField & "=" & "tableTemp2" & "." & objTranEO.SourceOIDField
                
                RelationTable = "tableTemp1" & "." & objTranEO("accunit_id").SourceField
                Set objTranEO = objUnitBI.Init(DataSourceName)
                If InStr(1, CreateSQL, "pay_accunit_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "pay_accunit_name" & " as ") - 1) & "tableTemp3" & "." & objTranEO("accunit_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "pay_accunit_name" & " as ") + Len("pay_accunit_name"))
                End If
                SQLfrom = SQLfrom & " left join " & objTranEO.SourceTable & " as tableTemp3"
                SQLfrom = SQLfrom & " on " & RelationTable & "=" & "tableTemp3" & "." & objTranEO.SourceOIDField
                            
                If InStr(1, CreateSQL, "settle_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "settle_name" & " as ") - 1) & "SettleStyle." & "cSSName" & Mid(CreateSQL, InStr(1, CreateSQL, "settle_name" & " as ") + Len("settle_name"))
                    SQLfrom = SQLfrom & " left join " & "SettleStyle"
                    SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("settle_code").SourceField & "=" & "SettleStyle" & "." & "cSSCode"
                End If
                
                If InStr(1, CreateSQL, "equalsubject_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "equalsubject_name" & " as ") - 1) & "code." & "ccode_name" & Mid(CreateSQL, InStr(1, CreateSQL, "equalsubject_name" & " as ") + Len("equalsubject_name"))
                    SQLfrom = SQLfrom & " left join " & "code"
                    SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("equalsubject_code").SourceField & "=" & "code" & "." & "ccode"
                End If
                
                Set objTranEO = Nothing
            Case 26
                SQLfrom = " from " & objEO.SourceTable
                sqlwhere = " where substring(" & objEO.SourceOIDField & ",1,2)=" & NodeKey
                
                If InStr(1, CreateSQL, "digest" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "digest" & " as ") - 1) & objEO.SourceTable & "." & "digest" & Mid(CreateSQL, InStr(1, CreateSQL, "digest" & " as ") + Len("digest"))
                End If
                
                If InStr(1, CreateSQL, "capitalmoney_name" & " as ") > 0 Then
'                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "capitalmoney_name" & " as ") - 1) & Rmbdx(objEO.Fields.Item("sum_mny").Value) & Mid(CreateSQL, InStr(1, CreateSQL, "capitalmoney_name" & " as ") + Len("capitalmoney_name"))
                End If
                
                If InStr(1, CreateSQL, "naturalmoney_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "naturalmoney_name" & " as ") - 1) & objEO.Fields.Item("sum_mny").SourceField & "*" & objEO.Fields.Item("exchange_rate").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "naturalmoney_name" & " as ") + Len("naturalmoney_name"))
                End If
                
                Set objTranEO = objAccDefBI.Init(DataSourceName)
                If InStr(1, CreateSQL, "rcv_acc_code" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "rcv_acc_code" & " as ") - 1) & objTranEO.SourceTable & "." & objTranEO("accdef_code").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "rcv_acc_code" & " as ") + Len("rcv_acc_code"))
                End If
                If InStr(1, CreateSQL, "accdef_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "accdef_name" & " as ") - 1) & objTranEO.SourceTable & "." & objTranEO("accdef_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "accdef_name" & " as ") + Len("accdef_name"))
                End If
                If InStr(1, CreateSQL, "bank_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "bank_name" & " as ") - 1) & objTranEO.SourceTable & "." & objTranEO("accbank").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "bank_name" & " as ") + Len("bank_name"))
                End If
                If InStr(1, CreateSQL, "money_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "money_name" & " as ") - 1) & objTranEO.SourceTable & "." & objTranEO("money_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "money_name" & " as ") + Len("money_name"))
                End If
                SQLfrom = SQLfrom & " left join " & objTranEO.SourceTable
                SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("rcv_acc_id").SourceField & "=" & objTranEO.SourceTable & "." & objTranEO.SourceOIDField
                
                If InStr(1, CreateSQL, "settle_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "settle_name" & " as ") - 1) & "SettleStyle." & "cSSName" & Mid(CreateSQL, InStr(1, CreateSQL, "settle_name" & " as ") + Len("settle_name"))
                    SQLfrom = SQLfrom & " left join " & "SettleStyle"
                    SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("settle_code").SourceField & "=" & "SettleStyle" & "." & "cSSCode"
                End If
                
                If InStr(1, CreateSQL, "equalsubject_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "equalsubject_name" & " as ") - 1) & "code." & "ccode_name" & Mid(CreateSQL, InStr(1, CreateSQL, "equalsubject_name" & " as ") + Len("equalsubject_name"))
                    SQLfrom = SQLfrom & " left join " & "code"
                    SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("equalsubject_code").SourceField & "=" & "code" & "." & "ccode"
                End If
                
                Set objTranEO = Nothing
            Case 27
                SQLfrom = " from " & objEO.SourceTable
                sqlwhere = " where substring(" & objEO.SourceOIDField & ",1,2)=" & NodeKey
                
                If InStr(1, CreateSQL, "digest" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "digest" & " as ") - 1) & objEO.SourceTable & "." & "digest" & Mid(CreateSQL, InStr(1, CreateSQL, "digest" & " as ") + Len("digest"))
                End If
                
                If InStr(1, CreateSQL, "capitalmoney_name" & " as ") > 0 Then
'                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "capitalmoney_name" & " as ") - 1) & Rmbdx(objEO.Fields.Item("sum_mny").Value) & Mid(CreateSQL, InStr(1, CreateSQL, "capitalmoney_name" & " as ") + Len("capitalmoney_name"))
                End If
                
                If InStr(1, CreateSQL, "naturalmoney_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "naturalmoney_name" & " as ") - 1) & objEO.Fields.Item("sum_mny").SourceField & "*" & objEO.Fields.Item("exchange_rate").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "naturalmoney_name" & " as ") + Len("naturalmoney_name"))
                End If
                
                Set objTranEO = objAccDefBI.Init(DataSourceName)
                If InStr(1, CreateSQL, "pay_acc_code" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "pay_acc_code" & " as ") - 1) & objTranEO.SourceTable & "." & objTranEO("accdef_code").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "pay_acc_code" & " as ") + Len("pay_acc_code"))
                End If
                If InStr(1, CreateSQL, "accdef_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "accdef_name" & " as ") - 1) & objTranEO.SourceTable & "." & objTranEO("accdef_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "accdef_name" & " as ") + Len("accdef_name"))
                End If
                If InStr(1, CreateSQL, "bank_name" & " as ") > 0 Then
                    CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "bank_name" & " as ") - 1) & objTranEO.SourceTable & "." & objTranEO("accbank").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "bank_name" & " as ") + Len("bank_name"))