🚀 go-pugleaf

On Sat, 15 Aug 1998 09:32:38 GMT, rustycogs@acslink.net.au,I wrote the
message below, only forgot to add the code.  This time I have added
the code, but since I have also got my relational db activity working,
setting up my Data Module correctly.  However I can get the COUNTRY
code on the REGISTRATIONS Notebook ADULTS tab to come up and stay in
the screen whilst on that row, but if I skip back or forth, the field
is empty when I return.  Same on the BOOKINGS tab with the NAME field
in my grid.

>Geoff,
>
>Following is firstly, my Data Module file and then the associated Form
>file, both in full.  I have now corrected the first problem, seemingly
>caused by an index error, not sure, however the form when run, is not
>showing the data from the child tables (CHILDREN.DBF and BOOKINGS.DBF)
>as a subset (in the grids) of the main file chosen record.  All the
>rows are shown.  If row 1 in the master file is selected, I just want
>to see associated rows in the child tables that have the same REG_NO
>field data.
>
>As you may see, I took on board (for other reasons) your idea of a
>grid - new to me, perhaps still new!  That may be the problem.
>
>Thanks for your interest, any ideas you may have may be more than I
>have at present.
>
>Regards,
>
>Russell Coghlan,
>Perth, Australia
>
FILENAME: CLIENTS.DMD
** END HEADER -- do not remove this line
//
// Generated on 15/08/1998
//
class ClientsDataModule of CONVDATAMODULE from "conv.cdm"



   this.CLIENTS1 = new QUERY()
   this.CLIENTS1.parent = this
   with (this.CLIENTS1)
      left = 2
      top = 3
      database = form.dbconv
      sql = 'SELECT * FROM "CLIENTS.DBF"'
      active = true
   endwith


   with (this.CLIENTS1.rowset)
      fields["COUNTRY"].lookupSQL = 'SELECT country."Country ID",
country FROM "country.dbf" country'

      indexName = "REG_NO"
   endwith


   this.STATE1 = new QUERY()
   this.STATE1.parent = this
   with (this.STATE1)
      left = 33.8333
      top = 3
      database = form.dbconv
      sql = 'SELECT * FROM "STATE.DBF"'
      active = true
   endwith




   this.INVOICE1 = new QUERY()
   this.INVOICE1.parent = this
   with (this.INVOICE1)
      left = 14
      top = 4.8421
      database = form.dbconv
      sql = 'select * from "INVOICE.DBF"'
      masterSource = form.clients1.rowset
      active = true
   endwith


   with (this.INVOICE1.rowset)

      indexName = "CUSTOMER ID"
   endwith


   this.BOOKINGS1 = new QUERY()
   this.BOOKINGS1.parent = this
   with (this.BOOKINGS1)
      left = 7.6667
      top = 4.8421
      database = form.dbconv
      sql = 'select * from "BOOKINGS.DBF" where REG_NO = :REG_NO'
      params["REG_NO"] = ""
      masterSource = form.clients1.rowset
      active = true
   endwith


   with (this.BOOKINGS1.rowset)

      indexName = "REG_NO"
   endwith


   this.CHILDREN1 = new QUERY()
   this.CHILDREN1.parent = this
   with (this.CHILDREN1)
      left = 2
      top = 4.8421
      database = form.dbconv
      sql = 'select * from "CHILDREN.DBF" where REG_NO = :REG_NO'
      params["REG_NO"] = ""
      masterSource = form.clients1.rowset
      active = true
   endwith


   with (this.CHILDREN1.rowset)

      indexName = "REG_NO"
   endwith


   this.EVENTS1 = new QUERY()
   this.EVENTS1.parent = this
   with (this.EVENTS1)
      left = 7.6667
      top = 6.6316
      database = form.dbconv
      sql = 'select * from "events.DBF"'
      masterSource = form.bookings1.rowset
      active = true
   endwith


   with (this.EVENTS1.rowset)

      indexName = "EVENT"
   endwith

endclass



FILENAME: CLIENTS.WFM
SET TALK OFF
** END HEADER -- do not remove this line
//
// Generated on 15/08/1998
//
parameter bModal
local f
f = new clientsForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class clientsForm of CONVDATACFORM from "CONV.CFM"
   set procedure to conv.cc additive
   with (this)
      onOpen = {;this.book1.entryFirst.setFocus()}
      open = class::FORMOPEN
      readModal = class::FORMREADMODAL
      scaleFontName = "MS Sans Serif"
      height = 21.8421
      left = 10.5
      top = 0.5263
      width = 106.8333
      text = "Registration - Data Entry"
      pageno = 1
   endwith


   this.DMCLIENTS = new DATAMODREF()
   this.DMCLIENTS.parent = this
   with (this.DMCLIENTS)
      filename = "clients.dmd"
      dataModClass = "ClientsDataModule"
      active = true
      left = -0.1667
      top = -0.0526
   endwith


   this.CONVID1 = new QUERY()
   this.CONVID1.parent = this
   with (this.CONVID1)
      left = 100.3333
      top = 2.3684
      sql = 'select * from "CONVID.DBF"'
      active = true
   endwith




   with (this.TITLE)
      height = 1.9474
      left = 1
      top = 1.8947
      width = 53.8333
      anchor = 0	// None
      fontName = "MS Sans Serif"
      text = "<h2>title</h2>"
   endwith


   with (this.BOOK1)
      onSelChange = class::BOOK1_ONSELCHANGE
      tabStop = true
      height = 17.7895
      left = 1
      top = 4.2105
      width = 105
      fontName = "MS Sans Serif"
      pageno = 1
      dataSource = 'ARRAY
{"Adults","Table","Children","Bookings","Accomodation"}'
      multiple = true
   endwith


   with (this.BOOK1.GRIDROWS)
      dataLink = parent.parent.DMCLIENTS.ref.clients1.rowset

      allowEditing = true
      allowAddRows = false
      height = 10.3684
      left = 0.5
      top = 1.4737
      width = 87.6667
   endwith


   this.BOOK1.TEXT4 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT4)
      height = 1.4737
      left = 12.5
      top = 1.5263
      width = 51.5
      border = true
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 1	// Center
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "When complete, press OK to save and return to the main
menu, else click on CANCEL to exit Setup without saving your changes"
      borderStyle = 1	// Raised
   endwith


   this.BOOK1.LABELID = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELID)
      height = 1
      left = 2
      top = 3.5789
      width = 10
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "REG. NO.:"
   endwith


   this.BOOK1.ENTRYID = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYID)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["REG_NO"]
      enabled = false
      height = 1
      left = 12.5
      top = 3.5789
      width = 5.8333
      picture = "9999"
      fontName = "MS Sans Serif"
      fontSize = 8
      fontBold = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.TEXT2 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT2)
      height = 1
      left = 1.8333
      top = 4.8421
      width = 10.1667
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Title:"
   endwith


   this.BOOK1.ENTRYFIELD1 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD1)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["TITLE"]
      height = 1
      left = 12.5
      top = 4.8421
      width = 10
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.TEXT3 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT3)
      height = 1
      left = 23
      top = 4.8421
      width = 19.3333
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "(Mr/Mrs/Miss/PDG, etc)"
   endwith


   this.BOOK1.LABELNAME = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELNAME)
      height = 1
      left = 0.8333
      top = 6.1053
      width = 11.1667
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Given Name:"
   endwith


   this.BOOK1.ENTRYFIRST = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIRST)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["GIVENNAME"]
      height = 1
      left = 12.5
      top = 6.0526
      width = 15
      function = "!"
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.TEXT1 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT1)
      height = 1
      left = 43.3333
      top = 6.0526
      width = 8.6667
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "(Surname)"
   endwith


   this.BOOK1.ENTRYLAST = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYLAST)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["SURNAME"]
      height = 1
      left = 27.8333
      top = 6.0526
      width = 15
      function = "!"
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.LABELCATEGORY = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELCATEGORY)
      height = 0.6842
      left = 52.8333
      top = 5.2105
      width = 8
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Category:"
   endwith


   this.BOOK1.COMBOBOX2 = new COMBOCATEGORY(this.BOOK1)
   with (this.BOOK1.COMBOBOX2)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["CATEGORY"]
      height = 1.1053
      left = 52.6667
      top = 5.9474
      width = 11.1667
      fontName = "MS Sans Serif"
      fontSize = 8
      style = 1	// DropDown
   endwith


   this.BOOK1.TEXT6 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT6)
      height = 0.6842
      left = 63.8333
      top = 5.2105
      width = 4.6667
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Club:"
   endwith


   this.BOOK1.ENTRYFIELD2 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD2)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["CLUB"]
      height = 1
      left = 64
      top = 5.9474
      width = 20
      function = "!"
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.TEXT7 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT7)
      height = 0.6842
      left = 84
      top = 5.1579
      width = 6.6667
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "District:"
   endwith


   this.BOOK1.COMBOBOX3 = new COMBODISTRICT(this.BOOK1)
   with (this.BOOK1.COMBOBOX3)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["DISTRICT"]
      height = 1.1053
      left = 84.3333
      top = 5.9474
      width = 10.5
      fontName = "MS Sans Serif"
      fontSize = 8
      style = 1	// DropDown
   endwith


   this.BOOK1.TEXT8 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT8)
      height = 0.8421
      left = 94.5
      top = 5.1579
      width = 8.5
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "1st Conv?:"
   endwith


   this.BOOK1.COMBOBOX5 = new COMBOBOX(this.BOOK1)
   with (this.BOOK1.COMBOBOX5)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["FIRST_CONV"]
      height = 1
      left = 95
      top = 6
      width = 7.8333
      fontName = "MS Sans Serif"
      fontSize = 6
      dataSource = 'array {"Yes","No"}'
      style = 1	// DropDown
   endwith


   this.BOOK1.TEXT9 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT9)
      height = 1
      left = 2
      top = 7.2632
      width = 10
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Partner:"
   endwith


   this.BOOK1.ENTRYFIELD3 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD3)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["PARTNER_GIVENNAME"]
      height = 1
      left = 12.5
      top = 7.2632
      width = 15
      function = "!"
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.TEXT10 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT10)
      height = 1
      left = 43.3333
      top = 7.2632
      width = 8.6667
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "(Surname)"
   endwith


   this.BOOK1.ENTRYFIELD4 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD4)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["PARTNER_SURNAME"]
      height = 1
      left = 27.8333
      top = 7.2632
      width = 15
      function = "!"
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.COMBOBOX4 = new COMBOCATEGORY(this.BOOK1)
   with (this.BOOK1.COMBOBOX4)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["PARTNER_CATEGORY"]
      height = 1.1053
      left = 52.6667
      top = 7.1579
      width = 11.1667
      fontName = "MS Sans Serif"
      fontSize = 8
      style = 1	// DropDown
   endwith


   this.BOOK1.ENTRYFIELD5 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD5)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["PARTNER_CLUB"]
      height = 1
      left = 64
      top = 7.1579
      width = 20
      function = "!"
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.COMBOBOX6 = new COMBODISTRICT(this.BOOK1)
   with (this.BOOK1.COMBOBOX6)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["PARTNER_DISTRICT"]
      height = 1.1053
      left = 84.3333
      top = 7.1579
      width = 10.5
      fontName = "MS Sans Serif"
      fontSize = 8
      style = 1	// DropDown
   endwith


   this.BOOK1.COMBOBOX7 = new COMBOBOX(this.BOOK1)
   with (this.BOOK1.COMBOBOX7)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["PARTNER_FIRSTC"]
      height = 1.1053
      left = 95
      top = 7.1053
      width = 7.8333
      fontName = "MS Sans Serif"
      fontSize = 6
      dataSource = 'array {"Yes","No"}'
      style = 1	// DropDown
   endwith


   this.BOOK1.TEXT11 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT11)
      height = 1
      left = 2
      top = 8.4737
      width = 10
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Guests:"
   endwith


   this.BOOK1.ENTRYFIELD6 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD6)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["GUESTS"]
      height = 1
      left = 12.5
      top = 8.4737
      width = 90.1667
      function = "!"
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.LABELADDRESS = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELADDRESS)
      height = 1
      left = 2
      top = 9.6316
      width = 10
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "No./Street:"
   endwith


   this.BOOK1.ENTRYSTREET1 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYSTREET1)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["STREETNAME"]
      height = 1
      left = 12.5
      top = 9.6316
      width = 27.5
      function = "!"
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.LABELCITY = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELCITY)
      height = 1
      left = 40.1667
      top = 9.6316
      width = 12.5
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Town/Suburb:"
   endwith


   this.BOOK1.ENTRYCITY = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYCITY)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["SUBURB"]
      height = 1
      left = 52.8333
      top = 9.6316
      width = 16.8333
      function = "!"
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.LABELSTATE = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELSTATE)
      height = 1
      left = 70
      top = 9.6316
      width = 5.5
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "State:"
   endwith


   this.BOOK1.COMBOBOX1 = new COMBOSTATE(this.BOOK1)
   with (this.BOOK1.COMBOBOX1)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["STATE"]
      height = 1.1053
      left = 75.6667
      top = 9.6316
      width = 11
      fontName = "MS Sans Serif"
      fontSize = 8
      style = 1	// DropDown
   endwith


   this.BOOK1.LABELZIP = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELZIP)
      height = 1
      left = 86.8333
      top = 9.6316
      width = 8.3333
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Postcode:"
   endwith


   this.BOOK1.ENTRYPOSTAL = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYPOSTAL)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["POSTCODE"]
      height = 1
      left = 95.1667
      top = 9.6316
      width = 7.5
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.LABELCOUNTRY = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELCOUNTRY)
      height = 1
      left = 71.3333
      top = 10.7895
      width = 10
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Country:"
   endwith


   this.BOOK1.COMBOCOUNTRY = new COMBOBOX(this.BOOK1)
   with (this.BOOK1.COMBOCOUNTRY)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["COUNTRY"]
      height = 1.0526
      left = 81.8333
      top = 10.7895
      width = 20
      fontName = "MS Sans Serif"
      fontSize = 8
      dataSource =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["COUNTRY"]
      style = 1	// DropDown
      autoDrop = true
   endwith


   this.BOOK1.TEXT15 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT15)
      height = 0.8421
      left = 6.3333
      top = 11.1053
      width = 8
      alignVertical = 1	// Middle
      alignHorizontal = 1	// Center
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      fontBold = true
      fontUnderline = true
      text = "PHONE "
   endwith


   this.BOOK1.TEXT12 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT12)
      height = 1
      left = 5.3333
      top = 12
      width = 7
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "(Home): "
   endwith


   this.BOOK1.ENTRYFIELD7 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD7)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["PHONE_HOME"]
      height = 1
      left = 12.5
      top = 12
      width = 15.3333
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.LABELPHONE = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELPHONE)
      height = 1
      left = 27.8333
      top = 11.9474
      width = 6.3333
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "(Work): "
   endwith


   this.BOOK1.ENTRYFIELD8 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD8)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["PHONE_WORK"]
      height = 1
      left = 34.5
      top = 11.9474
      width = 15.3333
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.TEXT16 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT16)
      height = 0.8421
      left = 52.8333
      top = 11.1053
      width = 6
      alignVertical = 1	// Middle
      alignHorizontal = 1	// Center
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      fontBold = true
      fontUnderline = true
      text = "FAX "
   endwith


   this.BOOK1.TEXT13 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT13)
      height = 1
      left = 52.6667
      top = 11.9474
      width = 6.8333
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "(Home): "
   endwith


   this.BOOK1.ENTRYFIELD9 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD9)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["FAX_HOME"]
      height = 1
      left = 59.8333
      top = 11.9474
      width = 15.3333
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.TEXT14 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT14)
      height = 1
      left = 75.3333
      top = 11.9474
      width = 6.1667
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "(Work): "
   endwith


   this.BOOK1.ENTRYFIELD10 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD10)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["FAX_WORK"]
      height = 1
      left = 81.8333
      top = 11.9474
      width = 15.3333
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.TEXT5 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT5)
      height = 1
      left = 2
      top = 13.1579
      width = 10
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "E-mail:"
   endwith


   this.BOOK1.ENTRYSTREET2 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYSTREET2)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["EMAIL"]
      height = 1
      left = 12.5
      top = 13.1579
      width = 30.3333
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.CHECKBOX1 = new CHECKBOX(this.BOOK1)
   with (this.BOOK1.CHECKBOX1)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["DELEGATE"]
      height = 1
      left = 46.5
      top = 13.1579
      width = 10.5
      text = "Delegate"
      fontName = "MS Sans Serif"
      fontSize = 6
   endwith


   this.BOOK1.CHECKBOX2 = new CHECKBOX(this.BOOK1)
   with (this.BOOK1.CHECKBOX2)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["NAT_DIST_OFFICER"]
      height = 1
      left = 60
      top = 13.1579
      width = 22.3333
      text = "National/District Officer"
      fontName = "MS Sans Serif"
      fontSize = 6
   endwith


   this.BOOK1.TEXT17 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT17)
      height = 1
      left = 2
      top = 14.3158
      width = 10
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Honour:"
   endwith


   this.BOOK1.COMBOBOX8 = new COMBOHONOURS(this.BOOK1)
   with (this.BOOK1.COMBOBOX8)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["HONOUR"]
      height = 1.1053
      left = 12.5
      top = 14.3158
      width = 30.5
      fontName = "MS Sans Serif"
      fontSize = 8
      style = 1	// DropDown
   endwith


   this.BOOK1.LABELCOMMENT = new TEXT(this.BOOK1)
   with (this.BOOK1.LABELCOMMENT)
      height = 1
      left = 1.8333
      top = 15.4737
      width = 10
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Comment:"
   endwith


   this.BOOK1.ENTRYFIELD24 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD24)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["COMMENTS"]
      height = 1.7368
      left = 12.5
      top = 15.5263
      width = 50.8333
      fontName = "MS Sans Serif"
      fontSize = 8
      validRequired = true
      borderStyle = 7	// Client
   endwith


   this.BOOK1.BUTTONINVOICE = new PUSHBUTTON(this.BOOK1)
   with (this.BOOK1.BUTTONINVOICE)
      onClick = class::BUTTONINVOICEONCLICK
      onOpen = {; this.enabled := ( TYPE("form.app") == "O" )}
      height = 1.2105
      left = 69.3333
      top = 1.6842
      width = 16
      text = "Open Invoice..."
      fontName = "MS Sans Serif"
      fontSize = 8
      group = true
      value = false
   endwith


   this.BOOK1.BUTTONOK = new PUSHBUTTON(this.BOOK1)
   with (this.BOOK1.BUTTONOK)
      onClick = class::BUTTONOKONCLICK
      height = 1.1579
      left = 90
      top = 14.2105
      width = 12
      text = "OK"
      fontName = "MS Sans Serif"
      fontSize = 8
      group = true
      value = false
   endwith


   this.BOOK1.BUTTONCANCEL = new PUSHBUTTON(this.BOOK1)
   with (this.BOOK1.BUTTONCANCEL)
      onClick = class::BUTTONCANCELONCLICK
      height = 1.1579
      left = 90
      top = 15.7368
      width = 12
      text = "Cancel"
      fontName = "MS Sans Serif"
      fontSize = 8
      group = true
      value = false
   endwith


   this.BOOK1.TEXT20 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT20)
      height = 1
      left = 1.8333
      top = 1.5789
      width = 10
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "REG. NO.:"
      pageno = 3
   endwith


   this.BOOK1.ENTRYFIELD14 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD14)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["REG_NO"]
      enabled = false
      height = 1
      left = 12.3333
      top = 1.5789
      width = 5.6667
      picture = "9999"
      fontName = "MS Sans Serif"
      fontSize = 8
      fontBold = true
      validRequired = true
      pageno = 3
      borderStyle = 7	// Client
   endwith


   this.BOOK1.TEXT23 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT23)
      height = 1
      left = 0.3333
      top = 5.0526
      width = 7.8333
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Child 1:"
      pageno = 3
   endwith


   this.BOOK1.TEXT24 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT24)
      height = 1
      left = 0.5
      top = 7.1579
      width = 7.6667
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Child 3:"
      pageno = 3
   endwith


   this.BOOK1.TEXT25 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT25)
      height = 1
      left = 0.3333
      top = 8.2632
      width = 7.8333
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Child 4:"
      pageno = 3
   endwith


   this.BOOK1.TEXT26 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT26)
      height = 1
      left = 0.3333
      top = 6.1053
      width = 7.8333
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Child 2:"
      pageno = 3
   endwith


   this.BOOK1.TEXT27 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT27)
      height = 1
      left = 0.3333
      top = 9.2632
      width = 7.8333
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "Child 5:"
      pageno = 3
   endwith


   this.BOOK1.GRID1 = new GRID(this.BOOK1)
   with (this.BOOK1.GRID1)
      dataLink = parent.parent.DMCLIENTS.ref.children1.rowset
      columns["COLUMN1"] = new GRIDCOLUMN(form.BOOK1.GRID1)
      columns["COLUMN1"].dataLink =
parent.parent.DMCLIENTS.ref.children1.rowset.fields["REG_NO"]
      columns["COLUMN1"].editorType = 3	// SpinBox
      columns["COLUMN1"].width = 9
      columns["COLUMN2"] = new GRIDCOLUMN(form.BOOK1.GRID1)
      columns["COLUMN2"].dataLink =
parent.parent.DMCLIENTS.ref.children1.rowset.fields["GivenName"]
      columns["COLUMN2"].editorType = 1	// EntryField
      columns["COLUMN2"].width = 16
      columns["COLUMN3"] = new GRIDCOLUMN(form.BOOK1.GRID1)
      columns["COLUMN3"].dataLink =
parent.parent.DMCLIENTS.ref.children1.rowset.fields["SurName"]
      columns["COLUMN3"].editorType = 1	// EntryField
      columns["COLUMN3"].width = 16
      columns["COLUMN4"] = new GRIDCOLUMN(form.BOOK1.GRID1)
      columns["COLUMN4"].dataLink =
parent.parent.DMCLIENTS.ref.children1.rowset.fields["Age"]
      columns["COLUMN4"].editorType = 1	// EntryField
      columns["COLUMN4"].width = 5
      columns["COLUMN5"] = new GRIDCOLUMN(form.BOOK1.GRID1)
      columns["COLUMN5"].dataLink =
parent.parent.DMCLIENTS.ref.children1.rowset.fields["Sex"]
      columns["COLUMN5"].editorType = 1	// EntryField
      columns["COLUMN5"].width = 5
      columns["COLUMN6"] = new GRIDCOLUMN(form.BOOK1.GRID1)
      columns["COLUMN6"].dataLink =
parent.parent.DMCLIENTS.ref.children1.rowset.fields["Camp"]
      columns["COLUMN6"].editorType = 2	// CheckBox
      columns["COLUMN6"].width = 6
      columns["COLUMN7"] = new GRIDCOLUMN(form.BOOK1.GRID1)
      columns["COLUMN7"].dataLink =
parent.parent.DMCLIENTS.ref.children1.rowset.fields["ChildCare"]
      columns["COLUMN7"].editorType = 2	// CheckBox
      columns["COLUMN7"].width = 15

      with (columns["COLUMN1"].editorControl)
         rangeMax = 9999
         rangeMin = 1
         fontName = "MS Sans Serif"
         fontSize = 6
      endwith


      with (columns["COLUMN1"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "REG_NO                   "
      endwith


      with (columns["COLUMN2"].editorControl)
         function = "!"
         fontName = "MS Sans Serif"
         fontSize = 6
      endwith


      with (columns["COLUMN2"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "GivenName                "
      endwith


      with (columns["COLUMN3"].editorControl)
         function = "!"
         fontName = "MS Sans Serif"
         fontSize = 6
      endwith


      with (columns["COLUMN3"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "SurName                  "
      endwith


      with (columns["COLUMN4"].editorControl)
         function = "!"
         fontName = "MS Sans Serif"
         fontSize = 6
      endwith


      with (columns["COLUMN4"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "Age                      "
      endwith


      with (columns["COLUMN5"].editorControl)
         function = "!"
         fontName = "MS Sans Serif"
         fontSize = 6
      endwith


      with (columns["COLUMN5"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "Sex                      "
      endwith


      with (columns["COLUMN6"].editorControl)
         colorHighLight = "WindowText/Window"
      endwith


      with (columns["COLUMN6"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "Camp                     "
      endwith


      with (columns["COLUMN7"].editorControl)
         colorHighLight = "WindowText/Window"
      endwith


      with (columns["COLUMN7"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "ChildCare                "
      endwith


      bgColor = "white"
      pageno = 3
      height = 6.5789
      left = 8.6667
      top = 3.8421
      width = 80.3333
   endwith


   this.BOOK1.EDITSAVE = new PUSHBUTTON(this.BOOK1)
   with (this.BOOK1.EDITSAVE)
      onClick = class::EDITSAVE_ONCLICK
      height = 1.1579
      left = 90
      top = 5.6316
      width = 13.5
      text = "Save Changes"
      fontName = "MS Sans Serif"
      fontSize = 8
      group = true
      pageno = 3
      value = false
   endwith


   this.BOOK1.TEXT18 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT18)
      height = 2.1579
      left = 16.5
      top = 10.7895
      width = 63.1667
      border = true
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 1	// Center
      suppressIfDuplicate = true
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "If any field is modified or a new child added, click on
SAVE CHANGES button when completed, alternatively if adding records,
tabbing to new row will automatically save then add a new row."
      borderStyle = 1	// Raised
      pageno = 3
   endwith


   this.BOOK1.EDITAPPEND = new PUSHBUTTON(this.BOOK1)
   with (this.BOOK1.EDITAPPEND)
      onClick = class::EDITAPPEND_ONCLICK
      height = 1.1579
      left = 90
      top = 7.4211
      width = 13.5
      text = "Add Child"
      fontName = "MS Sans Serif"
      fontSize = 8
      group = true
      pageno = 3
      value = false
   endwith


   this.BOOK1.CHILDDELETE = new PUSHBUTTON(this.BOOK1)
   with (this.BOOK1.CHILDDELETE)
      onClick = class::CHILDDELETE_ONCLICK
      height = 1.1579
      left = 90
      top = 9.1579
      width = 13.5
      text = "Delete Child"
      fontName = "MS Sans Serif"
      fontSize = 8
      group = true
      pageno = 3
      value = false
   endwith


   this.BOOK1.TEXT19 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT19)
      height = 1.7895
      left = 16.5
      top = 15.3158
      width = 63.1667
      border = true
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 1	// Center
      suppressIfDuplicate = true
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "To delete a Child (one row) click on the relevant row
and then click on the DELETE CHILD button"
      borderStyle = 1	// Raised
      pageno = 3
   endwith


   this.BOOK1.TEXT21 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT21)
      height = 1.7895
      left = 16.5
      top = 13.2105
      width = 63.1667
      border = true
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 1	// Center
      suppressIfDuplicate = true
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "To add a Child (one row) click on the ADD CHILD button.
When completed, click on the SAVE CHANGES button"
      borderStyle = 1	// Raised
      pageno = 3
   endwith


   this.BOOK1.GRID2 = new GRID(this.BOOK1)
   with (this.BOOK1.GRID2)
      dataLink = parent.parent.DMCLIENTS.ref.bookings1.rowset
      columns["COLUMN1"] = new GRIDCOLUMN(form.BOOK1.GRID2)
      columns["COLUMN1"].dataLink =
parent.parent.DMCLIENTS.ref.bookings1.rowset.fields["REG_NO"]
      columns["COLUMN1"].editorType = 3	// SpinBox
      columns["COLUMN1"].width = 9
      columns["COLUMN2"] = new GRIDCOLUMN(form.BOOK1.GRID2)
      columns["COLUMN2"].dataLink =
parent.parent.DMCLIENTS.ref.bookings1.rowset.fields["EVENT"]
      columns["COLUMN2"].editorType = 3	// SpinBox
      columns["COLUMN2"].width = 7
      columns["COLUMN3"] = new GRIDCOLUMN(form.BOOK1.GRID2)
      columns["COLUMN3"].dataLink =
parent.parent.DMCLIENTS.ref.events1.rowset.fields["NAME"]
      columns["COLUMN3"].editorType = 1	// EntryField
      columns["COLUMN3"].width = 32
      columns["COLUMN4"] = new GRIDCOLUMN(form.BOOK1.GRID2)
      columns["COLUMN4"].dataLink =
parent.parent.DMCLIENTS.ref.bookings1.rowset.fields["MEMBER"]
      columns["COLUMN4"].editorType = 2	// CheckBox
      columns["COLUMN4"].width = 9
      columns["COLUMN5"] = new GRIDCOLUMN(form.BOOK1.GRID2)
      columns["COLUMN5"].dataLink =
parent.parent.DMCLIENTS.ref.bookings1.rowset.fields["PARTNER"]
      columns["COLUMN5"].editorType = 2	// CheckBox
      columns["COLUMN5"].width = 7
      columns["COLUMN6"] = new GRIDCOLUMN(form.BOOK1.GRID2)
      columns["COLUMN6"].dataLink =
parent.parent.DMCLIENTS.ref.bookings1.rowset.fields["CHILD"]
      columns["COLUMN6"].editorType = 2	// CheckBox
      columns["COLUMN6"].width = 6.5
      columns["COLUMN7"] = new GRIDCOLUMN(form.BOOK1.GRID2)
      columns["COLUMN7"].dataLink =
parent.parent.DMCLIENTS.ref.bookings1.rowset.fields["GUESTS"]
      columns["COLUMN7"].editorType = 3	// SpinBox
      columns["COLUMN7"].width = 10

      with (columns["COLUMN1"].editorControl)
         rangeMax = 100
         rangeMin = 1
         fontName = "MS Sans Serif"
         fontSize = 6
      endwith


      with (columns["COLUMN1"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "REG_NO                   "
      endwith


      with (columns["COLUMN2"].editorControl)
         rangeMax = 99
         rangeMin = 10
         fontName = "MS Sans Serif"
         fontSize = 6
      endwith


      with (columns["COLUMN2"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "EVENT                    "
      endwith


      with (columns["COLUMN3"].editorControl)
         fontName = "MS Sans Serif"
         fontSize = 6
      endwith


      with (columns["COLUMN3"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "NAME                     "
      endwith


      with (columns["COLUMN4"].editorControl)
         colorHighLight = "WindowText/Window"
      endwith


      with (columns["COLUMN4"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "MEMBER                   "
      endwith


      with (columns["COLUMN5"].editorControl)
         colorHighLight = "WindowText/Window"
      endwith


      with (columns["COLUMN5"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "PARTNER                  "
      endwith


      with (columns["COLUMN6"].editorControl)
         colorHighLight = "WindowText/Window"
      endwith


      with (columns["COLUMN6"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "CHILD                    "
      endwith


      with (columns["COLUMN7"].editorControl)
         rangeMax = 100
         rangeMin = 1
         fontName = "MS Sans Serif"
         fontSize = 6
      endwith


      with (columns["COLUMN7"].headingControl)
         fontName = "MS Sans Serif"
         fontSize = 6
         value = "GUESTS                   "
      endwith


      bgColor = "white"
      pageno = 4
      height = 14.6316
      left = 0.5
      top = 2.8947
      width = 88.8333
   endwith


   this.BOOK1.TEXT22 = new TEXT(this.BOOK1)
   with (this.BOOK1.TEXT22)
      height = 1
      left = 1.8333
      top = 1.5789
      width = 10
      colorNormal = "BtnText"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      transparent = true
      fontName = "MS Sans Serif"
      fontSize = 8
      text = "REG. NO.:"
      pageno = 4
   endwith


   this.BOOK1.ENTRYFIELD11 = new ENTRYFIELD(this.BOOK1)
   with (this.BOOK1.ENTRYFIELD11)
      dataLink =
parent.parent.DMCLIENTS.ref.clients1.rowset.fields["REG_NO"]
      enabled = false
      height = 1
      left = 12.3333
      top = 1.5789
      width = 5.6667
      picture = "9999"
      fontName = "MS Sans Serif"
      fontSize = 8
      fontBold = true
      validRequired = true
      pageno = 4
      borderStyle = 7	// Client
   endwith


   this.IMAGE1 = new IMAGE(this)
   with (this.IMAGE1)
      height = 1.5789
      left = 9.6667
      top = 0.1053
      width = 36
      dataSource = "FILENAME convnr-c.bmp"
      alignment = 3	// Keep Aspect Stretch
      borderStyle = 3	// None
   endwith


   this.IMAGE2 = new IMAGE(this)
   with (this.IMAGE2)
      height = 4
      left = 91.6667
      top = 5.4211
      width = 12.8333
      dataSource = "FILENAME Lion-c.bmp"
   endwith


   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      dataLink = form.convid1.rowset.fields["IDD"]
      enabled = false
      height = 0.7895
      left = 51.3333
      top = 0.4737
      width = 46
      colorNormal = "yellow/gray"
      border = false
      fontName = "MS Sans Serif"
      fontSize = 9
      fontUnderline = true
      borderStyle = 3	// None
   endwith


   this.rowset = this.DMCLIENTS.ref.clients1.rowset

   // {Linked Method} form.open
   function formOpen()
      class::prepareForm()
   return ( SUPER::formOpen() )

   function prepareForm
      this.title.text := "<h2>Registrations</h2>"
   return ( this.book1.ENTRYFIRST.setFocus() )

   function BOOK1_onSelChange
      this.form.rowset.save()
      this.form.DMCLIENTS.ref.children1.rowset.save()
      return

   function CHILDDELETE_onClick
      this.form.DMCLIENTS.ref.children1.rowset.delete()
      return

   function EDITAPPEND_onClick
      this.form.DMCLIENTS.ref.children1.rowset.beginAppend()
      return

   function EDITSAVE_onClick
      this.form.DMCLIENTS.ref.children1.rowset.save()
      return

   // {Linked Method} form.book1.buttoncancel.onClick
   function buttonCancelOnClick
      this.form.rowset.abandon()
      this.form.newID := null
      this.form.canClose := {||true}
   return ( this.form.close() )

   // {Linked Method} form.book1.buttoninvoice.onClick
   function buttonInvoiceOnClick
      local nclientsID, bInvoice
      nclientsID = this.form.rowset.fields["Reg_No"].value
      bInvoice    = false
      if ( nclientsID == null )
         MSGBOX("Registrant currently has no invoices", ;
                "Alert", ;
                64)
      else
         bInvoice := this.form.app.OpenInvoiceOpenDialog( nclientsID )
      endif
   return ( bInvoice )

   // {Linked Method} form.book1.buttonok.onClick
   function buttonOkOnClick
      local bClose
      bClose = false
      if ( this.form.rowset.fields["Surname"].value == null and ;
           this.form.rowset.fields["FirstName"].value == null )
         MSGBOX("Cannot save registrant with blank first and last
names",;
                "Alert",48)
      else
         this.form.rowset.save()
         this.parent.dmclients.ref.children1.rowset.save()
         this.form.newID := this.form.rowset.fields["Reg_No"].value
         this.form.canClose := {||true}
         bClose := this.form.close()       
      endif
   return ( bClose )

   // {Linked Method} form.readModal
   function formReadModal
      // opened as dialog
      // turn off table view and invoice button.
      // turn on OK and Cancel buttons
      this.newID = null
      this.canClose := {||false}
      with ( this.book1 )
         dataSource := "ARRAY {'Append'}"
         tabstop    := false
         buttonInvoice.visible := false
         buttonOK.visible      := true
         buttonCancel.visible  := true
      endwith
      class::prepareForm()
      super::formOnSize( 0, this.width, this.height )
   return ( ClientsForm::readModal() )
endclass

>On Thu, 13 Aug 1998 19:00:15 +0800, "Geoff S. Wass" <gswass@ibm.net>
>wrote:
>
>>Russell,
>>
>><g> you posted your labels for most of the fields, but not the
>>entryfields (or whatever you are using). <g>
>>
>>Do these missing items have picture properties set like your
>>entryfield14? If not, add them.
>>
>>Is there any possibility that your objects are overlapping each other
>>and thus hiding something? Maybe the left property, for instance, is the
>>same for 2 objects. Or, 2 objetcts have the almost the same left and
>>same top.
>>
>>Maybe you can try posting this items with the labels. I don't see
>>anything wrong in what you posted so far.
>>
>>--
>>Geoff Wass
>>Kuala Lumpur, Malaysia
>>
>>
>>=============================================================
>>Please respond to a newsgroup posting by posting a reply (not e-mail).
>>In this way, all can help and all can learn!
>>
>>Report Inprise/Borland bugs!
>>http://www.inprise.com/devsupport/bugs/bug_reports.html
>>=============================================================
>>Triumph is in the first syllable.
>>
>>
>