Subversion Repositories DevTools

Rev

Rev 5596 | Rev 5838 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5596 Rev 5658
Line 367... Line 367...
367 
         "<tr>"&_
 367 
         "<tr>"&_
368 
         sBULET  &"<td class='val_err'>"&  sErrMsg  &"</td>"&_
 368 
         sBULET  &"<td class='val_err'>"&  sErrMsg  &"</td>"&_
369 
         "</tr>"& VBNewLine
 369 
         "</tr>"& VBNewLine
370 
   End Sub
 370 
   End Sub
371 
   '-----------------------------------------------------------------------------------------------------------------
 371 
   '-----------------------------------------------------------------------------------------------------------------
372 
   Public Sub LoadFieldRules ( aRows )
 - 
 
373 
      ' Pass the full array row matching the columns of maRules()
 - 
 
374 
      Dim nProperty, newArrayDim, numOfRows, rowNum
 - 
 
375 
 
 - 
 
376 
      numOfRows = UBound( aRows, 2 )
 - 
 
377 
 
 - 
 
378 
 
 - 
 
379 
      For rowNum = 0 To numOfRows
 - 
 
380 
         ' Increase array by 1
 - 
 
381 
         newArrayDim = LastRowInx() + 1
 - 
 
382 
         ReDim Preserve maRules( mNumOfRules, newArrayDim )
 - 
 
383 
 
 - 
 
384 
         mobjFieldMap.Add ( Cstr( aRows ( InxFieldName, rowNum ) ) ), CStr( newArrayDim )
 - 
 
385 
 
 - 
 
386 
         For nProperty = 0 To mLastRuleInx
 - 
 
387 
            maRules ( nProperty, newArrayDim ) = aRows ( nProperty, rowNum )
 - 
 
388 
         Next
 - 
 
389 
 
 - 
 
390 
      Next
 - 
 
391 
 
 - 
 
392 
      ' --- Validate Form ---
 - 
 
393 
      'ValidateForm()
 - 
 
394 
 
 - 
 
395 
   End Sub
 - 
 
396 
   '-----------------------------------------------------------------------------------------------------------------
 - 
 
397 
   Private Function LastRowInx ()
 372 
   Private Function LastRowInx ()
398 
       LastRowInx = UBound ( maRules, 2 )
 373 
       LastRowInx = UBound ( maRules, 2 )
399 
   End Function
 374 
   End Function
400 
   '-----------------------------------------------------------------------------------------------------------------
 375 
   '-----------------------------------------------------------------------------------------------------------------
401 
   Private Function GetErrorMsg ( sFieldName )
 376 
   Private Function GetErrorMsg ( sFieldName )
Line 460... Line 435...
460 
            GetColumnInx = Eval( "Inx"& Trim( sParam ) )
 435 
            GetColumnInx = Eval( "Inx"& Trim( sParam ) )
461 
 
 436 
 
462 
      End Select
 437 
      End Select
463 
   End Function
 438 
   End Function
464 
   '-----------------------------------------------------------------------------------------------------------------
 439 
   '-----------------------------------------------------------------------------------------------------------------
465 
   Sub LoadValidationRules ( aFieldList, ByRef objOraDatabase )
 - 
 
466 
      Dim rsQry, query
 - 
 
467 
 
 - 
 
468 
      query = _
 - 
 
469 
      "   SELECT FIELD_NAME, "&_
 - 
 
470 
      "         IS_REQUIRED, "&_
 - 
 
471 
      "         IS_NUMERIC, "&_
 - 
 
472 
      "         MIN_NUMERIC_VALUE, "&_
 - 
 
473 
      "         MAX_NUMERIC_VALUE, "&_
 - 
 
474 
      "         IS_DATE, "&_
 - 
 
475 
      "         START_DATE, "&_
 - 
 
476 
      "         END_DATE, "&_
 - 
 
477 
      "         MIN_STRING_LENGTH, "&_
 - 
 
478 
      "          MAX_STRING_LENGTH, "&_
 - 
 
479 
      "         REGEXP, "&_
 - 
 
480 
      "         REGEXP_DESCRIPTION "&_
 - 
 
481 
      "     FROM VALIDATION_RULES"&_
 - 
 
482 
      "    WHERE field_name IN ( '"& Join( aFieldList, "','") &"' )"
 - 
 
483 
 
 - 
 
484 
 
 - 
 
485 
      Set rsQry = objOraDatabase.DbCreateDynaset( query , 0 )
 - 
 
486 
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 - 
 
487 
         Call LoadFieldRules ( rsQry.GetRows() )
 - 
 
488 
 
 - 
 
489 
      End If
 - 
 
490 
 
 - 
 
491 
      rsQry.Close
 - 
 
492 
      Set rsQry = Nothing
 - 
 
493 
   End Sub
 - 
 
494 
   '-----------------------------------------------------------------------------------------------------------------
 - 
 
495 
   Private Sub Class_Initialize()
 440 
   Private Sub Class_Initialize()
496 
      '// Perform action on creation of object. e.g. Set myObj = New ThisClassName
 441 
      '// Perform action on creation of object. e.g. Set myObj = New ThisClassName
497 
      Set mobjFieldMap = CreateObject("Scripting.Dictionary")
 442 
      Set mobjFieldMap = CreateObject("Scripting.Dictionary")
498 
      Set mobjErrorMsg = CreateObject("Scripting.Dictionary")
 443 
      Set mobjErrorMsg = CreateObject("Scripting.Dictionary")
499 
      Set mobjAltVal     = CreateObject("Scripting.Dictionary")
 444 
      Set mobjAltVal     = CreateObject("Scripting.Dictionary")