Option Explicit
'設定メニュー

'社員情報入力
Public Sub LoadSyainInfo()

    If gstrName = "" Then GoTo ErrorProc
    '社員給与計算システムフォーム
    frmSyain.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"
 
End Sub

'家族情報入力
Public Sub LoadFamiliInfo()

    If gstrName = "" Then GoTo ErrorProc
    '家族給与計算システムフォーム
    frmFuyou.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"
 
End Sub

'給与／手当・控除項目設定
Public Sub SetKyuyoKoumoku()

    If gstrName = "" Then GoTo ErrorProc
    '給与／手当・控除項目設定フォーム
    frmk_Koumoku.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"

End Sub

'賞与／控除項目設定
Public Sub SetSyouoyoKoumoku()

    If gstrName = "" Then GoTo ErrorProc
    '賞与控除項目設定フォーム
    frmS_Koumoku.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"

End Sub

'社会保険
Public Sub SetSyakaiHoken()

    If gstrName = "" Then GoTo ErrorProc
    '社会保険設定フォーム
    frmTaikei.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"
    
End Sub

'雇用保険/政府管掌社会保険加入設定変更
Public Sub SetSeihukansyo()

    If gstrName = "" Then GoTo ErrorProc
    gFlg = True
    '雇用保険等設定フォーム
    frmKoyou.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"
        
End Sub

'事業所名の設定
Public Sub SetCorp()

    If gstrName = "" Then GoTo ErrorProc
    gFlg = True
    '事業所名設定フォーム
    frmCorp.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"

End Sub

'事業年度の設定
Public Sub SetDate()

    If gstrName = "" Then GoTo ErrorProc
    gFlg = True
    '事業所名設定フォーム
    frmNendo.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"

End Sub