Attribute VB_Name = "modGlobalVars"
'****************************************************************************
' ：） 人人為我，我為人人 ：）
'枕善居漢化收藏整理
'發布日期：06/02/21
'描    述：智能醫院管理系統  Version 1.0
'網    站：http://www.mndsoft.com/
'e-mail  ：mnd@mndsoft.com
'OICQ    ：88382850
'****************************************************************************
Option Explicit
Public LoginSucceeded As Boolean    'Used to validate log-in procedure.
Public patientNumberX As Integer    'Stores hosp_no to be sought for in the db.
Public somePatient As CPatient      'Made public so it can be accessed by frmOldPatient.

Public Sub ConfigMenus(Optional userName As String)
 With frmMain
    If LoginSucceeded = True Then
        'menu items
        .mnuLogIn.Enabled = False
        .mnuSep1.Visible = True
        .mnuNewPatient.Visible = True
        .mnuOpen.Visible = True
        .mnuClose.Visible = True
        .mnuSep2.Visible = True
        .mnuLogOut.Enabled = True
        If UCase(userName) = "醫生" Then .mnuTools.Enabled = True
        .StatusBar1.SimpleText = "用戶已登錄"
        
        'toolbar buttons
        .tbrMainToolbar.Buttons(1).Caption = "用戶注銷" 'login/logout button
        .tbrMainToolbar.Buttons(1).ToolTipText = "用戶注銷" 'login button
        .tbrMainToolbar.Buttons(3).Enabled = True  'new registration button
        .tbrMainToolbar.Buttons(4).Enabled = True  'open existing patient file
        .tbrMainToolbar.Buttons(5).Enabled = False 'admit/discharge button
        .tbrMainToolbar.Buttons(6).Enabled = False 'diagnose button
    Else
        'Close all open windows (all child forms)
        Unload frmNewReg
        Unload frmOldPatient

        'menu items
        .mnuLogIn.Enabled = True
        .mnuSep1.Visible = False
        .mnuNewPatient.Visible = False
        .mnuOpen.Visible = False
        .mnuClose.Visible = False
        .mnuSep2.Visible = False
        .mnuLogOut.Enabled = False
        .mnuTools.Enabled = False
        .StatusBar1.SimpleText = "尚無用戶登錄！"
        
        'toolbar buttons
        .tbrMainToolbar.Buttons(1).Caption = "用戶登錄" 'loginout button
        .tbrMainToolbar.Buttons(1).ToolTipText = "登錄系統" 'login button
        .tbrMainToolbar.Buttons(3).Enabled = False 'new registration button
        .tbrMainToolbar.Buttons(4).Enabled = False 'open existing patient file
        .tbrMainToolbar.Buttons(5).Enabled = False 'admit/discharge button
        .tbrMainToolbar.Buttons(6).Enabled = False 'diagnose button
        
    End If
 End With
End Sub

Public Sub ClearRegForm()
 With frmNewReg
    '.txtHospNo.Text = ""
    .txtSName.Text = ""
    .txtFName.Text = ""
    .txtDoB.Text = ""
    .txtHomeAdd.Text = ""
    .txtStateOfOrigin.Text = ""
    .txtOccupation.Text = ""
    .txtNameOfSponsor.Text = ""
    .txtAddOfSponsor.Text = ""
    .txtKinName.Text = ""
    .txtRelationship.Text = ""
    .txtKinAddress.Text = ""
    .txtAllergy.Text = ""
    
 'code snippet1 goes here if need be
 End With
End Sub