GF00-ERP-SYS-SIU/GF00-ERP-SYS/06.業務管理系統/公廟/快速加入.vb

Public Class 快速加入
    Private con() As TextBox
    Private phones() As TextBox
    Private addresses() As TextBox
    Private genders() As ComboBox
    Private zodiacs() As ComboBox

    Private Sub 快速加入_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        類別管理_cb_下拉表單資料載入()
        con = {客戶名稱1_tb, 客戶名稱2_tb, 客戶名稱3_tb, 客戶名稱4_tb, 客戶名稱5_tb}
        phones = {電話1_tb, 電話2_tb, 電話3_tb, 電話4_tb, 電話5_tb}
        addresses = {地址1_tb, 地址2_tb, 地址3_tb, 地址4_tb, 地址5_tb}
        genders = {性別1_cb, 性別2_cb, 性別3_cb, 性別4_cb, 性別5_cb}
        zodiacs = {生肖1_cb, 生肖2_cb, 生肖3_cb, 生肖4_cb, 生肖5_cb}
        For i As Integer = 0 To con.Length - 1
            con(i).Text = ""
            phones(i).Text = ""
            addresses(i).Text = ""
            genders(i).SelectedIndex = 0
            zodiacs(i).SelectedIndex = 0
        Next
    End Sub
    Private Sub 類別管理_cb_下拉表單資料載入()
        SQL_客戶資料表簡稱_下拉清單() : 客戶簡稱_cb.Items.Clear()
        客戶簡稱_cb.Items.Add("")
        While (dr.Read()) : 客戶簡稱_cb.Items.Add(dr("簡稱")) : End While : conn.Close()
        客戶簡稱_cb.SelectedIndex = 0
    End Sub

    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 客戶名稱1_tb.Text = "" And 客戶名稱2_tb.Text = "" And 客戶名稱3_tb.Text = "" And 客戶名稱4_tb.Text = "" And 客戶名稱5_tb.Text = "" Then
            MsgBox("未填入人員!!")
        Else
            If 客戶簡稱_cb.Text = "" Then
                SQL_客戶資料表_最後一筆資料1()
                If dr.Read() Then : 客戶簡稱_cb.Text = dr("簡稱").ToString : Else : 客戶簡稱_cb.Text = "GR000000" : End If
                conn.Close()
                Dim NUM1 As Integer
                NUM1 = Double.Parse(Strings.Right(客戶簡稱_cb.Text, 6)) + 1
                If NUM1 < 10 Then : 客戶簡稱_cb.Text = "GR" & "00000" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then : 客戶簡稱_cb.Text = "GR" & "0000" & NUM1
                ElseIf NUM1 > 99 And NUM1 < 1000 Then : 客戶簡稱_cb.Text = "GR" & "000" & NUM1
                ElseIf NUM1 > 999 And NUM1 < 10000 Then : 客戶簡稱_cb.Text = "GR" & "00" & NUM1
                ElseIf NUM1 > 9999 And NUM1 < 10000 Then : 客戶簡稱_cb.Text = "GR" & "0" & NUM1
                ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 客戶簡稱_cb.Text = "GR" & NUM1 : End If
            Else
                If 客戶簡稱_cb.Text.Substring(0, 2) = "GR" Then
                    SQL_群組編號_搜尋1()
                    If dr.Read() Then

                    Else
                        MsgBox("自定義群組編號不能以GR開頭") : conn.Close()
                        Return
                    End If
                Else
                    SQL_群組編號_搜尋1()
                    If dr.Read() Then
                        Dim result As DialogResult = MessageBox.Show("群組編號重複，是否加入該群組?", "重複群組編號", MessageBoxButtons.YesNo)
                        conn.Close()
                        If result = DialogResult.Yes Then
                        Else
                            Return
                        End If
                    End If
                    conn.Close()
                End If
            End If
            ' 循环处理每个控件
            For i As Integer = 0 To con.Length - 1
                If con(i).Text <> "" Then
                    Set_流水號()
                    PA31 = 客戶簡稱_cb.Text
                    PA32 = con(i).Text
                    PA33 = phones(i).Text
                    PA34 = addresses(i).Text
                    PA35 = genders(i).Text
                    PA36 = zodiacs(i).Text
                    SQL_快速加入_客戶資料表新增()
                    conn.Close()
                End If
            Next
            連動模組.ReceiveDataFromPageB(客戶簡稱_cb.Text)
            MsgBox("加入成功!!") : Me.Close()
        End If
    End Sub

    Private Sub Set_流水號()
        SQL_客戶資料表_最後一筆資料()
        If dr.Read() Then : PA30 = dr("流水號").ToString : Else : PA30 = "P0000000" : End If
        conn.Close()
        Dim NUM1 As Integer
        NUM1 = Double.Parse(Strings.Right(PA30, 7)) + 1
        If NUM1 < 10 Then : PA30 = "P" & "000000" & NUM1
        ElseIf NUM1 > 9 And NUM1 < 100 Then : PA30 = "P" & "00000" & NUM1
        ElseIf NUM1 > 99 And NUM1 < 1000 Then : PA30 = "P" & "0000" & NUM1
        ElseIf NUM1 > 999 And NUM1 < 10000 Then : PA30 = "P" & "000" & NUM1
        ElseIf NUM1 > 9999 And NUM1 < 10000 Then : PA30 = "P" & "00" & NUM1
        ElseIf NUM1 > 99999 And NUM1 < 100000 Then : PA30 = "P" & "0" & NUM1
        ElseIf NUM1 > 999999 Then : PA30 = "P" & NUM1 : End If
    End Sub
End Class