'*****************************************************************************
'*
'* Module : GLOBAL.BAS
'* Author : Dieter Geiß
'*
'* Creation date    : 13.02.93
'* Last modification: 03.07.93
'*
'*
'* Description: PHOENIX 2.0 Visual Basic Demo
'*
'*****************************************************************************

'----- GLOBAL CONSTANTS ------------------------------------------------------

Global Const Title = "Phoenix VB Demo"
Global Const OpenFlags = 0
Global Const username = "Frank F. Blome"
Global Const password = ""
Global Const OpenCache = 32
Global Const OpenDbCursors = 20

Global Const TBL_LEUTE = 20
Global Const COL_LEUTE_DBADDRESS = 0
Global Const COL_LEUTE_VORNAME = 1
Global Const COL_LEUTE_NAME = 2
Global Const COL_LEUTE_STRASSE = 3
Global Const COL_LEUTE_PLZ = 4
Global Const COL_LEUTE_ORT = 5
Global Const COL_LEUTE_TELEFON = 6

'----- GLOBAL TYPES ----------------------------------------------------------

Type LEUTE
    address As Long
    Vorname As String * 32
    name As String * 32
    Straße As String * 32
    Plz As String * 6
    Ort As String * 26
    Telefon As String * 22
End Type

'----- GLOBAL VARIABLES ------------------------------------------------------

Global basename As String               ' name of actual database
Global basepath As String               ' path of actual database
Global Db As Long                       ' database
Global DbCursor As Long                 ' actual cursor
Global Record As LEUTE                  ' buffer to hold a record
Global DbBuffer(0 To 16383) As Long     ' 64 KB buffer to hold a record

Global SearchIndex As Integer           ' actual search index
Global SearchString As String           ' actual search string

' Selectiert die TextZeile , wenn der Fokus kommt
'
Sub SelLine (crtl As Control)
    crtl.SelStart = 0
    crtl.SelLength = Len(crtl.Text)
End Sub