'   Written by Steve Jackson
'              9152 Brabham Dr.
'              Huntington Beach, CA 92646
'
'  Global module for Visual Video Paradox demo
'
'  Important!  Change DEFAULT_DB_DIR to location of your
'              paradox tables.  At run time (from EXE)
'              you can get the working directory from
'              CUR_DIR$, but at development time this
'              function tells you where Visual Basic is,
'              and not your project...
'
'              The program moves this value to db_dir$
'              in STARTUP() function of VVDBMOD.BAS
'
Global Const DEFAULT_DB_DIR = "\VB\DB"
Global db_dir$
'
'   Database records
'
Type CUST
    custnumber As String
    lastname As String
    firstname As String
    address As String
    city As String
    zip As String
    tapes_out As Integer
    total_spent As Single
End Type

Type ITEM
    itemnumber As String
    itemdesc As String
    custnum As String
    inout_code As String
End Type
'
'   GLOBAL VARIABLES
'
Global custrec As CUST
Global itemrec As ITEM
Global rc As Integer
'
'   CONSTANTS
'
Global Const DB_OK = 0
Global Const DB_NOTFOUND = 89
Global Const DB_RECLOCKED = 9
Global Const TRUE = -1
Global Const FALSE = 0

Global Const CUSTOMER_TABLE = 0
Global Const ITEM_TABLE = 1
Global Const NUMBER_OF_TABLES = 2

Global Const DBKEYED = 0
Global Const DBFIRST = 1
Global Const DBNEXT = 2
Global Const DBLAST = 3
Global Const DBPRIOR = 4

Global Const MB_OK = 0
Global Const MB_OKCANCEL = 1
Global Const MB_YESNOCANCEL = 3
Global Const MB_YESNO = 4
Global Const MB_RETRYCANCEL = 5
Global Const MB_ICONSTOP = 16
Global Const MB_ICONQUESTION = 32
Global Const MB_ICONEXCLAMATION = 48
Global Const MB_ICONINFORMATION = 64
Global Const MB_DEFBUTTON2 = 256
Global Const MB_DEFBUTTON3 = 512

Global Const IDOK = 1
Global Const IDCANCEL = 2
Global Const IDABORT = 3
Global Const IDRETRY = 4
Global Const IDIGNORE = 5
Global Const IDYES = 6
Global Const IDNO = 7

Global Const POINTER_DEFAULT = 0
Global Const POINTER_HOURGLASS = 11