Класс «HotelBDAddUser»

Является визуальным классом, содержащим оконный пользовательский интерфейс (рис.11).

Рис.11

Связи.

• 1. Связь «событие-действие» между событием «clicked» кнопки «отмена» и действием «closeWidget» окна.
• 2. Связь «событие-код» между событием «clicked» кнопки «Добавить» и пользовательским методом «saveTo:».
• 3. Связь «атрибут как параметр» между свойством «object» текстового поля ввода с параметром «FName» связи №1
• 4. Связь «атрибут как параметр» между свойством «object» текстового поля ввода параметром «SName» связи №1
• 5. Связь «атрибут как параметр» между свойством «selectedItem» поля ввода параметром «sex» связи №1

Рис.12

Предназначен для добавления записей о новых пользователях в БД.

AbtAppBldrView subclass: #HotelBDAddUser

instanceVariableNames: 'selectedUser '

classVariableNames: ''

poolDictionaries: ''

Main.

selectedUser

^selectedUser

selectedUser: anObject

selectedUser := anObject.

self signalEvent: #selectedUser with: anObject

newUser: FName with: SName sex: sex

self selectedUser: (HotelBDUser new FName:FName; SName:SName; sex:sex).

(self subpartNamed: 'Window') closeWidgetCommand.

Рис.13