home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTODBC.PRG < prev    next >
Text File  |  1994-05-12  |  1KB  |  70 lines
  1. // FiveWin ODBC management !!!
  2.  
  3. // ODBC = Open DataBase Connectivity
  4.  
  5. #include "FiveWin.ch"
  6.  
  7. static oWnd
  8.  
  9. //----------------------------------------------------------------------------//
  10.  
  11. function Main()
  12.  
  13.    local oBrush
  14.  
  15.    // SET 3DLOOK ON
  16.  
  17.    DEFINE BRUSH oBrush FILE "..\bitmaps\odbcdem.bmp"
  18.  
  19.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 75 TITLE "Testing ODBC" ;
  20.       MENU BuildMenu() BRUSH oBrush
  21.  
  22.    @ 2, 2 BITMAP FILE "..\bitmaps\ODBC.bmp" OF oWnd
  23.  
  24.    @ 12, 2 BITMAP FILE "..\bitmaps\ODBC2.bmp" OF oWnd
  25.  
  26.    ACTIVATE WINDOW oWnd
  27.  
  28. return nil
  29.  
  30. //----------------------------------------------------------------------------//
  31.  
  32. function BuildMenu()
  33.  
  34.    local oMenu
  35.  
  36.    MENU oMenu
  37.       MENUITEM "Use &ODBC" ACTION TestOdbc()
  38.    ENDMENU
  39.  
  40. return oMenu
  41.  
  42. //----------------------------------------------------------------------------//
  43.  
  44. function TestOdbc()
  45.  
  46.    local oDbc, oDlg
  47.    local oName, cName
  48.  
  49.    DEFINE ODBC oDbc CONNECT "DSN=Dialog" FROM USER
  50.  
  51.    cName = oDbc:FieldGet( 1 )
  52.  
  53.    DEFINE DIALOG oDlg FROM 2, 2 TO 14, 60 TITLE "ODBC Management"
  54.  
  55.    @ 2, 2 SAY oDbc:FieldName( 1 ) OF oDlg
  56.    @ 2, 6 GET oName VAR cName OF oDlg COLOR "W+/RB"
  57.  
  58.    @ 5, 10 BUTTON "&Next" OF oDlg ;
  59.       ACTION ( oDbc:Skip(),;
  60.                cName := oDbc:FieldGet( 1 ),;
  61.                oName:Refresh() )
  62.  
  63.    ACTIVATE DIALOG oDlg
  64.  
  65.    oDbc:End()
  66.  
  67. return nil
  68.  
  69. //----------------------------------------------------------------------------//
  70.