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