MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/資料庫系統管理/系統通用變數管理.vb

Option Strict Off
Public Class 系統通用變數管理
    ReadOnly ds As New DataSet
    Dim EDR As Integer = 0 : Dim ESTR As String
    Private Sub Set_通用預設值一()
        關鍵字清單_dgv.DataSource = Nothing : ds.Clear()
        關鍵字清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        關鍵字清單_dgv.ColumnHeadersHeight = 25
        關鍵字清單_dgv.AllowUserToAddRows = False
        SQL_通用預設值管理清單一()
        da.Fill(ds) : 關鍵字清單_dgv.DataSource = ds.Tables(0) : conn.Close()
        關鍵字清單_dgv.Columns(0).FillWeight = 60 : 關鍵字清單_dgv.Columns(1).FillWeight = 100 : 關鍵字清單_dgv.Columns(2).FillWeight = 300 : 關鍵字清單_dgv.Columns(3).FillWeight = 100
    End Sub
    Private Sub 系統通用變數管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_通用預設值一()
    End Sub
    Private Sub DataGridView1_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 : 運用介面_tb.Text = 關鍵字清單_dgv(1, e.RowIndex).Value.ToString
            關鍵字說明_tb.Text = 關鍵字清單_dgv(2, e.RowIndex).Value.ToString : 關鍵字預設值.Text = 關鍵字清單_dgv(3, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub SET_新增按鈕程式共用2()
        CmdSet_For_dr() : Dim unused = MsgBox("新增完成") : conn.Close() : dr.Close()
    End Sub
    Private Sub SET_修改按鈕程式共用1()
        CmdSet_For_dr() : Dim unused = MsgBox("修改完成") : conn.Close()
    End Sub
    Private Sub SET_刪除按鈕程式共用1()
        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : ConnOpen() : CmdSet_For_dr() : MsgBox("刪除完成") : End If : conn.Close() : 式共用1()
    End Sub
    Private Sub 式共用1()
        Set_通用預設值一() : PA = ""
    End Sub
    Private Sub 式共用2()
        dr.Close() : ConnOpen()
    End Sub
    Private Sub 式共用3()
        ConnOpen()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 關鍵字_新增_bt.Click
        If 運用介面_tb.Text = "" Or 關鍵字說明_tb.Text = "" Or 關鍵字預設值.Text = "" Then : MsgBox("資料缺失，不可有空白")
        Else
            '----------------------自动生成流水号-------------------------------------------------------------------------
            SQL_系統通用變數管理流水號查詢()
            If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 3)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
            If EDR < 10 Then : ESTR = "DV" & "00" & EDR
            ElseIf EDR > 9 And EDR < 100 Then : ESTR = "DV" & "0" & EDR
            ElseIf EDR > 99 Then : ESTR = "DV" & EDR : End If : PA1 = ESTR : PA2 = 運用介面_tb.Text : PA3 = 關鍵字說明_tb.Text : PA4 = 關鍵字預設值.Text
            式共用2() : SQL_系統通用變數管理新增() : SET_新增按鈕程式共用2()
        End If : 式共用1()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 關鍵字_修改_bt.Click
        If 關鍵字編號_tb.Text = "" Or 關鍵字說明_tb.Text = "" Or 運用介面_tb.Text = "" Or 關鍵字預設值.Text = "" Then : MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA1 = 關鍵字編號_tb.Text : PA2 = 運用介面_tb.Text : PA3 = 關鍵字說明_tb.Text : PA4 = 關鍵字預設值.Text
            式共用3() : SQL_系統通用變數管理修改() : SET_修改按鈕程式共用1()
        End If : 式共用1()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 關鍵字_刪除_bt.Click
        PA1 = 關鍵字編號_tb.Text : SQL_系統通用變數管理刪除() : SET_刪除按鈕程式共用1()
    End Sub
End Class