GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/09.資料庫系統管理/系統編碼規則.vb

Imports System.IO
Public Class 系統編碼規則
    Dim 對話框(12) As String
    Private Sub Set_年度清單()
        Dim ds6 As New DataSet
        年份_dgv.DataSource = Nothing : ds6.Clear()
        年份_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        年份_dgv.ColumnHeadersHeight = 25
        年份_dgv.AllowUserToAddRows = False
        SQL_年份()
        da.Fill(ds6) : 年份_dgv.DataSource = ds6.Tables(0) : conn.Close()
        年份_dgv.Columns(0).FillWeight = 100
    End Sub
    Private Sub Set_公司清單()
        Dim ds6 As New DataSet
        公司編號_dgv.DataSource = Nothing : ds6.Clear()
        公司編號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        公司編號_dgv.ColumnHeadersHeight = 25
        公司編號_dgv.AllowUserToAddRows = False
        SQL_公司編號()
        da.Fill(ds6) : 公司編號_dgv.DataSource = ds6.Tables(0) : conn.Close()
        公司編號_dgv.Columns(0).FillWeight = 100
    End Sub

    Private Sub Set_稱謂()
        SQL_公司稱謂()
        If dr.Read() Then
            編號1_tb.Text = If(Not IsDBNull(dr("編號一")), dr("編號一").ToString(), "")
            編號2_tb.Text = If(Not IsDBNull(dr("編號二")), dr("編號二").ToString(), "")
            編號3_tb.Text = If(Not IsDBNull(dr("編號三")), dr("編號三").ToString(), "")
            編號4_tb.Text = If(Not IsDBNull(dr("編號四")), dr("編號四").ToString(), "")
            編號5_tb.Text = If(Not IsDBNull(dr("編號五")), dr("編號五").ToString(), "")
            編號6_tb.Text = If(Not IsDBNull(dr("編號六")), dr("編號六").ToString(), "")
            編號7_tb.Text = If(Not IsDBNull(dr("編號七")), dr("編號七").ToString(), "")
        End If
        SQL_公司稱謂1()
        If dr.Read() Then
            編號11_tb.Text = If(Not IsDBNull(dr("編號一")), dr("編號一").ToString(), "")
            編號12_tb.Text = If(Not IsDBNull(dr("編號二")), dr("編號二").ToString(), "")
            編號13_tb.Text = If(Not IsDBNull(dr("編號三")), dr("編號三").ToString(), "")
            編號14_tb.Text = If(Not IsDBNull(dr("編號四")), dr("編號四").ToString(), "")
            編號15_tb.Text = If(Not IsDBNull(dr("編號五")), dr("編號五").ToString(), "")
            編號16_tb.Text = If(Not IsDBNull(dr("編號六")), dr("編號六").ToString(), "")
            編號17_tb.Text = If(Not IsDBNull(dr("編號七")), dr("編號七").ToString(), "")
        End If
    End Sub

    Private Sub 系統編碼規則_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        介面 = "H706" : 載入系統語言()
        Set_年度清單() : Set_公司清單() : Set_稱謂() ' Set_倉儲明細除錯() : Set_請購控制表除錯() : Set_倉儲分區控制表除錯() : Set_明細表除錯()
        SQL_讀取公司名稱()
        If dr.Read() Then
            公司名稱_tb.Text = dr("公司名稱")
        End If
        If 公司 = True Then
        Else
            GroupBox1.Visible = False
        End If
        conn.Close()
    End Sub
    Private Sub 載入系統語言()
        表頭(163) = "年份" : 對話框(0) = "新增完成!!" : 對話框(1) = "刪除完成!!" : 對話框(2) = "存檔完成!!" : 對話框(3) = "輸入資料有誤!!"
        對話框(5) = "沒有輸入修改內容!!" : 對話框(6) = "確定要刪除該筆資料?" : 對話框(7) = "請輸入要修改的內容!!" : 對話框(8) = "資料重複，請重新輸入或檢查!!"
    End Sub

    Private Sub 公司新增_bt_Click(sender As Object, e As EventArgs) Handles 公司新增_bt.Click
        If 公司編號_tb.Text = "" Then : MGB(對話框(3), 1)
        Else : 式共用3() : SQL_公司新增查詢() : CmdSet_For_dr()
            If dr.Read() Then : MGB(對話框(8), 1) : conn.Close() : dr.Close() : Else : 式共用2() : SQL_公司新增() : SET_新增按鈕程式共用2() : End If
        End If : 式共用1()
    End Sub

    Private Sub 公司修改_bt_Click(sender As Object, e As EventArgs) Handles 公司修改_bt.Click
        If 公司編號_tb.Text = "" Then : MGB(對話框(3), 1)
        Else : INB(對話框(7)) : PA = 訊息回應
            If PA = "" Then : MGB(對話框(5), 1) : Else : 式共用3() : SQL_公司修改() : SET_修改按鈕程式共用1() : End If
        End If : 式共用1()
    End Sub

    Private Sub 公司刪除_bt_Click(sender As Object, e As EventArgs) Handles 公司刪除_bt.Click
        SQL_公司刪除() : SET_刪除按鈕程式共用1()
    End Sub

    Private Sub 公司編號_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 公司編號_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 公司編號_tb.Text = 公司編號_dgv(0, e.RowIndex).Value.ToString : End If
    End Sub
    Private Sub 年份新增_bt_Click(sender As Object, e As EventArgs) Handles 年份新增_bt.Click
        If 年份_tb.Text = "" Then : MGB(對話框(3), 1)
        Else : 式共用3() : SQL_年份新增查詢() : CmdSet_For_dr()
            If dr.Read() Then : MGB(對話框(8), 1) : conn.Close() : dr.Close() : Else : 式共用2() : SQL_年份新增() : SET_新增按鈕程式共用2() : End If
        End If : 式共用1()
    End Sub
    Private Sub 年份修改_bt_Click(sender As Object, e As EventArgs) Handles 年份修改_bt.Click
        If 年份_tb.Text = "" Then : MGB(對話框(3), 1)
        Else : INB(對話框(7)) : PA = 訊息回應
            If PA = "" Then : MGB(對話框(5), 1) : Else : 式共用3() : SQL_年份修改() : SET_修改按鈕程式共用1() : End If
        End If : 式共用1()
    End Sub
    Private Sub 年份刪除_bt_Click(sender As Object, e As EventArgs) Handles 年份刪除_bt.Click
        SQL_年份刪除() : SET_刪除按鈕程式共用1()
    End Sub
    Private Sub 年份_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 年份_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 年份_tb.Text = 年份_dgv(0, e.RowIndex).Value.ToString : End If
    End Sub
    Private Sub SET_新增按鈕程式共用2()
        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : MGB(對話框(0), 1) : conn.Close() : dr.Close()
    End Sub
    Private Sub SET_修改按鈕程式共用1()
        cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : MGB(對話框(2), 1)
        conn.Close()
    End Sub
    Private Sub SET_刪除按鈕程式共用1()
        cmd.CommandText = SQL1 : cmd.Connection = conn
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        MGB(對話框(6), 2) : If 訊息回應 = "YES" Then : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : MGB(對話框(1), 1)
        End If : conn.Close() : 式共用1()
    End Sub
    Private Sub 式共用1()
        Set_年度清單() : Set_公司清單() : PA = ""
    End Sub
    Private Sub 式共用2()
        conn.Close() : dr.Close()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub 式共用3()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub

    Private Sub 公司名稱修改_tb_Click(sender As Object, e As EventArgs) Handles 公司名稱修改_tb.Click
        If 公司名稱_tb.Text = "" Then : MsgBox("未輸入公司名稱")
        Else
            SQL_修改公司名稱() : MsgBox("修改完成")
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SQL_公司稱謂()
        If dr.Read() Then
            SQL_修改公司稱謂() : MsgBox("儲存成功!!")
        Else
            SQL_新增公司稱謂() : MsgBox("新增成功!!")
        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SQL_公司稱謂1()
        If dr.Read() Then
            SQL_修改公司稱謂1() : MsgBox("儲存成功!!")
        Else
            SQL_新增公司稱謂1() : MsgBox("新增成功!!")
        End If
    End Sub
End Class