1.執行畫面
2.程式碼
Public Class Form6 Dim data As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim form62 As New Form2 form62.Show()
Me.Hide() End Sub
Private Sub Form6_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Dim form62 As New Form2
form62.Show() Me.Hide() End Sub
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 'PuppyPalaceDataSet.小狗基本資料表' 資料表。您可以視需要進行移動或移除。
Me.小狗基本資料 TableAdapter.Fill(Me.PuppyPalaceDataSet.小狗基本資料) data = 0
TextBox1.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(1) TextBox2.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(2) TextBox3.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(3) If Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(4) = "公" Then
TextBox5.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(6) TextBox6.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(7) PictureBox1.Image = New Bitmap("NoImage.jpg")
On Error Resume Next
PictureBox1.Image = New Bitmap(TextBox6.Text) End Sub
data = 0
TextBox1.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(1) TextBox2.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(2) TextBox3.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(3) If Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(4) = "公" Then RadioButton1.Checked = True
Else
RadioButton2.Checked = True End If
TextBox4.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(5) TextBox5.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(6) TextBox6.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(7) PictureBox1.Image = New Bitmap("NoImage.jpg")
On Error Resume Next
PictureBox1.Image = New Bitmap(TextBox6.Text) End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(1) TextBox2.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(2) TextBox3.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(3) If Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(4) = "公" Then RadioButton1.Checked = True
Else
RadioButton2.Checked = True End If
TextBox4.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(5) TextBox5.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(6) TextBox6.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(7) PictureBox1.Image = New Bitmap("NoImage.jpg")
On Error Resume Next
PictureBox1.Image = New Bitmap(TextBox6.Text) End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
TextBox1.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(1) TextBox2.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(2) TextBox3.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(3) If Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(4) = "公" Then RadioButton1.Checked = True
Else
RadioButton2.Checked = True End If
TextBox4.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(5) TextBox5.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(6) TextBox6.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(7) PictureBox1.Image = New Bitmap("NoImage.jpg")
On Error Resume Next
PictureBox1.Image = New Bitmap(TextBox6.Text) End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
data = Me.PuppyPalaceDataSet.小狗基本資料.Rows.Count - 1
TextBox1.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(1) TextBox2.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(2) TextBox3.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(3) If Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(4) = "公" Then
RadioButton1.Checked = True Else
RadioButton2.Checked = True End If
TextBox4.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(5) TextBox5.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(6) TextBox6.Text = Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(7)
PictureBox1.Image = New Bitmap(TextBox6.Text) End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
PictureBox1.Image = New Bitmap("NoImage.jpg") MsgBox("資料已刪除！", , "PuppyPalace 資訊系統") End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or (RadioButton1.Checked = False And RadioButton2.Checked = False) Then
MsgBox("資料輸入不完全！", , "PuppyPalace 資訊系統") Else
Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(1) = TextBox1.Text Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(2) = TextBox2.Text
Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(3) = Val(TextBox3.Text)
If RadioButton1.Checked = True Then
Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(4) = "公"
Else
Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(4) = "母"
End If
• Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(5) = TextBox4.Text Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(6) =
Val(TextBox5.Text)
Me.PuppyPalaceDataSet.小狗基本資料.Rows(data)(7) = TextBox6.Text MsgBox("資料修改成功！", , "PuppyPalace 資訊系統")
End If End Sub End Class