{let people:RecordSet =
{RecordSet
{RecordFields
{RecordField "First", domain = String},
{RecordField "Last", domain = String},
{RecordField "Email", domain = String}
},
{RecordData First = "John", Last = "Smith",
Email = "johnsmith@smith.com"},
{RecordData First = "Jane", Last = "Smith",
Email = "janesmith@smith.com"},
{RecordData First = "Jane", Last = "Jones",
Email = "janejones@jones.com"}
}
}
{let rf:RecordForm =
{RecordForm
record-source = people,
{on crc:CurrentRecordChangeRequest at rf:RecordForm do
let err:any = {rf.update}
{if-non-null err then
{if {popup-question err.value} == Dialog.no
then {crc.consume}
}
}
},
{Table
{row-prototype "First Name:",
{TextField
{bind value to "First",
{parse str:String as{str.to-upper-clone}}
}
}
},
{row-prototype "Last Name:",
{TextField
{bind value to "Last",
{parse str:String as{str.to-upper-clone}}
}
}
},
{row-prototype "Email:",
{TextField
{bind value to "Email",
{parse str:String as
{if {str.find '@'} == -1 then
{DataBindingValidationFailure
"Doesn't look like an email address. Continue?"}
else str}
}
}
}
}
}
}
}
{value
{VBox
rf,
{HBox
{CommandButton
width = 3.25cm, label = "append record",
{on Action do
{people.append {RecordData}}
}
},
{CommandButton
width = 3.25cm, label = "update record",
{on ac:Action do
let err:any = {rf.update}
{if-non-null err then
{if {popup-question err.value} == Dialog.no
then {ac.consume}
}
}
}
},
{CommandButton
width = 3.25cm, label = "commit changes",
bound-command = {rf.get-command "commit"}
},
{CommandButton
width = 3.25cm, label = "revert records",
bound-command = {rf.get-command "revert"}
}
}
}
}
| |
