1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

//***************************************************************************
//*
//* Class:        ckusTimerCrystal
//* Package Name: ckusTimerCrystal.pkg
//*
//***************************************************************************

Use cCrystal.pkg

Class ckusCrystal is a cCrystal

    // Construct_Object: Object constructor.
    Procedure Construct_object
        Forward Send Construct_Object

        // Define new Properties: Property {Type} {pxName} {initial_value}

        // Create child objects

        // Set property values:

    End_Procedure

    // Create and augment procedure and functions
    Procedure OnInitializeReport Handle hoReport
        Handle[] hoTables                    //für Anmeldung
        Handle hoDatabaseTable hoDatabase    //für Anmeldung
        Integer iTableItem iTableCount       //für Anmeldung
        Boolean bOK 
        //XXXX if ... procedure_return <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<        
        Get DatabaseObject of hoReport to hoDatabase
        If (hoDatabase) Begin
            Get TableObjects of hoDatabase to hoTables
            Move (SizeOfArray(hoTables)) to iTableCount
            For iTableItem from 0 to (iTableCount -1)
               Move hoTables[iTableItem] to hoDatabaseTable
               If (hoDatabaseTable) Begin
                    // set the same password for all the tables in the ADO datasource
                 Get SetPassword hoDatabaseTable "pwd" to bOK
               End
            Loop
        End
    End_Procedure // OnInitializeReport
    ....
End_Class // ckusCrystal