frmmenu.vb

日報管理システム&#65407 &#65392 &#65405 です よろしくお願いします

Imports System.IO
Imports System.Xml

''' <summary>
''' 起動画面
''' </summary>
''' <remarks></remarks>
Public Class frmMenu

#Region "■定数定義           ■"

    ''' <summary>
    ''' 固定ﾏｽﾀﾊﾞｽ
    ''' </summary>
    ''' <remarks></remarks>
    Const cStrPath As String = "\\192.168.1.169\レポート\マスタ\"

    ''' <summary>
    ''' 固定ﾚﾎﾟｰﾄﾊﾞｽ
    ''' </summary>
    ''' <remarks></remarks>
    Const cStrRepPath As String = "\\192.168.1.169\レポート\"

#End Region

#Region "■変数定義　　       ■"

    ''' <summary>
    ''' ﾏｽﾀﾌｧｲﾙﾊﾞｽ記録用
    ''' </summary>
    ''' <remarks></remarks>
    Private mStrMPath As String

    ''' <summary>
    ''' ﾚﾎﾟｰﾄﾊﾞｽ記録用
    ''' </summary>
    ''' <remarks></remarks>
    Private mStrRPath As String

    ''' <summary>
    ''' 配置ﾌｧｲﾙ生成用
    ''' </summary>
    ''' <remarks></remarks>
    Private mDSXml As New DataSet

#End Region

#Region "■画面ｺﾝﾄﾛﾙｲﾍﾞﾝﾄ　　 ■"

    ''' <summary>
    ''' 画面のﾛｰﾄﾞ
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub frmMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '■変数
        Dim strXmlPath As String                                   '配置ﾌｧｲﾙﾊﾞｽ記録用

        Try

            '■配置ﾌｧｲﾙのﾊﾞｽ
            strXmlPath = Application.StartupPath + "\DRPath.xml"

            '■配置ﾌｧｲﾙの導入
            GetPath(strXmlPath)

        Catch ex As Exception

            MsgBox(ex.ToString, , "ﾛｰﾄﾞ処理に失敗しました。")
        Finally
            strXmlPath = Nothing
        End Try
    End Sub

    ''' <summary>
    ''' 画面閉じた後解放処理
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub frmMenu_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Try

            '■解放処理
            mDSXml.Dispose()
            mStrRPath = Nothing
            mStrMPath = Nothing

        Catch ex As Exception

        End Try
    End Sub

    ''' <summary>
    ''' 読み込む画面を呼び出す
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            '■読み込む画面の生成
            Dim frm As New frmRead

            '■配置ﾌｧｲﾙによりﾏｽﾀﾊﾞｽの記録
            frm.mStrPath = mStrMPath

            '■配置ﾌｧｲﾙによりﾚﾎﾟｰﾄﾊﾞｽの記録
            frm.mStrRepPath = mStrRPath
            frm.Show()
        Catch ex As Exception

            MsgBox(ex.ToString, , "読み込む画面の呼び出しに失敗しました。")
        End Try

    End Sub

    ''' <summary>
    ''' 書き込む画面を呼び出す
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim frm As New frmMain
            '■配置ﾌｧｲﾙによりﾏｽﾀﾊﾞｽの記録
            frm.strPath = mStrMPath

            '■配置ﾌｧｲﾙによりﾚﾎﾟｰﾄﾊﾞｽの記録
            frm.strRepPath = mStrRPath
            frm.Show()
        Catch ex As Exception

        End Try

    End Sub

#End Region

#Region "■ﾕｰｻﾞﾒｿｯﾄﾞ     　　 ■"

    ''' <summary>
    ''' 配置ﾌｧｲﾙによりﾚﾎﾟｰﾄﾊﾞｽの取得
    ''' </summary>
    ''' <param name="path"></param>
    ''' <remarks></remarks>
    Private Sub GetPath(ByVal path As String)
        Try

            '■配置ﾌｧｲﾙの存在判断
            If File.Exists(path) Then

                '□ﾊﾞｽにより配置ﾌｧｲﾙの導入
                mDSXml.ReadXml(path)
                '□ﾏｽﾀﾊﾞｽの記録
                mStrMPath = mDSXml.Tables(0).Rows(0)("mPath")
                '□ﾚﾎﾟｰﾄﾊﾞｽの記録
                mStrRPath = mDSXml.Tables(0).Rows(0).Item("rPath")

            Else

                '■配置ﾌｧｲﾙがない時ﾌｧｲﾙの生成
                Call WriteXml(path)

                '■固定のﾊﾞｽの取得
                '□ﾏｽﾀﾊﾞｽの記録
                mStrMPath = cStrPath
                '□ﾚﾎﾟｰﾄﾊﾞｽの記録
                mStrRPath = cStrRepPath

            End If

        Catch ex As Exception

            Throw ex
        End Try
    End Sub

    ''' <summary>
    ''' 配置ﾌｧｲﾙがない時ﾌｧｲﾙの生成
    ''' </summary>
    ''' <param name="path"></param>
    ''' <remarks></remarks>
    Public Sub WriteXml(ByVal path As String)

        '■変数
        Dim DT As New DataTable
        Dim DR As DataRow

        Try
            mDSXml.Tables.Clear()
            mDSXml.Clear()

            '■列の生成
            DT.Columns.Add("mPath", GetType(String))
            DT.Columns.Add("rPath", GetType(String))
            DT.TableName = "Path"

            '■ﾊﾞｽ情報の生成
            DR = DT.NewRow
            DR.Item("mPath") = cStrPath
            DR.Item("rPath") = cStrRepPath
            DT.Rows.Add(DR)

            '■xmlﾌｧｲﾙの生成
            mDSXml.Tables.Add(DT)
            mDSXml.AcceptChanges()
            mDSXml.WriteXml(path)

        Catch ex As Exception

            Throw ex
        Finally
            '■解放処理
            DT.Dispose()
            DR = Nothing
        End Try
    End Sub

#End Region

End Class