Imports System.Windows.Forms.DataVisualization.Charting Public Class 產品銷售分析表 ReadOnly ds, ds1, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10 As New DataSet Private Sub 讀取客戶資料表1() 產品2_dgv.DataSource = Nothing : ds3.Clear() 產品2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品2_dgv.ColumnHeadersHeight = 30 產品2_dgv.AllowUserToAddRows = False SQL_產品資料1() da.Fill(ds3) : 產品2_dgv.DataSource = ds3.Tables(0) : conn.Close() 產品2_dgv.Columns(0).FillWeight = 65 : 產品2_dgv.Columns(1).FillWeight = 65 : 產品2_dgv.Columns(2).FillWeight = 65 產品2_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 產品2_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品2_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品2_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End Sub Private Sub 讀取客戶資料表2() 產品1_dgv.DataSource = Nothing : ds1.Clear() 產品1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品1_dgv.ColumnHeadersHeight = 30 產品1_dgv.AllowUserToAddRows = False SQL_產品資料2() da.Fill(ds1) : 產品1_dgv.DataSource = ds1.Tables(0) : conn.Close() 產品1_dgv.Columns(0).FillWeight = 50 : 產品1_dgv.Columns(1).FillWeight = 65 : 產品1_dgv.Columns(2).FillWeight = 65 : 產品1_dgv.Columns(3).FillWeight = 65 產品1_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 產品1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品1_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品1_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End Sub Private Sub 讀取客戶資料表3() 產品3_dgv.DataSource = Nothing : ds.Clear() 產品3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品3_dgv.ColumnHeadersHeight = 30 產品3_dgv.AllowUserToAddRows = False SQL_產品資料3() da.Fill(ds) : 產品3_dgv.DataSource = ds.Tables(0) : conn.Close() 產品3_dgv.Columns(0).FillWeight = 50 : 產品3_dgv.Columns(1).Visible = False : 產品3_dgv.Columns(2).FillWeight = 40 : 產品3_dgv.Columns(3).FillWeight = 65 產品3_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 產品3_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品3_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品3_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End Sub Private Sub 讀取客戶資料表4() 產品4_dgv.DataSource = Nothing : ds4.Clear() 產品4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品4_dgv.ColumnHeadersHeight = 30 產品4_dgv.AllowUserToAddRows = False SQL_產品資料4() da.Fill(ds4) : 產品4_dgv.DataSource = ds4.Tables(0) : conn.Close() 產品4_dgv.Columns(0).FillWeight = 50 : 產品4_dgv.Columns(1).Visible = False : 產品4_dgv.Columns(2).FillWeight = 40 : 產品4_dgv.Columns(3).FillWeight = 65 產品4_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 產品4_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品4_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品4_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End Sub Private Sub 讀取客戶資料表5() 產品5_dgv.DataSource = Nothing : ds5.Clear() 產品5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品5_dgv.ColumnHeadersHeight = 30 產品5_dgv.AllowUserToAddRows = False SQL_產品資料5() da.Fill(ds5) : 產品5_dgv.DataSource = ds5.Tables(0) : conn.Close() 產品5_dgv.Columns(0).FillWeight = 50 : 產品5_dgv.Columns(1).Visible = False : 產品5_dgv.Columns(2).FillWeight = 40 : 產品5_dgv.Columns(3).FillWeight = 65 產品5_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 產品5_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品5_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品5_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End Sub Private Sub 讀取客戶資料表6() 產品6_dgv.DataSource = Nothing : ds6.Clear() 產品6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品6_dgv.ColumnHeadersHeight = 30 產品6_dgv.AllowUserToAddRows = False SQL_產品資料6() da.Fill(ds6) : 產品6_dgv.DataSource = ds6.Tables(0) : conn.Close() 產品6_dgv.Columns(0).FillWeight = 50 : 產品6_dgv.Columns(1).Visible = False : 產品6_dgv.Columns(2).FillWeight = 40 : 產品6_dgv.Columns(3).FillWeight = 65 產品6_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 產品6_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品6_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品6_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End Sub Private Sub 讀取客戶資料表7() 產品7_dgv.DataSource = Nothing : ds7.Clear() 產品7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品7_dgv.ColumnHeadersHeight = 30 產品7_dgv.AllowUserToAddRows = False SQL_產品資料7() da.Fill(ds7) : 產品7_dgv.DataSource = ds7.Tables(0) : conn.Close() 產品7_dgv.Columns(0).FillWeight = 50 : 產品7_dgv.Columns(1).Visible = False : 產品7_dgv.Columns(2).FillWeight = 40 : 產品7_dgv.Columns(3).FillWeight = 65 產品7_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 產品7_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品7_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品7_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End Sub Private Sub 讀取客戶資料表8() 產品8_dgv.DataSource = Nothing : ds8.Clear() 產品8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品8_dgv.ColumnHeadersHeight = 30 產品8_dgv.AllowUserToAddRows = False SQL_產品資料8() da.Fill(ds8) : 產品8_dgv.DataSource = ds8.Tables(0) : conn.Close() 產品8_dgv.Columns(0).FillWeight = 50 : 產品8_dgv.Columns(1).Visible = False : 產品8_dgv.Columns(2).FillWeight = 40 : 產品8_dgv.Columns(3).FillWeight = 65 產品8_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 產品8_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品8_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品8_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End Sub Private Sub 讀取客戶資料表9() 產品9_dgv.DataSource = Nothing : ds9.Clear() 產品9_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品9_dgv.ColumnHeadersHeight = 30 產品9_dgv.AllowUserToAddRows = False SQL_產品資料9() da.Fill(ds9) : 產品9_dgv.DataSource = ds9.Tables(0) : conn.Close() 產品9_dgv.Columns(0).FillWeight = 50 : 產品9_dgv.Columns(1).Visible = False : 產品9_dgv.Columns(2).FillWeight = 40 : 產品9_dgv.Columns(3).FillWeight = 65 產品9_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 產品9_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品9_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品9_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End Sub Private Sub 讀取客戶資料表10() 產品10_dgv.DataSource = Nothing : ds10.Clear() 產品10_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 產品10_dgv.ColumnHeadersHeight = 30 產品10_dgv.AllowUserToAddRows = False SQL_產品資料10() da.Fill(ds10) : 產品10_dgv.DataSource = ds10.Tables(0) : conn.Close() 產品10_dgv.Columns(0).FillWeight = 40 : 產品10_dgv.Columns(1).FillWeight = 180 : 產品10_dgv.Columns(2).FillWeight = 40 : 產品10_dgv.Columns(3).FillWeight = 65 產品10_dgv.Columns(4).Visible = False : 產品10_dgv.Columns(5).FillWeight = 50 產品10_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 產品10_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 產品10_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 產品10_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight For i As Integer = 0 To 產品10_dgv.Rows.Count - 1 產品10_dgv("項次", i).Value = i + 1 產品10_dgv("比例", i).Value = Math.Round(產品10_dgv("金額", i).Value / Val(總金額_tb.Text) * 100) If 產品10_dgv.Rows(i).Cells("比例").Value = 0 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._000 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 1 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._001 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 2 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._002 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 3 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._003 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 4 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._004 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 5 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._005 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 6 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._006 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 7 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._007 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 8 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._008 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 9 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._009 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 10 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._010 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 11 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._011 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 12 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._012 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 13 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._013 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 14 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._014 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 15 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._015 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 16 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._016 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 17 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._017 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 18 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._018 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 19 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._019 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 20 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._020 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 21 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._021 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 22 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._022 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 23 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._023 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 24 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._024 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 25 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._025 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 26 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._026 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 27 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._027 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 28 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._028 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 29 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._029 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 30 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._030 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 31 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._031 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 32 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._032 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 33 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._033 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 34 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._034 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 35 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._035 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 36 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._036 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 37 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._037 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 38 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._038 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 39 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._039 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 40 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._040 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 41 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._041 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 42 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._042 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 43 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._043 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 44 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._044 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 45 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._045 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 46 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._046 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 47 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._047 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 48 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._048 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 49 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._049 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 50 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._050 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 51 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._051 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 52 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._052 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 53 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._053 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 54 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._054 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 55 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._055 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 56 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._056 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 57 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._057 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 58 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._058 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 59 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._059 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 60 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._060 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 61 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._061 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 62 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._062 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 63 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._063 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 64 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._064 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 65 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._065 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 66 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._066 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 67 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._067 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 68 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._068 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 69 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._069 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 70 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._070 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 71 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._071 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 72 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._072 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 73 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._073 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 74 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._074 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 75 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._075 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 76 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._076 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 77 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._077 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 78 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._078 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 79 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._079 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 80 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._080 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 81 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._081 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 82 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._082 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 83 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._083 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 84 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._084 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 85 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._085 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 86 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._086 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 87 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._087 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 88 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._088 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 89 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._089 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 90 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._090 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 91 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._091 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 92 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._092 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 93 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._093 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 94 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._094 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 95 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._095 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 96 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._096 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 97 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._097 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 98 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._098 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value = 99 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._099 ElseIf 產品10_dgv.Rows(i).Cells("比例").Value >= 100 Then : 產品10_dgv.Rows(i).Cells("百分比").Value = My.Resources._100 : End If Next 總金額_tb.Text = Strings.Format(Val(總金額_tb.Text), "#,##0") : 表格繪製2() End Sub Private Sub 產品銷售分析表_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = GRAMS_SYS : Me.WindowState = 2 : Me.AutoScroll = True 讀取客戶資料表1() : 讀取客戶資料表2() : 讀取客戶資料表3() : 讀取客戶資料表4() : 讀取客戶資料表5() : 讀取客戶資料表6() : 讀取客戶資料表7() : 讀取客戶資料表8() 讀取客戶資料表9() : 讀取客戶資料表10() : 表格繪製() If 產品3_dgv.Rows.Count > 0 Then 日期_tb.Text = 產品3_dgv("日期", 0).Value.ToString : 類別_tb.Text = "一般產品" : 總金額_tb.Text = Val(產品3_dgv("金額", 0).Value) Else 日期_tb.Text = Strings.Format(Today(), "yyyy/MM/dd") : 類別_tb.Text = "一般產品" : 總金額_tb.Text = "0" End If 讀取客戶資料表10() End Sub Private Sub 表格繪製() '-------線狀圖------------------------------------------------------ Chart2.Series.Clear() Chart2.Series.Add("業務類別") : Chart2.Series("業務類別").ChartType = SeriesChartType.Pie Chart2.Series("業務類別").IsValueShownAsLabel = True Chart2.Series("業務類別").IsVisibleInLegend = True Chart2.Series("業務類別").IsXValueIndexed = True For i As Integer = 0 To 產品2_dgv.Rows.Count - 1 Chart2.Series("業務類別").Points.AddXY(產品2_dgv.Rows(i).Cells("類別").Value.ToString, 產品2_dgv.Rows(i).Cells("金額").Value.ToString) Next '-------線狀圖------------------------------------------------------ Chart1.Series.Clear() : Chart1.ChartAreas(0).AxisX.Minimum = 最小_NUD.Value : Chart1.ChartAreas(0).AxisX.Maximum = 最大_NUD.Value If CheckBox1.Checked = True Then Chart1.Series.Add("一般產品") : Chart1.Series("一般產品").ChartType = SeriesChartType.Line Dim NUDAA As Integer If 數列_NUD.Value >= 產品3_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 產品3_dgv.Rows.Count - 1 ElseIf 數列_NUD.Value < 產品3_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If For i As Integer = 0 To NUDAA Chart1.Series("一般產品").Points.AddXY(產品3_dgv.Rows(NUDAA - i).Cells("日期").Value.ToString, 產品3_dgv.Rows(NUDAA - i).Cells("金額").Value.ToString) Next End If If CheckBox2.Checked = True Then Chart1.Series.Add("人工皮") : Chart1.Series("人工皮").ChartType = SeriesChartType.Line Dim NUDAA As Integer If 數列_NUD.Value >= 產品4_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 產品4_dgv.Rows.Count - 1 ElseIf 數列_NUD.Value < 產品4_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If For i As Integer = 0 To NUDAA Chart1.Series("人工皮").Points.AddXY(產品4_dgv.Rows(NUDAA - i).Cells("日期").Value.ToString, 產品4_dgv.Rows(NUDAA - i).Cells("金額").Value.ToString) Next End If If CheckBox3.Checked = True Then Chart1.Series.Add("治療") : Chart1.Series("治療").ChartType = SeriesChartType.Line Dim NUDAA As Integer If 數列_NUD.Value >= 產品5_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 產品5_dgv.Rows.Count - 1 ElseIf 數列_NUD.Value < 產品5_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If For i As Integer = 0 To NUDAA Chart1.Series("治療").Points.AddXY(產品5_dgv.Rows(NUDAA - i).Cells("日期").Value.ToString, 產品5_dgv.Rows(NUDAA - i).Cells("金額").Value.ToString) Next End If If CheckBox4.Checked = True Then Chart1.Series.Add("雷射") : Chart1.Series("雷射").ChartType = SeriesChartType.Line Dim NUDAA As Integer If 數列_NUD.Value >= 產品6_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 產品6_dgv.Rows.Count - 1 ElseIf 數列_NUD.Value < 產品6_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If For i As Integer = 0 To NUDAA Chart1.Series("雷射").Points.AddXY(產品6_dgv.Rows(NUDAA - i).Cells("日期").Value.ToString, 產品6_dgv.Rows(NUDAA - i).Cells("金額").Value.ToString) Next End If If CheckBox5.Checked = True Then Chart1.Series.Add("手術") : Chart1.Series("手術").ChartType = SeriesChartType.Line Dim NUDAA As Integer If 數列_NUD.Value >= 產品7_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 產品7_dgv.Rows.Count - 1 ElseIf 數列_NUD.Value < 產品7_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If For i As Integer = 0 To NUDAA Chart1.Series("手術").Points.AddXY(產品7_dgv.Rows(NUDAA - i).Cells("日期").Value.ToString, 產品7_dgv.Rows(NUDAA - i).Cells("金額").Value.ToString) Next End If If CheckBox6.Checked = True Then Chart1.Series.Add("美療") : Chart1.Series("美療").ChartType = SeriesChartType.Line Dim NUDAA As Integer If 數列_NUD.Value >= 產品8_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 產品8_dgv.Rows.Count - 1 ElseIf 數列_NUD.Value < 產品8_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If For i As Integer = 0 To NUDAA Chart1.Series("美療").Points.AddXY(產品8_dgv.Rows(NUDAA - i).Cells("日期").Value.ToString, 產品8_dgv.Rows(NUDAA - i).Cells("金額").Value.ToString) Next End If If CheckBox7.Checked = True Then Chart1.Series.Add("植髮") : Chart1.Series("植髮").ChartType = SeriesChartType.Line Dim NUDAA As Integer If 數列_NUD.Value >= 產品9_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 產品9_dgv.Rows.Count - 1 ElseIf 數列_NUD.Value < 產品9_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If For i As Integer = 0 To NUDAA Chart1.Series("植髮").Points.AddXY(產品9_dgv.Rows(NUDAA - i).Cells("日期").Value.ToString, 產品9_dgv.Rows(NUDAA - i).Cells("金額").Value.ToString) Next End If End Sub Private Sub 表格繪製1() '-------線狀圖------------------------------------------------------ Chart2.Series.Clear() Chart2.Series.Add("業務類別") : Chart2.Series("業務類別").ChartType = SeriesChartType.Pie Chart2.Series("業務類別").IsValueShownAsLabel = True Chart2.Series("業務類別").IsVisibleInLegend = True Chart2.Series("業務類別").IsXValueIndexed = True For i As Integer = 0 To 產品1_dgv.Rows.Count - 1 If 產品1_dgv.Rows(i).Cells("日期").Value.ToString = 日期_tb.Text Then Chart2.Series("業務類別").Points.AddXY(產品1_dgv.Rows(i).Cells("類別").Value, 產品1_dgv.Rows(i).Cells("金額").Value.ToString) End If Next End Sub Private Sub 表格繪製2() '-------線狀圖------------------------------------------------------ Chart3.Series.Clear() Chart3.Series.Add("產品銷售") : Chart3.Series("產品銷售").ChartType = SeriesChartType.Column Chart3.Series("產品銷售").IsVisibleInLegend = False For i As Integer = 0 To 產品10_dgv.Rows.Count - 1 Chart3.Series("產品銷售").Points.AddXY(產品10_dgv.Rows(i).Cells("項次").Value.ToString, 產品10_dgv.Rows(i).Cells("金額").Value.ToString) Next End Sub Private Sub 產品10_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 產品10_dgv.RowPostPaint 表格繪製2() End Sub Private Sub 產品1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 產品1_dgv.RowPostPaint Dim linePen As New Pen(Color.Blue, 2) If e.RowIndex = 產品1_dgv.Rows.Count - 1 Then Exit Sub Else If 產品1_dgv(0, e.RowIndex).Value.ToString <> 產品1_dgv(0, e.RowIndex + 1).Value.ToString Then Dim startX As Integer = IIf(產品1_dgv.RowHeadersVisible, 產品1_dgv.RowHeadersWidth, 0) Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1 Dim endX As Integer = startX + 產品1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 產品1_dgv.HorizontalScrollingOffset e.Graphics.DrawLine(linePen, startX, startY, endX, startY) Exit Sub End If End If End Sub Private Sub 最大_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 最大_NUD.ValueChanged 表格繪製() End Sub Private Sub 最小_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 最小_NUD.ValueChanged 表格繪製() End Sub Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged 表格繪製() End Sub Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged 表格繪製() End Sub Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged 表格繪製() End Sub Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged 表格繪製() End Sub Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged 表格繪製() End Sub Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged 表格繪製() End Sub Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged 表格繪製() End Sub Private Sub 數列_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 數列_NUD.ValueChanged 最大_NUD.Value = 數列_NUD.Value + 1 End Sub Private Sub 產品1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 產品1_dgv.CellClick If e.RowIndex = -1 Then : Else 日期_tb.Text = 產品1_dgv("日期", e.RowIndex).Value.ToString : 類別_tb.Text = 產品1_dgv("類別", e.RowIndex).Value.ToString 總金額_tb.Text = Val(產品1_dgv("金額", e.RowIndex).Value) : 讀取客戶資料表10() : 表格繪製1() End If End Sub Private Sub 產品3_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 產品3_dgv.CellClick If e.RowIndex = -1 Then : Else 日期_tb.Text = 產品3_dgv("日期", e.RowIndex).Value.ToString : 類別_tb.Text = "一般產品" : 總金額_tb.Text = Val(產品3_dgv("金額", e.RowIndex).Value) : 讀取客戶資料表10() End If End Sub Private Sub 產品4_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 產品4_dgv.CellClick If e.RowIndex = -1 Then : Else 日期_tb.Text = 產品4_dgv("日期", e.RowIndex).Value.ToString : 類別_tb.Text = "人工皮" : 總金額_tb.Text = Val(產品4_dgv("金額", e.RowIndex).Value) : 讀取客戶資料表10() End If End Sub Private Sub 產品5_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 產品5_dgv.CellClick If e.RowIndex = -1 Then : Else 日期_tb.Text = 產品5_dgv("日期", e.RowIndex).Value.ToString : 類別_tb.Text = "治療" : 總金額_tb.Text = Val(產品5_dgv("金額", e.RowIndex).Value) : 讀取客戶資料表10() End If End Sub Private Sub 產品6_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 產品6_dgv.CellClick If e.RowIndex = -1 Then : Else 日期_tb.Text = 產品6_dgv("日期", e.RowIndex).Value.ToString : 類別_tb.Text = "雷射" : 總金額_tb.Text = Val(產品6_dgv("金額", e.RowIndex).Value) : 讀取客戶資料表10() End If End Sub Private Sub 產品7_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 產品7_dgv.CellClick If e.RowIndex = -1 Then : Else 日期_tb.Text = 產品7_dgv("日期", e.RowIndex).Value.ToString : 類別_tb.Text = "手術" : 總金額_tb.Text = Val(產品7_dgv("金額", e.RowIndex).Value) : 讀取客戶資料表10() End If End Sub Private Sub 產品8_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 產品8_dgv.CellClick If e.RowIndex = -1 Then : Else 日期_tb.Text = 產品8_dgv("日期", e.RowIndex).Value.ToString : 類別_tb.Text = "美療" : 總金額_tb.Text = Val(產品8_dgv("金額", e.RowIndex).Value) : 讀取客戶資料表10() End If End Sub Private Sub 產品9_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 產品9_dgv.CellClick If e.RowIndex = -1 Then : Else 日期_tb.Text = 產品9_dgv("日期", e.RowIndex).Value.ToString : 類別_tb.Text = "植髮" : 總金額_tb.Text = Val(產品9_dgv("金額", e.RowIndex).Value) : 讀取客戶資料表10() End If End Sub Private Sub 產品10_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 產品10_dgv.MouseUp If 產品10_dgv.SelectedRows.Count > 0 Then Dim sb As New System.Text.StringBuilder() Dim x As Double = 0 'Dim y As Double = 0 For i As Integer = 0 To 產品10_dgv.SelectedRows.Count - 1 x += Math.Round(產品10_dgv.Rows(產品10_dgv.SelectedRows.Item(i).Index).Cells(3).Value, 1) Next i 選擇加總_tb.Text = Strings.Format(x, "#,##0") End If End Sub End Class