GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/資料庫系統管理/系統編碼原則_1.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class 系統編碼原則_1
    ReadOnly conn As New SqlConnection
    ReadOnly da As New SqlDataAdapter
    ReadOnly cmd As New SqlCommand
    ReadOnly ds2 As New DataSet
    ReadOnly ds9 As New DataSet
    Dim dr As SqlDataReader
    Private Sub Set_DGV3載入前設定()
        DataGridView3.DataSource = Nothing : ds2.Clear()
        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView3.ColumnHeadersHeight = 25
        DataGridView3.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV3載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close() : Set_grid2()
    End Sub
    Private Sub Set_客户清單()
        Set_DGV3載入前設定()
        SQL1 = "SELECT 客户 FROM  客戶清單"
        Set_DGV3載入後設定()
    End Sub
    Private Sub Set_grid2()
        DataGridView3.Columns(0).Width = 100
    End Sub
    Private Sub Set_DGV5載入前設定()
        DataGridView10.DataSource = Nothing : ds9.Clear()
        DataGridView10.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView10.ColumnHeadersHeight = 25
        DataGridView10.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV5載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds9) : DataGridView10.DataSource = ds9.Tables(0) : conn.Close() : Set_grid3()
    End Sub
    Private Sub Set_FTP位置()
        Set_DGV5載入前設定()
        SQL1 = "SELECT FTP地址, FTP帳號, FTP密碼, 地區 FROM FTP資料庫管理"
        Set_DGV5載入後設定() : Set_grid3()
    End Sub
    Private Sub Set_grid3()
        DataGridView10.Columns(0).Width = 250 : DataGridView10.Columns(1).Width = 100 : DataGridView10.Columns(2).Width = 50 : DataGridView10.Columns(3).Width = 50
    End Sub
    Private Sub 系統編碼原則_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_客户清單() : Set_FTP位置()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView3.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox4.Text = DataGridView3(0, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub DataGridView10_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView10.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox24.Text = DataGridView10(0, e.RowIndex).Value.ToString
            TextBox23.Text = DataGridView10(1, e.RowIndex).Value.ToString
            TextBox22.Text = DataGridView10(2, e.RowIndex).Value.ToString
            TextBox21.Text = DataGridView10(3, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 式共用1()
        Set_客户清單() : Set_FTP位置() : 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()
        conn.Close()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub SET_新增按鈕程式共用2()
        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        MsgBox("新增完成")
        conn.Close() : dr.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
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : MsgBox("刪除完成") : End If
        conn.Close()
        式共用1()
    End Sub
    Private Sub SET_修改按鈕程式共用1()
        cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        MsgBox("修改完成")
        conn.Close()
    End Sub
    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        If TextBox4.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            式共用3() : SQL1 = "SELECT 客户 FROM 客戶清單 WHERE 客户 LIKE N'" & TextBox4.Text & "'" : cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                式共用2() : SQL1 = "INSERT INTO 客戶清單 (客户) VALUES (N'" & TextBox4.Text & "')" : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        If TextBox4.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                式共用3() : SQL1 = "UPDATE 客戶清單 SET 客户 = N'" & PA & "' WHERE 客户 LIKE N'" & TextBox4.Text & "'" : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        SQL1 = "DELETE FROM 客戶清單 WHERE (客户 = N'" & TextBox4.Text & "')" : SET_刪除按鈕程式共用1()
    End Sub
    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
        If TextBox21.Text = "" Or TextBox24.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            式共用3() : SQL1 = "SELECT 地區 FROM FTP資料庫管理 WHERE 地區 LIKE '" & TextBox21.Text & "'" : cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                式共用2() : SQL1 = "INSERT INTO FTP資料庫管理 (FTP地址, FTP帳號, FTP密碼, 地區) 
                                    VALUES (N'" & TextBox24.Text & "', N'" & TextBox23.Text & "', N'" & TextBox22.Text & "', N'" & TextBox21.Text & "')"
                SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
        If TextBox21.Text = "" Or TextBox24.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的FTP地址")
            PA1 = InputBox("請輸入要修改的FTP帳號")
            PA2 = InputBox("請輸入要修改的FTP密碼")
            If PA = "" Or PA1 = "" Or PA2 = "" Then
                MsgBox("沒有輸入修改內容，或資料有缺")
            Else
                式共用3() : SQL1 = "UPDATE FTP資料庫管理 SET FTP地址 = N'" & PA & "', FTP帳號 = N'" & PA1 & "', FTP密碼 = N'" & PA2 & "' WHERE 地區 LIKE N'" & TextBox21.Text & "'" : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
        SQL1 = "DELETE FROM FTP資料庫管理 WHERE (地區 = N'" & TextBox21.Text & "')" : SET_刪除按鈕程式共用1()
    End Sub
    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
End Class