home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase Pro v7.0 / DATA1.CAB / Sample_dBASE / Fleet / Aircraft.rep < prev    next >
Encoding:
Text File  |  1997-11-20  |  6.8 KB  |  261 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Aircraft.rep -- Aircraft Report
  4. //
  5. //  This report displays the schedule in groups by aircraft.
  6. // 
  7. //  Dependencies: BWA.CRP
  8. //                SCHEDULE.DBF
  9. //                AIRCRAFT.DBF
  10. //
  11. //  Visual dBASE Samples Group
  12. //
  13. //  $Revision:   1.4  $
  14. //
  15. //  Copyright (c) 1997, Borland International, Inc. 
  16. //  All rights reserved.
  17. //
  18. //---------------------------------------------------------------
  19. SET TALK OFF
  20. ** END HEADER -- do not remove this line
  21. //
  22. // Generated on 10/10/97
  23. //
  24. local r
  25. r = new AircraftReport()
  26. r.render()
  27.  
  28. class AircraftReport of BWAREPORT from "bwa.crp"
  29.    with (this)
  30.       title = "Schedule by Aircraft"
  31.       metric = 3
  32.       autoSort = false
  33.       scaleFontBold = false
  34.    endwith
  35.  
  36.  
  37.    this.AIRCRAFT1 = new QUERY()
  38.    this.AIRCRAFT1.parent = this
  39.    with (this.AIRCRAFT1)
  40.       left = 0.5
  41.       top = 0
  42.       database = form.DMCONNECT.ref.dbfleet
  43.       sql = 'SELECT Schedule."Flight ID", Schedule."Flight Date", Aircraft."Aircraft ID", Aircraft.MAKE, Aircraft.MODEL, Aircraft.Passengers FROM "aircraft.dbf" Aircraft INNER JOIN "schedule.dbf" Schedule ON  (Aircraft."Aircraft ID" = Schedule."Aircraft ID")  ORDER BY aircraft."Aircraft ID", Schedule."Flight Date"'
  44.       requestLive = false
  45.       active = true
  46.    endwith
  47.  
  48.  
  49.  
  50.  
  51.    with (this.printer)
  52.       duplex = 1
  53.       orientation = 1
  54.       paperSource = 15
  55.       paperSize = 1
  56.       resolution = 4
  57.       color = 2
  58.       trueTypeFonts = 2
  59.    endwith
  60.  
  61.  
  62.    this.STREAMSOURCE1 = new STREAMSOURCE(this)
  63.  
  64.  
  65.  
  66.    this.STREAMSOURCE1.GROUP1 = new GROUP(this.STREAMSOURCE1)
  67.    with (this.STREAMSOURCE1.GROUP1)
  68.       groupBy = "AIRCRAFTID"
  69.    endwith
  70.  
  71.  
  72.    with (this.STREAMSOURCE1.GROUP1.headerBand)
  73.       expandable = false
  74.       height = 0.5
  75.    endwith
  76.  
  77.  
  78.    this.STREAMSOURCE1.GROUP1.headerBand.LABELAIRCRAFTID = new TEXT(this.STREAMSOURCE1.GROUP1.headerBand)
  79.    with (this.STREAMSOURCE1.GROUP1.headerBand.LABELAIRCRAFTID)
  80.       height = 0.15
  81.       top = 0.1
  82.       width = 0.7
  83.       metric = 3
  84.       colorNormal = "darkblue"
  85.       fontSize = 9
  86.       text = "<H4>Aircraft ID:</H4>"
  87.    endwith
  88.  
  89.  
  90.    this.STREAMSOURCE1.GROUP1.headerBand.VALUEAIRCRAFTID = new TEXT(this.STREAMSOURCE1.GROUP1.headerBand)
  91.    with (this.STREAMSOURCE1.GROUP1.headerBand.VALUEAIRCRAFTID)
  92.       height = 0.15
  93.       left = 0.75
  94.       top = 0.1
  95.       width = 0.5
  96.       metric = 3
  97.       colorNormal = "darkblue"
  98.       fontSize = 9
  99.       text = {||"<H4>  " + this.parent.parent.parent.rowset.fields["Aircraft ID"].value + "</H4>"}
  100.    endwith
  101.  
  102.  
  103.    this.STREAMSOURCE1.GROUP1.headerBand.TEXTMODEL = new TEXT(this.STREAMSOURCE1.GROUP1.headerBand)
  104.    with (this.STREAMSOURCE1.GROUP1.headerBand.TEXTMODEL)
  105.       height = 0.15
  106.       left = 1.75
  107.       top = 0.3
  108.       width = 1.5
  109.       metric = 3
  110.       variableHeight = true
  111.       colorNormal = "darkblue"
  112.       fontSize = 9
  113.       text = {||"<h4>Model: " + this.form.form.aircraft1.rowset.fields["MODEL"].value+"</h4>"}
  114.    endwith
  115.  
  116.  
  117.    this.STREAMSOURCE1.GROUP1.headerBand.TEXTDEPARTS1 = new TEXT(this.STREAMSOURCE1.GROUP1.headerBand)
  118.    with (this.STREAMSOURCE1.GROUP1.headerBand.TEXTDEPARTS1)
  119.       height = 0.15
  120.       top = 0.3
  121.       width = 1.5
  122.       metric = 3
  123.       variableHeight = true
  124.       colorNormal = "darkblue"
  125.       fontSize = 9
  126.       text = {||"<h4>Make: " + this.form.form.aircraft1.rowset.fields["MAKE"].value + "</h4>"}
  127.    endwith
  128.  
  129.  
  130.    with (this.STREAMSOURCE1.GROUP1.footerBand)
  131.       height = 1
  132.    endwith
  133.  
  134.  
  135.  
  136.  
  137.  
  138.    this.STREAMSOURCE1.detailBand.TITLETEXTFLIGHTDATE1 = new TEXT(this.STREAMSOURCE1.detailBand)
  139.    with (this.STREAMSOURCE1.detailBand.TITLETEXTFLIGHTDATE1)
  140.       canRender = {||this.parent.firstOnFrame}
  141.       height = 0.15
  142.       left = 0.1771
  143.       top = 0.0083
  144.       width = 1
  145.       metric = 3
  146.       colorNormal = "BtnText"
  147.       alignHorizontal = 1
  148.       suppressIfBlank = true
  149.       fontSize = 9
  150.       fontBold = true
  151.       fontUnderline = true
  152.       text = "Date"
  153.    endwith
  154.  
  155.  
  156.    this.STREAMSOURCE1.detailBand.TEXTFLIGHTDATE1 = new TEXT(this.STREAMSOURCE1.detailBand)
  157.    with (this.STREAMSOURCE1.detailBand.TEXTFLIGHTDATE1)
  158.       height = 0.12
  159.       left = 0.25
  160.       top = 0.2
  161.       width = 1
  162.       metric = 3
  163.       variableHeight = true
  164.       colorNormal = "BtnText"
  165.       alignHorizontal = 1
  166.       fontSize = 9
  167.       text = {||this.form.aircraft1.rowset.fields["Flight Date"].value}
  168.    endwith
  169.  
  170.  
  171.    this.STREAMSOURCE1.detailBand.TITLETEXTAIRCRAFTID1 = new TEXT(this.STREAMSOURCE1.detailBand)
  172.    with (this.STREAMSOURCE1.detailBand.TITLETEXTAIRCRAFTID1)
  173.       canRender = {||this.parent.firstOnFrame}
  174.       height = 0.15
  175.       left = 1.5
  176.       width = 1
  177.       metric = 3
  178.       colorNormal = "BtnText"
  179.       alignHorizontal = 1
  180.       suppressIfBlank = true
  181.       fontSize = 9
  182.       fontBold = true
  183.       fontUnderline = true
  184.       text = "Flight ID"
  185.    endwith
  186.  
  187.  
  188.    this.STREAMSOURCE1.detailBand.VALUEAIRCRAFTID = new TEXT(this.STREAMSOURCE1.detailBand)
  189.    with (this.STREAMSOURCE1.detailBand.VALUEAIRCRAFTID)
  190.       height = 0.12
  191.       left = 1.5
  192.       top = 0.2
  193.       width = 1
  194.       metric = 3
  195.       variableHeight = true
  196.       colorNormal = "BtnText"
  197.       alignHorizontal = 1
  198.       fontSize = 9
  199.       text = {||this.form.aircraft1.rowset.fields["Flight ID"].value}
  200.       borderStyle = 3
  201.    endwith
  202.  
  203.  
  204.  
  205.  
  206.  
  207.    with (this.PAGETEMPLATE1.STREAMFRAME1)
  208.       metric = 3
  209.       form.STREAMFRAME1 = form.pagetemplate1.streamframe1
  210.    endwith
  211.  
  212.  
  213.    this.PAGETEMPLATE1.TITLE1 = new TEXT(this.PAGETEMPLATE1)
  214.    with (this.PAGETEMPLATE1.TITLE1)
  215.       height = 0.5
  216.       width = 3
  217.       metric = 3
  218.       colorNormal = "darkblue"
  219.       alignVertical = 1
  220.       alignHorizontal = 1
  221.       fontName = "Times New Roman"
  222.       text = "<H1>Schedule by Aircraft</H1>"
  223.       borderStyle = 6
  224.       form.TITLE1 = form.pagetemplate1.title1
  225.    endwith
  226.  
  227.  
  228.    this.PAGETEMPLATE1.TEXTDATE = new TEXT(this.PAGETEMPLATE1)
  229.    with (this.PAGETEMPLATE1.TEXTDATE)
  230.       height = 0.25
  231.       top = 0.6042
  232.       width = 1
  233.       metric = 3
  234.       colorNormal = "BtnText"
  235.       text = {||Date()}
  236.       form.TEXTDATE = form.pagetemplate1.textdate
  237.    endwith
  238.  
  239.  
  240.    this.PAGETEMPLATE1.TEXTPAGE = new TEXT(this.PAGETEMPLATE1)
  241.    with (this.PAGETEMPLATE1.TEXTPAGE)
  242.       height = 0.25
  243.       left = 2
  244.       top = 0.6042
  245.       width = 0.8021
  246.       metric = 3
  247.       colorNormal = "BtnText"
  248.       alignHorizontal = 2
  249.       text = {||"Page: " + this.parent.parent.reportPage}
  250.       form.TEXTPAGE = form.pagetemplate1.textpage
  251.    endwith
  252.  
  253.  
  254.  
  255.  
  256.    this.firstPageTemplate = this.form.pagetemplate1
  257.    this.form.pagetemplate1.nextPageTemplate = this.form.pagetemplate1
  258.    this.form.pagetemplate1.streamframe1.streamSource = this.form.STREAMSOURCE1
  259.    this.form.STREAMSOURCE1.rowset = this.form.aircraft1.rowset
  260. endclass
  261.