VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIF 
   BackColor       =   &H8000000C&
   Caption         =   "xxxxxxxxxxxxx"
   ClientHeight    =   5625
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10755
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10755
      _ExtentX        =   18971
      _ExtentY        =   1111
      ButtonWidth     =   1402
      ButtonHeight    =   953
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   18
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Nuevo"
            Key             =   "nuevo"
            Object.ToolTipText     =   "Agregar un Nuevo Registro"
            ImageKey        =   "new"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Modificar"
            Key             =   "modificar"
            Object.ToolTipText     =   "Modificar el Registro Actual"
            ImageKey        =   "edit"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Grabar"
            Key             =   "grabar"
            Object.ToolTipText     =   "Grabar el Registro Actual"
            ImageKey        =   "save"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Descartar"
            Key             =   "descartar"
            Object.ToolTipText     =   "Descartar los Cambios Hechos"
            ImageKey        =   "undo"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Eliminar"
            Key             =   "eliminar_registro"
            Object.ToolTipText     =   "Eliminar el Registro Actual"
            ImageKey        =   "delete"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Refrescar"
            Key             =   "refrescar_registro"
            Object.ToolTipText     =   "Actualiza los Datos"
            ImageKey        =   "copy"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Primero"
            Key             =   "primer_registro"
            Object.ToolTipText     =   "Moverse al Primer Registro"
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Anterior"
            Key             =   "anterior_registro"
            Object.ToolTipText     =   "Moverse al Registro Anterior"
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Siguiente"
            Key             =   "siguiente_registro"
            Object.ToolTipText     =   "Moverse al Siguiente Registro"
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Ultimo"
            Key             =   "ultimo_registro"
            Object.ToolTipText     =   "Moverse al Ultimo Registro"
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Caption         =   "Imprimir"
            Key             =   "imprimir"
            ImageKey        =   "print"
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Style           =   3
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Salir"
            Key             =   "salir"
            Object.ToolTipText     =   "Salir dl Modulo Actual"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   120
      Top             =   1320
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   9
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_mdi.frx":0000
            Key             =   "new"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_mdi.frx":0548
            Key             =   "edit"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_mdi.frx":09A4
            Key             =   "delete"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_mdi.frx":0ABC
            Key             =   "print"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_mdi.frx":1004
            Key             =   "undo"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_mdi.frx":154C
            Key             =   "copy"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_mdi.frx":166C
            Key             =   "find"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_mdi.frx":1788
            Key             =   "save"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_mdi.frx":1CD0
            Key             =   "preview"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnu_configuracion 
      Caption         =   "Configuracion"
      Begin VB.Menu mnu_creacionusuarios 
         Caption         =   "Mantenimiento de &Usuarios"
      End
      Begin VB.Menu mnu_mantenimientogrupos 
         Caption         =   "Mantenimiento de Grupos"
      End
      Begin VB.Menu mnu_accesosusuarios 
         Caption         =   "Accesos de Usuarios/Grupos"
      End
      Begin VB.Menu mnu_datosestacion 
         Caption         =   "Datos de la Estacion"
      End
      Begin VB.Menu mnu_cantidadcaras 
         Caption         =   "Cantidad de Caras"
      End
      Begin VB.Menu mnu_relacioncaras 
         Caption         =   "Relacion Combustibles con Caras"
      End
      Begin VB.Menu Mnu_cantidadturnos 
         Caption         =   "Cantidad de Turnos"
      End
      Begin VB.Menu mnu_enlacedispensadores 
         Caption         =   "Enlace Sistemas Dispensadores"
      End
   End
End
Attribute VB_Name = "MDIF"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'autor: gustavo duffoo
'fecha: 05/09/2002
'funcionabilidad: crear una barra de herramientas estandar para todos los proyectos
'
'ultima modificacion : 11/09/2002
'se cambio el pronombre en el evento click del toolbar por "me"

Private Sub MDIForm_Unload(Cancel As Integer)
cnxprueba.Close
Set cnxprueba = Nothing
End Sub

Private Sub mnu_accesosusuarios_Click()
Dim frmx As fAccesos
Set frmx = New fAccesos
frmx.Show
End Sub

Private Sub mnu_creacionusuarios_Click()
Dim frmx As fmaestrousuarios
Set frmx = New fmaestrousuarios
frmx.Show

End Sub

Private Sub mnu_mantenimientogrupos_Click()
Dim frmx As Fgrupos
Set frmx = New Fgrupos
frmx.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If ActiveForm Is Nothing And Button.Key = "salir" Then gsalir

If ActiveForm Is Nothing Then Exit Sub

Select Case Button.Key
    Case "nuevo"
        Me.ActiveForm.agregar_registro
    Case "modificar"
        Me.ActiveForm.modificar_registro
    Case "grabar"
        Me.ActiveForm.grabar_registro
    Case "descartar"
    If MsgBox("Esta Seguro Que Desea Descartar los Cambios", vbYesNo + vbQuestion, "Atencion") = vbYes Then
        Me.ActiveForm.descartar_registro
    End If
    Case "eliminar_registro"
        If MsgBox("Esta Seguro Que Desea Eliminar el Registro", vbYesNo + vbQuestion, "Atencion") = vbYes Then
                Me.ActiveForm.borrar_registro
        End If
    Case "refrescar_registro"
        Me.ActiveForm.actualizar_registro
    Case "Imprimir"
        Me.ActiveForm.primer_registro
    Case "primer_registro"
        Me.ActiveForm.primer_registro
    Case "anterior_registro"
        Me.ActiveForm.registro_anterior
    Case "siguiente_registro"
        Me.ActiveForm.registro_siguiente
    Case "ultimo_registro"
        Me.ActiveForm.ultimo_registro
    Case "salir"
        Me.ActiveForm.salir_formulario
End Select
End Sub
