Microsoft Word - d 邱書毅.doc

Transcription

1 報告題名 : 作者 : 邱書毅系級 : 工業工程與系統管理學系二年級學號 :D 開課老師 : 陳亭志課程名稱 : 應用程式設計開課系所 : 工業工程與系統管理學系開課學年 : 98 學年度第一學期

2 中文摘要 傳統上, 我們在進行資料統計分析時, 必定是一筆一筆的對產品做詳細的記錄, 此種方法雖然可以隨時的知道產品資訊, 但是光是紀錄產品資料的時間可能需要耗上很長的一段時間, 於現在資訊蓬勃發展的時代, 所以我做出了商品簡介系統, 是為了我們對商品管理的效率上而規劃出來的, 我們可以透過此系統, 分析出近期所熱銷的商品或是即將過期之商品, 不用再以人工紀錄的方式逐一寫下來, 只要透過此程式就能輕而易舉的知道, 所有關於商品的資訊, 此程式為了讓使用者讀取資料更方便, 更多了長條圖及圓餅圖, 讓使用者一目了然, 使程式更生活化一些 在瀏覽商品資料中, 我們更可以依照商品品牌進行歸類並且做資料上的比較 有了商品資料分析系統的協助, 不僅帶給我們資料上的方便性, 更讓商品的管理上更加的有效率 關鍵字 : 商品統計分析 商品資料分析 應用程式設計 1 逢甲大學學生報告 epaper(2009 年 )

3 目次 一 商品簡介系統登入 3 二 選取產品資料服務 4 三 瀏覽商品資料 5 四 新增產品資料 7 五 修改產品資料 10 六 刪除產品資料 11 七 查詢產品資料 12 八 統計分析 14 九 程式指令 17 2 逢甲大學學生報告 epaper(2009 年 )

4 商品簡介系統登入 3 逢甲大學學生報告 epaper(2009 年 )

5 選取產品資料服務 4 逢甲大學學生報告 epaper(2009 年 )

6 2005 的版本 ( 學校行政二館 ) 2008 的版本 ( 在家裡弄的 ) 5 逢甲大學學生報告 epaper(2009 年 )

7 我們可以點選上方的 ComboBox1 就會跑出品牌的細項之後再點選你想看的品牌按下後就會跑出此品牌的全部資料 6 逢甲大學學生報告 epaper(2009 年 )

8 7 逢甲大學學生報告 epaper(2009 年 )

9 按下新增的按鈕後會跑出第 34 筆 ( 新增前為 33 筆 ) 資料然後把第 34 筆的資料填一填按一下新增圖片再按下儲存即可存檔囉! 8 逢甲大學學生報告 epaper(2009 年 )

10 9 逢甲大學學生報告 epaper(2009 年 )

11 修改產品資料可以按下清除圖片或新增圖片的按鈕 10 逢甲大學學生報告 epaper(2009 年 )

12 刪除產品資料當你按下刪除鍵後會從原本的 34 筆資料變成 33 筆資料 11 逢甲大學學生報告 epaper(2009 年 )

13 查詢產品資料當你輸如入想看的筆數後按一下查詢就會跑出此筆畫面 12 逢甲大學學生報告 epaper(2009 年 )

14 13 逢甲大學學生報告 epaper(2009 年 )

15 統計分析 ( 依產地 ) 14 逢甲大學學生報告 epaper(2009 年 )

16 依類別分析 15 逢甲大學學生報告 epaper(2009 年 )

17 這張是依照進貨價格來分析的 16 逢甲大學學生報告 epaper(2009 年 )

18 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' 設計者 : 邱書毅 ' 設計日期 : 2009/12/26 ' 學號 : D Dim 正確的帳號, 正確的密碼, 登入時的帳號, 登入時的密碼 As String 登入時的帳號 = TextBox1.Text 登入時的密碼 = TextBox2.Text 正確的帳號 = "schumi" 正確的密碼 = "abc123" If ( 登入時的帳號 = 正確的帳號 ) And ( 登入時的密碼 = 正確的密碼 ) Then MsgBox(" 歡迎您進入舒米新世界!",, " 系統訊息 ") Form2.Show() Me.Hide() 'Form1 不能關掉, 以便繼續下一個步驟 Else MsgBox(" 您輸入的資料不正確, 請您重新輸入!",, " 系統訊息 ") TextBox1.Text = "" TextBox2.Text = "" 17 逢甲大學學生報告 epaper(2009 年 )

19 End If Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = "" ' 把趙皓那個欄位清除掉, 方便我們重新輸入 TextBox2.Text = "" ' 把密碼那個欄位清除掉, 方便我們重新輸入 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End ' 離開此系統, 並結束 End Class 18 逢甲大學學生報告 epaper(2009 年 )

20 Public Class Form2 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click ' 設計者 : 邱書毅 ' 設計日期 : 2009/12/26 ' 學號 : D Form8.Show() ' 按下 Button6 會到 Form8 Me.Hide() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form3.Show() ' 按下 Button1 會到 Form3 Me.Hide() Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 19 逢甲大學學生報告 epaper(2009 年 )

21 Form4.Show() ' 按下 Button2 會到 Form4 Me.Hide() Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form5.Show() ' 按下 Button3 會到 Form5 Me.Hide() Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Form7.Show() ' 按下 Button5 會到 Form7 Me.Hide() Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Form6.Show() ' 按下 Button4 會到 Form6 Me.Hide() Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click End ' 按下 Button7 會離開此系統 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Class 20 逢甲大學學生報告 epaper(2009 年 )

22 Public Class Form3 Private Sub 資料表 BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 資料表 BindingNavigatorSaveItem.Click Me.Validate() Me. 資料表 BindingSource.EndEdit() Me. 資料表 TableAdapter.Update(Me.D DataSet. 資料表 ) Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 這行程式碼會將資料載入 'D DataSet. 資料表 ' 資料表 您可以視需要進行移動或移除 Me. 資料表 TableAdapter.Fill(Me.D DataSet. 資料表 ) 21 逢甲大學學生報告 epaper(2009 年 )

23 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged ' 設計者 : 邱書毅 ' 設計日期 : 2009/12/26 ' 學號 : D ' 在這邊輸入品牌的項目當你選擇此品牌項目時會把此品牌項目的資料全部顯示出來 If ComboBox1.Text = "HairTec" Then 資料表 BindingSource.Filter = " 品牌 ='HairTec'" End If If ComboBox1.Text = "Avelon" Then 資料表 BindingSource.Filter = " 品牌 ='Avelon'" End If If ComboBox1.Text = "Oriyen" Then 資料表 BindingSource.Filter = " 品牌 ='Oriyen'" End If If ComboBox1.Text = "Nn" Then 資料表 BindingSource.Filter = " 品牌 ='Nn'" End If If ComboBox1.Text = "Bioglo" Then 資料表 BindingSource.Filter = " 品牌 ='Bioglo'" End If If ComboBox1.Text = "L'élan Vital" Then 資料表 BindingSource.Filter = " 品牌 ='L'élan Vital'" End If If ComboBox1.Text = "Beautycode Switzerland" Then 資料表 BindingSource.Filter = " 品牌 ='Beautycode Switzerland'" End If If ComboBox1.Text = "Bioglo BodyLite" Then 資料表 BindingSource.Filter = " 品牌 ='Bioglo BodyLite'" End If If ComboBox1.Text = "Desinger Collection" Then 資料表 BindingSource.Filter = " 品牌 ='Desinger Collection'" End If If ComboBox1.Text = "Mildura" Then 22 逢甲大學學生報告 epaper(2009 年 )

24 資料表 BindingSource.Filter = " 品牌 ='Mildura'" End If If ComboBox1.Text = "Ecomax" Then 資料表 BindingSource.Filter = " 品牌 ='Ecomax'" End If Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click ' 顯示資料庫裡所有的資料筆數資料表 BindingSource.Filter = " 品牌 <>''" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' 當按下 Button1 此時畫面會到 Form2 Form2.Show() Me.Hide() End Class 23 逢甲大學學生報告 epaper(2009 年 )

25 Public Class Form4 Private Sub 資料表 BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 資料表 BindingNavigatorSaveItem.Click Me.Validate() Me. 資料表 BindingSource.EndEdit() Me. 資料表 TableAdapter.Update(Me.D DataSet. 資料表 ) Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 這行程式碼會將資料載入 'D DataSet. 資料表 ' 資料表 您可以視需要進行移動或移除 Me. 資料表 TableAdapter.Fill(Me.D DataSet. 資料表 ) Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click 24 逢甲大學學生報告 epaper(2009 年 )

26 OpenFileDialog1.Filter = " 圖檔 *.bmp;*.jpg;*.gif;*.jpeg;*.png;*.tif 所有檔案 *.*" ' 設定 ( 開啟檔案的類型 ) 免得圖片無法開啟 ' 設計者 : 邱書毅 ' 設計日期 : 2009/12/26 ' 學號 : D If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName) End If Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() ' 當按下 Button1 此時畫面會到 Form2 Me.Hide() End Class 25 逢甲大學學生報告 epaper(2009 年 )

27 Public Class Form5 Private Sub 資料表 BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 資料表 BindingNavigatorSaveItem.Click Me.Validate() Me. 資料表 BindingSource.EndEdit() Me. 資料表 TableAdapter.Update(Me.D DataSet. 資料表 ) Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 這行程式碼會將資料載入 'D DataSet. 資料表 ' 資料表 您可以視需要進行移動或移除 Me. 資料表 TableAdapter.Fill(Me.D DataSet. 資料表 ) Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click 26 逢甲大學學生報告 epaper(2009 年 )

28 ' 設計者 : 邱書毅 ' 設計日期 : 2009/12/26 ' 學號 : D PictureBox1.Image = Nothing ' 當按下此按鈕時將會清除圖片 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() ' 當按下 Button1 此時畫面會到 Form2 Me.Hide() Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click End Class 27 逢甲大學學生報告 epaper(2009 年 )

29 Public Class Form6 Private Sub 資料表 BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Validate() Me. 資料表 BindingSource.EndEdit() Me. 資料表 TableAdapter.Update(Me.D DataSet. 資料表 ) Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 這行程式碼會將資料載入 'D DataSet. 資料表 ' 資料表 您可以視需要進行移動或移除 Me. 資料表 TableAdapter.Fill(Me.D DataSet. 資料表 ) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 28 逢甲大學學生報告 epaper(2009 年 )

30 ' 設計者 : 邱書毅 ' 設計日期 : 2009/12/26 ' 學號 : D Form2.Show() ' 當按下 Button1 此時畫面會到 Form2 Me.Hide() End Class 29 逢甲大學學生報告 epaper(2009 年 )

31 Public Class Form7 Private Sub 資料表 BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Validate() Me. 資料表 BindingSource.EndEdit() Me. 資料表 TableAdapter.Update(Me.D DataSet. 資料表 ) Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 這行程式碼會將資料載入 'D DataSet. 資料表 ' 資料表 您可以視需要進行移動或移除 Me. 資料表 TableAdapter.Fill(Me.D DataSet. 資料表 ) Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click 30 逢甲大學學生報告 epaper(2009 年 )

32 ' 設計者 : 邱書毅 ' 設計日期 : 2009/12/26 ' 學號 : D Dim x As Integer x = ToolStripTextBox1.Text - 1 ' 當我們輸入的筆數是第 " 一 " 筆時在電腦的語言上是屬與第 " 零 " 筆所以我們才要減資料表 BindingSource.Position = x Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() ' 當按下 Button1 此時畫面會到 Form2 Me.Hide() End Class 31 逢甲大學學生報告 epaper(2009 年 )

33 Public Class Form8 Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 這行程式碼會將資料載入 'D DataSet. 資料表 ' 資料表 您可以視需要進行移動或移除 Me. 資料表 TableAdapter.Fill(Me.D DataSet. 資料表 ) Private Sub 依類別 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 依品牌 ToolStripMenuItem.Click ' 設計者 : 邱書毅 ' 設計日期 : 2009/12/26 ' 學號 : D ' 找資料庫中 < 類別 > 各項資料的數量, 並畫出圓餅圖 Dim i As Integer Dim a, b, c, d, k, f, g, h, m, j As Integer 32 逢甲大學學生報告 epaper(2009 年 )

34 Dim a1, b1, c1, d1, k1, f1, g1, h1, m1, j1 As Integer For i = 0 To Me.D DataSet. 資料表.Rows.Count - 1 'Rows(i)(2) 的是資料庫的第三欄位因為點腦語言是從開始的 If Me.D DataSet. 資料表.Rows(i)(2) = " 美髮系列 " Then a += 1 If Me.D DataSet. 資料表.Rows(i)(2) = " 保健食品 " Then b += 1 If Me.D DataSet. 資料表.Rows(i)(2) = " 美容護膚 " Then c += 1 If Me.D DataSet. 資料表.Rows(i)(2) = " 纖體系列 " Then d += 1 If Me.D DataSet. 資料表.Rows(i)(2) = " 個人護理 " Then k += 1 If Me.D DataSet. 資料表.Rows(i)(2) = " 飲品系列 " Then f += 1 If Me.D DataSet. 資料表.Rows(i)(2) = " 家用清潔品 " Then g += 1 If Me.D DataSet. 資料表.Rows(i)(2) = " 香水系列 " Then h += 1 If Me.D DataSet. 資料表.Rows(i)(2) = " 彩妝系列 " Then m += 1 If Me.D DataSet. 資料表.Rows(i)(2) = " 食品系列 " Then j += 1 Next Dim G_d As Graphics a1 = 360 * a / (a + b + c + d + k + f + g + h + m + j) b1 = 360 * b / (a + b + c + d + k + f + g + h + m + j) c1 = 360 * c / (a + b + c + d + k + f + g + h + m + j) d1 = 360 * d / (a + b + c + d + k + f + g + h + m + j) k1 = 360 * k / (a + b + c + d + k + f + g + h + m + j) f1 = 360 * f / (a + b + c + d + k + f + g + h + m + j) g1 = 360 * g / (a + b + c + d + k + f + g + h + m + j) h1 = 360 * h / (a + b + c + d + k + f + g + h + m + j) m1 = 360 * m / (a + b + c + d + k + f + g + h + m + j) j1 = 360 * j / (a + b + c + d + k + f + g + h + m + j) G_d = Me.CreateGraphics '300,330 分別是 X 軸上的座標以及 Y 軸上的座標 ' 我們可以選擇欲圖滿遠餅圖的顏色 G_d FillPie(Brushes.Red, 300, 330, 240, 240, 0, a1) G_d FillPie(Brushes.Blue, 300, 330, 240, 240, (a1), b1) G_d FillPie(Brushes.Yellow, 300, 330, 240, 240, (a1 + b1), c1) G_d FillPie(Brushes.Green, 300, 330, 240, 240, (a1 + b1 + c1), d1) G_d FillPie(Brushes.Orange, 300, 330, 240, 240, (a1 + b1 + c1 + d1), k1) G_d FillPie(Brushes.Purple, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1), f1) G_d FillPie(Brushes.Pink, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1), g1) G_d FillPie(Brushes.DarkBlue, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1 + g1), h1) 33 逢甲大學學生報告 epaper(2009 年 )

35 G_d FillPie(Brushes.YellowGreen, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1 + g1 + h1), m1) G_d FillPie(Brushes.DarkOrange, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1 + g1 + h1 + m1), j1) 'a1/3.6 是除以再乘以的簡化 ' 設定類別顯示於相對的 LABEL 上 Label1.Text = " 美髮系列 (" & Str(CInt(a1 / 3.6)) & "%)" Label2.Text = " 保健食品 (" & Str(CInt(b1 / 3.6)) & "%)" Label3.Text = " 美容護膚 (" & Str(CInt(c1 / 3.6)) & "%)" Label4.Text = " 纖體系列 (" & Str(CInt(d1 / 3.6)) & "%)" Label5.Text = " 個人護理 (" & Str(CInt(k1 / 3.6)) & "%)" Label6.Text = " 飲品系列 (" & Str(CInt(f1 / 3.6)) & "%)" Label7.Text = " 家用清潔品 (" & Str(CInt(g1 / 3.6)) & "%)" Label8.Text = " 香水系列 (" & Str(CInt(h1 / 3.6)) & "%)" Label9.Text = " 彩妝系列 (" & Str(CInt(m1 / 3.6)) & "%)" Label10.Text = " 食品系列 (" & Str(CInt(j1 / 3.6)) & "%)" ' 在執行程式時將多餘的 LABEL 顯示成空白的形式讓畫面更美觀 Label12.Text = "" Label13.Text = "" ' 可以在 LABEL( 前面設定相對應的顏色 ) 好讓我們知道我們所分析的資料佔了多少的比例 '31,56 分別是 X 軸上的座標以及 Y 軸上的座標 '30,30 是圓的大小 G_d FillEllipse(Brushes.Red, 31, 56, 30, 30) G_d FillEllipse(Brushes.Blue, 178, 56, 30, 30) G_d FillEllipse(Brushes.Yellow, 344, 56, 30, 30) G_d FillEllipse(Brushes.Green, 514, 56, 30, 30) G_d FillEllipse(Brushes.Orange, 31, 106, 30, 30) G_d FillEllipse(Brushes.Purple, 178, 106, 30, 30) G_d FillEllipse(Brushes.Pink, 344, 106, 30, 30) G_d FillEllipse(Brushes.DarkBlue, 514, 106, 30, 30) G_d FillEllipse(Brushes.YellowGreen, 31, 163, 30, 30) G_d FillEllipse(Brushes.DarkOrange, 178, 163, 30, 30) Label11.Text = " 分析圖 : ( 圓餅圖 )" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() 34 逢甲大學學生報告 epaper(2009 年 )

36 Me.Hide() Private Sub 依產地 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 依產地 ToolStripMenuItem.Click ' 找資料庫中的 " 產地 " 在 " 產地 " 各項資料的數量, 並畫出圓餅圖 Dim i As Integer Dim a, b, c, d, k, f, g, h As Integer Dim a1, b1, c1, d1, k1, f1, g1, h1 As Integer For i = 0 To Me.D DataSet. 資料表.Rows.Count - 1 If Me.D DataSet. 資料表.Rows(i)(5) = " 馬來西亞 " Then a += 1 If Me.D DataSet. 資料表.Rows(i)(5) = " 日本 " Then b += 1 If Me.D DataSet. 資料表.Rows(i)(5) = " 美國 " Then c += 1 If Me.D DataSet. 資料表.Rows(i)(5) = " 台灣 " Then d += 1 If Me.D DataSet. 資料表.Rows(i)(5) = " 智利 " Then k += 1 If Me.D DataSet. 資料表.Rows(i)(5) = " 瑞士 " Then f += 1 If Me.D DataSet. 資料表.Rows(i)(5) = " 韓國 " Then g += 1 If Me.D DataSet. 資料表.Rows(i)(5) = " 印尼 " Then h += 1 Next Dim G_d As Graphics a1 = 360 * a / (a + b + c + d + k + f + g + h) b1 = 360 * b / (a + b + c + d + k + f + g + h) c1 = 360 * c / (a + b + c + d + k + f + g + h) d1 = 360 * d / (a + b + c + d + k + f + g + h) k1 = 360 * k / (a + b + c + d + k + f + g + h) f1 = 360 * f / (a + b + c + d + k + f + g + h) g1 = 360 * g / (a + b + c + d + k + f + g + h) h1 = 360 * h / (a + b + c + d + k + f + g + h) '300,330 分別是 X 軸上的座標以及 Y 軸上的座標 ' 我們可以選擇欲圖滿遠餅圖的顏色 G_d = Me.CreateGraphics G_d FillPie(Brushes.Red, 300, 330, 240, 240, 0, a1) G_d FillPie(Brushes.Blue, 300, 330, 240, 240, (a1), b1) G_d FillPie(Brushes.Yellow, 300, 330, 240, 240, (a1 + b1), c1) G_d FillPie(Brushes.Green, 300, 330, 240, 240, (a1 + b1 + c1), d1) G_d FillPie(Brushes.Orange, 300, 330, 240, 240, (a1 + b1 + c1 + d1), k1) 35 逢甲大學學生報告 epaper(2009 年 )

37 G_d FillPie(Brushes.Purple, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1), f1) G_d FillPie(Brushes.Pink, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1), g1) G_d FillPie(Brushes.DarkBlue, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1 + g1), h1) 'a1/3.6 是除以再乘以的簡化 ' 設定類別顯示於相對的 LABEL 上 Label1.Text = " 馬來西亞 (" & Str(CInt(a1 / 3.6)) & "%)" Label2.Text = " 日本 (" & Str(CInt(b1 / 3.6)) & "%)" Label3.Text = " 美國 (" & Str(CInt(c1 / 3.6)) & "%)" Label4.Text = " 台灣 (" & Str(CInt(d1 / 3.6)) & "%)" Label5.Text = " 智利 (" & Str(CInt(k1 / 3.6)) & "%)" Label6.Text = " 瑞士 (" & Str(CInt(f1 / 3.6)) & "%)" Label7.Text = " 韓國 (" & Str(CInt(g1 / 3.6)) & "%)" Label8.Text = " 印尼 (" & Str(CInt(h1 / 3.6)) & "%)" ' 在執行程式時將多餘的 LABEL 顯示成空白的形式讓畫面更美觀 Label9.Text = "" Label10.Text = "" Label12.Text = "" Label13.Text = "" ' 可以在 LABEL( 前面設定相對應的顏色 ) 好讓我們知道我們所分析的資料佔了多少的比例 '31,56 分別是 X 軸上的座標以及 Y 軸上的座標 '30,30 是圓的大小 G_d FillEllipse(Brushes.Red, 31, 56, 30, 30) G_d FillEllipse(Brushes.Blue, 178, 56, 30, 30) G_d FillEllipse(Brushes.Yellow, 344, 56, 30, 30) G_d FillEllipse(Brushes.Green, 514, 56, 30, 30) G_d FillEllipse(Brushes.Orange, 31, 106, 30, 30) G_d FillEllipse(Brushes.Purple, 178, 106, 30, 30) G_d FillEllipse(Brushes.Pink, 344, 106, 30, 30) G_d FillEllipse(Brushes.DarkBlue, 514, 106, 30, 30) Label11.Text = " 分析圖 : ( 圓餅圖 )" Private Sub 品牌 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 品牌 ToolStripMenuItem.Click ' 找資料庫中的 " 品牌 " 在 " 品牌 " 各項資料的數量, 並畫出圓餅圖 36 逢甲大學學生報告 epaper(2009 年 )

38 Dim i As Integer Dim a, b, c, d, k, f, g, h, m, j, n As Integer Dim a1, b1, c1, d1, k1, f1, g1, h1, m1, j1, n1 As Integer For i = 0 To Me.D DataSet. 資料表.Rows.Count - 1 If Me.D DataSet. 資料表.Rows(i)(4) = "HairTec" Then a += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "Avelon b += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "Oriyen" Then c += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "Nn" Then d += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "Bioglo" Then k += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "L'é Then f += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "Beautycode Switzerland" Then g += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "Bioglo BodyLite" Then h += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "Desinger Collection" Then m += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "Mildura" Then j += 1 If Me.D DataSet. 資料表.Rows(i)(4) = "Ecomax" Then n += 1 Next Dim G_d As Graphics a1 = 360 * a / (a + b + c + d + k + f + g + h + m + j + n) b1 = 360 * b / (a + b + c + d + k + f + g + h + m + j + n) c1 = 360 * c / (a + b + c + d + k + f + g + h + m + j + n) d1 = 360 * d / (a + b + c + d + k + f + g + h + m + j + n) k1 = 360 * k / (a + b + c + d + k + f + g + h + m + j + n) f1 = 360 * f / (a + b + c + d + k + f + g + h + m + j + n) g1 = 360 * g / (a + b + c + d + k + f + g + h + m + j + n) h1 = 360 * h / (a + b + c + d + k + f + g + h + m + j + n) m1 = 360 * m / (a + b + c + d + k + f + g + h + m + j + n) j1 = 360 * j / (a + b + c + d + k + f + g + h + m + j + n) n1 = 360 * j / (a + b + c + d + k + f + g + h + m + j + n) '300,330 分別是 X 軸上的座標以及 Y 軸上的座標 ' 我們可以選擇欲圖滿遠餅圖的顏色 G_d = Me.CreateGraphics G_d FillPie(Brushes.Red, 300, 330, 240, 240, 0, a1) G_d FillPie(Brushes.Blue, 300, 330, 240, 240, (a1), b1) G_d FillPie(Brushes.Yellow, 300, 330, 240, 240, (a1 + b1), c1) G_d FillPie(Brushes.Green, 300, 330, 240, 240, (a1 + b1 + c1), d1) G_d FillPie(Brushes.Orange, 300, 330, 240, 240, (a1 + b1 + c1 + d1), k1) G_d FillPie(Brushes.Purple, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1), f1) 37 逢甲大學學生報告 epaper(2009 年 )

39 G_d FillPie(Brushes.Pink, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1), g1) G_d FillPie(Brushes.DarkBlue, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1 + g1), h1) G_d FillPie(Brushes.YellowGreen, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1 + g1 + h1), m1) G_d FillPie(Brushes.DarkOrange, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1 + g1 + h1 + m1), j1) G_d FillPie(Brushes.Brown, 300, 330, 240, 240, (a1 + b1 + c1 + d1 + k1 + f1 + g1 + h1 + m1 + j1), n1) 'a1/3.6 是除以再乘以的簡化 ' 設定類別顯示於相對的 LABEL 上 Label1.Text = "HairTec(" & Str(CInt(a1 / 3.6)) & "%)" Label2.Text = "Avelon" & Str(CInt(b1 / 3.6)) & "%)" Label3.Text = "Oriyen(" & Str(CInt(c1 / 3.6)) & "%)" Label4.Text = "Nn(" & Str(CInt(d1 / 3.6)) & "%)" Label5.Text = "Bioglo(" & Str(CInt(k1 / 3.6)) & "%)" Label6.Text = "L'éan Vital(" & Str(CInt(f1 / 3.6)) & "%)" Label7.Text = "Beautycode Switzerland(" & Str(CInt(g1 / 3.6)) & "%)" Label8.Text = "Bioglo BodyLite(" & Str(CInt(h1 / 3.6)) & "%)" Label9.Text = "Desinger Collection(" & Str(CInt(m1 / 3.6)) & "%)" Label10.Text = "Mildura(" & Str(CInt(j1 / 3.6)) & "%)" Label12.Text = "Ecomax(" & Str(CInt(n1 / 3.6)) & "%)" ' 在執行程式時將多餘的 LABEL 顯示成空白的形式讓畫面更美觀 Label13.Text = "" ' 可以在 LABEL( 前面設定相對應的顏色 ) 好讓我們知道我們所分析的資料佔了多少的比例 '31,56 分別是 X 軸上的座標以及 Y 軸上的座標 '30,30 是圓的大小 G_d FillEllipse(Brushes.Red, 31, 56, 30, 30) G_d FillEllipse(Brushes.Blue, 178, 56, 30, 30) G_d FillEllipse(Brushes.Yellow, 344, 56, 30, 30) G_d FillEllipse(Brushes.Green, 514, 56, 30, 30) G_d FillEllipse(Brushes.Orange, 31, 106, 30, 30) G_d FillEllipse(Brushes.Purple, 178, 106, 30, 30) G_d FillEllipse(Brushes.Pink, 344, 106, 30, 30) G_d FillEllipse(Brushes.DarkBlue, 514, 106, 30, 30) G_d FillEllipse(Brushes.YellowGreen, 31, 163, 30, 30) 38 逢甲大學學生報告 epaper(2009 年 )

40 G_d FillEllipse(Brushes.DarkOrange, 178, 163, 30, 30) G_d FillEllipse(Brushes.Brown, 344, 163, 30, 30) Label11.Text = " 分析圖 : ( 圓餅圖 )" Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click Private Sub 進貨價格 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 進貨價格 ToolStripMenuItem.Click ' 找資料庫中 " 進貨價格 " 我所規定的組距中資料的數量, 並畫出圓餅圖 Dim i As Integer Dim a, b, c, d, f, g, h, j As Integer Dim a1, b2, c3, d4, f5, g6, h7, j8 As Integer Dim x As Integer For i = 0 To Me.D DataSet. 資料表.Rows.Count - 1 x = Val(Me.D DataSet. 資料表.Rows(i)(9)) If (0 < x And x <= 100) Then a += 1 If (100 < x And x <= 200) Then b += 1 If (200 < x And x <= 300) Then c += 1 If (300 < x And x <= 400) Then d += 1 If (400 < x And x <= 500) Then f += 1 If (500 < x And x <= 600) Then g += 1 If (600 < x And x <= 700) Then h += 1 If (700 < x And x <= 800) Then j += 1 Next Dim G_d As Graphics '"500*" 是影響長條圖的長度怕資料比數太少長條的形狀不明顯所以乘以後方便觀察 a1 = 500 * a / (a + b + c + d + f + g + h + j) b2 = 500 * b / (a + b + c + d + f + g + h + j) c3 = 500 * c / (a + b + c + d + f + g + h + j) d4 = 500 * d / (a + b + c + d + f + g + h + j) f5 = 500 * f / (a + b + c + d + f + g + h + j) g6 = 500 * g / (a + b + c + d + f + g + h + j) 39 逢甲大學學生報告 epaper(2009 年 )

41 h7 = 500 * h / (a + b + c + d + f + g + h + j) j8 = 500 * j / (a + b + c + d + f + g + h + j) G_d = Me.CreateGraphics '60, a1, 40, a1) 60,500 - a1 分別是 X 軸上的座標以及 Y 軸上的座標 40, a1 分別是寬及高 G_d FillRectangle(Brushes.Red, 60, a1, 40, a1) G_d FillRectangle(Brushes.Blue, 100, b2, 40, b2) G_d FillRectangle(Brushes.Yellow, 140, c3, 40, c3) G_d FillRectangle(Brushes.Green, 180, d4, 40, d4) G_d FillRectangle(Brushes.Orange, 220, f5, 40, f5) G_d FillRectangle(Brushes.Purple, 260, g6, 40, g6) G_d FillRectangle(Brushes.Pink, 300, h7, 40, h7) G_d FillRectangle(Brushes.DarkBlue, 340, j8, 40, j8) Label1.Text = "1~(" & Str(CInt(a1 / 5)) & "%)" Label2.Text = "100~(" & Str(CInt(b2 / 5)) & "%)" Label3.Text = "200~(" & Str(CInt(c3 / 5)) & "%)" Label4.Text = "300~(" & Str(CInt(d4 / 5)) & "%)" Label5.Text = "400~(" & Str(CInt(f5 / 5)) & "%)" Label6.Text = "500~(" & Str(CInt(g6 / 5)) & "%)" Label7.Text = "600~(" & Str(CInt(h7 / 5)) & "%)" Label8.Text = "700~(" & Str(CInt(j8 / 5)) & "%)" ' 在執行程式時將多餘的 LABEL 顯示成空白的形式讓畫面更美觀 Label9.Text = "" Label10.Text = "" Label12.Text = "" ' 可以在 LABEL( 前面設定相對應的顏色 ) 好讓我們知道我們所分析的資料佔了多少的比例 '31,56 分別是 X 軸上的座標以及 Y 軸上的座標 '30,30 是圓的大小 G_d FillEllipse(Brushes.Red, 31, 56, 30, 30) G_d FillEllipse(Brushes.Blue, 178, 56, 30, 30) G_d FillEllipse(Brushes.Yellow, 344, 56, 30, 30) G_d FillEllipse(Brushes.Green, 514, 56, 30, 30) G_d FillEllipse(Brushes.Orange, 31, 106, 30, 30) G_d FillEllipse(Brushes.Purple, 178, 106, 30, 30) G_d FillEllipse(Brushes.Pink, 344, 106, 30, 30) 40 逢甲大學學生報告 epaper(2009 年 )

42 G_d FillEllipse(Brushes.DarkBlue, 514, 106, 30, 30) Label11.Text = " 分析圖 : 進貨價格 " Label13.Text = " 單位 : 台幣 ( 元 )" Private Sub 零售價格 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 零售價格 ToolStripMenuItem.Click ' 找資料庫中 " 進貨價格 " 我所規定的組距中資料的數量, 並畫出圓餅圖 Dim i As Integer Dim a, b, c, d, f, g, h, j, k As Integer Dim a1, b2, c3, d4, f5, g6, h7, j8, k9 As Integer Dim x As Integer For i = 0 To Me.D DataSet. 資料表.Rows.Count - 1 x = Val(Me.D DataSet. 資料表.Rows(i)(10)) If (100 < x And x <= 200) Then a += 1 If (200 < x And x <= 300) Then b += 1 If (300 < x And x <= 400) Then c += 1 If (400 < x And x <= 500) Then d += 1 If (500 < x And x <= 600) Then f += 1 If (600 < x And x <= 700) Then g += 1 If (700 < x And x <= 800) Then h += 1 If (800 < x And x <= 900) Then j += 1 If (900 < x And x <= 1000) Then k += 1 Next Dim G_d As Graphics '"500*" 是影響長條圖的長度怕資料比數太少長條的形狀不明顯所以乘以後方便觀察 a1 = 500 * a / (a + b + c + d + f + g + h + j + k) b2 = 500 * b / (a + b + c + d + f + g + h + j + k) c3 = 500 * c / (a + b + c + d + f + g + h + j + k) d4 = 500 * d / (a + b + c + d + f + g + h + j + k) f5 = 500 * f / (a + b + c + d + f + g + h + j + k) g6 = 500 * g / (a + b + c + d + f + g + h + j + k) h7 = 500 * h / (a + b + c + d + f + g + h + j + k) j8 = 500 * j / (a + b + c + d + f + g + h + j + k) k9 = 500 * k / (a + b + c + d + f + g + h + j + k) 41 逢甲大學學生報告 epaper(2009 年 )

43 G_d = Me.CreateGraphics '60, a1, 40, a1) 60,500 - a1 分別是 X 軸上的座標以及 Y 軸上的座標 40, a1 分別是寬及高 G_d FillRectangle(Brushes.Red, 80, a1, 40, a1) G_d FillRectangle(Brushes.Blue, 130, b2, 40, b2) G_d FillRectangle(Brushes.Yellow, 180, c3, 40, c3) G_d FillRectangle(Brushes.Green, 230, d4, 40, d4) G_d FillRectangle(Brushes.Orange, 280, f5, 40, f5) G_d FillRectangle(Brushes.Purple, 330, g6, 40, g6) G_d FillRectangle(Brushes.Pink, 380, h7, 40, h7) G_d FillRectangle(Brushes.DarkBlue, 500, j8, 40, j8) G_d FillRectangle(Brushes.White, 480, j8, 40, j8) Label1.Text = "100~(" & Str(CInt(a1 / 3)) & "%)" Label2.Text = "200~(" & Str(CInt(b2 / 3)) & "%)" Label3.Text = "300~(" & Str(CInt(c3 / 3)) & "%)" Label4.Text = "400~(" & Str(CInt(d4 / 3)) & "%)" Label5.Text = "500~(" & Str(CInt(f5 / 3)) & "%)" Label6.Text = "600~(" & Str(CInt(g6 / 3)) & "%)" Label7.Text = "700~(" & Str(CInt(h7 / 3)) & "%)" Label8.Text = "800~(" & Str(CInt(j8 / 3)) & "%)" Label9.Text = "900~(" & Str(CInt(j8 / 3)) & "%)" ' 在執行程式時將多餘的 LABEL 顯示成空白的形式讓畫面更美觀 Label10.Text = "" Label12.Text = "" G_d FillEllipse(Brushes.Red, 31, 56, 30, 30) G_d FillEllipse(Brushes.Blue, 178, 56, 30, 30) G_d FillEllipse(Brushes.Yellow, 344, 56, 30, 30) G_d FillEllipse(Brushes.Green, 514, 56, 30, 30) G_d FillEllipse(Brushes.Orange, 31, 106, 30, 30) G_d FillEllipse(Brushes.Purple, 178, 106, 30, 30) G_d FillEllipse(Brushes.Pink, 344, 106, 30, 30) G_d FillEllipse(Brushes.DarkBlue, 514, 106, 30, 30) G_d FillEllipse(Brushes.White, 31, 163, 30, 30) Label11.Text = " 分析圖 : 進貨價格 " 42 逢甲大學學生報告 epaper(2009 年 )

44 Label13.Text = " 單位 : 台幣 ( 元 )" Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Class 43 逢甲大學學生報告 epaper(2009 年 )

45 參考文獻 依照陳亭志老師上課內容所編輯 44 逢甲大學學生報告 epaper(2009 年 )