GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/業務系統管理/業務專案控制表.vb

Option Strict Off
Imports System.Net
Public Class 業務專案控制表
    ReadOnly ds, ds1, ds2 As New DataSet
    Dim DTP(2) As String
    Private Sub DGV1讀取前設定()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 50
        DataGridView1.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub DGV1讀取後設定()
        CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid1()
    End Sub
    Private Sub 讀取專案主檔()
        DGV1讀取前設定()
        If PA = "" Then
            SQL1 = "SELECT 專案流水號, 專案內容, 專案性質, 合約性質, 備註, 專案人數 AS 執行人數, 執行天數, 地點, 報價, 報價日期, 專案成本 AS 報價金額, 立案, 立案日期, 收款金額 AS 訂金, 
                           結案, 結案日期, 應收金額 AS 應收尾款, 幣別, 建檔, 客戶
                    FROM 業務專案主檔 ORDER BY 專案流水號 DESC"
        Else
            SQL1 = "SELECT 專案流水號, 專案內容, 專案性質, 合約性質, 備註, 專案人數 AS 執行人數, 執行天數, 地點, 報價, 報價日期, 專案成本 AS 報價金額, 立案, 立案日期, 收款金額 AS 訂金, 
                           結案, 結案日期, 應收金額 AS 應收尾款, 幣別, 建檔, 客戶
                    FROM 業務專案主檔 
                    WHERE 專案流水號 LIKE '%" & PA & "%' OR 專案內容 LIKE '%" & PA & "%' OR 專案人數 LIKE '%" & PA & "%' OR 執行天數 LIKE '%" & PA & "%' OR 地點 LIKE '%" & PA & "%' OR 
                          立案日期 LIKE '%" & PA & "%' OR 結案日期 LIKE '%" & PA & "%' OR 備註 LIKE '%" & PA & "%' OR 結案 LIKE '%" & PA & "%'  
                   ORDER BY 專案流水號 DESC"
        End If
        DGV1讀取後設定()
    End Sub
    Private Sub Set_grid1()
        DataGridView1.Columns(0).Width = 90 : DataGridView1.Columns(1).Width = 300 : DataGridView1.Columns(2).Width = 70 : DataGridView1.Columns(3).Width = 70
        DataGridView1.Columns(4).Width = 350 : DataGridView1.Columns(5).Width = 40 : DataGridView1.Columns(6).Width = 40 : DataGridView1.Columns(7).Width = 100
        DataGridView1.Columns(8).Width = 50 : DataGridView1.Columns(9).Width = 80 : DataGridView1.Columns(10).Width = 90 : DataGridView1.Columns(11).Width = 50
        DataGridView1.Columns(12).Width = 80 : DataGridView1.Columns(13).Width = 90 : DataGridView1.Columns(14).Width = 50 : DataGridView1.Columns(15).Width = 80
        DataGridView1.Columns(16).Width = 90 : DataGridView1.Columns(17).Width = 60 : DataGridView1.Columns(18).Visible = False : DataGridView1.Columns(19).Width = 85

        DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0"
        DataGridView1.Columns(13).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(16).DefaultCellStyle.Format = "#,##0"
        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("報價").Value Is DBNull.Value Then : DataGridView1.Rows(i).Cells("報價").Value = False : End If
            If DataGridView1.Rows(i).Cells("立案").Value Is DBNull.Value Then : DataGridView1.Rows(i).Cells("立案").Value = False : End If
            If DataGridView1.Rows(i).Cells("結案").Value Is DBNull.Value Then : DataGridView1.Rows(i).Cells("結案").Value = False : End If
            If DataGridView1.Rows(i).Cells("建檔").Value Is DBNull.Value Then : DataGridView1.Rows(i).Cells("建檔").Value = False : End If

            If DataGridView1.Rows(i).Cells("立案").Value = False Then
                DataGridView1.Rows(i).Cells("執行天數").Value = 0
            ElseIf DataGridView1.Rows(i).Cells("立案").Value = True And (DataGridView1.Rows(i).Cells("結案日期").Value.ToString = "" Or DataGridView1.Rows(i).Cells("結案日期").Value.ToString = " ") Then
                DataGridView1.Rows(i).Cells("執行天數").Value = DateDiff("d", DataGridView1.Rows(i).Cells("立案日期").Value, Format(Today(), "yyyy/MM/dd")) + 1
            ElseIf DataGridView1.Rows(i).Cells("立案").Value = True And (DataGridView1.Rows(i).Cells("結案日期").Value.ToString <> "" Or DataGridView1.Rows(i).Cells("結案日期").Value.ToString <> " ") Then
                DataGridView1.Rows(i).Cells("執行天數").Value = DateDiff("d", DataGridView1.Rows(i).Cells("立案日期").Value, DataGridView1.Rows(i).Cells("結案日期").Value) + 1
            End If
        Next i
    End Sub
    Private Sub DGV3讀取前設定()
        DataGridView3.DataSource = Nothing : ds2.Clear()
        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView3.ColumnHeadersHeight = 25
        DataGridView3.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub DGV3讀取後設定()
        CmdSet_For_DGV() : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close() : Set_grid3()
    End Sub
    Private Sub 讀取專案人事資料()
        DGV3讀取前設定()
        SQL1 = "SELECT 人員資料.姓名, 人員資料.性別, 人員資料.薪資結構, 人員資料.月薪 / 25 AS 月薪, 人員資料.日薪, 人員資料.時薪 * 8 AS 時薪, 業務專案清單.專案流水號, 業務專案清單.對應流水號
                FROM 業務專案清單 INNER JOIN 人員資料 ON 業務專案清單.對應流水號 = 人員資料.人員編號
                WHERE (業務專案清單.專案流水號 = '" & TextBox1.Text & "')"
        DGV3讀取後設定()
    End Sub
    Private Sub Set_grid3()
        DataGridView3.Columns(0).Width = 90 : DataGridView3.Columns(1).Width = 80 : DataGridView3.Columns(2).Visible = False
        DataGridView3.Columns(3).Visible = False : DataGridView3.Columns(4).Visible = False : DataGridView3.Columns(5).Visible = False
        DataGridView3.Columns(6).Visible = False : DataGridView3.Columns(7).Visible = False
    End Sub
    Private Sub DGV2讀取前設定()
        DataGridView2.DataSource = Nothing : ds1.Clear() : ds1.Reset()
        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView2.ColumnHeadersHeight = 25
        DataGridView2.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub DGV2讀取後設定()
        CmdSet_For_DGV() : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close() : Set_grid2()
    End Sub
    Private Sub 員工資料()
        DGV2讀取前設定()
        If PA = "" Then
            SQL1 = "SELECT 人員編號, 姓名, 性別, 出生年份, 手機, 薪資結構 FROM 人員資料"
        Else
            SQL1 = "SELECT 人員編號, 姓名, 性別, 出生年份, 手機, 薪資結構 FROM 人員資料 WHERE 人員編號 LIKE '%" & PA & "%' OR 姓名 LIKE '%" & PA & "%' OR 性別 LIKE '%" & PA & "%' " &
                   "OR 籍貫 LIKE '%" & PA & "%' OR 出生年份 LIKE '%" & PA & "%' OR 證件 LIKE '%" & PA & "%' OR 証號 LIKE '%" & PA & "%' OR 手機 LIKE '%" & PA & "%' " &
                   "OR 薪資結構 LIKE '%" & PA & "%' OR 薪資 LIKE '%" & PA & "%' OR 備註 LIKE '%" & PA & "%'"
        End If
        DGV2讀取後設定()
    End Sub
    Private Sub Set_grid2()
        DataGridView2.Columns(0).Width = 80 : DataGridView2.Columns(1).Width = 70 : DataGridView2.Columns(2).Width = 50
        DataGridView2.Columns(3).Visible = False : DataGridView2.Columns(4).Width = 100 : DataGridView2.Columns(5).Visible = False
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        conn.Close()
        ConnOpen()
        SQL1 = "SELECT 客户 FROM 客戶清單 ORDER BY 客户"
        CmdSet_For_dr()
        ComboBox2.Items.Clear()
        While (dr.Read()) : ComboBox2.Items.Add(dr("客户")) : End While
        conn.Close()
    End Sub
    Private Sub 業務專案建檔_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        TextBox5.Visible = False : TextBox6.Enabled = False : TextBox7.Enabled = False : TextBox8.Visible = False
        TextBox11.Text = "0.00" : TextBox12.Text = "0.00" : TextBox13.Text = "0.00" : TextBox16.Text = "0"
        讀取專案主檔() : 員工資料() : ComboBox2下拉表單資料載入()
        Target1 = Target & AA(4) & "/"
        WebBrowser3.Url = New Uri(Target1)
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            WebBrowser1.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    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 DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = DataGridView1.Rows.Count - 1 Then
            Exit Sub
        Else
            If DataGridView1.Rows(e.RowIndex).Cells("立案").Value = True And DataGridView1.Rows(e.RowIndex).Cells("結案").Value = False Then
                Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("幣別").Value.ToString = "TWD" Then
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
            ElseIf DataGridView1.Rows(i).Cells("幣別").Value.ToString = "USD" Then
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
            ElseIf DataGridView1.Rows(i).Cells("幣別").Value.ToString = "RMB" Then
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
            ElseIf DataGridView1.Rows(i).Cells("幣別").Value.ToString = "HKD" Then
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
            End If
        Next
    End Sub

    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView3.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox8.Text = DataGridView3.Rows(e.RowIndex).Cells("專案流水號").Value
            TextBox7.Text = DataGridView3.Rows(e.RowIndex).Cells("對應流水號").Value
        End If
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox6.Text = DataGridView2(0, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            ComboBox2下拉表單資料載入()
            TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("專案流水號").Value : TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("專案內容").Value
            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("地點").Value : TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells("備註").Value
            TextBox16.Text = DataGridView1.Rows(e.RowIndex).Cells("執行天數").Value
            ComboBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("專案性質").Value.ToString : ComboBox4.Text = DataGridView1.Rows(e.RowIndex).Cells("合約性質").Value.ToString
            ComboBox5.Text = DataGridView1.Rows(e.RowIndex).Cells("幣別").Value.ToString

            PA2 = DataGridView1.Rows(e.RowIndex).Cells("客戶").Value.ToString : ComboBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("客戶").Value.ToString

            CheckBox10.Checked = DataGridView1.Rows(e.RowIndex).Cells("報價").Value
            DTP(2) = DataGridView1.Rows(e.RowIndex).Cells("報價日期").Value.ToString
            If DTP(2) = "" Then : DateTimePicker3.Format = DateTimePickerFormat.Custom : DateTimePicker3.CustomFormat = " "
            Else : DateTimePicker3.Format = DateTimePickerFormat.Short : DateTimePicker3.Text = DTP(2) : DateTimePicker3.Text = DateTimePicker3.Text : End If
            TextBox12.Text = Format(Val(DataGridView1.Rows(e.RowIndex).Cells("報價金額").Value), "#,##0.00")

            CheckBox11.Checked = DataGridView1.Rows(e.RowIndex).Cells("立案").Value
            DTP(0) = DataGridView1.Rows(e.RowIndex).Cells("立案日期").Value.ToString
            If DTP(0) = "" Then : DateTimePicker1.Format = DateTimePickerFormat.Custom : DateTimePicker1.CustomFormat = " "
            Else : DateTimePicker1.Format = DateTimePickerFormat.Short : DateTimePicker1.Text = DTP(0) : DateTimePicker1.Text = DateTimePicker1.Text : End If
            TextBox11.Text = Format(Val(DataGridView1.Rows(e.RowIndex).Cells("訂金").Value), "#,##0.00")

            CheckBox1.Checked = DataGridView1.Rows(e.RowIndex).Cells("結案").Value
            DTP(1) = DataGridView1.Rows(e.RowIndex).Cells("結案日期").Value.ToString
            If DTP(1) = "" Then : DateTimePicker2.Format = DateTimePickerFormat.Custom : DateTimePicker2.CustomFormat = " "
            Else : DateTimePicker2.Format = DateTimePickerFormat.Short : DateTimePicker2.Text = DTP(1) : DateTimePicker2.Text = DateTimePicker2.Text : End If
            TextBox13.Text = Format(Val(DataGridView1.Rows(e.RowIndex).Cells("應收尾款").Value), "#,##0.00")

            讀取專案人事資料()
            Button5.Enabled = False
            CheckBox12.Checked = DataGridView1.Rows(e.RowIndex).Cells("建檔").Value
            If DataGridView1.Rows(e.RowIndex).Cells("建檔").Value = True Then
                Target1 = Target & AA(4) & "/" & DataGridView1.Rows(e.RowIndex).Cells("專案流水號").Value & "/"
                WebBrowser3.Url = New Uri(Target1)
            Else
                Target1 = Target & AA(4) & "/"
                WebBrowser3.Url = New Uri(Target1)
            End If

            ComboBox1.Text = DataGridView3.Rows.Count
        End If
    End Sub
    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.MouseDown
        DateTimePicker1.Format = DateTimePickerFormat.Short
    End Sub
    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.MouseDown
        DateTimePicker2.Format = DateTimePickerFormat.Short
    End Sub
    Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker3.MouseDown
        DateTimePicker3.Format = DateTimePickerFormat.Short
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        DateTimePicker1.Format = DateTimePickerFormat.Custom : DateTimePicker1.CustomFormat = " "
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        DateTimePicker2.Format = DateTimePickerFormat.Custom : DateTimePicker2.CustomFormat = " "
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        DateTimePicker3.Format = DateTimePickerFormat.Custom : DateTimePicker3.CustomFormat = " "
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Target1 = Target & AA(4) & "/"
        WebBrowser3.Url = New Uri(Target1)
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        PA = InputBox("請輸入要查詢的資料") : 員工資料() : PA = ""
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PA = InputBox("請輸入要查詢的資料") : 讀取專案主檔() : PA = ""
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            WebBrowser1.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = ""
        TextBox11.Text = "0.00" : TextBox12.Text = "0.00" : TextBox13.Text = "0.00" : TextBox16.Text = "0"
        CheckBox1.Checked = False : CheckBox10.Checked = False : CheckBox11.Checked = False
        DateTimePicker1.Format = DateTimePickerFormat.Custom : DateTimePicker1.CustomFormat = " "
        DateTimePicker2.Format = DateTimePickerFormat.Custom : DateTimePicker2.CustomFormat = " "
        DateTimePicker3.Format = DateTimePickerFormat.Custom : DateTimePicker3.CustomFormat = " "
        Button5.Enabled = True
    End Sub
    Private Sub Set_日期格式轉換()
        DTP(0) = DateTimePicker1.Text : DTP(1) = DateTimePicker2.Text : DTP(2) = DateTimePicker3.Text
        If DTP(0) = " " Then : DTP(0) = "" : Else : DTP(0) = Format(DateTimePicker1.Value, "yyyy/MM/dd") : End If
        If DTP(1) = " " Then : DTP(1) = "" : Else : DTP(1) = Format(DateTimePicker2.Value, "yyyy/MM/dd") : End If
        If DTP(2) = " " Then : DTP(2) = "" : Else : DTP(2) = Format(DateTimePicker3.Value, "yyyy/MM/dd") : End If
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       ConnOpen()
        Set_日期格式轉換()
        SQL1 = "UPDATE 業務專案主檔 SET 專案內容 = N'" & TextBox2.Text & "', 專案性質 = N'" & ComboBox3.Text & "', 合約性質 = N'" & ComboBox4.Text & "', 備註 = '" & TextBox4.Text &
                                    "', 專案人數 = '" & ComboBox1.Text & "', 執行天數 = '" & TextBox16.Text & "', 地點 = '" & TextBox3.Text & "', 報價 = '" & CheckBox10.Checked &
                                    "', 報價日期 = '" & DTP(2) & "', 專案成本 = '" & TextBox12.Text & "', 立案 = '" & CheckBox11.Checked & "', 立案日期 = '" & DTP(0) &
                                    "', 收款金額 = '" & TextBox11.Text & "', 結案 = '" & CheckBox1.Checked & "', 結案日期 = '" & DTP(1) &
                                    "', 應收金額 = '" & TextBox13.Text & "', 幣別 = '" & ComboBox5.Text & "', 建檔 = '" & CheckBox12.Checked & "', 客戶 = N'" & ComboBox2.Text & "' 
                WHERE 專案流水號 LIKE '" & TextBox1.Text & "'"
        cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        MsgBox("修改完成")
        conn.Close()
        讀取專案主檔()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim aa1 As MsgBoxResult
        aa1 = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa1 = MsgBoxResult.Ok Then
            ConnOpen()
            SQL1 = "DELETE FROM 業務專案主檔 WHERE (專案流水號 = '" & TextBox1.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM 業務專案清單 WHERE (專案流水號 = '" & TextBox1.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
            '------------------FTP刪除資料夾-----------------------------------------------------------------------------------------
            Dim frq As FtpWebRequest, fcr As NetworkCredential
            frq = CType(WebRequest.Create(New Uri(Target & AA(4) & "/" & TextBox1.Text)), FtpWebRequest)
            fcr = New NetworkCredential(FTP帳號, FTP密碼)
            Dim frp As FtpWebResponse
            frq.Credentials = fcr '认证信息   
            frq.Method = WebRequestMethods.Ftp.RemoveDirectory
            frp = CType(frq.GetResponse, FtpWebResponse) '发送、操作、并返回      
            frp.Close()
            MsgBox("刪除完成")
        End If
        讀取專案主檔()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim NUM1 As Integer
        For NUM1 = 0 To 99999999
            If NUM1 < 10 Then : TextBox1.Text = "BP" & "0000000" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox1.Text = "BP" & "000000" & NUM1
            ElseIf NUM1 > 99 And NUM1 < 1000 Then : TextBox1.Text = "BP" & "00000" & NUM1
            ElseIf NUM1 > 999 And NUM1 < 10000 Then : TextBox1.Text = "BP" & "0000" & NUM1
            ElseIf NUM1 > 9999 And NUM1 < 100000 Then : TextBox1.Text = "BP" & "000" & NUM1
            ElseIf NUM1 > 99999 And NUM1 < 1000000 Then : TextBox1.Text = "BP" & "00" & NUM1
            ElseIf NUM1 > 999999 And NUM1 < 10000000 Then : TextBox1.Text = "BP" & "0" & NUM1
            ElseIf NUM1 > 9999999 Then : TextBox1.Text = "BP" & NUM1 : End If
            ConnOpen()
            SQL1 = "SELECT 專案流水號 FROM 業務專案主檔 WHERE (專案流水號 ='" & TextBox1.Text & "')"
            CmdSet_For_dr()
            If dr.Read() Then : TextBox1.Text = dr("專案流水號").ToString : TextBox5.Text = "NO" : Else : TextBox5.Text = "" : End If
            conn.Close()
            If TextBox5.Text = "" Then : NUM1 = 99999999 : End If
        Next
        Set_日期格式轉換()
        ConnOpen()
        SQL1 = "INSERT INTO 業務專案主檔 (專案流水號, 專案內容, 專案性質, 合約性質, 備註, 專案人數, 執行天數, 地點, 報價, 報價日期, 專案成本, 立案, 立案日期, 收款金額, 結案, 
                                          結案日期, 應收金額, 幣別, 建檔, 客戶) " &
                   "VALUES (N'" & TextBox1.Text & "', N'" & TextBox2.Text & "', N'" & ComboBox3.Text & "', N'" & ComboBox4.Text & "', N'" & TextBox4.Text & "', N'" & ComboBox1.Text &
                        "', N'" & TextBox16.Text & "', N'" & TextBox3.Text & "', N'" & CheckBox10.Checked & "', N'" & DTP(2) & "', N'" & TextBox12.Text & "', N'" & CheckBox11.Checked &
                        "', N'" & DTP(0) & "', N'" & TextBox11.Text & "', N'" & CheckBox1.Checked & "', N'" & DTP(1) & "', N'" & TextBox13.Text & "', N'" & ComboBox5.Text &
                        "', N'" & CheckBox12.Checked & "', N'" & ComboBox2.Text & "')"
        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
        '------------------FTP新增資料夾-----------------------------------------------------------------------------------------
        Dim frq As FtpWebRequest, fcr As NetworkCredential
        frq = CType(WebRequest.Create(New Uri(Target & AA(4) & "/" & TextBox1.Text)), FtpWebRequest)
        fcr = New NetworkCredential(FTP帳號, FTP密碼)
        Dim frp As FtpWebResponse
        frq.Credentials = fcr '认证信息   
        frq.Method = WebRequestMethods.Ftp.MakeDirectory
        frp = CType(frq.GetResponse, FtpWebResponse) '发送、操作、并返回      
        frp.Close()
        MsgBox("新增完成")
        讀取專案主檔()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        If TextBox1.Text = "" Or TextBox6.Text = "" Then
            MsgBox("請正確選擇資料")
        Else
            ConnOpen()
            SQL1 = "SELECT 專案流水號, 對應流水號 FROM 業務專案清單 WHERE (專案流水號 ='" & TextBox1.Text & "') AND (對應流水號 ='" & TextBox6.Text & "')"
            CmdSet_For_dr()
            If dr.Read() Then
                MsgBox("資料已經存在")
            Else
                TextBox5.Text = "YES"
            End If
            conn.Close()
            If TextBox5.Text = "YES" Then
                ConnOpen()
                SQL1 = "INSERT INTO 業務專案清單 (專案流水號, 對應流水號, 設計天數) VALUES ('" & TextBox1.Text & "','" & TextBox6.Text & "','0')"
                cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                MsgBox("新增完成")
                conn.Close()
                讀取專案人事資料()
            Else
            End If
        End If
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            ConnOpen()
            SQL1 = "DELETE FROM 業務專案清單 WHERE (專案流水號 = '" & TextBox8.Text & "') AND (對應流水號 = '" & TextBox7.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
            MsgBox("刪除完成")
        End If
        讀取專案人事資料()
        ComboBox1.Text = DataGridView3.Rows.Count
        ConnOpen()
        SQL1 = "UPDATE 業務專案主檔 SET 專案人數 = '" & ComboBox1.Text & "' WHERE 專案流水號 LIKE '" & TextBox1.Text & "'"
        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
        讀取專案主檔()
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        WebBrowser1.GoBack()
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        WebBrowser1.GoForward()
    End Sub
    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        WebBrowser3.GoBack()
    End Sub
    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        WebBrowser3.GoForward()
    End Sub
    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        ComboBox2下拉表單資料載入()
    End Sub
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        讀取專案主檔()
    End Sub
    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        If ComboBox3.Text = "" Or PA2 = "" Then
            MsgBox("沒有選擇專案。")
        ElseIf ComboBox3.Text = "軟體設計" And PA2 <> "" Then
            系統開發功能點檢表.Close() : 系統開發功能點檢表.Show() : 系統開發功能點檢表.BringToFront()
        Else
            MsgBox("軟體設計以外的專案還未開發。")
        End If
    End Sub
End Class