home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / FIELDPAK / FPDEMO2.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-11-06  |  1.1 KB  |  34 lines
  1. Option Explicit
  2.  
  3. Global Const FIELDNUMBER_NAME = 1
  4. Global Const FIELDNUMBER_ADDRESS = 2
  5. Global Const FIELDNUMBER_CITY = 3
  6. Global Const FIELDNUMBER_STATE = 4
  7. Global Const FIELDNUMBER_ZIP = 5
  8. Global Const FIELDNUMBER_AREACODE = 6
  9. Global Const FIELDNUMBER_PHONE = 7
  10.  
  11. Global Const field_names = "Name;Address;City;St;Zip;AC;Phone"
  12. Global Const field_widths = "18;24;15;2;5;3;8"
  13.  
  14. Global RecDlm           As String
  15. Global FldDlm           As String
  16.  
  17. Global DatabaseFileName    As String
  18. Global DatabaseMemoryBuffer  As String
  19. Global NumberOfRecords  As Integer
  20. Global CurrentRecordNumber   As Integer
  21. Global FlagRecordChanged   As Integer
  22. Global FlagFileChanged  As Integer
  23. Global FlagNewRecordInProgress  As Integer
  24. Global TextChangeEnabled As Integer 'Strange but necessary...
  25. Global ScrollerChangeEnabled As Integer 'ditto...
  26. Global SortField   As Integer   'New field on which to sort
  27. Global FirstField As Integer    'Current database sort field
  28. Global SortForm_OK_or_Cancel As Integer
  29.  
  30. Global pr_num_fields    As Integer
  31. Global pr_fld_numbers() As Integer
  32. Global pr_fld_widths()  As Integer
  33.  
  34.