Category : Files from Magazines
Archive   : DDJ9406A.ZIP
Filename : GUI_DB.ASC

_DEVELOPING GUIs FOR DATABASE APPLICATIONS_
by John Rodley

Listing One

# Definition of the menu bar. Note the parameter attached to every menu item.
action bar MainMenu_AB is
enabled pulldown Activity_PD text "~Activity"
enabled choice Workout_MC text "~Workout"
parameter is "Workout"
enabled choice Sleep_MC text "~Sleep"
parameter is "Sleep"
enabled choice Meal_MC text "~Meal"
parameter is "Meal"
# the rest of the menu bar def. would be here
...
...
...

# This item class contains all the menu choices.
item class EditNewDelete_CL is
Workout_MC Sleep_MC Meal_MC Weighin_MC Injury_MC
Treatment_MC Checkup_MC Ingredient_MC Recipe_MC Diary_MC

# This is the main window definition for the application.
# It contains the menu bar MainMenu_AB.
enabled visible color 26
primary graphical region Main_GR size 475 179
at position 83 112
in desktop
window size 475 179 at position 0 0
color 27 foreground
size border
title bar "Total Health"
system menu
horizontal scroll bar scroll by 6
vertical scroll bar scroll by 2
action bar MainMenu_AB
minimize button
maximize button

# This response block is called whenever an item in
# class EditNewDelete_CL is chosen.
response to item EditNewDelete_CL
copy parameter to Thread
copy "OPEN_" Thread to OpenAction
copy "FETCH_" Thread to FetchAction
copy "CLOSE_" Thread to CloseAction
copy Thread "ListAction" to ListAction
make GenericList_DB visible
change GenericList_DB text to Thread
action FetchThemAll

# Loops over FetchAction until there are no more items in the table.
action FetchThemAll is
clear GenericList_LB in GenericList_DB
action OpenAction
while(( Esqlca.Sqlcode != END_OF_DATA ) and
(Esqlca.Sqlcode != CURSOR_CLOSED ))
loop
action FetchAction
if(( Esqlca.Sqlcode != END_OF_DATA ) and
(Esqlca.Sqlcode != CURSOR_CLOSED )) then
action ListAction
end if
end loop
action CloseAction

# This action formats a single line for the WorkoutList dialog box.
# There is an action like this one for every type of list: Meals, Injuries, ...
action WorkoutListAction is
if( Description != "" and DateTime != "" ) then
copy Description " " DateTime to TS
add to GenericList_LB in GenericList_DB
insert TS
end if

# Response to the edit button in the single, generic list dialog box. It uses
# the variable Thread that we filled in earlier from parameter of menu item.
response to Edit_PB in GenericList_DB
change GenericList_DB text to ""
make GenericList_DB invisible
copy Thread "EditAction" to LoadEditDBAction
copy Thread "_DB" to DialogBoxName
action LoadEditDBAction

# This is the action that fills in the edit item dialog box.
action WorkoutEditAction is
make DialogBoxName visible # This brings up the dialog
change Description_EF in Workout_DB text to LastName
change DateTime_EF in Workout_DB text to DateTime
change Duration_EF in Workout_DB text to Systolic
change Intensity_EF in Workout_DB text to Diastolic
change Comments in Workout_DB text to LDL



Listing Two

"The initialization code for the workout list and workout item dialog boxes."
"Some of the control definitions have been left out for brevity."

"The workout list form."
form := Form
name: #WorkoutList
rect: {22 431 2043 862}
controller: controller.
form setInitialFocusTo: #OKButton.
cItem := controller add: #OKButton
class: FormButton
rect: {511 611 350 90}
options: {#Return #Tab #Up #Down #Backtab #Left #Right}
form: form
text: '~Edit'.

".... Other control definitions would be here ..."

cItem := controller add: #ListBox
class: FormLinkedTabList
rect: {49 41 1676 469}
options: {#Return #Tab #Backtab}
form: form.
cItem setSplitPositionTo: nil.
"The following 2 lines link the TabularListBox cItem to the"
"database table #WORKOUT."
tLink := TableLink newIdentifier: #WORKOUT attribute: #ALL.
controller setLinksTo: cItem link: tLink.

temp := AcceleratorTable new.
temp at: #AltC put: #cancelList.
temp at: #Altc put: #cancelList.
temp at: #AltD put: #deleteWorkout.
temp at: #Altd put: #deleteWorkout.
temp at: #AltE put: #editItem.
temp at: #Alte put: #editItem.
form setAcceleratorTableTo: temp.

"Here is the initialization code for the edit workout item dialog box. Note"
"there is a link for every entry field to a field in the database record."
form := Form
name: #Workout
rect: {135 7 1837 851}
controller: controller.
form setGridTo: false.
form setSnapTo: false.
form setXGridResTo: 82.
form setYGridResTo: 82.
temp := IdentityDictionary newEntries: 2.
temp at: #cancelButton1 put: #cancelWorkout.
temp at: #OKButton1 put: #saveWorkout.
form setReturnActionsTo: temp.
form setInitialFocusTo: #Description.

".... All the static control definitions would be here ..."
cItem := controller add: #Description
class: FormString
rect: {514 50 420 60}
options: {#HResize #Return #Tab #Backtab #Return
#Return #Return}
form: form.
cItem setMaximumLengthTo: 20.
tLink := TableLink newIdentifier: #WORKOUT attribute: #DESCRIPTION.
controller setUpdateLinksTo: cItem link: tLink.
cItem := controller add: #DateTime
class: FormString
rect: {514 135 420 60}
options: {#HResize #Return #Tab #Backtab
#Return #Return #Return}
form: form.
cItem setMaximumLengthTo: 26.
tLink := TableLink newIdentifier: #WORKOUT attribute: #DATETIME.
controller setUpdateLinksTo: cItem link: tLink.
cItem := controller add: #Location
class: FormString
rect: {514 220 420 60}
options: {#HResize #Return #Tab #Backtab
#Return #Return #Return}
form: form.
cItem setMaximumLengthTo: 20.
tLink := TableLink newIdentifier: #WORKOUT attribute: #LOCATION.
controller setUpdateLinksTo: cItem link: tLink.
cItem := controller add: #Duration
class: FormNumber
rect: {514 305 420 60}
options: {#Return #Tab #Backtab #Return
#Return #Return}
form: form.
tLink := TableLink newIdentifier: #WORKOUT attribute: #DURATION.
controller setUpdateLinksTo: cItem link: tLink.
cItem := controller add: #Intensity
class: FormNumber
rect: {514 386 420 60}
options: {#Return #Tab #Backtab #Return
#Return #Return}
form: form.
tLink := TableLink newIdentifier: #WORKOUT attribute: #INTENSITY.
controller setUpdateLinksTo: cItem link: tLink.
cItem := controller add: #Comments
class: FormString
rect: {514 469 420 60}
options: {#HResize #Return #Tab #Backtab
#Return #Return #Return}
form: form.
tLink := TableLink newIdentifier: #WORKOUT attribute: #COMMENTS.
controller setUpdateLinksTo: cItem link: tLink.

".... The rest of the dialog control definitions would be here ..."




Listing Three

WorkplaceObject subclass: #ExecWPO
instanceVariableNames: '
FileName
SessionName
'
classVariableNames: '
'
poolDictionaries: '
' !

!ExecWPO class methods !

!"End of class methods block"

!ExecWPO methods !

open
"Override the default open method which would open the form associated with"
"this WorkPlaceObject. This call starts an external application. Must call "
" setSessionName and setFileName before opening this object!"
SessionName startSessionProgram: FileName inputs: 'new'.

!"end open "

setFileName: newFileName
"Set the filename of the executable we're going to run"
FileName := newFileName.
!"end setFilename"

setSessionName: newSessionName
"Set the title this session will have when 'opened'"
SessionName := newSessionName.
!"end setSessionName"

!"End of method block"