Authors-Main.NEW

[GoodBacha]

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles update.Click
Me.BindingConte xt(DataSet11, "authors").EndC urrentEdit()
Me.OleDbDataAda pter1.Update(Da taSet11)
End Sub

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load

End Sub

Private Sub clear_Click(ByV al sender As System.Object, ByVal e As System.EventArg s) Handles clear.Click
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "

End Sub

Private Sub load_Click(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles load.Click
OleDbDataAdapte r1.Fill(DataSet 11)
Me.BindingConte xt(DataSet11, "authors").Posi tion = Me.BindingConte xt(DataSet11, "authors").Posi tion - 1
Dim entry As Integer
Dim lastentry As Integer
entry = Me.BindingConte xt(DataSet11, "authors").Posi tion
lastentry = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = entry + 1 & "/" & lastentry

End Sub

Private Sub lastbutton_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles lastbutton.Clic k
Me.BindingConte xt(DataSet11, "authors").Posi tion = Me.BindingConte xt(DataSet11, "authors").Coun t
Dim pro As Integer
pro = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = pro
End Sub

Private Sub first_Click(ByV al sender As System.Object, ByVal e As System.EventArg s) Handles first.Click
Me.BindingConte xt(DataSet11, "authors").Posi tion = 0
Label4.Text = 1
End Sub

Private Sub previous_Click( ByVal sender As System.Object, ByVal e As System.EventArg s) Handles previous.Click
Me.BindingConte xt(DataSet11, "authors").Posi tion = Me.BindingConte xt(DataSet11, "authors").Posi tion - 1
Dim entry As Integer
Dim lastentry As Integer
entry = Me.BindingConte xt(DataSet11, "authors").Posi tion
lastentry = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = entry + 1 & "/" & lastentry

End Sub

Private Sub nextbutton_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles nextbutton.Clic k
Me.BindingConte xt(DataSet11, "authors").Posi tion = Me.BindingConte xt(DataSet11, "authors").Posi tion + 1
Dim entry As Integer
Dim lastentry As Integer
entry = Me.BindingConte xt(DataSet11, "authors").Posi tion
lastentry = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = entry + 1 & "/" & lastentry
End Sub

Private Sub gotobutton_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles gotobutton.Clic k

Me.BindingConte xt(DataSet11, "authors").Posi tion = gototextbox.Tex t - 1
Dim entry As Integer
Dim lastentry As Integer
entry = Me.BindingConte xt(DataSet11, "authors").Posi tion
lastentry = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = entry + 1 & "/" & lastentry
End Sub

Private Sub insert_Click(By Val sender As System.Object, ByVal e As System.EventArg s) Handles insert.Click
Me.BindingConte xt(DataSet11, "authors").AddN ew()

End Sub

Private Sub delete_Click(By Val sender As System.Object, ByVal e As System.EventArg s) Handles delete.Click
Me.BindingConte xt(DataSet11, "authors").Remo veAt(Me.Binding Context(DataSet 11, "authors").Posi tion)
Dim entry As Integer
Dim lastentry As Integer
entry = Me.BindingConte xt(DataSet11, "authors").Posi tion
lastentry = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = entry - 1 & "/" & lastentry - 1
Me.BindingConte xt(DataSet11, "authors").EndC urrentEdit()
Me.OleDbDataAda pter1.Update(Da taSet11)
End Sub
End Class