VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "Get me drunk - The wine tester"
   ClientHeight    =   3030
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnuTesting 
      Caption         =   "Testing"
      Begin VB.Menu mnuBrowser 
         Caption         =   "&Internal browser"
      End
      Begin VB.Menu mnuAdo 
         Caption         =   "&Ado library"
         Begin VB.Menu mnuAdoFiles 
            Caption         =   "ADO files"
         End
         Begin VB.Menu mnuAdoDatabases 
            Caption         =   "ADO Databases"
         End
      End
      Begin VB.Menu mnuIdeals 
         Caption         =   "Ideals"
         Begin VB.Menu mnuIdealsDatabase 
            Caption         =   "Database"
         End
      End
      Begin VB.Menu Exit 
         Caption         =   "&Exit"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&?"
      Begin VB.Menu mnuAbout 
         Caption         =   "&About"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''
' gmd - Get me drank: the wine tester
'
' License is GPL V. 2.0
'
' Author: Proietti Piero
'
' Home page: http://www.agenziajar.eu/Ideals
'
' @copy (C) 2006 by: Latus Software - Via Pio Joris 15 00155 Roma (Italy) Tel. 06/2285634
' @author piero.proietti@gmail.com
' @require msado15.dll or better, msxml3.dll, msderun.dll
' @todo
Option Explicit


Private Const kFORM_LEFT = 0
Private Const kFORM_TOP = 0
Private Const kFORM_HEIGHT = 7250
Private Const kFORM_WIDTH = 11900

Private Sub MDIForm_Load()
    frmBrowser.StartingAddress = "http://www.winehq.com"
    
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", kFORM_LEFT)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", kFORM_TOP)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", kFORM_WIDTH)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", kFORM_HEIGHT)
    
End Sub

''
'
' Internal recordset
Private Sub Exit_Click()
    Unload Me
End Sub

Private Sub mnuAbout_Click()
    frmAbout.Show
End Sub

Private Sub mnuAdoDatabases_Click()
    MsgBox "Try to test connectivity to databases via ADO. To implement"
End Sub

Private Sub mnuAdoFiles_Click()
    MsgBox "Try to test the usability of files ADO"
    frmAdoFiles.Show
End Sub

Private Sub mnuBrowser_Click()
    MsgBox "Try to test the usability of the internal Web Browser"
    frmBrowser.Show
End Sub


Private Sub mnuIdealsDatabase_Click()
        MsgBox "Try to test connectivity to databases via Ideals. To implement"
End Sub

