home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_4_94
/
vbwin
/
phoenix
/
global.txt
< prev
next >
Wrap
Text File
|
1995-02-26
|
2KB
|
63 lines
'*****************************************************************************
'*
'* 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