<4D F736F F D20C0B3A5CEB57BA6A1B35DAD70B4C1A5BDB3F8A7692E646F63>

Size: px

Start display at page:

Download "<4D F736F F D20C0B3A5CEB57BA6A1B35DAD70B4C1A5BDB3F8A7692E646F63>"

浚边
5 years ago
Views:

報告題名 : 作者 : 林芳如系級 : 工業工程與系統管理學系四年甲班學號 :D9439951 開課老師

1 報告題名 : 作者 : 林芳如系級 : 工業工程與系統管理學系四年甲班學號 :D 開課老師 : 陳亭志課程名稱 : 應用程式設計開課系所 : 工業工程與系統管理學系開課學年 :95 學年度第一學期

2 目錄一方案總管二主選單執行畫面及程式碼...2 三瀏覽產品資料執行畫面及程式碼...5 四多筆瀏覽執行畫面及程式碼...6 五新增產品資料執行畫面及程式碼..8 六逐筆瀏覽執行畫面及程式碼 12 七刪除 / 修改產品資料執行畫面及程式碼.. 19 八統計圖表執行畫面及程式碼 24 九報價單執行畫面及程式碼 31 十心得逢甲大學學生 - 林芳如報告 (2006 年 )

一方案總管 Form1: 此表單為主選單, 與其他表單作相關連結, 讓使用者方便操作, 並另設保護作用, 若 1 分鐘內閒置沒操作, 會自動跳出程式 Form2: 瀏覽產品資料 Form3: 多筆瀏覽, 利用此表單可一次瀏覽所有的產品資料 Form4: 新增產品資料, 可在此表單直接輸入新產品資料至資料庫 Form5: 逐筆瀏覽, 可利用此表單逐筆瀏覽產品資料及產品圖片,

3 一方案總管 Form1: 此表單為主選單, 與其他表單作相關連結, 讓使用者方便操作, 並另設保護作用, 若 1 分鐘內閒置沒操作, 會自動跳出程式 Form2: 瀏覽產品資料 Form3: 多筆瀏覽, 利用此表單可一次瀏覽所有的產品資料 Form4: 新增產品資料, 可在此表單直接輸入新產品資料至資料庫 Form5: 逐筆瀏覽, 可利用此表單逐筆瀏覽產品資料及產品圖片, 並可在此直接勾選所需要的產品及數量 Form6: 刪除 / 修改產品資料, 當刪除或修改完畢, 系統會告知執行成功 Form7: 統計圖表, 統計各項產品及廠商所佔的比例 Form8: 報價單, 當在 Form5 把需求量勾選完畢之後, 可產生此報價單而上述所有表單屬性皆設 : StartPosition: CenterScreen FormBorderStyle: FixedSingle MaximizeBox: False MinimizeBox: False 另外 : Db1DataSet.xsd: 為產品資料, 作為各個表單的連結 Db1DataSet1.xsd: 為報價單, 在 Form8 作為連結 1 逢甲大學學生 - 林芳如報告 (2006 年 )

4 二主選單主選單執行畫面及程式碼程式碼 : Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick End ' 60 秒內無操作就結束程式 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click '*************** ' 要離開系統嚕! '*************** End Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '********************************* ' 新增 Form2 2 逢甲大學學生 - 林芳如報告 (2006 年 )

5 ' 點選後進入到 Form2 瀏覽產品資料 '********************************* Dim form21 As New Form2 Timer1.Enabled = False ' 停止計時 form21.show() ' 秀出 Form2 Me.Hide() ' 隱藏 Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '********************************* ' 新增 Form4 ' 點選後進入到 Form4 新增產品資料 '********************************* Dim form41 As New Form4 Timer1.Enabled = False ' 停止計時 form41.show() ' 秀出 Form4 Me.Hide() ' 隱藏 Form1 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click '********************************* ' 新增 Form6 ' 點選後進入到 Form6 刪除產品資料 '********************************* Dim form61 As New Form6 Timer1.Enabled = False ' 停止計時 form61.show() ' 秀出 Form6 Me.Hide() ' 隱藏 Form1 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '********************************* ' 新增 Form6 ' 點選後進入到 Form6 編輯產品資料 '********************************* 3 逢甲大學學生 - 林芳如報告 (2006 年 )

6 Dim form61 As New Form6 Timer1.Enabled = False ' 停止計時 form61.show() ' 秀出 Form6 Me.Hide() ' 隱藏 Form1 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click '***************************** ' 新增 Form7 ' 點選後進入到 Form7 統計圖表 '***************************** Dim form71 As New Form7 Timer1.Enabled = False ' 停止計時 form71.show() ' 秀出 Form7 Me.Hide() ' 隱藏 Form1 Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed '******************************* ' 表單一關閉即 End 以正常結束程式 '******************************* End End Class 4 逢甲大學學生 - 林芳如報告 (2006 年 )

三瀏覽產品資料瀏覽產品資料執行畫面及程式碼程式碼 : Public Class Form2 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.

7 三瀏覽產品資料瀏覽產品資料執行畫面及程式碼程式碼 : Public Class Form2 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '********************* ' 到 Form1 回到主選單 '********************* Dim form11 As New Form1 form11.show() ' 秀出 Form1 Me.Hide() ' 隱藏 Form2 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '******************** ' 新增 Form3 ' 到 Form3 多筆瀏覽 '******************** Dim form31 As New Form3 form31.show() ' 秀出 Form3 5 逢甲大學學生 - 林芳如報告 (2006 年 )

8 Me.Hide() ' 隱藏 Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '******************* ' 新增 Form5 ' 到 Form5 逐筆瀏覽 '******************* Dim form51 As New Form5 form51.show() ' 秀出 Form5 Me.Hide() ' 隱藏 Form2 Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed '****************************** ' 表單一關閉即 End 以正常結束程式 '****************************** End End Class 四多筆瀏覽多筆瀏覽執行畫面及程式碼 6 逢甲大學學生 - 林芳如報告 (2006 年 )

9 程式碼 : Public Class Form3 Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Me. 林芳如之產品基本資料 TableAdapter.Update(Me.Db1DataSet. 林芳如之產品基本資料 ) ' 更新資料庫後再關閉 '**************************** ' 表單一關閉即 end 正常結束程式 '**************************** End Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 這行程式碼會將資料載入 'Db1DataSet. 林芳如之產品基本資料 ' 資料表您可以視需要進行移動或移除 Me. 林芳如之產品基本資料 TableAdapter.Fill(Me.Db1DataSet. 林芳如之產品基本資料 ) ' 表單一開啟即填入資料集 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '*********************** ' 回上一頁 ' 到 Form2 瀏覽產品資料 '*********************** Dim form21 As New Form2 Me. 林芳如之產品基本資料 TableAdapter.Update(Me.Db1DataSet. 林芳如之產品基本資料 ) form21.show() ' 秀出 Form2 Me.Hide() ' 隱藏 Form3 End Class 7 逢甲大學學生 - 林芳如報告 (2006 年 )

10 五新增產品資料新增產品資料執行畫面及程式碼程式碼 : Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '******************** 8 逢甲大學學生 - 林芳如報告 (2006 年 )

11 ' 到 Form1 回到主選單 '******************** Dim form11 As New Form1 Me. 林芳如之產品基本資料 TableAdapter.Update(Me.Db1DataSet. 林芳如之產品基本資料 ) ' 更新資料庫後才能移至其它表單 form11.show() ' 秀出 Form1 Me.Hide() ' 隱藏 Form4 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '************************** ' 點選清空後, 會清空所有欄位 '************************** TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" ComboBox1.Text = " 請選擇單位 " Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim 產品名稱 As String Dim 供應商 As String Dim 單位 As String Dim 進貨成本 As Single Dim 市價 As Single Dim 售價 As Single Dim 產品圖片 As String '******************* ' 讀取使用著輸入資料 '******************* 產品名稱 = TextBox1.Text 供應商 = TextBox2.Text 單位 = ComboBox1.SelectedItem 9 逢甲大學學生 - 林芳如報告 (2006 年 )

12 進貨成本 = Val(TextBox3.Text) 市價 = Val(TextBox4.Text) 售價 = Val(TextBox5.Text) 產品圖片 = TextBox6.Text '********************************************************** ' 當產品名稱, 供應商, 單位, 產品圖片有其中一欄未填寫 ' 或者進貨成本, 市價, 售價有一欄 =0 ' 系統訊息會出現 " 部分尚未填寫 ", 全部填寫完整, 資料才能新增成功 '********************************************************** If 產品名稱 = "" Or 供應商 = "" Or 單位 = "" Or 進貨成本 = 0 Or 市價 = 0 Or 售價 = 0 Or 產品圖片 = "" Then MsgBox(" 有部份資料尚未填寫 ",, " 系統訊息 ") Else Me.Db1DataSet. 林芳如之產品基本資料.Add 林芳如之產品基本資料 Row( 產品名稱, 供應商, 單位, 進貨成本, 市價, 售價, 產品圖片 ) Me. 林芳如之產品基本資料 TableAdapter.Update(Me.Db1DataSet. 林芳如之產品基本資料 ) MsgBox(" 資料新增成功!",, " 系統訊息 ") Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress '************************************************** ' 輸入 ( 產品名稱 ) 按 enter 即跳至輸入 ( 供應商 ), 不需移動滑鼠 '************************************************** If Asc(e.KeyChar) = 13 Then TextBox2.Focus() Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress '************************************************** ' 輸入 ( 供應商 ) 按 enter 即跳至輸入 ( 單位 ), 不需移動滑鼠 '************************************************** If Asc(e.KeyChar) = 13 Then ComboBox1.Focus() 10 逢甲大學學生 - 林芳如報告 (2006 年 )

13 Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress '*************************************************** ' 輸入 ( 進貨成本 ) 按 enter 即跳至輸入 ( 市價 ), 不需移動滑鼠 '*************************************************** If Asc(e.KeyChar) = 13 Then TextBox4.Focus() Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress '************************************************** ' 輸入 ( 市價 ) 按 enter 即跳至輸入 ( 售價 ), 不需移動滑鼠 '************************************************** If Asc(e.KeyChar) = 13 Then TextBox5.Focus() Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress '*************************************************** ' 輸入 ( 售價 ) 按 enter 即跳至輸入 ( 產品圖片 ), 不需移動滑鼠 '*************************************************** If Asc(e.KeyChar) = 13 Then TextBox6.Focus() Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress '*************************************************** ' 輸入 ( 產品圖片 ) 按 enter 即跳至 ( 確定 ) 按鈕, 不需移動滑鼠 '*************************************************** If Asc(e.KeyChar) = 13 Then 11 逢甲大學學生 - 林芳如報告 (2006 年 )

Button2.Focus() Private Sub Form4_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Me. 林芳如之產品基本資料 TableAdapter.Update(Me.Db1DataSet.

14 Button2.Focus() Private Sub Form4_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Me. 林芳如之產品基本資料 TableAdapter.Update(Me.Db1DataSet. 林芳如之產品基本資料 ) ' 更新資料庫後再關閉 '******************************* ' 表單一關閉即 end 以正常結束程式 '******************************* End Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 進行移動或移除 'TODO: 這行程式碼會將資料載入 'Db1DataSet. 林芳如的產品基本資料 ' 資料表您可以視需要 Me. 林芳如之產品基本資料 TableAdapter.Fill(Me.Db1DataSet. 林芳如之產品基本資料 ) ' 表單一開啟即填入資料集 End Class 六逐筆瀏覽逐筆瀏覽執行畫面及程式碼 12 逢甲大學學生 - 林芳如報告 (2006 年 )

15 程式碼 : Public Class Form5 Dim 目前資料位置 As Integer Dim 是否報價 (100) As Integer Dim 報價數量 (100) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '******************** ' 到 Form2 瀏覽產品資料 '******************** Dim form21 As New Form2 form21.show() ' 秀出 form2 Me.Hide() ' 隱藏 form5 Private Sub Form5_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed '**************************** ' 表單一關閉即 end 正常結束程式 '**************************** End Private Sub Form5_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load '*********** ' 移到第一筆 '*********** 目前資料位置 = 0 'TODO: 這行程式碼會將資料載入 'Db1DataSet. 林芳如之產品基本資料 ' 資料表您可以視需要進行移動或移除 Me. 林芳如之產品基本資料 TableAdapter.Fill(Me.Db1DataSet. 林芳如之產品基本資料 ) ' 表單一開啟即填入資料集 'TODO: 這行程式碼會將資料載入 'Db1DataSet1. 報價單 ' 資料表您可以視需要進行移動或移除 Me. 報價單 TableAdapter.Fill(Me.Db1DataSet1. 報價單 ) '*************** ' 顯示第一筆資料 13 逢甲大學學生 - 林芳如報告 (2006 年 )

16 '*************** TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(5) TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(7) '*********************************************** ' 逐筆瀏覽可顯示產品圖片 ' 若沒產品圖片會出現 noimage 的圖片暫無產品圖片 '*********************************************** PictureBox1.Image = New Bitmap("noimage.gif") On Error Resume PictureBox1.Image = New Bitmap(TextBox7.Text) If 是否報價 ( 目前資料位置 ) = 0 Then ' 若回傳值 =0, 還未選擇 CheckBox1.Checked = False 'Checkbox1 不會打勾 ComboBox1.Text = "( 選擇數量 )" 'Combobox1 會要求選擇數量 Else ' 若回傳值不等於 0, 已經輸入選擇 CheckBox1.Checked = True 'Checkbox1 會勾選 ComboBox1.Text = 報價數量 ( 目前資料位置 ) 'Combobox1 會出現選擇的數量 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '******************* ' 回到第一筆產品資料 '******************* 目前資料位置 = 0 '*************** ' 重新顯示資料 '*************** TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(5) 14 逢甲大學學生 - 林芳如報告 (2006 年 )

17 TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(7) '*********************************************** ' 逐筆瀏覽可顯示產品圖片 ' 若沒產品圖片會出現 noimage 的圖片暫無產品圖片 '*********************************************** PictureBox1.Image = New Bitmap("noimage.gif") On Error Resume PictureBox1.Image = New Bitmap(TextBox7.Text) If 是否報價 ( 目前資料位置 ) = 0 Then ' 若回傳值 =0, 還未選擇 CheckBox1.Checked = False 'Checkbox1 不會打勾 ComboBox1.Text = "( 選擇數量 )" 'Combobox1 會要求選擇數量 Else ' 若回傳值不等於 0, 已經輸入選擇 CheckBox1.Checked = True 'Checkbox1 會勾選 ComboBox1.Text = 報價數量 ( 目前資料位置 ) 'Combobox1 會出現選擇的數量 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '************************** ' 移到上一筆產品資料 ' 在第一筆資料會移到最後一筆 '************************** If 目前資料位置 = 0 Then 目前資料位置 = Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 Else 目前資料位置 = 目前資料位置 - 1 TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(5) TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(7) '*********************************************** ' 逐筆瀏覽可顯示產品圖片 15 逢甲大學學生 - 林芳如報告 (2006 年 )

18 ' 若沒產品圖片會出現 noimage 的圖片暫無產品圖片 '*********************************************** PictureBox1.Image = New Bitmap("noimage.gif") On Error Resume PictureBox1.Image = New Bitmap(TextBox7.Text) If 是否報價 ( 目前資料位置 ) = 0 Then ' 若回傳值 =0, 還未選擇 CheckBox1.Checked = False 'Checkbox1 不會打勾 ComboBox1.Text = "( 選擇數量 )" 'Combobox1 會要求選擇數量 Else ' 若回傳值不等於 0, 已經輸入選擇 CheckBox1.Checked = True 'Checkbox1 會勾選 ComboBox1.Text = 報價數量 ( 目前資料位置 ) 'Combobox1 會出現選擇的數量 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click '************************** ' 移到下一筆產品資料 ' 在最後一筆資料會移到第一筆 '************************** If 目前資料位置 = Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 Then 目前資料位置 = 0 Else 目前資料位置 = 目前資料位置 + 1 TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(5) TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(7) '*********************************************** ' 逐筆瀏覽可顯示產品圖片 ' 若沒產品圖片會出現 noimage 的圖片暫無產品圖片 '*********************************************** PictureBox1.Image = New Bitmap("noimage.gif") On Error Resume 16 逢甲大學學生 - 林芳如報告 (2006 年 )

19 PictureBox1.Image = New Bitmap(TextBox7.Text) If 是否報價 ( 目前資料位置 ) = 0 Then ' 若回傳值 =0, 還未選擇 CheckBox1.Checked = False 'Checkbox1 不會打勾 ComboBox1.Text = "( 選擇數量 )" 'Combobox1 會要求選擇數量 Else ' 若回傳值不等於 0, 已經輸入選擇 CheckBox1.Checked = True 'Checkbox1 會勾選 ComboBox1.Text = 報價數量 ( 目前資料位置 ) 'Combobox1 會出現選擇的數量 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click '********************* ' 移到最後一筆產品資料 '********************* 目前資料位置 = Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(5) TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(7) '*********************************************** ' 逐筆瀏覽可顯示產品圖片 ' 若沒產品圖片會出現 noimage 的圖片暫無產品圖片 '*********************************************** PictureBox1.Image = New Bitmap("noimage.gif") On Error Resume PictureBox1.Image = New Bitmap(TextBox7.Text) If 是否報價 ( 目前資料位置 ) = 0 Then ' 若回傳值 =0, 還未選擇 CheckBox1.Checked = False 'Checkbox1 不會打勾 ComboBox1.Text = "( 選擇數量 )" 'Combobox1 會要求選擇數量 Else ' 若回傳值不等於 0, 已經輸入選擇 CheckBox1.Checked = True 'Checkbox1 會勾選 ComboBox1.Text = 報價數量 ( 目前資料位置 ) 'Combobox1 會出現選擇的數量 17 逢甲大學學生 - 林芳如報告 (2006 年 )

20 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged CheckBox1.Checked = True 是否報價 ( 目前資料位置 ) = 1 報價數量 ( 目前資料位置 ) = Val(ComboBox1.SelectedItem) Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click If CheckBox1.Checked = True Then 是否報價 ( 目前資料位置 ) = 1 報價數量 ( 目前資料位置 ) = 1 ComboBox1.Text = "( 選擇數量 )" Else 是否報價 ( 目前資料位置 ) = 0 報價數量 ( 目前資料位置 ) = 0 ComboBox1.Text = "( 選擇數量 )" Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click '************ ' 產生報價單 '************ Dim 項目編號 As Integer Dim 產品名稱 As String Dim 單價 As Integer Dim 數量 As Integer Dim i As Integer For i = 0 To Me.Db1DataSet1. 報價單.Rows.Count - 1 項目編號 = Me.Db1DataSet1. 報價單.Rows(i)(0) 產品名稱 = Me.Db1DataSet1. 報價單.Rows(i)(1) 單價 = Me.Db1DataSet1. 報價單.Rows(i)(2) 數量 = Me.Db1DataSet1. 報價單.Rows(i)(3) Me. 報價單 TableAdapter.Delete( 項目編號, 產品名稱, 單價, 數量 ) 18 逢甲大學學生 - 林芳如報告 (2006 年 )

Db1DataSet1. 報價單.Add 報價單 Row( 產品名稱, 單價, 數量 ) Me. 報價單 TableAdapter.

21 Me. 報價單 TableAdapter.Update(Db1DataSet1) ' 需放迴圈裡面 For i = 0 To Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 If 是否報價 (i) = 1 Then 產品名稱 = Me.Db1DataSet. 林芳如之產品基本資料.Rows(i)(1) 單價 = Me.Db1DataSet. 林芳如之產品基本資料.Rows(i)(6) 數量 = 報價數量 (i) Me.Db1DataSet1. 報價單.Add 報價單 Row( 產品名稱, 單價, 數量 ) Me. 報價單 TableAdapter.Update(Db1DataSet1) '***************************** ' 新增 Form8 ' 點選後進入到 Form8 報價單 '***************************** Dim form81 As New Form8 form81.show() ' 秀出 Form8 Me.Hide() ' 隱藏 Form5 End Class 七刪除 / 修改產品資料執行畫面及程式碼 19 逢甲大學學生 - 林芳如報告 (2006 年 )

程式碼 : Public Class Form6 Dim 目前資料位置 As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.

Hide() ' 隱藏 Form6 Private Sub Form6_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.

22 程式碼 : Public Class Form6 Dim 目前資料位置 As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '******************************* ' 點選後進入到 Form2 瀏覽產品資料 '******************************* Dim form21 As New Form2 form21.show() ' 秀出 Form2 Me.Hide() ' 隱藏 Form6 Private Sub Form6_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed '**************************** ' 表單一關閉即 end 正常結束程式 '**************************** End Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 20 逢甲大學學生 - 林芳如報告 (2006 年 )

23 'TODO: 這行程式碼會將資料載入 'Db1DataSet. 林芳如之產品基本資料 ' 資料表您可以視需要進行移動或移除 Me. 林芳如之產品基本資料 TableAdapter.Fill(Me.Db1DataSet. 林芳如之產品基本資料 ) ' 表單一開啟即填入資料集 '*************** ' 顯示第一筆資料 '*************** TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(5) TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows(0)(7) 目前資料位置 = 0 ' 移到第一筆 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '******************* ' 回到第一筆產品資料 '******************* 目前資料位置 = 0 '*************** ' 重新顯示資料 '*************** TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(5) TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(7) Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 21 逢甲大學學生 - 林芳如報告 (2006 年 )

24 '************************** ' 移到上一筆產品資料 ' 在第一筆資料會移到最後一筆 '************************** If 目前資料位置 = 0 Then 目前資料位置 = Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 Else 目前資料位置 = 目前資料位置 - 1 TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(5) TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(7) Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click '************************** ' 移到下一筆產品資料 ' 在最後一筆資料會移到第一筆 '************************** If 目前資料位置 = Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 Then 目前資料位置 = 1 Else 目前資料位置 = 目前資料位置 + 1 TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(5) TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(7) 22 逢甲大學學生 - 林芳如報告 (2006 年 )

25 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click '********************* ' 移到最後一筆產品資料 '********************* 目前資料位置 = Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 TextBox1.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) TextBox2.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) TextBox3.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) TextBox4.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(4) TextBox5.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(5) TextBox6.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(6) TextBox7.Text = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(7) Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click '************ ' 刪除產品資料 '************ Dim 產品編號 As Integer Dim 產品名稱 As String Dim 供應商 As String Dim 單位 As String Dim 進貨成本 As Single Dim 市價 As Single Dim 售價 As Single Dim 產品圖片 As String 產品編號 = Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(0) 產品名稱 = TextBox1.Text 供應商 = TextBox2.Text 單位 = TextBox3.Text 進貨成本 = Val(TextBox4.Text) 市價 = Val(TextBox5.Text) 售價 = Val(TextBox6.Text) 產品圖片 = TextBox7.Text Me. 林芳如之產品基本資料 TableAdapter.Delete( 產品編號, 產品名稱, 供應商, 單位, 進貨成本, 市價, 售價, 產品圖片 ) 23 逢甲大學學生 - 林芳如報告 (2006 年 )

Me. 林芳如之產品基本資料 TableAdapter.Update(Me.Db1DataSet. 林芳如之產品基本資料 ) MsgBox(" 資料已刪除 ",, " 系統訊息 ") ' 點選刪除按鈕後系統訊息會告知資料已刪除 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.

Text = "" Or TextBox7.Text = "" Then MsgBox(" 有部份資料尚未填寫 ",, " 系統訊息 ") Else Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) = TextBox1.Text Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) = TextBox2.Text Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) = TextBox3.

26 Me. 林芳如之產品基本資料 TableAdapter.Update(Me.Db1DataSet. 林芳如之產品基本資料 ) MsgBox(" 資料已刪除 ",, " 系統訊息 ") ' 點選刪除按鈕後系統訊息會告知資料已刪除 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click '************ ' 更新產品資料 '************ If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Then MsgBox(" 有部份資料尚未填寫 ",, " 系統訊息 ") Else Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(1) = TextBox1.Text Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(2) = TextBox2.Text Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(3) = TextBox3.Text Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(4) = Val(TextBox4.Text) Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(5) = Val(TextBox5.Text) Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(6) = Val(TextBox6.Text) Me.Db1DataSet. 林芳如之產品基本資料.Rows( 目前資料位置 )(7) = TextBox7.Text Me. 林芳如之產品基本資料 TableAdapter.Update(Me.Db1DataSet. 林芳如之產品基本資料 ) MsgBox(" 資料已更新!",, " 系統訊息 ") ' 直接更改後點選更新按鈕系統會告知資料已更新 End Class 八統計圖表統計圖表執行畫面及程式碼 24 逢甲大學學生 - 林芳如報告 (2006 年 )

程式碼 : Public Class Form7 Private Sub 回主選單 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 回主選單 ToolStripMenuItem.

27 程式碼 : Public Class Form7 Private Sub 回主選單 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 回主選單 ToolStripMenuItem.Click '******************** ' 到 Form1 回到主選單 '******************** Dim form11 As New Form1 form11.show() ' 秀出 form1 Me.Hide() ' 隱藏 Form7 Private Sub Form7_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed '**************************** 25 逢甲大學學生 - 林芳如報告 (2006 年 )

28 ' 表單一關閉即 end 正常結束程式 '**************************** End Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me. 林芳如之產品基本資料 TableAdapter.Fill(Me.Db1DataSet. 林芳如之產品基本資料 ) ' 表單一開啟即填入資料集 Private Sub 粉底 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粉底 ToolStripMenuItem.Click Dim 類別 () = {" 粉底液 ", " 粉餅 "} Dim 數量 () = {0, 0} Dim 比例 (2) As Single Dim i, j As Integer For i = 0 To Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 For j = 0 To 1 If InStr(Me.Db1DataSet. 林芳如之產品基本資料.Rows(i)(1), 類別 (j)) > 0 Then 數量 (j) = 數量 (j) + 1 For j = 0 To 1 比例 (j) = 數量 (j) / Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count '********* ' 畫圓餅圖 '********* Dim g As Graphics g = Me.CreateGraphics g.clear(me.backcolor) Dim 黃刷, 紅刷, 藍刷 As Brush 黃刷 = Brushes.Yellow 紅刷 = Brushes.Red 藍刷 = Brushes.Blue g.fillpie( 黃刷, 50, 100, 100, 100, 0, 比例 (0) * 360) 26 逢甲大學學生 - 林芳如報告 (2006 年 )

29 g.fillpie( 紅刷, 50, 100, 100, 100, 比例 (0) * 360, 比例 (1) * 360) g.fillpie( 藍刷, 50, 100, 100, 100, 比例 (0) * 比例 (1) * 360, 比例 (0) * 比例 (1) * 360) g.fillrectangle( 黃刷, 180, 100, 50, 20) g.fillrectangle( 紅刷, 180, 130, 50, 20) g.fillrectangle( 藍刷, 180, 160, 50, 20) g.drawstring( 類別 (0), Me.Font, Brushes.Black, 240, 100) g.drawstring( 類別 (1), Me.Font, Brushes.Black, 240, 130) g.drawstring(" 其他 ", Me.Font, Brushes.Black, 240, 160) Private Sub 眼影 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 眼影 ToolStripMenuItem.Click Dim 類別 () = {" 眼影 ", " 眼蜜 "} Dim 數量 () = {0, 0} Dim 比例 (2) As Single Dim i, j As Integer For i = 0 To Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 For j = 0 To 1 If InStr(Me.Db1DataSet. 林芳如之產品基本資料.Rows(i)(1), 類別 (j)) > 0 Then 數量 (j) = 數量 (j) + 1 For j = 0 To 1 比例 (j) = 數量 (j) / Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count '********* ' 畫圓餅圖 '********* Dim g As Graphics g = Me.CreateGraphics g.clear(me.backcolor) Dim 黃刷, 紅刷, 藍刷 As Brush 黃刷 = Brushes.Yellow 紅刷 = Brushes.Red 藍刷 = Brushes.Blue g.fillpie( 黃刷, 50, 100, 100, 100, 0, 比例 (0) * 360) 27 逢甲大學學生 - 林芳如報告 (2006 年 )

30 g.fillpie( 紅刷, 50, 100, 100, 100, 比例 (0) * 360, 比例 (1) * 360) g.fillpie( 藍刷, 50, 100, 100, 100, 比例 (0) * 比例 (1) * 360, 比例 (0) * 比例 (1) * 360) g.fillrectangle( 黃刷, 180, 100, 50, 20) g.fillrectangle( 紅刷, 180, 130, 50, 20) g.fillrectangle( 藍刷, 180, 160, 50, 20) g.drawstring( 類別 (0), Me.Font, Brushes.Black, 240, 100) g.drawstring( 類別 (1), Me.Font, Brushes.Black, 240, 130) g.drawstring(" 其他 ", Me.Font, Brushes.Black, 240, 160) Private Sub 睫毛膏 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 睫毛膏 ToolStripMenuItem.Click Dim 類別 () = {" 濃密睫毛膏 ", " 纖長睫毛膏 "} Dim 數量 () = {0, 0} Dim 比例 (2) As Single Dim i, j As Integer For i = 0 To Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 For j = 0 To 1 If InStr(Me.Db1DataSet. 林芳如之產品基本資料.Rows(i)(1), 類別 (j)) > 0 Then 數量 (j) = 數量 (j) + 1 For j = 0 To 1 比例 (j) = 數量 (j) / Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count '********* ' 畫圓餅圖 '********* Dim g As Graphics g = Me.CreateGraphics g.clear(me.backcolor) Dim 黃刷, 紅刷, 藍刷 As Brush 黃刷 = Brushes.Yellow 紅刷 = Brushes.Red 藍刷 = Brushes.Blue g.fillpie( 黃刷, 50, 100, 100, 100, 0, 比例 (0) * 360) 28 逢甲大學學生 - 林芳如報告 (2006 年 )

31 g.fillpie( 紅刷, 50, 100, 100, 100, 比例 (0) * 360, 比例 (1) * 360) g.fillpie( 藍刷, 50, 100, 100, 100, 比例 (0) * 比例 (1) * 360, 比例 (0) * 比例 (1) * 360) g.fillrectangle( 黃刷, 180, 100, 50, 20) g.fillrectangle( 紅刷, 180, 130, 50, 20) g.fillrectangle( 藍刷, 180, 160, 50, 20) g.drawstring( 類別 (0), Me.Font, Brushes.Black, 240, 100) g.drawstring( 類別 (1), Me.Font, Brushes.Black, 240, 130) g.drawstring(" 其他 ", Me.Font, Brushes.Black, 240, 160) Private Sub 修容餅 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修容餅 ToolStripMenuItem.Click Dim 類別 () = {" 修容餅 ", " 腮紅 "} Dim 數量 () = {0, 0} Dim 比例 (2) As Single Dim i, j As Integer For i = 0 To Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 For j = 0 To 1 If InStr(Me.Db1DataSet. 林芳如之產品基本資料.Rows(i)(1), 類別 (j)) > 0 Then 數量 (j) = 數量 (j) + 1 For j = 0 To 1 比例 (j) = 數量 (j) / Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count '********* ' 畫圓餅圖 '********* Dim g As Graphics g = Me.CreateGraphics g.clear(me.backcolor) Dim 黃刷, 紅刷, 藍刷 As Brush 黃刷 = Brushes.Yellow 紅刷 = Brushes.Red 藍刷 = Brushes.Blue g.fillpie( 黃刷, 50, 100, 100, 100, 0, 比例 (0) * 360) 29 逢甲大學學生 - 林芳如報告 (2006 年 )

32 g.fillpie( 紅刷, 50, 100, 100, 100, 比例 (0) * 360, 比例 (1) * 360) g.fillpie( 藍刷, 50, 100, 100, 100, 比例 (0) * 比例 (1) * 360, 比例 (0) * 比例 (1) * 360) g.fillrectangle( 黃刷, 180, 100, 50, 20) g.fillrectangle( 紅刷, 180, 130, 50, 20) g.fillrectangle( 藍刷, 180, 160, 50, 20) g.drawstring( 類別 (0), Me.Font, Brushes.Black, 240, 100) g.drawstring( 類別 (1), Me.Font, Brushes.Black, 240, 130) g.drawstring(" 其他 ", Me.Font, Brushes.Black, 240, 160) Private Sub 依供應商 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 依供應商 ToolStripMenuItem.Click Dim 廠商名稱 (100) As String Dim 種類數 (100) As Integer Dim 第幾家, 找到了 As Integer Dim i, j As Integer Dim x 座標, y 座標, 寬度, 長度 As Integer 第幾家 = 0 For i = 0 To Me.Db1DataSet. 林芳如之產品基本資料.Rows.Count - 1 找到了 = 0 For j = 0 To 99 If 廠商名稱 (j) = Me.Db1DataSet. 林芳如之產品基本資料.Rows(i)(2) Then 種類數 (j) = 種類數 (j) + 1 找到了 = 1 If 找到了 = 0 Then 廠商名稱 ( 第幾家 ) = Me.Db1DataSet. 林芳如之產品基本資料.Rows(i)(2) 種類數 ( 第幾家 ) = 1 第幾家 = 第幾家 + 1 Array.Sort( 種類數, 廠商名稱 ) Array.Reverse( 種類數 ) Array.Reverse( 廠商名稱 ) '********* ' 畫長條圖 30 逢甲大學學生 - 林芳如報告 (2006 年 )

33 '********* Dim g As Graphics g = Me.CreateGraphics g.clear(me.backcolor) g.drawline(pens.black, 50, 250, 350, 250) For i = 0 To 4 x 座標 = 70 + i * 70 y 座標 = 種類數 (i) / 種類數 (0) * 200 寬度 = 40 長度 = 種類數 (i) / 種類數 (0) * 200 g.fillrectangle(brushes.blue, x 座標, y 座標, 寬度, 長度 ) g.drawstring( 廠商名稱 (i), New Font(" 標楷體 ", 12), Brushes.Purple, x 座標, 255) g.dispose() End Class 九報價單報價單執行畫面及程式碼 31 逢甲大學學生 - 林芳如報告 (2006 年 )

34 程式碼 : Public Class Form8 Private Sub Form8_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed '**************************** ' 表單一關閉即 end 正常結束程式 '**************************** End Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 這行程式碼會將資料載入 'Db1DataSet1. 報價單 ' 資料表您可以視需要進行移動或移除 Me. 報價單 TableAdapter.Fill(Me.Db1DataSet1. 報價單 ) ' 表單一開啟即填入資料集 Dim i As Integer Dim 報價項目數 As Integer Dim 金額, 報價總金額 As Single 報價項目數 = Me.Db1DataSet1. 報價單.Rows.Count For i = 0 To Me.Db1DataSet1. 報價單.Rows.Count - 1 金額 = Me.Db1DataSet1. 報價單.Rows(i)(2) * Me.Db1DataSet1. 報價單.Rows(i)(3) ' 產品金額 = 單價 * 數量報價總金額 = 報價總金額 + 金額 ' 總金額 = 各項產品金額相加 TextBox4.Text = 報價項目數 ' 產生要報價產品數目 TextBox5.Text = 報價總金額 ' 產生要報價產品總金額 End Class 32 逢甲大學學生 - 林芳如報告 (2006 年 )

35 十心得因為現今電腦的普及, 軟體的發展也越來越多元化, 而這些軟體即是由程式所構成的, 其中,Visual Basic 是基本程式語言之一未觸碰 VB 之前, 時常聽到寫程式很困難, 再加上自己對電腦一竅不通, 因此更加畏懼, 但經過了這一學期的學習, 減少了我對 VB 語言的退縮感在學習過程中, 剛開始上課先聽老師講解, 一邊做筆記, 之後再親自操作一遍, 驗收自己是否已對程式了解, 再繼續往下延伸, 但碰到太複雜的程式, 不免會有沮喪感, 在這磨練的過程中也奠定了最基本的程式基礎在期中考過後, 所學的東西就更加深入首先, 先利用 ACCESS 建立產品資料庫, 為了方便變更資料, 因此建立一個可以同時新增修改或刪除動作的系統另外, 也可利用系統查詢產品資料及圖片, 直接勾選產品需求量, 就能快速產生報價單雖然此系統的程式較為複雜, 但經由老師細心的一步一步指導下, 終於完成了產品資料管理系統資料庫的應用非常廣泛, 例如像查詢系統拍賣及現今流行的部落格. 等等, 皆需要資料庫的輔助管理, 並帶來操作上的方便經由這學期的 VB 課程, 讓我了解到, 程式語言的運用如此廣泛, 不只學習到有趣的小遊戲, 還有實用的資料庫系統, 增加了對 VB 的興趣及奠定下基礎的能力 33 逢甲大學學生 - 林芳如報告 (2006 年 )

報告題名 : 應用程式設計期末報告產品管理系統作者 : 張紹剛系級 : 工業二甲學號 :D 開課老師 : 陳亭志課程名稱 : 應用程式設計開課系所 : 工業工程與系統管理開課學年 :97 學年度第 1 學期

報告題名 : 應用程式設計期末報告產品管理系統作者 : 張紹剛系級 : 工業二甲學號 :D 開課老師 : 陳亭志課程名稱 : 應用程式設計開課系所 : 工業工程與系統管理開課學年 :97 學年度第 1 學期報告題名 : 應用程式設計期末報告產品管理系統作者 : 張紹剛系級 : 工業二甲學號 :D9568608 開課老師 : 陳亭志課程名稱 : 應用程式設計開課系所 : 工業工程與系統管理開課學年 :97 學年度第 1 學期目錄方案總管 : 2 Form1: 首頁 3 Form2: 基本資料維護 6 Form3: 瀏覽產品資料 8 Form4: 全部瀏覽 10 Form5: 瀏覽 / 修改 /