MAOJI-ERP-SYS
/
MAOJI-ERP-SYS-LEEHSIEHJUI


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126
							Option Strict Off
Public Class 供應商資料管理
    ReadOnly ds As New DataSet
    Dim EDR As Integer = 0 : Dim ESTR As String
    Private Sub Set_供應商清單()
        供應商明細_dgv.DataSource = Nothing : ds.Clear() : 供應商明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        供應商明細_dgv.ColumnHeadersHeight = 50 : 供應商明細_dgv.AllowUserToAddRows = False : 供應商明細_dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText
        供應商明細_dgv.MultiSelect = True
        SQL__供應商資料管理清單()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 供應商明細_dgv.DataSource = ds.Tables(0) : conn.Close()

        供應商明細_dgv.Columns(0).Visible = False : 供應商明細_dgv.Columns(1).FillWeight = 8 : 供應商明細_dgv.Columns(2).FillWeight = 3.5 : 供應商明細_dgv.Columns(3).Visible = False
        供應商明細_dgv.Columns(4).Visible = False : 供應商明細_dgv.Columns(5).FillWeight = 6 : 供應商明細_dgv.Columns(6).FillWeight = 6 : 供應商明細_dgv.Columns(7).FillWeight = 6
        供應商明細_dgv.Columns(8).FillWeight = 6 : 供應商明細_dgv.Columns(9).FillWeight = 16 : 供應商明細_dgv.Columns(10).FillWeight = 2 : 供應商明細_dgv.Columns(11).FillWeight = 16
        供應商明細_dgv.Columns(12).FillWeight = 2 : 供應商明細_dgv.Columns(13).Visible = False : 供應商明細_dgv.Columns(14).Visible = False : 供應商明細_dgv.Columns(15).Visible = False
        供應商明細_dgv.Columns(16).Visible = False : 供應商明細_dgv.Columns(17).Visible = False : 供應商明細_dgv.Columns(18).Visible = False : 供應商明細_dgv.Columns(19).Visible = False
        供應商明細_dgv.Columns(20).Visible = False : 供應商明細_dgv.Columns(21).Visible = False : 供應商明細_dgv.Columns(22).Visible = False : 供應商明細_dgv.Columns(23).Visible = False
        供應商明細_dgv.Columns(24).Visible = False : 供應商明細_dgv.Columns(25).FillWeight = 3.5 : 供應商明細_dgv.Columns(26).FillWeight = 7.5 : 供應商明細_dgv.Columns(27).FillWeight = 1.5
        供應商明細_dgv.Columns(28).FillWeight = 1.5 : 供應商明細_dgv.Columns(29).FillWeight = 1.5 : 供應商明細_dgv.Columns(30).FillWeight = 1.5 : 供應商明細_dgv.Columns(31).FillWeight = 1.5
        供應商明細_dgv.Columns(32).Visible = False : 供應商明細_dgv.Columns(33).FillWeight = 1.5 : 供應商明細_dgv.Columns(34).FillWeight = 1.5

        供應商明細_dgv.Columns(29).DefaultCellStyle.Format = "#,##0" : 供應商明細_dgv.Columns(30).DefaultCellStyle.Format = "#,##0"
        供應商明細_dgv.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 供應商明細_dgv.Columns(29).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        供應商明細_dgv.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 供應商明細_dgv.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        供應商明細_dgv.Columns(1).ReadOnly = True : 供應商明細_dgv.Columns(2).ReadOnly = True : 供應商明細_dgv.Columns(3).ReadOnly = True : 供應商明細_dgv.Columns(4).ReadOnly = True
        供應商明細_dgv.Columns(5).ReadOnly = True : 供應商明細_dgv.Columns(6).ReadOnly = True : 供應商明細_dgv.Columns(7).ReadOnly = True : 供應商明細_dgv.Columns(8).ReadOnly = True
        供應商明細_dgv.Columns(9).ReadOnly = True : 供應商明細_dgv.Columns(10).ReadOnly = True : 供應商明細_dgv.Columns(11).ReadOnly = True : 供應商明細_dgv.Columns(12).ReadOnly = True
        供應商明細_dgv.Columns(13).ReadOnly = True : 供應商明細_dgv.Columns(14).ReadOnly = True : 供應商明細_dgv.Columns(15).ReadOnly = True : 供應商明細_dgv.Columns(16).ReadOnly = True
        供應商明細_dgv.Columns(17).ReadOnly = True : 供應商明細_dgv.Columns(18).ReadOnly = True : 供應商明細_dgv.Columns(19).ReadOnly = True : 供應商明細_dgv.Columns(20).ReadOnly = True
        供應商明細_dgv.Columns(21).ReadOnly = True : 供應商明細_dgv.Columns(22).ReadOnly = True : 供應商明細_dgv.Columns(23).ReadOnly = True : 供應商明細_dgv.Columns(24).ReadOnly = True
        供應商明細_dgv.Columns(25).ReadOnly = True : 供應商明細_dgv.Columns(26).ReadOnly = True : 供應商明細_dgv.Columns(27).ReadOnly = True : 供應商明細_dgv.Columns(28).ReadOnly = True
        供應商明細_dgv.Columns(29).ReadOnly = True : 供應商明細_dgv.Columns(30).ReadOnly = True : 供應商明細_dgv.Columns(31).ReadOnly = True : 供應商明細_dgv.Columns(32).ReadOnly = True
        供應商明細_dgv.Columns(33).ReadOnly = True : 供應商明細_dgv.Columns(34).ReadOnly = True
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        PA = "%%" : SQL_付款方式查詢()
        付款方式_cb.Items.Clear() : While (dr.Read()) : 付款方式_cb.Items.Add(dr("付款方式")) : End While : conn.Close()
    End Sub
    Private Sub 供應商資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        編號_tb.Enabled = False : TextBox27.Visible = False
        ComboBox1下拉表單資料載入() : Set_供應商清單()
        If gUserName = "李協叡" Then : 資料刪除ToolStripMenuItem.Enabled = True : Else : 資料刪除ToolStripMenuItem.Enabled = False : End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 供應商明細_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            編號_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("編號").Value.ToString : 公司_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("名稱").Value.ToString
            簡稱_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("簡稱").Value.ToString : 負責人_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("負責人").Value.ToString
            負責人電話_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("負責人電話").Value.ToString : 公司電話1_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("公司電話1").Value.ToString
            公司電話2_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("公司電話2").Value.ToString : 傳真1_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("傳真1").Value.ToString
            傳真2_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("傳真2").Value.ToString : 地址1_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("地址1").Value.ToString
            郵號1_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("郵遞區號1").Value.ToString : 地址2_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("地址2").Value.ToString
            郵號2_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("郵遞區號2").Value.ToString : 聯絡人1_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯絡人1").Value.ToString
            聯1電話_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯絡人電話1").Value.ToString : 聯1MAIL_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯絡人1MAIL").Value.ToString
            聯1LINE_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯1LINE_唯信").Value.ToString : 聯絡人2_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯絡人2").Value.ToString
            聯2電話_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯絡人電話2").Value.ToString : 聯2MAIL_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯絡人2MAIL").Value.ToString
            聯2LINE_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯2LINE_唯信").Value.ToString : 聯絡人3_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯絡人3").Value.ToString
            聯3電話_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯絡人手機3").Value.ToString : 聯3MAIL_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯絡人3MAIL").Value.ToString
            聯3LINE_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("聯3LINE_唯信").Value.ToString : 統編_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("統一編號").Value.ToString
            付款方式_cb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("付款方式").Value.ToString : 請款日_nud.Value = 供應商明細_dgv.Rows(e.RowIndex).Cells("請款日").Value.ToString
            票據日_nud.Value = 供應商明細_dgv.Rows(e.RowIndex).Cells("票據日").Value.ToString : 折扣_nud.Value = 供應商明細_dgv.Rows(e.RowIndex).Cells("折扣").Value.ToString
            稅率_nud.Value = 供應商明細_dgv.Rows(e.RowIndex).Cells("稅率").Value.ToString : 幣別_cb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("幣別").Value.ToString
            備註_tb.Text = 供應商明細_dgv.Rows(e.RowIndex).Cells("備註").Value.ToString : 外貿_ch.Checked = 供應商明細_dgv.Rows(e.RowIndex).Cells("外貿").Value
            停用_ch.Checked = 供應商明細_dgv.Rows(e.RowIndex).Cells("停用").Value
        End If
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 付款方式_cb.SelectedIndexChanged
        PA1 = 付款方式_cb.Text : SQL_付款方式_編號()
        If dr.Read() Then : TextBox27.Text = dr("編號") : End If : conn.Close()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
        PA = InputBox("請輸入要查詢的關鍵字")
        Set_供應商清單()
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 新增供應商資料_bt.Click
        供應商明細_dgv.Enabled = False
        公司_tb.Text = "" : 簡稱_tb.Text = "" : 負責人_tb.Text = "" : 負責人電話_tb.Text = "" : 公司電話1_tb.Text = "" : 公司電話2_tb.Text = "" : 傳真1_tb.Text = "" : 傳真2_tb.Text = ""
        地址1_tb.Text = "" : 郵號1_tb.Text = "" : 地址2_tb.Text = "" : 郵號2_tb.Text = "" : 聯絡人1_tb.Text = "" : 聯1電話_tb.Text = "" : 聯1MAIL_tb.Text = "" : 聯1LINE_tb.Text = ""
        聯絡人2_tb.Text = "" : 聯2電話_tb.Text = "" : 聯2MAIL_tb.Text = "" : 聯2LINE_tb.Text = "" : 聯絡人3_tb.Text = "" : 聯3電話_tb.Text = "" : 聯3MAIL_tb.Text = "" : 聯3LINE_tb.Text = ""
        統編_tb.Text = "" : 請款日_nud.Value = 0 : 票據日_nud.Value = 0 : 折扣_nud.Value = 0 : 稅率_nud.Value = 0 : 幣別_cb.Text = "NTD" : 備註_tb.Text = ""
        TextBox27.Text = "" : 外貿_ch.Checked = False : 停用_ch.Checked = False : ComboBox1下拉表單資料載入()
        '----------------------自动生成流水号-------------------------------------------------------------------------
        SQL_供應商資料表流水號最後一筆()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "FI" & "0000000" & EDR
        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "FI" & "000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "FI" & "00000" & EDR
        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "FI" & "0000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "FI" & "000" & EDR
        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "FI" & "00" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "FI" & "0" & EDR
        ElseIf EDR > 9999999 Then : ESTR = "FI" & EDR : End If : 編號_tb.Text = ESTR
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 資料存檔_bt.Click
        If 供應商明細_dgv.Enabled = False Then
            If 付款方式_cb.Text = "" Then : MsgBox("沒有選擇付款方式 。")
            Else
                SQL_供應商資料表新增() : conn.Close()
                MsgBox("資料新增完畢 。") : Set_供應商清單() : PA = "" : 供應商明細_dgv.Enabled = True
            End If
        Else
            SQL_供應商資料表修改() : conn.Close()
            MsgBox("資料存檔完畢 。") : Set_供應商清單() : PA = "" : 供應商明細_dgv.Enabled = True
        End If
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        PA = "" : Set_供應商清單()
    End Sub
    Private Sub 關鍵字查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢ToolStripMenuItem.Click
        Me.關鍵字查詢_bt.PerformClick()
    End Sub
    Private Sub 新增供應商資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增供應商資料ToolStripMenuItem.Click
        Me.新增供應商資料_bt.PerformClick()
    End Sub
    Private Sub 資料存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料存檔ToolStripMenuItem.Click
        Me.資料存檔_bt.PerformClick()
    End Sub
    Private Sub 資料刪除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料刪除ToolStripMenuItem.Click
        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_供應商資料表刪除() : conn.Close() : MsgBox("刪除完成") : Set_供應商清單() : PA = ""
        End If
    End Sub
End Class