home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase Pro v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Invoice.dmd < prev    next >
Encoding:
Text File  |  1997-11-20  |  1.7 KB  |  79 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Invoice.dmd - Mugs Sample Application
  4. //
  5. //  Invoice Data Module for the Invoice data entry form.
  6. //
  7. //  Dependencies: MUGS.CDM
  8. //                CUSTOMER.DBF
  9. //                INVOICE.DBF
  10. //                LINEITEM.DBF
  11. //
  12. //  Visual dBASE Samples Group
  13. //
  14. //  $Revision:   1.8  $
  15. //
  16. //  Copyright (c) 1997, Borland International, Inc. 
  17. //  All rights reserved.
  18. //
  19. //---------------------------------------------------------------
  20. ** END HEADER -- do not remove this line
  21. //
  22. // Generated on 10/17/97
  23. //
  24. class InvoiceDataModule of MUGSDATAMODULE from "mugs.cdm"
  25.  
  26.  
  27.    this.INVOICE1 = new QUERY()
  28.    this.INVOICE1.parent = this
  29.    with (this.INVOICE1)
  30.       left = 2
  31.       top = 3
  32.       database = form.dbmugs
  33.       sql = 'SELECT * FROM "INVOICE.DBF"'
  34.       active = true
  35.    endwith
  36.  
  37.  
  38.  
  39.  
  40.    this.LINEITEM1 = new QUERY()
  41.    this.LINEITEM1.parent = this
  42.    with (this.LINEITEM1)
  43.       left = 6
  44.       top = 3
  45.       database = form.dbmugs
  46.       sql = 'SELECT * FROM "LINEITEM.DBF"'
  47.       active = true
  48.    endwith
  49.  
  50.  
  51.    with (this.LINEITEM1.rowset)
  52.  
  53.       indexName = "INVOICE ID"
  54.       masterRowset = parent.parent.invoice1.rowset
  55.       masterFields = "INVOICE ID"
  56.    endwith
  57.  
  58.  
  59.    this.CUSTOMER1 = new QUERY()
  60.    this.CUSTOMER1.parent = this
  61.    with (this.CUSTOMER1)
  62.       left = 10
  63.       top = 3
  64.       database = form.dbmugs
  65.       sql = 'SELECT * FROM "CUSTOMER.DBF"'
  66.       active = true
  67.    endwith
  68.  
  69.  
  70.    with (this.CUSTOMER1.rowset)
  71.  
  72.       indexName = "CUSTOMER ID"
  73.       masterRowset = parent.parent.invoice1.rowset
  74.       masterFields = "CUSTOMER ID"
  75.    endwith
  76.  
  77.     
  78. endclass
  79.