home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / editdata / employee.frm (.txt) < prev    next >
Visual Basic Form  |  1994-01-30  |  8KB  |  249 lines
  1. frmEmployees
  2. Employee Records
  3. Form15&
  4. cbPosition
  5. tbSSN
  6.     MaskEdBox
  7. ###-##-####(
  8. Data1+
  9. Check1
  10. &Active:
  11. Data1
  12. Active
  13. tbLName
  14. Data1*    Last Name
  15. tbFName
  16. Data1*
  17. First Name
  18. picCommand
  19. Command1
  20. E&xit Program
  21. cmdedit
  22. &Edit
  23. Data1%
  24. C:\VB\EMPLOYEE.MDB
  25.     Employees
  26.     Employees
  27. picCommand
  28. cmdSave
  29. &Save
  30.     cmdCancel
  31. &Cancel
  32.     lblFields
  33. &Position:
  34.     lblFields
  35. &Soc. Sec. No.:
  36.     lblFields
  37. &Last Name:
  38.     lblFields
  39. &First Name:
  40. Command1_Click
  41. Data1
  42.     Recordset
  43.     Form_Load
  44. fLoading
  45. cbPosition
  46. fEdit@
  47. cbPositon_Change
  48. Data1_Validate
  49. Action
  50. Savek
  51. tbSSN
  52. Data1_Reposition
  53.     ListIndex.
  54. tbFName_ChangeY
  55. tbLName_Change
  56. tbSSN_ValidationErrory
  57. InvalidText
  58. StartPositionu
  59. tbSSN_Change
  60. PromptInclude
  61. picCommand_Click
  62. Index
  63. lblFields_Click
  64. cmdSave_Click
  65. cmdEdit_Click
  66. cmdCancel_Click`
  67. Check1_Click*
  68. cbPositon_Click
  69. cbPositon_DblClick
  70. cbPositon_DragDropp
  71. Source
  72. Control
  73. cbPositon_DragOver
  74. State
  75. cbPositon_DropDown
  76. Enabled
  77. cbPositon_KeyDown
  78. KeyCode*
  79. Shift!
  80. cbPositon_KeyPress
  81. KeyAscii
  82. Caption
  83. OldValue
  84. Check1~
  85. ValueQ
  86. SetTBReadOnlyF
  87. tbFName0
  88. tbLNameh
  89. cbPosition_DropDown
  90. cbPosition_KeyDown
  91. cbPosition_KeyPress
  92. fProcessing
  93. EnableCtls
  94.     fActivate
  95. fEditOnt
  96. picCommand
  97. Visible
  98. cmdEdit
  99. Default
  100. cmdSave&
  101.     cmdCancel
  102. Cancel
  103. TabStop
  104. szMask
  105. tbPromptIncludeW
  106. cmdedit_DragDrop
  107. cmdedit_MouseUpw
  108. Button
  109. cmdedit_GotFocus
  110. BkMark
  111. Bookmark*
  112. tbFName_GotFocus~
  113. SelStart
  114.     SelLengthS
  115. tbFName_LinkCloseh
  116. tbFName_LinkError&
  117. LinkErr}
  118. tbFName_LinkNotify
  119. tbFName_LinkOpen?
  120. tbFName_LostFocus
  121. tbLName_GotFocus
  122. tbLName_LinkClose
  123. tbLName_LinkError
  124. tbLName_LinkNotify
  125. tbLName_LinkOpen
  126. tbLName_LostFocus
  127. tbSSN_GotFocus#
  128. tbSSN_LostFocus
  129. cbPosition_GotFocus@
  130. cbPosition_LostFocus7
  131. tbFName_KeyDownJ
  132. tbFName_KeyPress^
  133. tbLName_KeyDowno
  134. tbLName_KeyPress
  135. tbSSN_KeyDown
  136. tbSSN_KeyPress
  137. cbPosition_Change
  138. cbPosition_Click
  139. cbPosition_DblClick
  140. cbPosition_DragDrop
  141. cbPosition_DragOver^
  142. Data1_MouseUp
  143. Data1_MouseMove
  144. Data1_MouseDown5
  145. Data1_ErrorL
  146. DataErrp
  147. Response
  148. Data1_DragOver
  149. Data1_DragDrop
  150. terminates6
  151.  Copyright (c) 1994 by Barth Riley
  152.  Project Name:
  153.  Edit Data Demonstration
  154.  Description:
  155.  Implements Edit button and
  156.  read-only controls with a i
  157.  Data Control 
  158.  Author:
  159.  Barth Riley
  160.  Copyright date:
  161.  Jan 29th, 1994t
  162.  Version:
  163.  1.0 
  164.  Project file:
  165.  EDITDATA.MAKe
  166.  Number of forms:
  167.  Number of modules:  1
  168. ---Dim Variables
  169.  Edit mode flagl
  170.  True when a new rec. is loadedd
  171. cbPosition_DropDown
  172.  Temporarily disable the control
  173. cbPosition_GotFocus
  174. cbPosition_KeyDown
  175. cbPosition_KeyPress
  176. cbPosition_LostFocus
  177. Check1_Click
  178.  The Data control will intialize
  179.  the values of all bound controls 
  180.  prior to the Form_Load event.  Hencef
  181.  both fEdit and fLoading will be False
  182.  when the Check1 control is initialized.
  183.  It will "appear" therefore that the user
  184.  is trying to alter the value of the ckeck box
  185.  when not in edit mode.  To overcome this problem,
  186.  I've used theTag property of the control to
  187.  indicate whether the control has been o
  188.  initialized:  If it has no value, then it
  189.  is set to "Loading".  Otherwise, a warning 
  190.  beep is sounded.i
  191. Loaded
  192. Active
  193. cmdCancel_Click
  194.  Abandon changes to the rec.
  195.  Back to read-only modet
  196. cmdEdit_Click
  197.  Allow edits
  198. cmdSave_Click
  199.  Update unbound controls
  200. Position
  201.  Back to read-only modet
  202. Command1_Click
  203. Data1_Reposition
  204.  Set Mask to field value
  205.  Set unbound controlsM
  206. Position
  207. Data1_Validate
  208.  User moving to a new record
  209.  We want to prevent the user from moving to
  210.  a new record when s/he is editing the
  211.  current record.
  212.  Cancel move operation
  213.  allow controls to be updatedt
  214. ###-##-####
  215. EnableCtls
  216.  Set the text box controls to the appropriate 
  217.  edit mode
  218.  Reset the Mask and text properties for tbSSN 
  219. ###-##-####
  220. Employee Records [Edit Mode]
  221. Employee Records [Read-Only]
  222.  Set the TabStop values...
  223.  Make the appropriate command button group visible
  224.  Set the default and cancel properties for v
  225.  each set of command buttons
  226. ---End of code
  227. Form_Load
  228. Accountant
  229. Consultant
  230. Documentation Proofreader
  231. Head Honcho
  232. Project Manager
  233. Programmer
  234. Systems Analyst
  235. Technical Writer
  236. Employee List [Read-only]
  237. tbFName_GotFocus
  238. tbFName_KeyDown
  239. tbFName_KeyPress
  240. tbFName_LostFocus
  241. tbLName_GotFocus
  242. tbLName_KeyDown
  243. tbLName_KeyPress
  244. tbLName_LostFocus
  245. tbSSN_GotFocus
  246. tbSSN_KeyDown
  247. tbSSN_KeyPress
  248. tbSSN_LostFocus
  249.