WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/01、人事管理系統/人員行政物料領用記...

Option Strict Off
Public Class 人員行政物料領用記錄表
    Private ReadOnly ds, ds1 As New DataSet
    Dim KKK3, KKK4 As String
    Dim 已超出 As Boolean
    Private Sub Set_人員清單()
        人員_dgv.DataSource = Nothing : ds1.Clear()
        人員_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員_dgv.ColumnHeadersHeight = 25
        人員_dgv.AllowUserToAddRows = False
        SQL_人員清單()
        da.Fill(ds1) : 人員_dgv.DataSource = ds1.Tables(0) : conn.Close()

        人員_dgv.Columns(0).Visible = False : 人員_dgv.Columns(1).FillWeight = 150 : 人員_dgv.Columns(2).Visible = False : 人員_dgv.Columns(3).Visible = False
        人員_dgv.Columns(4).Visible = False
    End Sub
    Private Sub Set_清單()
        明細_dgv.DataSource = Nothing : ds.Clear()
        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細_dgv.ColumnHeadersHeight = 25
        明細_dgv.AllowUserToAddRows = False
        SQL_人員行政物料領用紀錄表()
        da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()

        明細_dgv.Columns(0).FillWeight = 150 : 明細_dgv.Columns(1).FillWeight = 150 : 明細_dgv.Columns(2).FillWeight = 150 : 明細_dgv.Columns(3).FillWeight = 934
        明細_dgv.Columns(4).FillWeight = 150 : 明細_dgv.Columns(5).FillWeight = 150
        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_年份清單()
        查詢月份_cb.Items.Clear()
        While (dr.Read()) : 查詢月份_cb.Items.Add(dr("年份")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox3下拉表單資料載入()
        SQL_人員行政物料表()
        選擇行政物料_cb.Items.Clear()
        While (dr.Read()) : 選擇行政物料_cb.Items.Add(dr("行政物料")) : End While : conn.Close()
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd")
    End Sub
    Private Sub 人員行政物料領用記錄表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入()
        Set_人員清單()
        查詢月份_cb.Text = Year(Today) : 查詢月份1_cb.SelectedIndex = Month(Today) - 1
        KKKJJ3 = "AND (日期 LIKE N'" & KKK3 & "/" & KKK4 & "%') "
        明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        人員_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 人員_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            XXCC = 人員_dgv.Rows(e.RowIndex).Cells("姓名").Value
            KKKJJ3 = "AND (日期 LIKE N'" & KKK3 & "/" & KKK4 & "%') "
            Set_清單()
        End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            選擇資料流水號_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells("流水號").Value
        End If
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        If 選擇行政物料_cb.Text = "" Or XXCC = "" Then
            MsgBox("沒有選擇物料或人員")
        Else
            SQL_查詢最後一筆流水號()
            If dr.Read() Then : 編號 = dr("流水號").ToString : Else : 編號 = "MR00000000" : End If
            conn.Close()
            Dim NUM1 As Integer
            NUM1 = Double.Parse(Strings.Right(編號, 8)) + 1
            If NUM1 < 10 Then : 編號 = "MR" & "0000000" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 編號 = "MR" & "000000" & NUM1
            ElseIf NUM1 > 99 And NUM1 < 1000 Then : 編號 = "MR" & "00000" & NUM1
            ElseIf NUM1 > 999 And NUM1 < 10000 Then : 編號 = "MR" & "0000" & NUM1
            ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 編號 = "MR" & "000" & NUM1
            ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 編號 = "MR" & "00" & NUM1
            ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 編號 = "MR" & "0" & NUM1
            ElseIf NUM1 > 9999999 Then : 編號 = "MR" & NUM1
            End If
            Set_日期格式轉換()
            SQL_新增人員行政物料領用紀錄表()
            conn.Close()
            Set_清單()
        End If
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_刪除人員行政物料領用紀錄表()
            conn.Close() : dr.Close()
            MsgBox("刪除完成") : Set_清單()
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
            資料數 = 明細_dgv.Rows.Count : MyModule1.進度條()
            PA = 明細_dgv.Rows(i).Cells("數量").Value : PA1 = 明細_dgv.Rows(i).Cells("單位").Value
            PA2 = 明細_dgv.Rows(i).Cells("流水號").Value
            SQL_更改人員行政物料領用紀錄表()
            conn.Close() : dr.Close()
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        MsgBox("存檔完成")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 新增物料清單_bt.Click
        清單修改.Close() : 行政物料 = True : 清單修改.ShowDialog() : ComboBox3下拉表單資料載入() : 行政物料 = False
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢月份_cb.SelectedIndexChanged
        KKK3 = 查詢月份_cb.Text
        KKKJJ3 = "AND (日期 LIKE N'" & KKK3 & "/" & KKK4 & "%') "
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢月份1_cb.SelectedIndexChanged
        KKK4 = 查詢月份1_cb.Text
        KKKJJ3 = "AND (日期 LIKE N'" & KKK3 & "/" & KKK4 & "%') "
    End Sub
    Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp
        If 明細_dgv.SelectedCells.Count = 1 Then
            已超出 = False
        End If
        If 明細_dgv.SelectedCells.Count > 0 Then
            '設定滑鼠點擊DGV時候的範圍，超出範圍時有可能不是數字所以不計算
            If 明細_dgv.SelectedCells(0).ColumnIndex = 4 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 明細_dgv.SelectedCells.Count - 1
                        '明細_dgv.SelectedCells.Item(i).ColumnIndex + 8 是因為該DGV顯示項與計算像剛好差8格，使用時要注意可直接計算的不需要加數字。
                        x += Val(明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
                    Next i
                    '將計算好的資料放置到指定的控件中
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                Else
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                End If
            Else
                已超出 = True
                WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub

End Class