?? clsvchquerysqlbi.cls
字號:
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, "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("pay_acc_id").SourceField & "=" & objTranEO.SourceTable & "." & objTranEO.SourceOIDField
RelationTable = objTranEO.SourceTable & "." & objTranEO("accunit_id").SourceField
Set objTranEO = objUnitBI.Init(DataSourceName)
If InStr(1, CreateSQL, "accunit_name" & " as ") > 0 Then
CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "accunit_name" & " as ") - 1) & objTranEO.SourceTable & "." & objTranEO("accunit_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "accunit_name" & " as ") + Len("accunit_name"))
SQLfrom = SQLfrom & " left join " & objTranEO.SourceTable
SQLfrom = SQLfrom & " on " & RelationTable & "=" & objTranEO.SourceTable & "." & objTranEO.SourceOIDField
End If
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 23
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) & "tableTemp1" & "." & objTranEO("accdef_code").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "rcv_acc_code" & " as ") + Len("rcv_acc_code"))
End If
If InStr(1, CreateSQL, "rcv_accdef_name" & " as ") > 0 Then
CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "rcv_accdef_name" & " as ") - 1) & "tableTemp1" & "." & objTranEO("accdef_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "rcv_accdef_name" & " as ") + Len("rcv_accdef_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("rcv_acc_id").SourceField & "=" & "tableTemp1" & "." & objTranEO.SourceOIDField
If InStr(1, CreateSQL, "pay_acc_code" & " as ") > 0 Then
CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "pay_acc_code" & " as ") - 1) & "tableTemp2" & "." & 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) & "tableTemp2" & "." & objTranEO("accdef_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "pay_accdef_name" & " as ") + Len("pay_accdef_name"))
End If
SQLfrom = SQLfrom & " left join " & objTranEO.SourceTable & " as tableTemp2"
SQLfrom = SQLfrom & " on " & objEO.SourceTable & "." & objEO("pay_acc_id").SourceField & "=" & "tableTemp2" & "." & objTranEO.SourceOIDField
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
RelationTable = "tableTemp2" & "." & 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) & "tableTemp4" & "." & 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 tableTemp4"
SQLfrom = SQLfrom & " on " & RelationTable & "=" & "tableTemp4" & "." & 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 24
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) & "tableTemp1" & "." & objTranEO("accdef_code").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "rcv_acc_code" & " as ") + Len("rcv_acc_code"))
End If
If InStr(1, CreateSQL, "rcv_accdef_name" & " as ") > 0 Then
CreateSQL = Mid(CreateSQL, 1, InStr(1, CreateSQL, "rcv_accdef_name" & " as ") - 1) & "tableTemp1" & "." & objTranEO("accdef_name").SourceField & Mid(CreateSQL, InStr(1, CreateSQL, "rcv_accdef_name" & " as ") + Len("rcv_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("rcv_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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -