Ich brauch mal etwas Hilfe um den folgenden Code zu verstehen.
Er ist Teil einer erweiterten Suche und es wurde nix zur Progammierung dokumentiert und der das programmiert hat kann ich nicht fragen, weil er verstorben ist.
Sind meist nur Teile des Quellcodes aber ich hoffe das reicht.
Er ist Teil einer erweiterten Suche und es wurde nix zur Progammierung dokumentiert und der das programmiert hat kann ich nicht fragen, weil er verstorben ist.
Sind meist nur Teile des Quellcodes aber ich hoffe das reicht.
Visual Basic-Quellcode
- Private Const DEBUGMODE As Boolean = True
- Private Const SQLEQUAL As String = "[FIELD] = [VALUE]"
- Private Const SQLLIKE As String = "[FIELD] LIKE [VALUE]"
- Private Const PHONENUMBER As String = "'+[LANDNR] ([VORWAHL]) [NUMMER]'"
- Private Const PHONENOSEARCH As String = "'+* (*) *'"
- Private Const MSG_AKTIVIERE_LAND As String = "Zum Aktivieren muss das Länderkürzel ausgewählt sein!"
- Private Const MSG_MARKERFEHLER As String = "Der Wert [MARKERWERT] entspricht keiner Zahl!"
- Private csqlsnippes As Collection
Visual Basic-Quellcode
- Private Function sqlSnippe(fieldname As String, value As Variant)
- Dim buffer As String
- ' Wert vorhanden?
- If Not IsNull(value) Then
- ' Wenn wir einen Stern in value vorfinden...
- If InStr(1, value, "*", vbTextCompare) Then
- buffer = replace(replace(SQLLIKE, "[FIELD]", fieldname, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare)
- Else
- buffer = replace(replace(SQLEQUAL, "[FIELD]", fieldname, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare)
- End If
- csqlsnippes.Add "(" & buffer & ")"
- End If
- End Function
- Private Function sqlORSnippe(fieldname1 As String, fieldname2 As String, value As Variant)
- Dim buffer As String
- ' Wert vorhanden?
- If Not IsNull(value) Then
- ' Wenn wir einen Stern in value vorfinden...
- If InStr(1, value, "*", vbTextCompare) Then
- buffer = "((" & replace(replace(SQLLIKE, "[FIELD]", fieldname1, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare)
- buffer = buffer & ") OR ("
- buffer = buffer & replace(replace(SQLLIKE, "[FIELD]", fieldname2, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare) & "))"
- Else
- buffer = "((" & replace(replace(SQLEQUAL, "[FIELD]", fieldname1, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare)
- buffer = buffer & ") OR ("
- buffer = buffer & replace(replace(SQLEQUAL, "[FIELD]", fieldname2, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare) & "))"
- End If
- csqlsnippes.Add buffer
- End If
- End Function
Visual Basic-Quellcode
- Private Sub cmdOK_Click()
- Dim idx As Integer
- Dim buffer As String
- sqlSnippe "KundenNummer", embedded(Me.txtSearchKundennummer)
- sqlSnippe "Firmenname", embedded(Me.txtSearchName)
- If Me.combVerbraucherTyp.ListIndex <> -1 Then
- sqlSnippe "Kundentyp", embedded(Me.combVerbraucherTyp.value)
- If Me.regKundenTypen.Pages("regWiederverkaeufer").Visible Then
- sqlORSnippe "HaendlerVerband1", "HaendlerVerband2", embedded(Me.regKundenTypen.Pages("regWiederverkaeufer").Controls("Verband1"))
- sqlORSnippe "HaendlerVerband1", "HaendlerVerband2", embedded(Me.regKundenTypen.Pages("regWiederverkaeufer").Controls("Verband2"))
- sqlORSnippe "NummerVerband2", "NummerVerband1", embedded(Me.regKundenTypen.Pages("regWiederverkaeufer").Controls("txtMitgliedsnrVerband1"))
- sqlORSnippe "NummerVerband2", "NummerVerband1", embedded(Me.regKundenTypen.Pages("regWiederverkaeufer").Controls("txtMitgliedsnrVerband2"))
- ElseIf Me.regKundenTypen.Pages("regEndverbraucher").Visible Then
- If Me.regKundenTypen.Pages("regEndverbraucher").Controls("kombEinkaufsverband").ListIndex <> -1 Then
- sqlSnippe "Endkundenverband", embedded(Me.regKundenTypen.Pages("regEndverbraucher").Controls("kombEinkaufsverband").value)
- Else
- If Me.regKundenTypen.Pages("regEndverbraucher").Controls("conBetreuungHaendler") Then
- sqlSnippe "istBetreuungHaendler", Me.regKundenTypen.Pages("regEndverbraucher").Controls("conBetreuungHaendler").value
- If Me.regKundenTypen.Pages("regEndverbraucher").Controls("combVerbraucherHaendler").ListIndex <> -1 Then
- sqlSnippe "hatHaendlerKHKnr", embedded(Me.regKundenTypen.Pages("regEndverbraucher").Controls("combVerbraucherHaendler").value)
- End If
- End If
- End If
- End If
- End If