home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / sdk / dbmsg / sql / vbsql / adbglob.bas < prev    next >
Encoding:
BASIC Source File  |  1996-04-03  |  1.2 KB  |  33 lines
  1. ' ===========================================================================
  2. ' Global variables specifically for this application:
  3. Global Server$, LoginID$, Password$, DataBase$, Worksta$, AppName$, SQLUser$
  4. Global ShowSql As Integer
  5. Global NEWLINE$
  6.  
  7. ' Global constants for the variable MODE which is used uniquelly in every form
  8.     Global Const SQLREST = 0
  9.     Global Const SQLNEW = 1
  10.     Global Const SQLSHOW = 2
  11.  
  12. ' Memory management functions for determining system information
  13. ' displayed in the About Dialog
  14.  
  15. ' Returns the current system configurations flags
  16. Declare Function GetWinFlags Lib "kernel" () As Long
  17.  
  18. ' Returns the number of free bytes in the global heap
  19. Declare Function GetFreeSpace Lib "kernel" (ByVal flag%) As Long
  20.  
  21. ' System configuration flags
  22. Global Const WF_CPU286 = &H2&
  23. Global Const WF_CPU386 = &H4&
  24. Global Const WF_CPU486 = &H8&
  25. Global Const WF_STANDARD = &H10&
  26. Global Const WF_ENHANCED = &H20&
  27. Global Const WF_80x87 = &H400&
  28.  
  29. ' ===========================================================================
  30.  
  31. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  32.  
  33.