form1.vb

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

            Me.ToolStripProgressBar1.Value = 100
        Catch ex As Exception
            MsgBox(ex.ToString, , "保存中のエラー")

        Finally
            Me.ToolStripProgressBar1.Value = 0
        End Try
    End Sub
    ''' <summary>
    ''' 日報個人新規生成
    ''' </summary>
    ''' <param name="strPath">ファイル名を含むパス</param>
    ''' <param name="strDate">数字のみの日付</param>
    ''' <param name="strNaiyou">内容</param>
    ''' <remarks></remarks>
    Sub MakeNewXml(ByVal strPath As String, _
                   ByVal strDate As String, _
                   ByVal arrBusyo1 As ArrayList, _
                   ByVal arrBusyo2 As ArrayList, _
                   ByVal ParamArray strNaiyou As String()(,))
        Try
            Dim xmlWriter As XmlTextWriter = New XmlTextWriter(strPath.ToString, System.Text.Encoding.GetEncoding("UTF-8"))

            With xmlWriter

                .Formatting = Formatting.Indented

                .Indentation = 3
                .WriteStartDocument()
                .WriteStartElement("DATETIME", Now)
                '件数をここに追加
                .WriteStartElement("Count1", Me.txtKensuu1.Text)
                .WriteStartElement("Count2", Me.txtKensuu2.Text)
                '件数追加ここまで

                For k As Integer = 0 To Me.TabControl1.TabPages.Count - 1
                    .WriteStartElement("Title", Me.TabControl1.TabPages(k).Text)
                    .WriteStartElement("SubTitle1", arrBusyo1(k))
                    .WriteStartElement("SubTitle2", arrBusyo2(k))

                    For i As Integer = 0 To strNaiyou(0).Length / TabControl1.TabPages.Count - 1
                        If (i = 0) Then
                            '.WriteStartElement("SubTitle1",
                        End If
                        If (Not (strNaiyou(0)(k, i) = Nothing)) Then
                            .WriteStartElement("Naiyou" & i, strNaiyou(0)(k, i).ToString)
                            .WriteEndElement()
                        End If
                    Next
                    .WriteEndElement()
                    .WriteEndElement()
                    .WriteEndElement()
                Next

                .WriteEndElement()

                .WriteEndElement()
                .WriteEndElement()
                .WriteEndDocument()

                .Flush()
                .Close()
            End With
        Catch ex As Exception
            Throw ex

        End Try
    End Sub

    ''' <summary>
    ''' ファイルのバイナリ化
    ''' </summary>
    ''' <param name="strBeforePath">変換元ファイルパス</param>
    ''' <param name="strAfterPath">変換後ファイルパス</param>
    ''' <remarks></remarks>
    Sub ToBinary(ByVal strBeforePath As String, ByVal strAfterPath As String)
        Try
            Dim inputStream As FileStream
            Dim encryptedStream As FileStream
            Dim strAftPath As String = strBeforePath.Substring(0, strAfterPath.Length - 3)
            Dim encryptionkey() As Byte = System.Text.Encoding.ASCII.GetBytes("solution")

            strAftPath &= "bin"

            ' 暗号化する対象のFileStreamオブジェクト
            inputStream = New FileStream(strBeforePath, FileMode.Open, FileAccess.Read)

            ' 暗号化したものを書き込むためのFileStreamオブジェクト
            encryptedStream = New FileStream(strAftPath, FileMode.Create, FileAccess.Write)

            ' DESと呼ばれる方法で暗号化するためのオブジェクト
            Dim des As New DESCryptoServiceProvider()

            ' 鍵は64ビット(8バイト)のバイト配列である必要がある
            des.Key = encryptionkey

            ' 初期化ベクタ(暗号化と復号化の際には同じIVを必要とする)
            des.IV = encryptionkey

            ' CryptoStreamオブジェクトを作成する
            Dim transform As ICryptoTransform = des.CreateEncryptor() ' Encryptorを作成する
            Dim cryptoStream As New CryptoStream(encryptedStream, transform, CryptoStreamMode.Write)

            ' 暗号化する対象をバイト配列として読み込む
            Dim buffer() As Byte
            Dim length As Integer = CInt(inputStream.Length)

            ReDim buffer(length)

            inputStream.Read(buffer, 0, length)

            ' CryptoStreamによって暗号化して書き込む
            cryptoStream.Write(buffer, 0, length)

            ' CryptoStreamを閉じる
            cryptoStream.Close()

            ' FileStreamを閉じる
            inputStream.Close()
            encryptedStream.Close()

            '元XMLファイルの削除
            'File.Delete(strBeforePath)←開発終了までは残す

        Catch ex As Exception
            MsgBox(ex.ToString, , "ファイル変換中のエラー")
            Throw ex
        Finally

        End Try


    End Sub

    Sub UnBinary(ByVal strPath As String)

    End Sub
    '選択タブの削除
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim intSelTab As Integer = TabControl1.SelectedIndex
        Dim drD As DialogResult
        drD = MessageBox.Show(Me.TabControl1.TabPages(intSelTab).Text & "タブを削除します。よろしいですか。", "確認", MessageBoxButtons.OKCancel)
        If drD = Windows.Forms.DialogResult.OK Then
            Me.TabControl1.TabPages(intSelTab).Dispose()
            If (Me.TabControl1.TabPages.Count = 0) Then
                Me.ToolStripButton1.Enabled = False
                Me.ToolStripButton2.Enabled = False
                Me.btnRegist.Enabled = False
            End If
        End If
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        For j As Integer = 0 To Me.DataGridView1.RowCount - 1
            If (Me.ComboBox2.SelectedItem.ToString.Equals(Me.DataGridView1.Rows(j).Cells(1).EditedFormattedValue)) Then
                strPWD = Me.DataGridView1.Rows(j).Cells(5).Value
                Exit For
            End If
        Next


    End Sub
    '選択タブの名称変更
    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Dim intSelTab As Integer = TabControl1.SelectedIndex

        Me.TabControl1.TabPages(intSelTab).Text = Me.txtTitle.Text
    End Sub
    'パス変更ボタン
    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click

        Me.clsPass.ShainChange = Me.ComboBox2.SelectedItem

        passchange.ShowDialog()
        clsPass = Nothing
    End Sub

    'パス認証
    Private Sub MaskedTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MaskedTextBox1.TextChanged
        If (Me.MaskedTextBox1.Text = strPWD) Then
            Me.btnAdd.Enabled = True
            'Me.ToolStripButton1.Enabled = True
            'Me.ToolStripButton2.Enabled = True
            'Me.ToolStripButton3.Enabled = True
            Me.ToolStripButton4.Enabled = True

        End If
    End Sub
    ''' <summary>
    ''' 起動直後モード
    ''' </summary>
    ''' <remarks></remarks>
    Sub ModeNew()
        Me.DateTimePicker1.Enabled = True
        Me.ComboBox1.Enabled = True
        Me.ComboBox2.Enabled = True
        Me.MaskedTextBox1.Enabled = True
        Me.txtTitle.Enabled = True

        Me.btnAdd.Enabled = False
        Me.btnRegist.Enabled = False
        Me.ToolStripButton1.Enabled = False
        Me.ToolStripButton2.Enabled = False
        Me.ToolStripButton3.Enabled = False
        Me.ToolStripButton4.Enabled = False

    End Sub
    ''' <summary>
    ''' パスワード確定後フォーム
    ''' </summary>
    ''' <remarks></remarks>
    Sub PWD_OK()
        Me.DateTimePicker1.Enabled = False
        Me.ComboBox1.Enabled = False
        Me.ComboBox2.Enabled = False
        Me.MaskedTextBox1.Enabled = False

        Me.btnRegist.Enabled = False
        Me.ToolStripButton3.Enabled = False
        Me.ToolStripButton1.Enabled = False
        Me.ToolStripButton2.Enabled = False

        Me.ToolStripButton4.Enabled = True

    End Sub
    ''' <summary>
    ''' タブ生成後フォーム
    ''' </summary>
    ''' <remarks></remarks>
    Sub TabMade()
        Me.DateTimePicker1.Enabled = False
        Me.ComboBox1.Enabled = False
        Me.ComboBox2.Enabled = False
        Me.MaskedTextBox1.Enabled = False

        If (Me.TabControl1.TabCount >= 1) Then
            Me.btnRegist.Enabled = True
        Else
            Me.btnRegist.Enabled = False
        End If

        Me.ToolStripButton3.Enabled = False

    End Sub

#Region "■実行ボタンイベント■"
  
    'Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click

    '    Dim dtSortWorkShain As New DataTable
    '    Dim dtSortShain As New DataTable
    '    Dim strTxtID As Integer = 0

    '    Try


    '        'データの追加変更
    '        Dim intUse As Integer = menmUseMode._NonUse
    '        Dim strUse As String = mcstrNonUse
    '        If (Me.chbUse.Checked) Then
    '            intUse = menmUseMode._Use
    '            strUse = mcstrUse
    '        End If

    '        '「更新」
    '        Dim intID As Integer = 0 '更新ID
    '        intID = CType(Me.txtID.Text, Int32)
    '        For Each dtRow As DataRow In Me.mdtWorkShain.Rows
    '            If (CType(dtRow.Item(0), Int32) = intID) Then
    '                dtRow.Item(1) = CType(Me.txtName.Text.Trim, Object)
    '                dtRow.Item(2) = CType(Me.txtNameE.Text.Trim, Object)
    '                If (Me.mblePassChg) Then
    '                    dtRow.Item(5) = CType(mcstrPass, Object)
    '                End If
    '                dtRow.Item(6) = CType(intUse, Object)
    '                dtRow.Item(9) = CType(strUse, Object)
    '                Exit For
    '            End If
    '        Next



    '        'データの並べ替え
    '        dtSortWorkShain = Me.mdtWorkShain.Clone
    '        dtSortWorkShain.Columns(0).DataType = System.Type.GetType("System.Int32")
    '        dtSortShain = Me.mdtWorkShain.Clone
    '        dtSortShain.Columns(0).DataType = System.Type.GetType("System.Int32")

    '        For Each dtRow As DataRow In Me.mdtWorkShain.Rows
    '            dtSortWorkShain.Rows.Add(dtRow.Item(0), dtRow.Item(1), dtRow.Item(2), dtRow.Item(3) _
    '                                           , dtRow.Item(4), dtRow.Item(5), dtRow.Item(6), dtRow.Item(7) _
    '                                           , dtRow.Item(8), dtRow.Item(9))
    '        Next

    '        Dim dv As DataView = New DataView(dtSortWorkShain)
    '        dv.Sort = mcstrColNm1

    '        For Each drv As DataRowView In dv
    '            dtSortShain.ImportRow(drv.Row)
    '        Next

    '        Me.mdsShain.Tables(1).Clear()
    '        For Each dtRow As DataRow In dtSortShain.Rows
    '            Me.mdsShain.Tables(1).Rows.Add(dtRow.Item(0), dtRow.Item(1), dtRow.Item(2), dtRow.Item(3) _
    '                                           , dtRow.Item(4), dtRow.Item(5), dtRow.Item(6), dtRow.Item(7) _
    '                                           , dtRow.Item(8), dtRow.Item(9), 0)
    '        Next

    '        dv.Dispose()
    '        dv = Nothing

    '        'XMLファイルへ書き出す
    '        Me.mdsShain.WriteXml(mcstrFilePath)

    '        Me.grdShain.DataSource = dtSortShain

    '        Me.btnNew_Click(sender, New EventArgs)

    '    Catch ex As Exception
    '        MessageBox.Show(ex.ToString, "エラーメッセージ", MessageBoxButtons.OK, MessageBoxIcon.Error)
    '    Finally
    '        dtSortWorkShain.Dispose()
    '        dtSortWorkShain = Nothing
    '        dtSortShain.Dispose()
    '        dtSortShain = Nothing
    '    End Try

    'End Sub
#End Region
End Class