home *** CD-ROM | disk | FTP | other *** search
/ Datatid 1999 #6 / Datatid_1999-06.iso / internet / Tango352Promo / P.SQL / PTKPKG.1 / SQLSAM16.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-04-14  |  2.0 KB  |  53 lines
  1. Attribute VB_Name = "Module1"
  2. '*************************************************************************
  3. '**
  4. '**  Copyright 1997 Pervasive Software Inc. All Rights Reserved
  5. '**
  6. '*************************************************************************
  7. '*************************************************************************
  8. '   SQLSAM16.BAS
  9. '     This module is for use with Visual Basic for MS-Windows and
  10. '     Scalable SQL.  It contains declarations used by the sample progam,
  11. '     'sqlsam16.frm'.  For more info, look in sqlsam16.frm.
  12. '
  13. '************************************************************************
  14. '*************************************************************************
  15. '    DEFINE PERSON_STRUCT STRUCTURE AND GLOBAL VARIABLE
  16. '*************************************************************************
  17. Type PERSON_STRUCT
  18.    RecLen             As Integer
  19.    ID                 As Long
  20.    Dummy              As Long
  21.    FirstName          As String * 16
  22.    LastName           As String * 26
  23.    PermStreet         As String * 31
  24.    PermCity           As String * 31
  25.    PermState          As String * 3
  26.    PermZip            As String * 11
  27.    PermCountry        As String * 21
  28.    Street             As String * 31
  29.    City               As String * 31
  30.    State              As String * 3
  31.    Zip                As String * 11
  32.    Phone              As String * 10
  33.    EmergencyPhone     As String * 20
  34.    Unlisted           As Byte
  35.    DateOfBirth        As String * 4
  36.    EmailAddress       As String * 31
  37.    Sex                As Byte
  38.    Citizenship        As String * 21
  39.    Survey             As Byte
  40.    Smoker             As Byte
  41.    Married            As Byte
  42.    Children           As Byte
  43.    Disability         As Byte
  44.    Scholarship        As Byte
  45.    Comments           As String * 200
  46. End Type
  47.  
  48.  
  49. '*************************************************************************
  50. '  Constants
  51. '*************************************************************************
  52. Const SUCCESS% = 0
  53.