S_232F
* ===================================================================
*
* Component : S_232F
* Type : Form
* Ancestor : PRIM_FORM
*
* Description : Data Entry Form to enter an New Employee. Uses a reusable combo
* box to remember entered values.
*
* Disclaimer : The following material is supplied as example material
* only. No warranty concerning this material or its use
* in any way whatsoever is expressed or implied.
*
* ===================================================================
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Height(230) Left(356) Top(135) Visualstyle(#VS_NORM) Width(486)
Define_Com Class(#S_232R) Name(#FIRSTNAME) Displayposition(3) Left(108) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(64) Width(211)
Define_Com Class(#S_232R) Name(#LASTNAME) Displayposition(2) Left(108) Parent(#COM_OWNER) Tabposition(3) Tabstop(False) Top(104) Width(211)
Define_Com Class(#S_232R) Name(#SUBURB) Left(108) Parent(#COM_OWNER) Tabposition(4) Tabstop(False) Top(144) Width(211)
Define_Com Class(#EMPNO.Visual) Name(#EMPNO) Displayposition(4) Height(19) Left(8) Marginleft(100) Parent(#COM_OWNER) Tabposition(1) Top(24) Width(161)
Define_Com Class(#PRIM_LABL) Name(#LABL_1) Caption('First Name') Displayposition(5) Height(24) Left(8) Parent(#COM_OWNER) Tabposition(11) Tabstop(False) Top(64) Width(83)
Define_Com Class(#PRIM_LABL) Name(#LABL_2) Caption('Surname') Displayposition(6) Height(23) Left(8) Parent(#COM_OWNER) Tabposition(8) Tabstop(False) Top(96)
Define_Com Class(#PRIM_LABL) Name(#LABL_3) Caption('Suburb') Displayposition(7) Height(26) Left(9) Parent(#COM_OWNER) Tabposition(9) Tabstop(False) Top(141) Width(91)
Define_Com Class(#PRIM_PHBN) Name(#SAVE_BUTTON) Buttondefault(True) Caption('Save') Displayposition(8) Left(352) Parent(#COM_OWNER) Tabposition(5) Top(16) Width(97)
Define_Com Class(#PRIM_STBR) Name(#STBR_1) Displayposition(9) Height(24) Left(0) Messageposition(1) Parent(#COM_OWNER) Tabposition(10) Tabstop(False) Top(179) Width(478)
Define_Com Class(#PRIM_PHBN) Name(#CLEAR_BUTTON) Caption('Clear Form') Displayposition(10) Left(352) Parent(#COM_OWNER) Tabposition(7) Top(80) Width(96)
Define_Com Class(#PRIM_PHBN) Name(#CLOSE_BUTTON) Buttoncancel(True) Caption('Close') Displayposition(11) Left(352) Parent(#COM_OWNER) Tabposition(6) Top(48) Width(97)
* Save the employee Details and clear the form
Evtroutine Handling(#Save_Button.Click)
Invoke #Com_Owner.Clear_Form
Message 'Employee details saved. Input next employee details.'
Invoke #Empno.SetFocus
Endroutine
* Clear the Form
Evtroutine Handling(#Clear_Button.Click)
Invoke #Com_Owner.Clear_Form
Endroutine
* Close the form
Evtroutine Handling(#Close_Button.Click)
Invoke #Com_Owner.CloseForm
Endroutine
* Clear the form
Mthroutine Clear_Form
Set #Empno Value(*Blanks)
Set (#FirstName #lastName #Suburb) Uvalue(*Blanks)
Endroutine
End_Com
* ===================================================================
*
* Component : S_232F
* Type : Form
* Ancestor : PRIM_FORM
*
* Description : Data Entry Form to enter an New Employee. Uses a reusable combo
* box to remember entered values.
*
* Disclaimer : The following material is supplied as example material
* only. No warranty concerning this material or its use
* in any way whatsoever is expressed or implied.
*
* ===================================================================
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Height(230) Left(356) Top(135) Visualstyle(#VS_NORM) Width(486)
Define_Com Class(#S_232R) Name(#FIRSTNAME) Displayposition(3) Left(108) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(64) Width(211)
Define_Com Class(#S_232R) Name(#LASTNAME) Displayposition(2) Left(108) Parent(#COM_OWNER) Tabposition(3) Tabstop(False) Top(104) Width(211)
Define_Com Class(#S_232R) Name(#SUBURB) Left(108) Parent(#COM_OWNER) Tabposition(4) Tabstop(False) Top(144) Width(211)
Define_Com Class(#EMPNO.Visual) Name(#EMPNO) Displayposition(4) Height(19) Left(8) Marginleft(100) Parent(#COM_OWNER) Tabposition(1) Top(24) Width(161)
Define_Com Class(#PRIM_LABL) Name(#LABL_1) Caption('First Name') Displayposition(5) Height(24) Left(8) Parent(#COM_OWNER) Tabposition(11) Tabstop(False) Top(64) Width(83)
Define_Com Class(#PRIM_LABL) Name(#LABL_2) Caption('Surname') Displayposition(6) Height(23) Left(8) Parent(#COM_OWNER) Tabposition(8) Tabstop(False) Top(96)
Define_Com Class(#PRIM_LABL) Name(#LABL_3) Caption('Suburb') Displayposition(7) Height(26) Left(9) Parent(#COM_OWNER) Tabposition(9) Tabstop(False) Top(141) Width(91)
Define_Com Class(#PRIM_PHBN) Name(#SAVE_BUTTON) Buttondefault(True) Caption('Save') Displayposition(8) Left(352) Parent(#COM_OWNER) Tabposition(5) Top(16) Width(97)
Define_Com Class(#PRIM_STBR) Name(#STBR_1) Displayposition(9) Height(24) Left(0) Messageposition(1) Parent(#COM_OWNER) Tabposition(10) Tabstop(False) Top(179) Width(478)
Define_Com Class(#PRIM_PHBN) Name(#CLEAR_BUTTON) Caption('Clear Form') Displayposition(10) Left(352) Parent(#COM_OWNER) Tabposition(7) Top(80) Width(96)
Define_Com Class(#PRIM_PHBN) Name(#CLOSE_BUTTON) Buttoncancel(True) Caption('Close') Displayposition(11) Left(352) Parent(#COM_OWNER) Tabposition(6) Top(48) Width(97)
* Save the employee Details and clear the form
Evtroutine Handling(#Save_Button.Click)
Invoke #Com_Owner.Clear_Form
Message 'Employee details saved. Input next employee details.'
Invoke #Empno.SetFocus
Endroutine
* Clear the Form
Evtroutine Handling(#Clear_Button.Click)
Invoke #Com_Owner.Clear_Form
Endroutine
* Close the form
Evtroutine Handling(#Close_Button.Click)
Invoke #Com_Owner.CloseForm
Endroutine
* Clear the form
Mthroutine Clear_Form
Set #Empno Value(*Blanks)
Set (#FirstName #lastName #Suburb) Uvalue(*Blanks)
Endroutine
End_Com