GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/09、資料庫系統管理/特別功能.vb

Public Class 特別功能
    ReadOnly ds2 As New DataSet
    Private Sub Set_介面()
        介面_dgv.DataSource = Nothing : ds2.Clear()
        介面_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        介面_dgv.ColumnHeadersHeight = 25
        介面_dgv.AllowUserToAddRows = False
        SQL_特別功能_介面一()
        da.Fill(ds2) : 介面_dgv.DataSource = ds2.Tables(0) : conn.Close()
    End Sub
    Private Sub 特別功能_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_介面()
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        For i As Integer = 0 To 介面_dgv.Rows.Count - 1
            資料數 = 介面_dgv.Rows.Count : MyModule1.進度條()
            PA10 = 介面_dgv("內容", i).Value.ToString : PA9 = 介面_dgv("介面", i).Value.ToString : PA8 = 介面_dgv("控件", i).Value.ToString
            SQL_特別功能_修改一()
        Next i : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        Set_介面()
    End Sub
End Class