HX-PGS-ERP-SYS-SIU/06、業務管理系統/報價系統/合約係數新增.vb

Public Class 合約係數新增
    Dim ESTR As String
    Dim EDR As Integer
    Private Sub 合約係數新增_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        單位_cb.Text = "%"
    End Sub
    Private Sub 係數流水號()
        SQL_合約報價係數_最後一筆資料()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
        conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "CF" & "00000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "CF" & "0000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "CF" & "000000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "CF" & "00000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "CF" & "0000" & EDR : ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "CF" & "000" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CF" & "00" & EDR : ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "CF" & "0" & EDR
        ElseIf EDR > 99999999 Then : ESTR = "CF" & EDR : End If
        PA1 = ESTR
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        If 主項目_tb.Text = "" Then : MsgBox("主項目不可以是空白!!") : Else : PA2 = 主項目_tb.Text : PA4 = 單位_cb.Text
            係數流水號() : PA = "" : PA3 = 係數1_nud.Value : SQL_合約報價係數_新增() : 係數流水號() : PA = "廠房用" : PA3 = 係數1_nud.Value : SQL_合約報價係數_新增()
            係數流水號() : PA = "宿舍用" : PA3 = 係數2_nud.Value : SQL_合約報價係數_新增() : 係數流水號() : PA = "辦公樓用" : PA3 = 係數3_nud.Value : SQL_合約報價係數_新增()
            MsgBox("新項目與係數已加入到資料庫中!!") : Me.Close()
        End If
    End Sub
End Class