MAOJI-ERP-SYS
/
MAOJI-ERP-SYS-LEEHSIEHJUI
ウォッチ 4
スター 0
フォーク 0
コード 課題 0 プルリクエスト 0 リリース 0 Wiki アクティビティ
説明なし
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。
2 コミット
1 ブランチ
ツリー: 16439ac6d8
ブランチ タグ
${ item.name }
ブランチ ${ searchTerm } を作成
'16439ac6d8' から
${ noResults }
MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/採購系統管理/供應商資料管理.vb

供應商資料管理.vb 13KB
履歴 Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126 
  1. Option Strict Off

  2. Public Class 供應商資料管理

  3.     ReadOnly ds As New DataSet

  4.     Dim EDR As Integer = 0 : Dim ESTR As String

  5.     Private Sub Set_供應商清單()

  6.         DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  7.         DataGridView1.ColumnHeadersHeight = 50 : DataGridView1.AllowUserToAddRows = False : DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText

  8.         DataGridView1.MultiSelect = True

  9.         SQL__供應商資料管理清單()

  10.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()

  11. 

  12.         DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 8 : DataGridView1.Columns(2).FillWeight = 3.5 : DataGridView1.Columns(3).Visible = False

  13.         DataGridView1.Columns(4).Visible = False : DataGridView1.Columns(5).FillWeight = 6 : DataGridView1.Columns(6).FillWeight = 6 : DataGridView1.Columns(7).FillWeight = 6

  14.         DataGridView1.Columns(8).FillWeight = 6 : DataGridView1.Columns(9).FillWeight = 16 : DataGridView1.Columns(10).FillWeight = 2 : DataGridView1.Columns(11).FillWeight = 16

  15.         DataGridView1.Columns(12).FillWeight = 2 : DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False : DataGridView1.Columns(15).Visible = False

  16.         DataGridView1.Columns(16).Visible = False : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False : DataGridView1.Columns(19).Visible = False

  17.         DataGridView1.Columns(20).Visible = False : DataGridView1.Columns(21).Visible = False : DataGridView1.Columns(22).Visible = False : DataGridView1.Columns(23).Visible = False

  18.         DataGridView1.Columns(24).Visible = False : DataGridView1.Columns(25).FillWeight = 3.5 : DataGridView1.Columns(26).FillWeight = 7.5 : DataGridView1.Columns(27).FillWeight = 1.5

  19.         DataGridView1.Columns(28).FillWeight = 1.5 : DataGridView1.Columns(29).FillWeight = 1.5 : DataGridView1.Columns(30).FillWeight = 1.5 : DataGridView1.Columns(31).FillWeight = 1.5

  20.         DataGridView1.Columns(32).Visible = False : DataGridView1.Columns(33).FillWeight = 1.5 : DataGridView1.Columns(34).FillWeight = 1.5

  21. 

  22.         DataGridView1.Columns(29).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(30).DefaultCellStyle.Format = "#,##0"

  23.         DataGridView1.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(29).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  24.         DataGridView1.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  25. 

  26.         DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(3).ReadOnly = True : DataGridView1.Columns(4).ReadOnly = True

  27.         DataGridView1.Columns(5).ReadOnly = True : DataGridView1.Columns(6).ReadOnly = True : DataGridView1.Columns(7).ReadOnly = True : DataGridView1.Columns(8).ReadOnly = True

  28.         DataGridView1.Columns(9).ReadOnly = True : DataGridView1.Columns(10).ReadOnly = True : DataGridView1.Columns(11).ReadOnly = True : DataGridView1.Columns(12).ReadOnly = True

  29.         DataGridView1.Columns(13).ReadOnly = True : DataGridView1.Columns(14).ReadOnly = True : DataGridView1.Columns(15).ReadOnly = True : DataGridView1.Columns(16).ReadOnly = True

  30.         DataGridView1.Columns(17).ReadOnly = True : DataGridView1.Columns(18).ReadOnly = True : DataGridView1.Columns(19).ReadOnly = True : DataGridView1.Columns(20).ReadOnly = True

  31.         DataGridView1.Columns(21).ReadOnly = True : DataGridView1.Columns(22).ReadOnly = True : DataGridView1.Columns(23).ReadOnly = True : DataGridView1.Columns(24).ReadOnly = True

  32.         DataGridView1.Columns(25).ReadOnly = True : DataGridView1.Columns(26).ReadOnly = True : DataGridView1.Columns(27).ReadOnly = True : DataGridView1.Columns(28).ReadOnly = True

  33.         DataGridView1.Columns(29).ReadOnly = True : DataGridView1.Columns(30).ReadOnly = True : DataGridView1.Columns(31).ReadOnly = True : DataGridView1.Columns(32).ReadOnly = True

  34.         DataGridView1.Columns(33).ReadOnly = True : DataGridView1.Columns(34).ReadOnly = True

  35.     End Sub

  36.     Private Sub ComboBox1下拉表單資料載入()

  37.         PA = "%%" : SQL_付款方式查詢()

  38.         ComboBox1.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("付款方式")) : End While : conn.Close()

  39.     End Sub

  40.     Private Sub 供應商資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  41.         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  42.         TextBox1.Enabled = False : TextBox27.Visible = False

  43.         ComboBox1下拉表單資料載入() : Set_供應商清單()

  44.         If gUserName = "李協叡" Then : 資料刪除ToolStripMenuItem.Enabled = True : Else : 資料刪除ToolStripMenuItem.Enabled = False : End If

  45.     End Sub

  46.     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

  47.         If e.RowIndex = -1 Then : Else

  48.             TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("編號").Value.ToString : TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("名稱").Value.ToString

  49.             TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("簡稱").Value.ToString : TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells("負責人").Value.ToString

  50.             TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells("負責人電話").Value.ToString : TextBox6.Text = DataGridView1.Rows(e.RowIndex).Cells("公司電話1").Value.ToString

  51.             TextBox7.Text = DataGridView1.Rows(e.RowIndex).Cells("公司電話2").Value.ToString : TextBox8.Text = DataGridView1.Rows(e.RowIndex).Cells("傳真1").Value.ToString

  52.             TextBox9.Text = DataGridView1.Rows(e.RowIndex).Cells("傳真2").Value.ToString : TextBox10.Text = DataGridView1.Rows(e.RowIndex).Cells("地址1").Value.ToString

  53.             TextBox11.Text = DataGridView1.Rows(e.RowIndex).Cells("郵遞區號1").Value.ToString : TextBox12.Text = DataGridView1.Rows(e.RowIndex).Cells("地址2").Value.ToString

  54.             TextBox13.Text = DataGridView1.Rows(e.RowIndex).Cells("郵遞區號2").Value.ToString : TextBox14.Text = DataGridView1.Rows(e.RowIndex).Cells("聯絡人1").Value.ToString

  55.             TextBox15.Text = DataGridView1.Rows(e.RowIndex).Cells("聯絡人電話1").Value.ToString : TextBox16.Text = DataGridView1.Rows(e.RowIndex).Cells("聯絡人1MAIL").Value.ToString

  56.             TextBox17.Text = DataGridView1.Rows(e.RowIndex).Cells("聯1LINE_唯信").Value.ToString : TextBox18.Text = DataGridView1.Rows(e.RowIndex).Cells("聯絡人2").Value.ToString

  57.             TextBox19.Text = DataGridView1.Rows(e.RowIndex).Cells("聯絡人電話2").Value.ToString : TextBox20.Text = DataGridView1.Rows(e.RowIndex).Cells("聯絡人2MAIL").Value.ToString

  58.             TextBox21.Text = DataGridView1.Rows(e.RowIndex).Cells("聯2LINE_唯信").Value.ToString : TextBox22.Text = DataGridView1.Rows(e.RowIndex).Cells("聯絡人3").Value.ToString

  59.             TextBox23.Text = DataGridView1.Rows(e.RowIndex).Cells("聯絡人手機3").Value.ToString : TextBox24.Text = DataGridView1.Rows(e.RowIndex).Cells("聯絡人3MAIL").Value.ToString

  60.             TextBox25.Text = DataGridView1.Rows(e.RowIndex).Cells("聯3LINE_唯信").Value.ToString : TextBox26.Text = DataGridView1.Rows(e.RowIndex).Cells("統一編號").Value.ToString

  61.             ComboBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("付款方式").Value.ToString : NumericUpDown1.Value = DataGridView1.Rows(e.RowIndex).Cells("請款日").Value.ToString

  62.             NumericUpDown2.Value = DataGridView1.Rows(e.RowIndex).Cells("票據日").Value.ToString : NumericUpDown3.Value = DataGridView1.Rows(e.RowIndex).Cells("折扣").Value.ToString

  63.             NumericUpDown4.Value = DataGridView1.Rows(e.RowIndex).Cells("稅率").Value.ToString : ComboBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("幣別").Value.ToString

  64.             TextBox28.Text = DataGridView1.Rows(e.RowIndex).Cells("備註").Value.ToString : CheckBox1.Checked = DataGridView1.Rows(e.RowIndex).Cells("外貿").Value

  65.             CheckBox2.Checked = DataGridView1.Rows(e.RowIndex).Cells("停用").Value

  66.         End If

  67.     End Sub

  68.     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

  69.         PA1 = ComboBox1.Text : SQL_付款方式_編號()

  70.         If dr.Read() Then : TextBox27.Text = dr("編號") : End If : conn.Close()

  71.     End Sub

  72.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

  73.         PA = InputBox("請輸入要查詢的關鍵字")

  74.         Set_供應商清單()

  75.     End Sub

  76.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

  77.         DataGridView1.Enabled = False

  78.         TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = "" : TextBox6.Text = "" : TextBox7.Text = "" : TextBox8.Text = "" : TextBox9.Text = ""

  79.         TextBox10.Text = "" : TextBox11.Text = "" : TextBox12.Text = "" : TextBox13.Text = "" : TextBox14.Text = "" : TextBox15.Text = "" : TextBox16.Text = "" : TextBox17.Text = ""

  80.         TextBox18.Text = "" : TextBox19.Text = "" : TextBox20.Text = "" : TextBox21.Text = "" : TextBox22.Text = "" : TextBox23.Text = "" : TextBox24.Text = "" : TextBox25.Text = ""

  81.         TextBox26.Text = "" : NumericUpDown1.Value = 0 : NumericUpDown2.Value = 0 : NumericUpDown3.Value = 0 : NumericUpDown4.Value = 0 : ComboBox2.Text = "NTD" : TextBox28.Text = ""

  82.         TextBox27.Text = "" : CheckBox1.Checked = False : CheckBox2.Checked = False : ComboBox1下拉表單資料載入()

  83.         '----------------------自动生成流水号-------------------------------------------------------------------------

  84.         SQL_供應商資料表流水號最後一筆()

  85.         If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1

  86.         If EDR < 10 Then : ESTR = "FI" & "0000000" & EDR

  87.         ElseIf EDR > 9 And EDR < 100 Then : ESTR = "FI" & "000000" & EDR

  88.         ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "FI" & "00000" & EDR

  89.         ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "FI" & "0000" & EDR

  90.         ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "FI" & "000" & EDR

  91.         ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "FI" & "00" & EDR

  92.         ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "FI" & "0" & EDR

  93.         ElseIf EDR > 9999999 Then : ESTR = "FI" & EDR : End If : TextBox1.Text = ESTR

  94.     End Sub

  95.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

  96.         If DataGridView1.Enabled = False Then

  97.             If ComboBox1.Text = "" Then : MsgBox("沒有選擇付款方式 。")

  98.             Else

  99.                 SQL_供應商資料表新增() : conn.Close()

  100.                 MsgBox("資料新增完畢 。") : Set_供應商清單() : PA = "" : DataGridView1.Enabled = True

  101.             End If

  102.         Else

  103.             SQL_供應商資料表修改() : conn.Close()

  104.             MsgBox("資料存檔完畢 。") : Set_供應商清單() : PA = "" : DataGridView1.Enabled = True

  105.         End If

  106.     End Sub

  107.     '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------

  108.     Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click

  109.         PA = "" : Set_供應商清單()

  110.     End Sub

  111.     Private Sub 關鍵字查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢ToolStripMenuItem.Click

  112.         Me.Button3.PerformClick()

  113.     End Sub

  114.     Private Sub 新增供應商資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增供應商資料ToolStripMenuItem.Click

  115.         Me.Button6.PerformClick()

  116.     End Sub

  117.     Private Sub 資料存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料存檔ToolStripMenuItem.Click

  118.         Me.Button4.PerformClick()

  119.     End Sub

  120.     Private Sub 資料刪除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料刪除ToolStripMenuItem.Click

  121.         Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)

  122.         If aa = MsgBoxResult.Ok Then

  123.             SQL_供應商資料表刪除() : conn.Close() : MsgBox("刪除完成") : Set_供應商清單() : PA = ""

  124.         End If

  125.     End Sub

  126. End Class