fMain.frm

 VERSION 5.00
Begin VB.MDIForm fMain
   BackColor       =   &H8000000C&
   Caption         =   "MedCare"
   ClientHeight    =   7170
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10545
   Icon            =   "fMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile
      Caption         =   "&Fisier"
      Begin VB.Menu mnuFileExit
         Caption         =   "I&esire"
      End
   End
   Begin VB.Menu mnuView
      Caption         =   "&Vedere"
      Begin VB.Menu mnuViewModules
         Caption         =   "&Module"
      End
   End
   Begin VB.Menu mnuLanguage
      Caption         =   "&Limba"
      Begin VB.Menu mnuChangeLanguage
         Caption         =   "&Schimba Limba"
      End
   End
   Begin VB.Menu mnuWindow
      Caption         =   "&Fereastra"
      WindowList      =   -1  'True
      Begin VB.Menu mnuWindowCascade
         Caption         =   "Aranjare &Cascada"
      End
   End
   Begin VB.Menu mnuHelp
      Caption         =   "Suport"
   End
End
Attribute VB_Name = "fMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub MDIForm_Activate()

    If blnFirstActivate Then
        'set primary language when first activate
        Call SetPrimaryLanguage
        blnFirstActivate = False
    End If

End Sub

Private Sub MDIForm_Load()
   
    blnFirstActivate = True
    'lists
    Call CountiesList
    Call BloodList
    Call SexList

End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   
    Dim f As Form
    For Each f In Forms
        If f.Name <> "fMain" Then Unload f
    Next
   
End Sub

Private Sub SetPrimaryLanguage()
   
    Load fLanguage
    fLanguage.cmdOK.Value = True
   
End Sub
Private Sub MDIForm_Resize()
   
    If mnuViewModules.Checked Then
        SetLayout_fModule
    End If
   
End Sub

Private Sub mnuChangeLanguage_Click()
   
    fLanguage.Show vbModal
   
End Sub

Private Sub mnuFileExit_Click()
   
    Unload Me
   
End Sub


Private Sub mnuViewModules_Click()
    
    mnuViewModules.Checked = Not mnuViewModules.Checked
    If mnuViewModules.Checked Then
        Screen.MousePointer = vbHourglass
        fModule.Show
        Screen.MousePointer = vbNormal
    Else
        fModule.Hide
    End If
   
End Sub


Private Sub mnuWindowCascade_Click()
   
    Me.Arrange vbCascade

End Sub

Project Homepage: