23-04-25, 09:50 AM
Public Class Form1
Private Sub Browse_btn_Click(sender As Object, e As EventArgs) Handles Browse_btn.Click
OpenFileDialog1.Filter = "Image|*.png;*.jpg;*.bmp" If OpenFileDialog1.ShowDialog = DialogResult.OK Then
pictxt.Text = OpenFileDialog1.FileName
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
Else
pictxt.Text = ""
PictureBox1.Image = Nothing
End If
End Sub
Private Sub pictxt_TextChanged(sender As Object, e As EventArgs) Handles pictxt.TextChanged
If pictxt.Text = "" Then
PictureBox1.Image = Nothing
Else
PictureBox1.Image = Image.FromFile(pictxt.Text)
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Students3DataSet.Table1' table. You can move, or remove it, as needed.
Me.Table1TableAdapter.Fill(Me.Students3DataSet.Table1)
DataGridView1.Columns(4).DefaultCellStyle.Format = "MM/dd/yyyy"
DataGridView1.Columns(0).HeaderText = "ID"
DataGridView1.Columns(1).HeaderText = "Code"
DataGridView1.Columns(2).HeaderText = "Name"
DataGridView1.Columns(3).HeaderText = "Phone"
DataGridView1.Columns(4).HeaderText = "Date"
DataGridView1.Columns(5).HeaderText = "Grade"
DataGridView1.Columns(6).HeaderText = "Class"
DataGridView1.Columns(7).HeaderText = "Picture"
End Sub
Private Sub new_btn_Click(sender As Object, e As EventArgs) Handles new_btn.Click
Dim row = DirectCast(Table1BindingSource.AddNew(), DataRowView)
row("rdate") = dtp1.Value
End Sub
Private Sub save_btn_Click(sender As Object, e As EventArgs) Handles save_btn.Click
If (String.IsNullOrEmpty(codetxt.Text)) Then
ErrorProvider1.SetError(codetxt, "Code Is required")
Else
ErrorProvider1.SetError(codetxt, String.Empty)
For i As Integer = 0 To DataGridView1.Rows.Count - 1
If codetxt.Text = DataGridView1.Rows(i).Cells(1).Value.ToString And idtxt.Text <> DataGridView1.Rows(i).Cells(0).Value.ToString Then
MessageBox.Show("Code Exists Before")
Return
Else
Table1BindingSource.EndEdit()
Table1TableAdapter.Update(Students3DataSet.Table1)
End If
Next
MessageBox.Show("Data Saved Successfully")
End If
End Sub
Private Sub codetxt_TextChanged(sender As Object, e As EventArgs) Handles codetxt.TextChanged
If (String.IsNullOrEmpty(codetxt.Text)) Then
ErrorProvider1.SetError(codetxt, "Code Is required")
Else
ErrorProvider1.SetError(codetxt, String.Empty)
End If
End Sub
Private Sub delete_btn_Click(sender As Object, e As EventArgs) Handles delete_btn.Click
Table1BindingSource.RemoveCurrent()
Table1TableAdapter.Update(Students3DataSet.Table1)
PictureBox1.Image = Nothing
End Sub
Private Sub first_btn_Click(sender As Object, e As EventArgs) Handles first_btn.Click
Table1BindingSource.MoveFirst()
End Sub
Private Sub next_btn_Click(sender As Object, e As EventArgs) Handles next_btn.Click
Table1BindingSource.MoveNext()
End Sub
Private Sub previous_btn_Click(sender As Object, e As EventArgs) Handles previous_btn.Click
Table1BindingSource.MovePrevious()
End Sub
Private Sub last_btn_Click(sender As Object, e As EventArgs) Handles last_btn.Click
Table1BindingSource.MoveLast()
End Sub
Private Sub close_btn_Click(sender As Object, e As EventArgs) Handles close_btn.Click
Me.Close()
End Sub
Private Sub Search_btn_Click(sender As Object, e As EventArgs) Handles Search_btn.Click
Me.Table1TableAdapter.search(Me.Students3DataSet.Table1, idtxt.Text)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Table1TableAdapter.Fill(Me.Students3DataSet.Table1)
End Sub
End Class