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