WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
Seguir 4
Destacar 0
Cuchillo 0
Código Incidencias 0 Peticiones pull 0 Lanzamientos 0 Wiki Actividad
Sin descripción
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 Commits
1 Rama
Árbol: d4222c0627
Ramas Etiquetas
${ item.name }
Crear rama ${ searchTerm }
desde 'd4222c0627'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/量產訂單管理系統/CXL訂單紀錄表.vb

CXL訂單紀錄表.vb 8.9KB
Histórico Original

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798 
  1. Option Strict Off

  2. Imports System.Data.SqlClient

  3. Public Class CXL訂單紀錄表

  4.     ReadOnly conn As New SqlConnection

  5.     ReadOnly da As New SqlDataAdapter

  6.     ReadOnly cmd As New SqlCommand

  7.     ReadOnly ds As New DataSet

  8.     Private Sub Set_DGV3載入前設定()

  9.         DataGridView1.DataSource = Nothing : ds.Clear()

  10.         DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  11.         DataGridView1.ColumnHeadersHeight = 25

  12.         DataGridView1.AllowUserToAddRows = False

  13.         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  14.     End Sub

  15.     Private Sub Set_DGV3載入後設定()

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

  17.     End Sub

  18.     Private Sub Set_清單3()

  19.         Set_DGV3載入前設定()

  20.         If PA = "" Then

  21.             SQL1 = "SELECT TOP(500) 訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 客戶交期 AS 交期開始, 客戶交期1 AS 交期結束, 單價, 總金額, 備註, 生產工廠, 

  22.                        訂單種類, BUYER, CFMSPEC AS 訂單種類, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 資料流水號, 明細建檔, LEATHER, LEA_Note, 

  23.                        CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 

  24.                        七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 驗貨報告圖片

  25.                     FROM 訂單控制表  

  26.                     WHERE  CXL = '1'

  27.                     ORDER BY 訂單流水號, 型體號碼, APMA確認, TVW"

  28.         Else

  29.             SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 型體名稱, APMA確認 AS 顏色, TVW AS 楦型, 訂單數量, 客戶交期 AS 交期開始, 客戶交期1 AS 交期結束, 單價, 總金額, 備註, 生產工廠, 

  30.                        訂單種類, BUYER, CFMSPEC AS 訂單種類, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 資料流水號, 明細建檔, LEATHER, LEA_Note, 

  31.                        CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 

  32.                        七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 驗貨報告圖片

  33.                     FROM 訂單控制表

  34.                     WHERE (CXL = '1') AND 

  35.                          (訂單流水號 LIKE N'" & PA & "' OR 年份季度 LIKE N'" & PA & "' OR 客戶訂單號 LIKE N'" & PA & "' OR 型體號碼 LIKE N'" & PA & "' OR GOODBOX LIKE N'" & PA & "' OR APMA確認 LIKE N'" & PA &

  36.                        "' OR TVW LIKE N'" & PA & "' OR 訂單數量 LIKE N'" & PA & "' OR 客戶交期 LIKE N'" & PA & "' OR 客戶交期1 LIKE N'" & PA & "' OR 備註 LIKE N'" & PA & "' OR 生產工廠 LIKE N'" & PA &

  37.                        "' OR 訂單種類 LIKE N'" & PA & "' OR BUYER LIKE N'" & PA & "' OR CFMSPEC LIKE N'" & PA & "')

  38.                     ORDER BY 訂單流水號, 型體號碼, APMA確認, TVW"

  39.         End If

  40.         Set_DGV3載入後設定()

  41.     End Sub

  42.     Private Sub Set_grid4()

  43.         DataGridView1.Columns(0).Width = 140 : DataGridView1.Columns(1).Width = 80 : DataGridView1.Columns(2).Width = 140 : DataGridView1.Columns(3).Width = 130 : DataGridView1.Columns(4).Width = 140

  44.         DataGridView1.Columns(5).Width = 90 : DataGridView1.Columns(6).Width = 60 : DataGridView1.Columns(7).Width = 90 : DataGridView1.Columns(8).Width = 100 : DataGridView1.Columns(9).Width = 100

  45.         DataGridView1.Columns(10).Width = 90 : DataGridView1.Columns(11).Width = 90 : DataGridView1.Columns(12).Width = 140 : DataGridView1.Columns(13).Width = 90 : DataGridView1.Columns(14).Width = 130

  46.         DataGridView1.Columns(15).Width = 140 : DataGridView1.Columns(16).Width = 120

  47.         DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False

  48.         DataGridView1.Columns(19).Visible = False : DataGridView1.Columns(20).Visible = False : DataGridView1.Columns(21).Visible = False : DataGridView1.Columns(22).Visible = False

  49.         DataGridView1.Columns(23).Visible = False : DataGridView1.Columns(24).Visible = False : DataGridView1.Columns(25).Visible = False : DataGridView1.Columns(26).Visible = False

  50.         DataGridView1.Columns(27).Visible = False : DataGridView1.Columns(28).Visible = False : DataGridView1.Columns(29).Visible = False : DataGridView1.Columns(30).Visible = False

  51.         DataGridView1.Columns(31).Visible = False : DataGridView1.Columns(32).Visible = False : DataGridView1.Columns(33).Visible = False : DataGridView1.Columns(34).Visible = False

  52.         DataGridView1.Columns(35).Visible = False : DataGridView1.Columns(36).Visible = False : DataGridView1.Columns(37).Visible = False : DataGridView1.Columns(38).Visible = False

  53.         DataGridView1.Columns(39).Visible = False : DataGridView1.Columns(40).Visible = False : DataGridView1.Columns(41).Visible = False : DataGridView1.Columns(42).Visible = False

  54.         DataGridView1.Columns(43).Visible = False : DataGridView1.Columns(44).Visible = False : DataGridView1.Columns(45).Visible = False : DataGridView1.Columns(46).Visible = False

  55.         DataGridView1.Columns(47).Visible = False : DataGridView1.Columns(48).Visible = False : DataGridView1.Columns(49).Visible = False : DataGridView1.Columns(50).Visible = False

  56.         DataGridView1.Columns(51).Visible = False : DataGridView1.Columns(52).Visible = False : DataGridView1.Columns(53).Visible = False : DataGridView1.Columns(54).Visible = False

  57.         DataGridView1.Columns(55).Visible = False : DataGridView1.Columns(56).Visible = False : DataGridView1.Columns(57).Visible = False : DataGridView1.Columns(58).Visible = False

  58.         DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(11).DefaultCellStyle.Format = "#,##0.00"

  59.         DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  60.         DataGridView1.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  61.         DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  62.         DataGridView1.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  63.     End Sub

  64.     Private Sub CXL訂單紀錄表_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  65.         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  66.         Set_清單3()

  67.     End Sub

  68.     Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint

  69.         Dim linePen As New Pen(Color.Blue, 2)

  70.         If e.RowIndex = DataGridView1.Rows.Count - 1 Then

  71.             Exit Sub

  72.         Else

  73.             If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then

  74.                 Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)

  75.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  76.                 Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset

  77.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  78.                 Exit Sub

  79.             End If

  80.         End If

  81.     End Sub

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

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

  84.             TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("訂單流水號").Value

  85.         End If

  86.     End Sub

  87.     Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click

  88.         If TextBox1.Text = "" Then

  89.             MsgBox("請先選擇訂單資料")

  90.         Else

  91.             PA = TextBox1.Text

  92.             量產訂單明細表.Show() : 量產訂單明細表.WindowState = 2

  93.         End If

  94.     End Sub

  95.     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

  96.         PA = InputBox("請輸入要查詢的關鍵字") : Set_清單3() : PA = ""

  97.     End Sub

  98. End Class