修改資料的程式碼

Dim 已查詢 As Integer

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

OleDbDataAdapter1.Fill(DataSet11) '產生資料集' 已查詢 = 0

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox3.Text + "',生日 ='" + TextBox4.Text + "',電話='" + TextBox5.Text + "',地址='" + TextBox6.Text + "' where 姓名='" + TextBox1.Text + "'"

OleDbDataAdapter1.UpdateCommand.CommandText = q1 OleDbDataAdapter1.UpdateCommand.Connection.Open() OleDbDataAdapter1.UpdateCommand.ExecuteNonQuery() OleDbDataAdapter1.UpdateCommand.Connection.Close()

MsgBox("已更新成功!", MsgBoxStyle.Information, "修改資料") ' 直接更改後點選更新按鈕將會告知已更新成功'

End Sub

Private Sub Form4_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

End '離開' End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim form11 As New Form1 '回到主畫面' form11.Show()

Me.Hide()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

End If End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

End '點選離開系統及可離開' End Sub

End Class

十一、統計資料的程式碼

Dim 男生人數, 女生人數 As Integer

Dim 城市名稱() = {"台北縣", "新竹市", "桃園縣", "台中市"}

Dim 城市人數() = {0, 0, 0}

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Private Sub Form5_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

End '離開' End Sub

Private Sub MenuItem5_Click(ByVal sender As Object, ByVal e As

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Private Sub MenuItem3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

Dim i, y, h As Integer '點選依城市區分後會出現長條圖顯示居住城

Private Sub MenuItem6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem6.Click

End '點選離開系統即可離開' End Sub

End Class

十二、心得：

經過這一學期的期間，在每個禮拜 3 堂應用程式設計的課程中，學到了一些 較為實用的程式，比如：應用在菜單上、計算分數、猜謎遊戲、彈力球；尤其是 小孩子玩的接球遊戲更是利用彈力球的延伸。製作的班級通訊錄更是一個很實用 的東西，將個人的基本資料做成了一個資料表，在利用此資料表做成表單，可瀏 覽資料、查詢或刪除資料、修改資料，也可繪圖做成統計資料圖之用。因為以前 都沒有學過 VB，因此經過一個學期的學習，覺得自己學到很多以前所不知道的 事，也對電腦不在那麼陌生與害怕，知道了電腦原來也可以這麼有趣。不過面對 電腦就一竅不通的我，竟然可以將 VB 學的還不錯，如果還可以繼續學，我希望 能夠在學點實用的東西，但也希望能夠是我所能理解的。在學習當中，雖然覺得 學習是有趣的，但還是會害怕考試；可是，沒有想到的是，在此課程期中考時，

因為能夠理解，所以準備起來也較為輕鬆多了，面對考試的內容也可以很熟悉的 寫入正確的程式。然而，在一開始面對 VB 時，其實還有點怕怕的，爲什麼會說 我自己對電腦一竅不通呢？並不是我是一個電腦白痴，而是在大一的時候，我曾 因 C 語言吃過許多的苦頭，所以自此之後，我對電腦的信心可說是失去一半了！

想不到的是，把 VB 學的還不錯的我，面對電腦的信心可說是吃了大補丸了！現 在的我，面對電腦開始懂的理解，也讓自己充實不少了。