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

Option Strict Off
Imports System.Data.SqlClient
Public Class 系統編碼原則_1
    ReadOnly ds2 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds9 As New DataSet
    Private Sub Set_客户清單()
        DataGridView3.DataSource = Nothing : ds2.Clear()
        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView3.ColumnHeadersHeight = 25
        DataGridView3.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 客户 FROM  客戶清單"
        CmdSet_For_DGV() : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
        DataGridView3.Columns(0).Width = 100
    End Sub
    Private Sub Set_FTP位置()
        DataGridView10.DataSource = Nothing : ds9.Clear()
        DataGridView10.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView10.ColumnHeadersHeight = 25
        DataGridView10.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT FTP地址, FTP帳號, FTP密碼, 地區 FROM FTP資料庫管理"
        CmdSet_For_DGV() : da.Fill(ds9) : DataGridView10.DataSource = ds9.Tables(0) : conn.Close()
        DataGridView10.Columns(0).Width = 250 : DataGridView10.Columns(1).Width = 100 : DataGridView10.Columns(2).Width = 50 : DataGridView10.Columns(3).Width = 50
    End Sub
    Private Sub Set_請假類別清單()
        請假類別_dgv.DataSource = Nothing : ds4.Clear()
        請假類別_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        請假類別_dgv.ColumnHeadersHeight = 25
        請假類別_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 請假類別 FROM GCM請假類別 ORDER BY 請假類別"
        CmdSet_For_DGV() : da.Fill(ds4) : 請假類別_dgv.DataSource = ds4.Tables(0) : conn.Close()
        請假類別_dgv.Columns(0).FillWeight = 100
    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位置() : Set_請假類別清單()
    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 請假類別_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 請假類別_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox5.Text = 請假類別_dgv(0, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 式共用1()
        Set_客户清單() : Set_FTP位置() : Set_請假類別清單() : PA = ""
    End Sub
    Private Sub 式共用2()
        conn.Close() : dr.Close()
        ConnOpen()
    End Sub
    Private Sub 式共用3()
        conn.Close()
        ConnOpen()
    End Sub
    Private Sub SET_新增按鈕程式共用2()
        CmdSet_For_dr()
        MsgBox("新增完成")
        conn.Close() : dr.Close()
    End Sub
    Private Sub SET_刪除按鈕程式共用1()
        cmd.CommandText = SQL1 : cmd.Connection = conn
        ConnOpen()
        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
    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        If TextBox5.Text = "" Then
            MsgBox("資料有缺或有誤,請重新檢查")
        Else
            式共用3() : SQL1 = "SELECT 請假類別 FROM GCM請假類別 WHERE 請假類別 LIKE '" & TextBox5.Text & "'" : cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
            If dr.Read() Then
                MsgBox("資料重複,請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                式共用2() : SQL1 = "INSERT INTO GCM請假類別 (請假類別) VALUES (N'" & TextBox5.Text & "')" : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        If TextBox5.Text = "" Then
            MsgBox("資料有缺或有誤,請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                式共用3() : SQL1 = "UPDATE GCM請假類別 SET 請假類別 = N'" & PA & "' WHERE 請假類別 LIKE N'" & TextBox5.Text & "'" : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        SQL1 = "DELETE FROM GCM請假類別 WHERE (請假類別 = N'" & TextBox5.Text & "')" : SET_刪除按鈕程式共用1()
    End Sub

End Class