GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/舊功能/財務系統管理/零用金支付單系統/零用金支付申請.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class 零用金支付申請
    ReadOnly conn As New SqlConnection
    ReadOnly da As New SqlDataAdapter
    ReadOnly cmd As New SqlCommand
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
    Dim dr As SqlDataReader
    Dim DTP As String : Dim DTP1 As String : Dim 新項次 As String
    Dim NUM1 As Integer
    Private Sub Set_清單1()
        DataGridView2.DataSource = Nothing : ds1.Clear()
        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView2.ColumnHeadersHeight = 50
        DataGridView2.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        If 登入人部門 = "NA" Then
            SQL1 = "SELECT 流水號 AS [Nomor Seri], 部門 AS Departemen, 申請人 AS Pemohon, LEFT(申請日期, 10) AS [Tanggal Aplikasi], 審核人 AS Peninjau, LEFT(審核日期, 10) AS [Tanggal Peninjau], 
                    核准人 AS Setuju, LEFT(核准日期, 10) AS [Tanggal Setuju] FROM 零用金支付表 WHERE (審核人 LIKE N'') ORDER BY 流水號 DESC"
        Else
            SQL1 = "SELECT 流水號 AS [Nomor Seri], 部門 AS Departemen, 申請人 AS Pemohon, LEFT(申請日期, 10) AS [Tanggal Aplikasi], 審核人 AS Peninjau, LEFT(審核日期, 10) AS [Tanggal Peninjau], 
                    核准人 AS Setuju, LEFT(核准日期, 10) AS [Tanggal Setuju] FROM 零用金支付表 WHERE (申請人 LIKE N'" & gUserName & "') AND (審核人 LIKE N'') ORDER BY 流水號 DESC"
        End If
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close() : Set_grid1()
    End Sub
    Private Sub Set_grid1()
        DataGridView2.Columns(0).FillWeight = 120 : DataGridView2.Columns(1).FillWeight = 115 : DataGridView2.Columns(2).FillWeight = 170 : DataGridView2.Columns(3).FillWeight = 80
        DataGridView2.Columns(4).Visible = False : DataGridView2.Columns(5).FillWeight = 80 : DataGridView2.Columns(6).Visible = False : DataGridView2.Columns(7).Visible = False
    End Sub
    Private Sub Set_清單2()
        DataGridView3.DataSource = Nothing : ds2.Clear()
        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView3.ColumnHeadersHeight = 50
        DataGridView3.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        If 登入人部門 = "NA" Then
            SQL1 = "SELECT 流水號 AS [Nomor Seri], 部門 AS Departemen, 申請人 AS Pemohon, LEFT(申請日期, 10) AS [Tanggal Aplikasi], 審核人 AS Peninjau, LEFT(審核日期, 10) AS [Tanggal Peninjau], 
                    核准人 AS Setuju, LEFT(核准日期, 10) AS [Tanggal Setuju] FROM 零用金支付表 WHERE (審核人 LIKE N'作廢%') ORDER BY 流水號 DESC"
        Else
            SQL1 = "SELECT 流水號 AS [Nomor Seri], 部門 AS Departemen, 申請人 AS Pemohon, LEFT(申請日期, 10) AS [Tanggal Aplikasi], 審核人 AS Peninjau, LEFT(審核日期, 10) AS [Tanggal Peninjau], 
                    核准人 AS Setuju, LEFT(核准日期, 10) AS [Tanggal Setuju] FROM 零用金支付表 WHERE (申請人 LIKE N'" & gUserName & "') AND (審核人 LIKE N'作廢%') ORDER BY 流水號 DESC"
        End If
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close() : Set_grid2()
    End Sub
    Private Sub Set_grid2()
        DataGridView3.Columns(0).FillWeight = 120 : DataGridView3.Columns(1).FillWeight = 115 : DataGridView3.Columns(2).FillWeight = 170 : DataGridView3.Columns(3).FillWeight = 80
        DataGridView3.Columns(4).Visible = False : DataGridView3.Columns(5).FillWeight = 80 : DataGridView3.Columns(6).Visible = False : DataGridView3.Columns(7).Visible = False
    End Sub
    Private Sub Set_清單3()
        DataGridView4.DataSource = Nothing : ds3.Clear()
        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView4.ColumnHeadersHeight = 50
        DataGridView4.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        If 登入人部門 = "NA" Then
            SQL1 = "SELECT 流水號 AS [Nomor Seri], 部門 AS Departemen, 申請人 AS Pemohon, LEFT(申請日期, 10) AS [Tanggal Aplikasi], 審核人 AS Peninjau, LEFT(審核日期, 10) AS [Tanggal Peninjau], 
                    核准人 AS Setuju, LEFT(核准日期, 10) AS [Tanggal Setuju] FROM 零用金支付表 WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'') ORDER BY 流水號 DESC"
        Else
            SQL1 = "SELECT 流水號 AS [Nomor Seri], 部門 AS Departemen, 申請人 AS Pemohon, LEFT(申請日期, 10) AS [Tanggal Aplikasi], 審核人 AS Peninjau, LEFT(審核日期, 10) AS [Tanggal Peninjau], 
                    核准人 AS Setuju, LEFT(核准日期, 10) AS [Tanggal Setuju] FROM 零用金支付表 
                    WHERE (申請人 LIKE N'" & gUserName & "') AND (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'') ORDER BY 流水號 DESC"
        End If
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close() : Set_grid3()
    End Sub
    Private Sub Set_grid3()
        DataGridView4.Columns(0).FillWeight = 120 : DataGridView4.Columns(1).FillWeight = 115 : DataGridView4.Columns(2).FillWeight = 170 : DataGridView4.Columns(3).FillWeight = 80
        DataGridView4.Columns(4).Visible = False : DataGridView4.Columns(5).FillWeight = 80 : DataGridView4.Columns(6).Visible = False : DataGridView4.Columns(7).Visible = False
    End Sub
    Private Sub Set_清單4()
        DataGridView5.DataSource = Nothing : ds4.Clear()
        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView5.ColumnHeadersHeight = 50
        DataGridView5.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        If 登入人部門 = "NA" Then
            SQL1 = "SELECT 流水號 AS [Nomor Seri], 部門 AS Departemen, 申請人 AS Pemohon, LEFT(申請日期, 10) AS [Tanggal Aplikasi], 審核人 AS Peninjau, LEFT(審核日期, 10) AS [Tanggal Peninjau], 
                    核准人 AS Setuju, LEFT(核准日期, 10) AS [Tanggal Setuju] FROM 零用金支付表 WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'作廢%') ORDER BY 流水號 DESC"
        Else
            SQL1 = "SELECT 流水號 AS [Nomor Seri], 部門 AS Departemen, 申請人 AS Pemohon, LEFT(申請日期, 10) AS [Tanggal Aplikasi], 審核人 AS Peninjau, LEFT(審核日期, 10) AS [Tanggal Peninjau], 
                    核准人 AS Setuju, LEFT(核准日期, 10) AS [Tanggal Setuju] FROM 零用金支付表 
                    WHERE (申請人 LIKE N'" & gUserName & "') AND (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'作廢%') ORDER BY 流水號 DESC"
        End If
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close() : Set_grid4()
    End Sub
    Private Sub Set_grid4()
        DataGridView5.Columns(0).FillWeight = 120 : DataGridView5.Columns(1).FillWeight = 115 : DataGridView5.Columns(2).FillWeight = 170 : DataGridView5.Columns(3).FillWeight = 80
        DataGridView5.Columns(4).Visible = False : DataGridView5.Columns(5).Visible = False : DataGridView5.Columns(6).Visible = False : DataGridView5.Columns(7).FillWeight = 80
    End Sub
    Private Sub Set_零用金清單()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.RowTemplate.Height = 35
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT 流水號, 項次 AS Item, 用途 AS Konten, 金額 AS Jumlah, 備註 AS Komentar FROM 零用金支付明細 WHERE 流水號 LIKE N'" & TextBox1.Text & "' ORDER BY 項次"
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()

        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 538 : DataGridView1.Columns(3).FillWeight = 140
        DataGridView1.Columns(4).FillWeight = 537
        DataGridView1.Columns(3).DefaultCellStyle.Format = "#,##0"
        DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter

        TextBox5.Text = "0"
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("Jumlah").Value
        Next i
        TextBox5.Text = Format(Val(TextBox5.Text), "#,##0")
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        conn.Close()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT 品項 FROM 零用金支付品項 ORDER BY 品項"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        ComboBox1.Items.Clear()
        While (dr.Read())
            ComboBox1.Items.Add(dr("品項"))
        End While
        conn.Close()
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "HH:mm:ss") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub 零用金支付申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        RadioButton1.Checked = True
        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False : TextBox5.Enabled = False
        Label4.Visible = True : Label5.Visible = False : Label6.Visible = False : Label7.Visible = False
        DataGridView2.Visible = True : DataGridView3.Visible = False : DataGridView4.Visible = False : DataGridView5.Visible = False
        ComboBox1下拉表單資料載入() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        HX_PGS_ERP_SYS.Timer1.Enabled = False
        HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        HX_PGS_ERP_SYS.Timer1.Enabled = False
        HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellClick
        If e.RowIndex = -1 Then : Else
            PA = DataGridView2(0, e.RowIndex).Value.ToString : PA1 = DataGridView2(1, e.RowIndex).Value.ToString : PA2 = DataGridView2(2, e.RowIndex).Value.ToString
            TextBox1.Text = PA : TextBox2.Text = PA1 : TextBox3.Text = PA2 : Set_零用金清單()
        End If
    End Sub
    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView3.CellClick
        If e.RowIndex = -1 Then : Else
            PA = DataGridView3(0, e.RowIndex).Value.ToString : PA1 = DataGridView3(1, e.RowIndex).Value.ToString : PA2 = DataGridView3(2, e.RowIndex).Value.ToString
            TextBox1.Text = PA : TextBox2.Text = PA1 : TextBox3.Text = PA2 : Set_零用金清單()
        End If
    End Sub
    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView4.CellClick
        If e.RowIndex = -1 Then : Else
            PA = DataGridView4(0, e.RowIndex).Value.ToString : PA1 = DataGridView4(1, e.RowIndex).Value.ToString : PA2 = DataGridView4(2, e.RowIndex).Value.ToString
            TextBox1.Text = PA : TextBox2.Text = PA1 : TextBox3.Text = PA2 : Set_零用金清單()
        End If
    End Sub
    Private Sub DataGridView5_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView5.CellClick
        If e.RowIndex = -1 Then : Else
            PA = DataGridView5(0, e.RowIndex).Value.ToString : PA1 = DataGridView5(1, e.RowIndex).Value.ToString : PA2 = DataGridView5(2, e.RowIndex).Value.ToString
            TextBox1.Text = PA : TextBox2.Text = PA1 : TextBox3.Text = PA2 : Set_零用金清單()
        End If
    End Sub
    Private Sub RadioButton切換狀態1()
        開立零用金支付單ToolStripMenuItem.Enabled = True : Button2.Enabled = True : 新增一筆資料ToolStripMenuItem.Enabled = True
        刪除支付單中選中的資料ToolStripMenuItem.Enabled = True : 刪除選中的零用金支付單ToolStripMenuItem.Enabled = True
        DataGridView1.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = ""
        ComboBox1下拉表單資料載入()
    End Sub
    Private Sub RadioButton切換狀態2()
        開立零用金支付單ToolStripMenuItem.Enabled = False : Button2.Enabled = False : 新增一筆資料ToolStripMenuItem.Enabled = False
        刪除支付單中選中的資料ToolStripMenuItem.Enabled = False : 刪除選中的零用金支付單ToolStripMenuItem.Enabled = False
        DataGridView1.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = ""
        ComboBox1下拉表單資料載入()
    End Sub
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
        RadioButton1.Checked = True : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False
        Label4.Visible = True : Label5.Visible = False : Label6.Visible = False : Label7.Visible = False
        DataGridView2.Visible = True : DataGridView3.Visible = False : DataGridView4.Visible = False : DataGridView5.Visible = False
        RadioButton切換狀態1()
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.Click
        RadioButton1.Checked = False : RadioButton2.Checked = True : RadioButton3.Checked = False : RadioButton4.Checked = False
        Label4.Visible = False : Label5.Visible = True : Label6.Visible = False : Label7.Visible = False
        DataGridView2.Visible = False : DataGridView3.Visible = True : DataGridView4.Visible = False : DataGridView5.Visible = False
        RadioButton切換狀態2()
    End Sub
    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.Click
        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = True : RadioButton4.Checked = False
        Label4.Visible = False : Label5.Visible = False : Label6.Visible = True : Label7.Visible = False
        DataGridView2.Visible = False : DataGridView3.Visible = False : DataGridView4.Visible = True : DataGridView5.Visible = False
        RadioButton切換狀態2()
    End Sub
    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.Click
        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = True
        Label4.Visible = False : Label5.Visible = False : Label6.Visible = False : Label7.Visible = True
        DataGridView2.Visible = False : DataGridView3.Visible = False : DataGridView4.Visible = False : DataGridView5.Visible = True
        RadioButton切換狀態2()
    End Sub
    Private Sub 存檔()
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "UPDATE 零用金支付明細 SET  用途 = N'" & DataGridView1.Rows(i).Cells("Konten").Value & "', 金額 = N'" & DataGridView1.Rows(i).Cells("Jumlah").Value &
                   "', 備註 = N'" & DataGridView1.Rows(i).Cells("Komentar").Value & "' WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & DataGridView1.Rows(i).Cells("Item").Value & "')"
            cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
        Next
        HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Enabled = False : Label62.Visible = False
        存檔()
        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
        MsgBox("申請完成，請通知主管審核。 Application completed, please inform the supervisor for review.")
    End Sub
    Private Sub 開立零用金支付單()
        Timer1.Enabled = True
        Set_日期格式轉換() : Dim NUM1 As Integer
        For i As Integer = 1 To 999
            NUM1 = 0 + i
            If NUM1 < 10 Then : TextBox1.Text = "PC-" & DTP1 & "-00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox1.Text = "PC-" & DTP1 & "-0" & NUM1
            ElseIf NUM1 > 99 Then : TextBox1.Text = "PC-" & DTP1 & "-" & NUM1
            End If
            conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT TOP (1)  流水號 FROM 零用金支付表 WHERE ( 流水號 LIKE N'" & TextBox1.Text & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
        Next
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "INSERT INTO 零用金支付表 (流水號, 部門, 申請人, 申請日期, 審核人, 審核日期, 核准人, 核准日期, 會計, 作帳日期, 出納, 出納日期, 核准圖檔, 簽名編碼, 備註) " &
               "VALUES (N'" & TextBox1.Text & "',N'" & 登入人部門 & "-" & 登入人課別 & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'')"
        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        TextBox2.Text = 登入人部門 & "-" & 登入人課別 : TextBox3.Text = gUserName
    End Sub
    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
    End Sub
    Private Sub 開立零用金支付單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開立零用金支付單ToolStripMenuItem.Click
        開立零用金支付單()
        DataGridView1.DataSource = Nothing : ds.Clear()
        conn.Close()
    End Sub
    Private Sub 刪除選中的零用金支付單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除選中的零用金支付單ToolStripMenuItem.Click
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料? Are you sure you want to delete this data?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "DELETE FROM 零用金支付表 WHERE (流水號 LIKE N'" & TextBox1.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & TextBox1.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
            TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = ""
            DataGridView1.DataSource = Nothing : ds.Clear()
        End If
    End Sub
    Private Sub 刪除支付單中選中的資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除支付單中選中的資料ToolStripMenuItem.Click
        If TextBox4.Text = "" Then
            MsgBox("未選擇需要刪除的資料。 No data to be deleted selected.")
        Else
            存檔()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & TextBox4.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
            Set_零用金清單()
            Dim NUM1 As Integer = 0
            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                SQL1 = "UPDATE 零用金支付明細 SET 項次 = N'" & 新項次 & "' WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & DataGridView1.Rows(i).Cells("Item").Value & "')"
                cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                conn.Close()
            Next
            Set_零用金清單()
        End If
    End Sub
    Private Sub 新增一筆資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增一筆資料ToolStripMenuItem.Click
        If ComboBox1.Text = "" Then
            MsgBox("沒有選擇用途。/Tidak ada data yang dipilih。")
        Else
            If TextBox1.Text = "" Then
                開立零用金支付單()
            End If

            存檔()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT TOP(1) 項次 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & TextBox1.Text & "' ORDER BY 項次 DESC"
            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
            NUM1 = Double.Parse(新項次) + 1
            If NUM1 < 10 Then : 新項次 = "0" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1
            End If
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "INSERT INTO 零用金支付明細 (流水號, 用途, 金額, 備註, 項次) " &
                   "VALUES (N'" & TextBox1.Text & "',N'" & ComboBox1.Text & "',N'0',N'',N'" & 新項次 & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
            Set_零用金清單() : ComboBox1下拉表單資料載入()
        End If
    End Sub
    Private Sub 申請完成ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 申請完成ToolStripMenuItem.Click
        Me.Button2.PerformClick()
    End Sub
End Class