|
|
@@ -3,186 +3,162 @@ Imports System.IO
|
|
3
|
3
|
Public Class 出貨明細表
|
|
4
|
4
|
ReadOnly ds, ds2 As New DataSet
|
|
5
|
5
|
Private Sub Set_訂單清單()
|
|
6
|
|
- Try
|
|
7
|
|
- 訂單明細表_dgv.DataSource = Nothing : ds.Clear()
|
|
8
|
|
- 訂單明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
9
|
|
- 訂單明細表_dgv.ColumnHeadersHeight = 25
|
|
10
|
|
- 訂單明細表_dgv.AllowUserToAddRows = False
|
|
11
|
|
- ConnOpen()
|
|
12
|
|
- If PA = "" Then : SQL_出貨明細表() : Else : SQL_出貨明細表1() : End If
|
|
13
|
|
- 列印用SQL = SQL1
|
|
14
|
|
- CmdSet_For_DGV()
|
|
15
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單明細表_dgv.DataSource = ds.Tables(0) : conn.Close()
|
|
|
6
|
+ 訂單明細表_dgv.DataSource = Nothing : ds.Clear()
|
|
|
7
|
+ 訂單明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
8
|
+ 訂單明細表_dgv.ColumnHeadersHeight = 25
|
|
|
9
|
+ 訂單明細表_dgv.AllowUserToAddRows = False
|
|
|
10
|
+ ConnOpen()
|
|
|
11
|
+ If PA = "" Then : SQL_出貨明細表() : Else : SQL_出貨明細表1() : End If
|
|
|
12
|
+ 列印用SQL = SQL1
|
|
|
13
|
+ CmdSet_For_DGV()
|
|
|
14
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單明細表_dgv.DataSource = ds.Tables(0) : conn.Close()
|
|
16
|
15
|
|
|
17
|
|
- 訂單明細表_dgv.Columns(0).Visible = False : 訂單明細表_dgv.Columns(1).FillWeight = 75 : 訂單明細表_dgv.Columns(2).FillWeight = 60 : 訂單明細表_dgv.Columns(3).FillWeight = 120
|
|
18
|
|
- 訂單明細表_dgv.Columns(4).FillWeight = 150 : 訂單明細表_dgv.Columns(5).FillWeight = 130 : 訂單明細表_dgv.Columns(6).FillWeight = 60
|
|
|
16
|
+ 訂單明細表_dgv.Columns(0).Visible = False : 訂單明細表_dgv.Columns(1).FillWeight = 75 : 訂單明細表_dgv.Columns(2).FillWeight = 60 : 訂單明細表_dgv.Columns(3).FillWeight = 120
|
|
|
17
|
+ 訂單明細表_dgv.Columns(4).FillWeight = 150 : 訂單明細表_dgv.Columns(5).FillWeight = 130 : 訂單明細表_dgv.Columns(6).FillWeight = 60
|
|
19
|
18
|
|
|
20
|
|
- 訂單明細表_dgv.Columns(7).FillWeight = 80 : 訂單明細表_dgv.Columns(8).FillWeight = 80
|
|
21
|
|
- 訂單明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
|
|
22
|
|
- 訂單明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
23
|
|
- 訂單明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
24
|
|
- 訂單明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
|
|
25
|
|
- 訂單明細表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
26
|
|
- 訂單明細表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
19
|
+ 訂單明細表_dgv.Columns(7).FillWeight = 80 : 訂單明細表_dgv.Columns(8).FillWeight = 80
|
|
|
20
|
+ 訂單明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
|
|
|
21
|
+ 訂單明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
22
|
+ 訂單明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
23
|
+ 訂單明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
|
|
|
24
|
+ 訂單明細表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
25
|
+ 訂單明細表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
27
|
26
|
|
|
28
|
|
- 訂單明細表_dgv.Columns(9).Visible = False : 訂單明細表_dgv.Columns(10).FillWeight = 80 : 訂單明細表_dgv.Columns(11).FillWeight = 80 : 訂單明細表_dgv.Columns(12).FillWeight = 80
|
|
29
|
|
- 訂單明細表_dgv.Columns(13).FillWeight = 80 : 訂單明細表_dgv.Columns(14).FillWeight = 80 : 訂單明細表_dgv.Columns(15).Visible = False
|
|
30
|
|
- 訂單明細表_dgv.Columns(16).Visible = False : 訂單明細表_dgv.Columns(17).Visible = False : 訂單明細表_dgv.Columns(18).Visible = False
|
|
31
|
|
- Catch ex As Exception
|
|
32
|
|
- MsgBox(ex.Message)
|
|
33
|
|
- End Try
|
|
|
27
|
+ 訂單明細表_dgv.Columns(9).Visible = False : 訂單明細表_dgv.Columns(10).FillWeight = 80 : 訂單明細表_dgv.Columns(11).FillWeight = 80 : 訂單明細表_dgv.Columns(12).FillWeight = 80
|
|
|
28
|
+ 訂單明細表_dgv.Columns(13).FillWeight = 80 : 訂單明細表_dgv.Columns(14).FillWeight = 80 : 訂單明細表_dgv.Columns(15).Visible = False
|
|
|
29
|
+ 訂單明細表_dgv.Columns(16).Visible = False : 訂單明細表_dgv.Columns(17).Visible = False : 訂單明細表_dgv.Columns(18).Visible = False
|
|
34
|
30
|
End Sub
|
|
35
|
31
|
Private Sub Set_訂單明細()
|
|
36
|
|
- Try
|
|
37
|
|
- 明細表_dgv.DataSource = Nothing : ds2.Clear()
|
|
38
|
|
- 明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
39
|
|
- 明細表_dgv.ColumnHeadersHeight = 25
|
|
40
|
|
- 明細表_dgv.AllowUserToAddRows = False
|
|
41
|
|
- SQL_出貨明細表2()
|
|
42
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 明細表_dgv.DataSource = ds2.Tables(0) : conn.Close()
|
|
|
32
|
+ 明細表_dgv.DataSource = Nothing : ds2.Clear()
|
|
|
33
|
+ 明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
34
|
+ 明細表_dgv.ColumnHeadersHeight = 25
|
|
|
35
|
+ 明細表_dgv.AllowUserToAddRows = False
|
|
|
36
|
+ SQL_出貨明細表2()
|
|
|
37
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 明細表_dgv.DataSource = ds2.Tables(0) : conn.Close()
|
|
43
|
38
|
|
|
44
|
|
- 明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).Visible = False
|
|
45
|
|
- 明細表_dgv.Columns(2).FillWeight = 90 : 明細表_dgv.Columns(3).FillWeight = 90 : 明細表_dgv.Columns(4).FillWeight = 190 : 明細表_dgv.Columns(5).FillWeight = 80
|
|
46
|
|
- 明細表_dgv.Columns(6).FillWeight = 70 : 明細表_dgv.Columns(7).FillWeight = 40 : 明細表_dgv.Columns(8).FillWeight = 40 : 明細表_dgv.Columns(9).FillWeight = 40
|
|
47
|
|
- 明細表_dgv.Columns(10).FillWeight = 40 : 明細表_dgv.Columns(11).FillWeight = 40 : 明細表_dgv.Columns(12).FillWeight = 40 : 明細表_dgv.Columns(13).FillWeight = 40
|
|
48
|
|
- 明細表_dgv.Columns(14).FillWeight = 40 : 明細表_dgv.Columns(15).FillWeight = 40 : 明細表_dgv.Columns(16).FillWeight = 40 : 明細表_dgv.Columns(17).FillWeight = 40
|
|
49
|
|
- 明細表_dgv.Columns(18).FillWeight = 40 : 明細表_dgv.Columns(19).FillWeight = 40 : 明細表_dgv.Columns(20).FillWeight = 40 : 明細表_dgv.Columns(21).FillWeight = 40
|
|
50
|
|
- 明細表_dgv.Columns(22).FillWeight = 40 : 明細表_dgv.Columns(23).FillWeight = 40 : 明細表_dgv.Columns(24).FillWeight = 40 : 明細表_dgv.Columns(25).FillWeight = 60
|
|
51
|
|
- 明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
|
|
52
|
|
- 明細表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
|
|
53
|
|
- 明細表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
|
|
54
|
|
- 明細表_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
|
|
55
|
|
- 明細表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
|
|
56
|
|
- 明細表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(23).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"
|
|
57
|
|
- 明細表_dgv.Columns(25).DefaultCellStyle.Format = "#,##0"
|
|
58
|
|
- Catch ex As Exception
|
|
59
|
|
- MsgBox(ex.Message)
|
|
60
|
|
- End Try
|
|
|
39
|
+ 明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).Visible = False
|
|
|
40
|
+ 明細表_dgv.Columns(2).FillWeight = 90 : 明細表_dgv.Columns(3).FillWeight = 90 : 明細表_dgv.Columns(4).FillWeight = 190 : 明細表_dgv.Columns(5).FillWeight = 80
|
|
|
41
|
+ 明細表_dgv.Columns(6).FillWeight = 70 : 明細表_dgv.Columns(7).FillWeight = 40 : 明細表_dgv.Columns(8).FillWeight = 40 : 明細表_dgv.Columns(9).FillWeight = 40
|
|
|
42
|
+ 明細表_dgv.Columns(10).FillWeight = 40 : 明細表_dgv.Columns(11).FillWeight = 40 : 明細表_dgv.Columns(12).FillWeight = 40 : 明細表_dgv.Columns(13).FillWeight = 40
|
|
|
43
|
+ 明細表_dgv.Columns(14).FillWeight = 40 : 明細表_dgv.Columns(15).FillWeight = 40 : 明細表_dgv.Columns(16).FillWeight = 40 : 明細表_dgv.Columns(17).FillWeight = 40
|
|
|
44
|
+ 明細表_dgv.Columns(18).FillWeight = 40 : 明細表_dgv.Columns(19).FillWeight = 40 : 明細表_dgv.Columns(20).FillWeight = 40 : 明細表_dgv.Columns(21).FillWeight = 40
|
|
|
45
|
+ 明細表_dgv.Columns(22).FillWeight = 40 : 明細表_dgv.Columns(23).FillWeight = 40 : 明細表_dgv.Columns(24).FillWeight = 40 : 明細表_dgv.Columns(25).FillWeight = 60
|
|
|
46
|
+ 明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
|
|
|
47
|
+ 明細表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
|
|
|
48
|
+ 明細表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
|
|
|
49
|
+ 明細表_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
|
|
|
50
|
+ 明細表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
|
|
|
51
|
+ 明細表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(23).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"
|
|
|
52
|
+ 明細表_dgv.Columns(25).DefaultCellStyle.Format = "#,##0"
|
|
|
53
|
+ End Sub
|
|
|
54
|
+ Private Sub Set_訂單明細1()
|
|
|
55
|
+ Dim ds2 As New DataSet
|
|
|
56
|
+ 訂單明細_dgv.DataSource = Nothing : ds2.Clear()
|
|
|
57
|
+ 訂單明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
58
|
+ 訂單明細_dgv.ColumnHeadersHeight = 25
|
|
|
59
|
+ 訂單明細_dgv.AllowUserToAddRows = False
|
|
|
60
|
+ SQL_出貨明細()
|
|
|
61
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 訂單明細_dgv.DataSource = ds2.Tables(0) : conn.Close()
|
|
|
62
|
+
|
|
|
63
|
+ 訂單明細_dgv.Columns(0).FillWeight = 90 : 訂單明細_dgv.Columns(1).FillWeight = 90 : 訂單明細_dgv.Columns(2).FillWeight = 90 : 訂單明細_dgv.Columns(3).FillWeight = 90
|
|
61
|
64
|
End Sub
|
|
62
|
65
|
Private Sub ComboBox1下拉表單資料載入()
|
|
63
|
|
- Try
|
|
64
|
|
- SQL_下拉出貨明細表()
|
|
65
|
|
- 下拉选择_cb.Items.Clear() : While (dr.Read()) : 下拉选择_cb.Items.Add(dr("年份季度")) : End While
|
|
66
|
|
- Catch ex As Exception
|
|
67
|
|
- MsgBox(ex.Message)
|
|
68
|
|
- End Try
|
|
|
66
|
+ SQL_下拉出貨明細表() : 下拉选择_cb.Items.Clear() : While (dr.Read()) : 下拉选择_cb.Items.Add(dr("年份季度")) : End While
|
|
69
|
67
|
End Sub
|
|
70
|
68
|
Private Sub ComboBox5下拉表單資料載入()
|
|
71
|
|
- Try
|
|
72
|
|
- SQL_下拉出貨明細表1()
|
|
73
|
|
- 下拉选择2_cb.Items.Clear() : While (dr.Read()) : 下拉选择2_cb.Items.Add(dr("生產工廠")) : End While
|
|
74
|
|
- Catch ex As Exception
|
|
75
|
|
- MsgBox(ex.Message)
|
|
76
|
|
- End Try
|
|
|
69
|
+ SQL_下拉出貨明細表1() : 下拉选择2_cb.Items.Clear() : While (dr.Read()) : 下拉选择2_cb.Items.Add(dr("生產工廠")) : End While
|
|
77
|
70
|
End Sub
|
|
78
|
71
|
Private Sub ComboBox6下拉表單資料載入()
|
|
79
|
|
- Try
|
|
80
|
|
- SQL_下拉出貨明細表2()
|
|
81
|
|
- 下拉选择1_cb.Items.Clear() : While (dr.Read()) : 下拉选择1_cb.Items.Add(dr("訂單種類")) : End While
|
|
82
|
|
- Catch ex As Exception
|
|
83
|
|
- MsgBox(ex.Message)
|
|
84
|
|
- End Try
|
|
|
72
|
+ SQL_下拉出貨明細表2() : 下拉选择1_cb.Items.Clear() : While (dr.Read()) : 下拉选择1_cb.Items.Add(dr("訂單種類")) : End While
|
|
|
73
|
+ End Sub
|
|
|
74
|
+ Private Sub ComboBox2下拉表單資料載入()
|
|
|
75
|
+ SQL_下拉風格明細()
|
|
|
76
|
+ 季度_cb.Items.Clear() : 季度1_cb.Items.Clear() : While (dr.Read()) : 季度_cb.Items.Add(dr("年份季度")) : 季度1_cb.Items.Add(dr("年份季度")) : End While
|
|
85
|
77
|
End Sub
|
|
86
|
78
|
Private Sub 出貨明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
87
|
|
- Try
|
|
88
|
|
- Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
|
|
89
|
|
- 訂單資料庫選擇.ShowDialog()
|
|
90
|
|
- 驗貨報告編號_tb.Enabled = False : 明細是否建檔_cb.Enabled = False : 開啟訂單明細表_bt.Enabled = False
|
|
91
|
|
- ComboBox1下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入()
|
|
92
|
|
- kkk1 = "WHERE (" & 訂單資料表(1) & ".CXL IS NULL or " & 訂單資料表(1) & ".CXL = 0)"
|
|
93
|
|
- Set_訂單清單()
|
|
94
|
|
- If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
|
|
95
|
|
- 字體_NUD.Value = 9
|
|
96
|
|
- ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
|
|
97
|
|
- 字體_NUD.Value = 7.6
|
|
98
|
|
- End If
|
|
99
|
|
- Catch ex As Exception
|
|
100
|
|
- MsgBox(ex.Message)
|
|
101
|
|
- End Try
|
|
|
79
|
+ Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
|
|
|
80
|
+ 驗貨報告編號_tb.Enabled = False : 明細是否建檔_cb.Enabled = False : 開啟訂單明細表_bt.Enabled = False : 視窗2_pl.Visible = False
|
|
|
81
|
+ 訂單資料庫選擇.ShowDialog()
|
|
|
82
|
+ ComboBox1下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入() : ComboBox2下拉表單資料載入() : PA = "" : Set_訂單明細1()
|
|
|
83
|
+ kkk1 = "WHERE (" & 訂單資料表(1) & ".CXL IS NULL or " & 訂單資料表(1) & ".CXL = 0)"
|
|
|
84
|
+ Set_訂單清單()
|
|
|
85
|
+ If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
|
|
|
86
|
+ 字體_NUD.Value = 9
|
|
|
87
|
+ ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
|
|
|
88
|
+ 字體_NUD.Value = 7.6
|
|
|
89
|
+ End If
|
|
102
|
90
|
End Sub
|
|
103
|
91
|
Private Sub 出貨明細表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
|
|
104
|
|
- Try
|
|
105
|
|
- If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
|
|
106
|
|
- 字體_NUD.Value = 9
|
|
107
|
|
- ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
|
|
108
|
|
- 字體_NUD.Value = 7.6
|
|
109
|
|
- End If
|
|
110
|
|
- Catch ex As Exception
|
|
111
|
|
- MsgBox(ex.Message)
|
|
112
|
|
- End Try
|
|
|
92
|
+ If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
|
|
|
93
|
+ 字體_NUD.Value = 9
|
|
|
94
|
+ ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
|
|
|
95
|
+ 字體_NUD.Value = 7.6
|
|
|
96
|
+ End If
|
|
113
|
97
|
End Sub
|
|
114
|
98
|
Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
|
|
115
|
|
- Try
|
|
116
|
|
- 訂單明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
|
|
117
|
|
- 明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
|
|
118
|
|
- Catch ex As Exception
|
|
119
|
|
- MsgBox(ex.Message)
|
|
120
|
|
- End Try
|
|
121
|
|
- End Sub
|
|
122
|
|
- Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單明細表_dgv.CellClick
|
|
123
|
|
- Try
|
|
124
|
|
- If e.RowIndex = -1 Then : Else
|
|
125
|
|
- 驗貨報告編號_tb.Text = 訂單明細表_dgv(1, e.RowIndex).Value.ToString : 明細是否建檔_cb.Checked = 訂單明細表_dgv(15, e.RowIndex).Value.ToString
|
|
126
|
|
- 天盾訂單號_tb.Text = 訂單明細表_dgv("訂單流水號", e.RowIndex).Value.ToString : 客戶訂單號_tb.Text = 訂單明細表_dgv("客戶訂單號", e.RowIndex).Value.ToString
|
|
|
99
|
+ 訂單明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
|
|
|
100
|
+ 明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
|
|
|
101
|
+ End Sub
|
|
|
102
|
+ Private Sub 訂單明細_dgv_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單明細_dgv.CellClick
|
|
|
103
|
+ 客戶訂單號1_tb.Text = 訂單明細_dgv(2, e.RowIndex).Value.ToString : 天盾訂單號1_tb.Text = 訂單明細_dgv(0, e.RowIndex).Value.ToString
|
|
|
104
|
+ 季度_cb.Text = 訂單明細_dgv(1, e.RowIndex).Value.ToString
|
|
|
105
|
+ End Sub
|
|
|
106
|
+ Private Sub 訂單明細表_dgv_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單明細表_dgv.CellClick
|
|
|
107
|
+ If e.RowIndex = -1 Then : Else
|
|
|
108
|
+ 驗貨報告編號_tb.Text = 訂單明細表_dgv(1, e.RowIndex).Value.ToString : 明細是否建檔_cb.Checked = 訂單明細表_dgv(15, e.RowIndex).Value.ToString
|
|
|
109
|
+ 天盾訂單號_tb.Text = 訂單明細表_dgv("訂單流水號", e.RowIndex).Value.ToString : 客戶訂單號_tb.Text = 訂單明細表_dgv("客戶訂單號", e.RowIndex).Value.ToString
|
|
127
|
110
|
|
|
128
|
|
- If 明細是否建檔_cb.Checked = False Then : 開啟訂單明細表_bt.Enabled = False : Else : 開啟訂單明細表_bt.Enabled = True : End If
|
|
129
|
|
- PA = 訂單明細表_dgv("TVW", e.RowIndex).Value.ToString : PA1 = 訂單明細表_dgv(16, e.RowIndex).Value.ToString : PA2 = 訂單明細表_dgv(5, e.RowIndex).Value.ToString
|
|
130
|
|
- If 訂單明細表_dgv(5, e.RowIndex).Value = "" Then
|
|
131
|
|
- SQL_讀取訂單明細表圖片() : 驗貨報告_pb.Image = Nothing
|
|
|
111
|
+ If 明細是否建檔_cb.Checked = False Then : 開啟訂單明細表_bt.Enabled = False : Else : 開啟訂單明細表_bt.Enabled = True : End If
|
|
|
112
|
+ PA = 訂單明細表_dgv("TVW", e.RowIndex).Value.ToString : PA1 = 訂單明細表_dgv(16, e.RowIndex).Value.ToString : PA2 = 訂單明細表_dgv(5, e.RowIndex).Value.ToString
|
|
|
113
|
+ If 訂單明細表_dgv(5, e.RowIndex).Value = "" Then
|
|
|
114
|
+ SQL_讀取訂單明細表圖片() : 驗貨報告_pb.Image = Nothing
|
|
|
115
|
+ While dr.Read() = True
|
|
|
116
|
+ Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
|
117
|
+ Dim oStream As New MemoryStream(bytes) : 驗貨報告_pb.Image = Bitmap.FromStream(oStream)
|
|
|
118
|
+ End While
|
|
|
119
|
+ Else
|
|
|
120
|
+ SQL_讀取訂單明細表圖片1()
|
|
|
121
|
+ If dr.Read() Then
|
|
|
122
|
+ SQL_讀取訂單明細表圖片1() : 驗貨報告_pb.Image = Nothing
|
|
132
|
123
|
While dr.Read() = True
|
|
133
|
|
- Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
|
124
|
+ Dim unused2 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
134
|
125
|
Dim oStream As New MemoryStream(bytes) : 驗貨報告_pb.Image = Bitmap.FromStream(oStream)
|
|
135
|
126
|
End While
|
|
136
|
127
|
Else
|
|
137
|
|
- SQL_讀取訂單明細表圖片1()
|
|
138
|
|
- If dr.Read() Then
|
|
139
|
|
- SQL_讀取訂單明細表圖片1() : 驗貨報告_pb.Image = Nothing
|
|
140
|
|
- While dr.Read() = True
|
|
141
|
|
- Dim unused2 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
142
|
|
- Dim oStream As New MemoryStream(bytes) : 驗貨報告_pb.Image = Bitmap.FromStream(oStream)
|
|
143
|
|
- End While
|
|
144
|
|
- Else
|
|
145
|
|
- SQL_讀取訂單明細表圖片() : 驗貨報告_pb.Image = Nothing
|
|
146
|
|
- While dr.Read() = True
|
|
147
|
|
- Dim unused1 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
148
|
|
- Dim oStream As New MemoryStream(bytes) : 驗貨報告_pb.Image = Bitmap.FromStream(oStream)
|
|
149
|
|
- End While
|
|
150
|
|
- End If
|
|
|
128
|
+ SQL_讀取訂單明細表圖片() : 驗貨報告_pb.Image = Nothing
|
|
|
129
|
+ While dr.Read() = True
|
|
|
130
|
+ Dim unused1 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
|
131
|
+ Dim oStream As New MemoryStream(bytes) : 驗貨報告_pb.Image = Bitmap.FromStream(oStream)
|
|
|
132
|
+ End While
|
|
151
|
133
|
End If
|
|
152
|
|
- conn.Close() : 驗貨報告_pb.SizeMode = 4
|
|
153
|
|
- '------------驗貨報告讀取--------------------------------------------------------------------------------------------
|
|
|
134
|
+ End If
|
|
|
135
|
+ conn.Close() : 驗貨報告_pb.SizeMode = 4
|
|
|
136
|
+ '------------驗貨報告讀取--------------------------------------------------------------------------------------------
|
|
154
|
137
|
|
|
155
|
|
- PA1 = 訂單明細表_dgv("驗報圖庫", e.RowIndex).Value.ToString : PA2 = 訂單明細表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
|
|
156
|
|
- SQL_讀取訂單明細表圖片2() : 驗貨報告圖庫_pb.Image = Nothing
|
|
157
|
|
- While dr.Read() = True
|
|
158
|
|
- Dim unused3 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("驗貨報告"), Byte())
|
|
159
|
|
- Dim oStream As New MemoryStream(bytes) : 驗貨報告圖庫_pb.Image = Bitmap.FromStream(oStream)
|
|
160
|
|
- End While
|
|
161
|
|
- conn.Close() : 驗貨報告圖庫_pb.SizeMode = 4 : 圖片傳遞 = 驗貨報告圖庫_pb.Image
|
|
|
138
|
+ PA1 = 訂單明細表_dgv("驗報圖庫", e.RowIndex).Value.ToString : PA2 = 訂單明細表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
|
|
|
139
|
+ SQL_讀取訂單明細表圖片2() : 驗貨報告圖庫_pb.Image = Nothing
|
|
|
140
|
+ While dr.Read() = True
|
|
|
141
|
+ Dim unused3 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("驗貨報告"), Byte())
|
|
|
142
|
+ Dim oStream As New MemoryStream(bytes) : 驗貨報告圖庫_pb.Image = Bitmap.FromStream(oStream)
|
|
|
143
|
+ End While
|
|
|
144
|
+ conn.Close() : 驗貨報告圖庫_pb.SizeMode = 4 : 圖片傳遞 = 驗貨報告圖庫_pb.Image
|
|
162
|
145
|
|
|
163
|
|
- 驗貨報告 = 訂單明細表_dgv(16, e.RowIndex).Value.ToString : Set_訂單明細()
|
|
164
|
|
- End If
|
|
165
|
|
- Catch ex As Exception
|
|
166
|
|
- MsgBox(ex.Message)
|
|
167
|
|
- End Try
|
|
168
|
|
- End Sub
|
|
169
|
|
- Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 訂單明細表_dgv.RowPostPaint
|
|
170
|
|
- Try
|
|
171
|
|
- Dim linePen As New Pen(Color.Blue, 2)
|
|
172
|
|
- If e.RowIndex = 訂單明細表_dgv.Rows.Count - 1 Then
|
|
|
146
|
+ 驗貨報告 = 訂單明細表_dgv(16, e.RowIndex).Value.ToString : Set_訂單明細()
|
|
|
147
|
+ End If
|
|
|
148
|
+ End Sub
|
|
|
149
|
+ Private Sub 訂單明細表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 訂單明細表_dgv.RowPostPaint
|
|
|
150
|
+ Dim linePen As New Pen(Color.Blue, 2)
|
|
|
151
|
+ If e.RowIndex = 訂單明細表_dgv.Rows.Count - 1 Then
|
|
|
152
|
+ Exit Sub
|
|
|
153
|
+ Else
|
|
|
154
|
+ If 訂單明細表_dgv(1, e.RowIndex).Value.ToString <> 訂單明細表_dgv(1, e.RowIndex + 1).Value.ToString Then
|
|
|
155
|
+ Dim startX As Integer = IIf(訂單明細表_dgv.RowHeadersVisible, 訂單明細表_dgv.RowHeadersWidth, 0)
|
|
|
156
|
+ Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
|
|
|
157
|
+ Dim endX As Integer = startX + 訂單明細表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 訂單明細表_dgv.HorizontalScrollingOffset
|
|
|
158
|
+ e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
|
|
173
|
159
|
Exit Sub
|
|
174
|
|
- Else
|
|
175
|
|
- If 訂單明細表_dgv(1, e.RowIndex).Value.ToString <> 訂單明細表_dgv(1, e.RowIndex + 1).Value.ToString Then
|
|
176
|
|
- Dim startX As Integer = IIf(訂單明細表_dgv.RowHeadersVisible, 訂單明細表_dgv.RowHeadersWidth, 0)
|
|
177
|
|
- Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
|
|
178
|
|
- Dim endX As Integer = startX + 訂單明細表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 訂單明細表_dgv.HorizontalScrollingOffset
|
|
179
|
|
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
|
|
180
|
|
- Exit Sub
|
|
181
|
|
- End If
|
|
182
|
160
|
End If
|
|
183
|
|
- Catch ex As Exception
|
|
184
|
|
- MsgBox(ex.Message)
|
|
185
|
|
- End Try
|
|
|
161
|
+ End If
|
|
186
|
162
|
End Sub
|
|
187
|
163
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 搜尋_bt.Click
|
|
188
|
164
|
PA = InputBox("請輸入要查詢的資料") : Set_訂單清單() : PA = ""
|
|
|
@@ -265,43 +241,27 @@ Public Class 出貨明細表
|
|
265
|
241
|
kkk5 = " AND " & 訂單資料表(1) & ".工廠回復交期 BETWEEN '" & Format(日期2_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(日期3_dtp.Value, "yyyy/MM/dd") & "' "
|
|
266
|
242
|
Else : kkk5 = "" : End If
|
|
267
|
243
|
End Sub
|
|
268
|
|
- Private Sub DateTimePicker4_ValueChanged(sender As Object, e As EventArgs) Handles 日期3_dtp.ValueChanged
|
|
269
|
|
- Try
|
|
270
|
|
- If FTY1_cb.Checked = True Then
|
|
271
|
|
- kkk5 = " AND " & 訂單資料表(1) & ".工廠回復交期 BETWEEN '" & Format(日期2_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(日期3_dtp.Value, "yyyy/MM/dd") & "' "
|
|
272
|
|
- Else : kkk5 = "" : End If
|
|
273
|
|
- Catch ex As Exception
|
|
274
|
|
- MsgBox(ex.Message)
|
|
275
|
|
- End Try
|
|
276
|
|
- End Sub
|
|
277
|
|
- Private Sub DateTimePicker5_ValueChanged(sender As Object, e As EventArgs) Handles 日期4_dtp.ValueChanged
|
|
278
|
|
- Try
|
|
279
|
|
- If RLF1_cb.Checked = True Then
|
|
280
|
|
- kkk6 = " AND 貨款匯入出款明細表.實際離廠日 BETWEEN '" & Format(日期4_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(日期5_dtp.Value, "yyyy/MM/dd") & "' "
|
|
281
|
|
- Else : kkk6 = "" : End If
|
|
282
|
|
- Catch ex As Exception
|
|
283
|
|
- MsgBox(ex.Message)
|
|
284
|
|
- End Try
|
|
|
244
|
+ Private Sub 日期3_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 日期3_dtp.ValueChanged
|
|
|
245
|
+ If FTY1_cb.Checked = True Then
|
|
|
246
|
+ kkk5 = " AND " & 訂單資料表(1) & ".工廠回復交期 BETWEEN '" & Format(日期2_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(日期3_dtp.Value, "yyyy/MM/dd") & "' "
|
|
|
247
|
+ Else : kkk5 = "" : End If
|
|
|
248
|
+ End Sub
|
|
|
249
|
+ Private Sub 日期4_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 日期4_dtp.ValueChanged
|
|
|
250
|
+ If RLF1_cb.Checked = True Then
|
|
|
251
|
+ kkk6 = " AND 貨款匯入出款明細表.實際離廠日 BETWEEN '" & Format(日期4_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(日期5_dtp.Value, "yyyy/MM/dd") & "' "
|
|
|
252
|
+ Else : kkk6 = "" : End If
|
|
285
|
253
|
End Sub
|
|
286
|
254
|
Private Sub DateTimePicker6_ValueChanged(sender As Object, e As EventArgs) Handles 日期5_dtp.ValueChanged
|
|
287
|
|
- Try
|
|
288
|
|
- If RLF1_cb.Checked = True Then
|
|
289
|
|
- kkk6 = " AND 貨款匯入出款明細表.實際離廠日 BETWEEN '" & Format(日期4_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(日期5_dtp.Value, "yyyy/MM/dd") & "' "
|
|
290
|
|
- Else : kkk6 = "" : End If
|
|
291
|
|
- Catch ex As Exception
|
|
292
|
|
- MsgBox(ex.Message)
|
|
293
|
|
- End Try
|
|
|
255
|
+ If RLF1_cb.Checked = True Then
|
|
|
256
|
+ kkk6 = " AND 貨款匯入出款明細表.實際離廠日 BETWEEN '" & Format(日期4_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(日期5_dtp.Value, "yyyy/MM/dd") & "' "
|
|
|
257
|
+ Else : kkk6 = "" : End If
|
|
294
|
258
|
End Sub
|
|
295
|
259
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
|
|
296
|
260
|
列印_出貨明細表.ShowDialog()
|
|
297
|
261
|
End Sub
|
|
298
|
262
|
Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click
|
|
299
|
|
- Try
|
|
300
|
|
- SQL_訂單資料表選擇_VIONIC() : kkk1 = "WHERE (" & 訂單資料表(1) & ".CXL IS NULL or " & 訂單資料表(1) & ".CXL = 0)"
|
|
301
|
|
- Set_訂單清單()
|
|
302
|
|
- Catch ex As Exception
|
|
303
|
|
- MsgBox(ex.Message)
|
|
304
|
|
- End Try
|
|
|
263
|
+ SQL_訂單資料表選擇_VIONIC() : kkk1 = "WHERE (" & 訂單資料表(1) & ".CXL IS NULL or " & 訂單資料表(1) & ".CXL = 0)"
|
|
|
264
|
+ Set_訂單清單()
|
|
305
|
265
|
End Sub
|
|
306
|
266
|
Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
|
|
307
|
267
|
Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
|
|
|
@@ -315,12 +275,35 @@ Public Class 出貨明細表
|
|
315
|
275
|
End If
|
|
316
|
276
|
Set_訂單清單() : Set_訂單明細()
|
|
317
|
277
|
End Sub
|
|
|
278
|
+ Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
|
|
|
279
|
+ If 視窗2_pl.Visible = False Then : 視窗2_pl.Location = New System.Drawing.Point(372, 126) : 視窗2_pl.Visible = True : Else : 視窗2_pl.Visible = False : End If
|
|
|
280
|
+ End Sub
|
|
|
281
|
+ Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click
|
|
|
282
|
+ If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else
|
|
|
283
|
+ 視窗2_pl.Visible = False : End If
|
|
|
284
|
+ End Sub
|
|
318
|
285
|
Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click
|
|
319
|
|
- Try
|
|
320
|
|
- SQL_訂單資料表選擇_非VIONIC() : kkk1 = "WHERE (" & 訂單資料表(1) & ".CXL IS NULL or " & 訂單資料表(1) & ".CXL = 0)"
|
|
321
|
|
- Set_訂單清單()
|
|
322
|
|
- Catch ex As Exception
|
|
323
|
|
- MsgBox(ex.Message)
|
|
324
|
|
- End Try
|
|
|
286
|
+ SQL_訂單資料表選擇_非VIONIC() : kkk1 = "WHERE (" & 訂單資料表(1) & ".CXL IS NULL or " & 訂單資料表(1) & ".CXL = 0)"
|
|
|
287
|
+ Set_訂單清單()
|
|
|
288
|
+ End Sub
|
|
|
289
|
+ Private Sub 搜尋1_bt_Click(sender As Object, e As EventArgs) Handles 搜尋1_bt.Click
|
|
|
290
|
+ PA = 搜尋_tb.Text : Set_訂單明細1()
|
|
|
291
|
+ End Sub
|
|
|
292
|
+ Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
|
|
|
293
|
+ If 季度1_cb.Text = "" Or 季度_cb.Text = "" Or 客戶訂單號1_tb.Text = "" Or 天盾訂單號1_tb.Text = "" Then : MsgBox("請正確選擇資料後再做修改!!") : Else
|
|
|
294
|
+ SQL_修改季節資料() : MsgBox("修改完成!!") : Set_訂單明細1() : Set_訂單清單()
|
|
|
295
|
+ End If
|
|
|
296
|
+ End Sub
|
|
|
297
|
+
|
|
|
298
|
+ Dim OldX, OldY As Long
|
|
|
299
|
+ Dim drag As Boolean
|
|
|
300
|
+ Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown
|
|
|
301
|
+ If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
|
|
|
302
|
+ End Sub
|
|
|
303
|
+ Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove
|
|
|
304
|
+ If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If
|
|
|
305
|
+ End Sub
|
|
|
306
|
+ Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp
|
|
|
307
|
+ drag = False
|
|
325
|
308
|
End Sub
|
|
326
|
309
|
End Class
|
