home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_4_94 / vbwin / phoenix / global.txt < prev    next >
Text File  |  1995-02-26  |  2KB  |  63 lines
  1. '*****************************************************************************
  2. '*
  3. '* Module : GLOBAL.BAS
  4. '* Author : Dieter Gei▀
  5. '*
  6. '* Creation date    : 13.02.93
  7. '* Last modification: 03.07.93
  8. '*
  9. '*
  10. '* Description: PHOENIX 2.0 Visual Basic Demo
  11. '*
  12. '*****************************************************************************
  13.  
  14. '----- GLOBAL CONSTANTS ------------------------------------------------------
  15.  
  16. Global Const Title = "Phoenix VB Demo"
  17. Global Const OpenFlags = 0
  18. Global Const username = "Frank F. Blome"
  19. Global Const password = ""
  20. Global Const OpenCache = 32
  21. Global Const OpenDbCursors = 20
  22.  
  23. Global Const TBL_LEUTE = 20
  24. Global Const COL_LEUTE_DBADDRESS = 0
  25. Global Const COL_LEUTE_VORNAME = 1
  26. Global Const COL_LEUTE_NAME = 2
  27. Global Const COL_LEUTE_STRASSE = 3
  28. Global Const COL_LEUTE_PLZ = 4
  29. Global Const COL_LEUTE_ORT = 5
  30. Global Const COL_LEUTE_TELEFON = 6
  31.  
  32. '----- GLOBAL TYPES ----------------------------------------------------------
  33.  
  34. Type LEUTE
  35.     address As Long
  36.     Vorname As String * 32
  37.     name As String * 32
  38.     Stra▀e As String * 32
  39.     Plz As String * 6
  40.     Ort As String * 26
  41.     Telefon As String * 22
  42. End Type
  43.  
  44. '----- GLOBAL VARIABLES ------------------------------------------------------
  45.  
  46. Global basename As String               ' name of actual database
  47. Global basepath As String               ' path of actual database
  48. Global Db As Long                       ' database
  49. Global DbCursor As Long                 ' actual cursor
  50. Global Record As LEUTE                  ' buffer to hold a record
  51. Global DbBuffer(0 To 16383) As Long     ' 64 KB buffer to hold a record
  52.  
  53. Global SearchIndex As Integer           ' actual search index
  54. Global SearchString As String           ' actual search string
  55.  
  56. ' Selectiert die TextZeile , wenn der Fokus kommt
  57. '
  58. Sub SelLine (crtl As Control)
  59.     crtl.SelStart = 0
  60.     crtl.SelLength = Len(crtl.Text)
  61. End Sub
  62.  
  63.