GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/09、資料庫系統管理/系統開發用共享文件.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class 系統開發用共享文件
    ReadOnly ds8 As New DataSet
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds8.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds8) : 語言_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "系統開發用共享文件" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "我的電腦_lb" Then : 我的電腦_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "讀取料夾路徑_bt" Then : 讀取料夾路徑_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器FTP資料夾_lb" Then : 伺服器FTP資料夾_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub 系統開發用共享文件_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        H(710) = True : 介面 = "H710" : 語言轉換讀取()
        Target1 = Target & AA(3) & "/"
        WebBrowser1.Url = New Uri(Target1)
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H710" : 語言轉換讀取()
    End Sub
    Private Sub 系統開發用共享文件_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(710) = False
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        HX_PGS_ERP_SYS.Timer1.Enabled = False
        HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        HX_PGS_ERP_SYS.Timer1.Enabled = False
        HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
End Class