GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/06.業務管理系統/公廟/信眾燈位編輯.vb

Imports MediaFoundation

Public Class 信眾燈位編輯
    Private Sub 信眾燈位編輯_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Panel1.BringToFront()
    End Sub
    Private Sub 信眾燈位編輯_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        查詢物_bt.PerformClick()
    End Sub
    Private Sub 信眾燈位編輯_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        燈位基本資料.年度_cb.Enabled = True
        控制單號_tb.Text = "" : 姓名_tb.Text = "" : 燈種_bt.Text = "" : 金額_bt.Text = "0" : 年度_tb.Text = ""
        殿_tb.Text = "" : 區編_tb.Text = "" : 牆位_bt.Text = "" : 列位_tb.Text = "" : 層位_bt.Text = ""
    End Sub
    Private Sub 查詢物_bt_Click(sender As Object, e As EventArgs) Handles 查詢物_bt.Click
        If 姓名_tb.Text <> "" And 姓名_tb.Text <> PA27 And PA27 <> "" Then : 姓名_tb.Text = "" : 流水號_bt.Text = "" : End If
        If 流水號_bt.Text = "" Then : 流水號_bt.Text = PA20 : End If
        If 流水號_bt.Text <> "" And 姓名_tb.Text = "" Then
            SQL_點燈明細查詢()
            If dr.Read Then
                控制單號_tb.Text = dr("控制表單號").ToString : 姓名_tb.Text = dr("姓名").ToString
                燈種_bt.Text = dr("燈種").ToString : 金額_bt.Text = String.Format(CInt(dr("金額").ToString), "#,##0")
                年度_tb.Text = dr("年度").ToString : 殿_tb.Text = PA23 : 區編_tb.Text = PA24 : 牆位_bt.Text = PA25
                性別_tb.Text = dr("負責人").ToString : 生肖_tb.Text = dr("負責人電話").ToString
                列位_tb.Text = Strings.Mid(PA21, 9, 3) : 層位_bt.Text = Strings.Right(PA21, 2)
                If 控制單號_tb.Text = "" Then : 資料_bt.Text = "人工輸入" : Else : 資料_bt.Text = "系統建立" : End If
                姓名_tb.ReadOnly = True : 金額_bt.ReadOnly = True
                殿1_tb.Text = "" : 區編1_tb.Text = "" : 牆位1_bt.Text = "" : 列位1_tb.Text = "" : 層位1_bt.Text = "" : 燈種1_bt.Text = ""
            End If
        ElseIf 流水號_bt.Text <> "" And 姓名_tb.Text <> "" And PA27 = "" Then
            殿1_tb.Text = PA23 : 區編1_tb.Text = PA24 : 牆位1_bt.Text = PA25 : 燈種1_bt.Text = PA26
            列位1_tb.Text = Strings.Mid(PA21, 9, 3) : 層位1_bt.Text = Strings.Right(PA21, 2)
        ElseIf 流水號_bt.Text <> "" And 姓名_tb.Text <> "" And 姓名_tb.Text = PA27 Then
            殿1_tb.Text = "" : 區編1_tb.Text = "" : 牆位1_bt.Text = "" : 列位1_tb.Text = "" : 層位1_bt.Text = "" : 燈種1_bt.Text = ""
        ElseIf (流水號_bt.Text = "" And 姓名_tb.Text = "") Or (流水號_bt.Text = "" And 姓名_tb.Text <> "") Then
            流水號_bt.Text = "" : 控制單號_tb.Text = "" : 燈種_bt.Text = PA26 : 殿_tb.Text = PA23
            區編_tb.Text = PA24 : 金額_bt.Text = PA28 : 年度_tb.Text = PA22 : 牆位_bt.Text = PA25
            列位_tb.Text = Strings.Mid(PA21, 9, 3) : 層位_bt.Text = Strings.Right(PA21, 2)
            If 控制單號_tb.Text = "" Then : 資料_bt.Text = "人工輸入" : Else : 資料_bt.Text = "系統建立" : End If
            姓名_tb.ReadOnly = False : 金額_bt.ReadOnly = False
            殿1_tb.Text = "" : 區編1_tb.Text = "" : 牆位1_bt.Text = "" : 列位1_tb.Text = "" : 層位1_bt.Text = "" : 燈種1_bt.Text = ""
        End If
    End Sub
    Private Sub 金額_bt_TextChanged(sender As Object, e As EventArgs) Handles 金額_bt.TextChanged
        Dim 負數 As Boolean : If 金額_bt.Text = "-" Then : 負數 = True : Else : 負數 = False : End If
        If 金額_bt.Text = "" Or 金額_bt.Text = "-" Then : Else
            Dim userInput As String = 金額_bt.Text : Dim cleanedInput As String = userInput.Replace(",", "") : Dim numericValue As Double = Val(cleanedInput)
            If 負數 = True Then : numericValue = -numericValue : End If
            If numericValue <> 0 Then : 金額_bt.Text = Strings.Format(numericValue, "#,##0") : 金額_bt.SelectionStart = 金額_bt.Text.Length
            Else : 金額_bt.Text = "0" : 金額_bt.SelectionStart = 金額_bt.Text.Length : End If
        End If
    End Sub
    Private Sub 儲存_bt_Click(sender As Object, e As EventArgs) Handles 儲存_bt.Click
        If 姓名_tb.Text = "" Then : MsgBox("沒有信眾資料沒有辦法存檔!!") : Else
            If 流水號_bt.Text = "" Then
                Dim 流水號 As String = "" : Dim 流水 As Integer : SQL_點燈流水號()
                If dr.Read() Then : 流水 = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : 流水 = 0 : End If : conn.Close() : 流水 += 1
                If 流水 < 10 Then : 流水號 = "D" & "0000000" & 流水
                ElseIf 流水 > 9 And 流水 < 100 Then : 流水號 = "D" & "000000" & 流水
                ElseIf 流水 > 99 And 流水 < 1000 Then : 流水號 = "D" & "00000" & 流水
                ElseIf 流水 > 999 And 流水 < 10000 Then : 流水號 = "D" & "0000" & 流水
                ElseIf 流水 > 9999 And 流水 < 100000 Then : 流水號 = "D" & "000" & 流水
                ElseIf 流水 > 99999 And 流水 < 1000000 Then : 流水號 = "D" & "00" & 流水
                ElseIf 流水 > 999999 And 流水 < 10000000 Then : 流水號 = "D" & "0" & 流水
                ElseIf 流水 > 9999999 Then : 流水號 = "D" & 流水 : End If : PA7 = 流水號
                PA1 = "" : PA2 = 姓名_tb.Text : PA3 = 燈種_bt.Text : PA4 = 金額_bt.Text : PA6 = 年度_tb.Text
                PA5 = 殿_tb.Text & "-" & 區編_tb.Text & "-" & 牆位_bt.Text & "-" & 列位_tb.Text & "-" & 層位_bt.Text
                SQL_點燈明細新增()
            Else
                PA7 = 流水號_bt.Text : PA2 = 姓名_tb.Text : PA3 = 燈種1_bt.Text : PA4 = 金額_bt.Text : PA6 = 年度_tb.Text
                PA5 = 殿1_tb.Text & "-" & 區編1_tb.Text & "-" & 牆位1_bt.Text & "-" & 列位1_tb.Text & "-" & 層位1_bt.Text
                SQL_點燈明細修改()
            End If : MsgBox("存檔完成!!") : 燈位基本資料.執行1_bt.PerformClick()
        End If
    End Sub
    Private Sub 客戶查詢_bt_Click(sender As Object, e As EventArgs) Handles 客戶查詢_bt.Click
        通知訊息 = "請輸入信眾的 [姓名]、[電話]、[住址] 的關鍵字來進行查詢!!" : 查詢視窗.ShowDialog() : PA57 = 訊息回應
        連動模組.SetCallingPage("信眾燈位編輯") : 連動模組.ShowDialog() : 連動模組.BringToFront()
    End Sub
    Public Sub ReceiveDataFromPageB(ByVal data As String, ByVal data1 As String, ByVal data2 As String, ByVal data3 As String)
        ' 在這裡處理從頁面B接收到的數據，將其設定到頁面A的TextBox中
        姓名_tb.Text = data : 性別_tb.Text = data1 : 生肖_tb.Text = data2
        PA10 = data3 : PA11 = data
    End Sub


End Class