isInherited( ) example

Save the following class to cust.cdm in the folder mapped for the dQuerySamples BDE Alias:

** END HEADER -- do not remove this line

//

// Generated on 02/24/03

//

class CustDATAMODULE of DATAMODULE CUSTOM

with (this)

  left = -1

  top = -1

endwith

this.DQUERYSAMPLES1 = new DATABASE()

this.DQUERYSAMPLES1.parent = this

with (this.DQUERYSAMPLES1)

   left = 19

   top = 135

   databaseName = "dQuerySamples"

   active = true

endwith  

this.CUSTOMERS1 = new QUERY()

this.CUSTOMERS1.parent = this

with (this.CUSTOMERS1)

  left = 125

  top = 45

  width = 114

  height = 127

  database = form.dquerysamples1

  sql = 'Select * from "Customers"'

  active = true

endwith

endclass

Save the following class to custinv.dmd also in the folder mapped for the dQuerySamples BDE Alias:

** END HEADER -- do not remove this line

//

// Generated on 02/27/2003

//

class custinvDATAMODULE of CUSTDATAMODULE from "cust.cdm"

 with (this.DQUERYSAMPLES1)

    left = 19

    top = 135

    width = 115

    height = 112

 endwith

 this.INVOICES1 = new QUERY()

 this.INVOICES1.parent = this

 with (this.INVOICES1)

    left = 279

    top = 45

    width = 114

    height = 127

    database = form.dquerysamples1

    sql = 'Select * from "Invoices"'

    active = true

 endwith

 with (this.CUSTOMERS1)

    left = 125

    top = 45

    width = 114

    height = 122

 endwith

endclass

d = new custinvDatamodule()

oDsn = new designer()

oDsn.object = d

bInherited = oDsn.isInherited( d.INVOICES1 )

if bInherited

   // do something

else

   // do something else

endif