[سعود]

التعديل اللي انا سويت:
اضفت موديول وكتبت التعريف التالي:

كود :

Public pos As Integer = 0

وعدلت على الفورم التالي:


frm00000.vb


التالي:
انني فقط كتبت

كود :

pos = 0

للسجل الاول


والثاني

كود :

pos = 1

وهكذا ليكون الفورم هكذا

كود :

Public Class frm00000












    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            pos = 0
            _1.ShowDialog()
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")




        End Try
    End Sub








  




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




            pos = 1
            _1.ShowDialog()
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")




        End Try




    End Sub




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




            pos = 2
            _1.ShowDialog()
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")




        End Try




    End Sub




    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            pos = 3
            _1.ShowDialog()
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")




        End Try




    End Sub
End Class

وآخر حدث تحميل الفورم الاول او فورم التفاصيل كتبت

كود :

Me.BindingContext(DataSet1, "table1").Position = pos

وقمت بكتابة كود التنظيف لمربعات النص في الفورم الخاص بتفاصيل كل منتج

كود :

TextBox1.DataBindings.Clear()        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        TextBox4.DataBindings.Clear()
        TextBox5.DataBindings.Clear()
        TextBox6.DataBindings.Clear()
        TextBox13.DataBindings.Clear()
        TextBox14.DataBindings.Clear()

ليكون الفورم الخاص بالتفاصيل هكذا

كود :

Imports System.DataImports System.Data.OleDb


Imports System.IO


Imports System
Public Class _1
    Dim DataAdapter1 As OleDbDataAdapter


    Dim FileName As String = String.Empty
    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\sow.mdb"
    Dim Conn As New OleDbConnection(ConStr)
    Dim DataSet1 As New DataSet
    Dim SQLstr As String = "SELECT * FROM table1"


    Public Sub ChangePosition()
        Label24.RightToLeft = Windows.Forms.RightToLeft.Yes
        Label24.Text = "السجل " & Me.BindingContext(DataSet1, "table1").Position + 1 & _
        " من " & Me.BindingContext(DataSet1, "table1").Count
    End Sub
  
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.BindingContext(DataSet1, "table1").Position = Me.BindingContext(DataSet1, "table1").Count - 1
        ChangePosition()
    End Sub


    Private Sub _1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
        DataAdapter1.Fill(DataSet1, "table1")




        TextBox1.DataBindings.Clear()
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        TextBox4.DataBindings.Clear()
        TextBox5.DataBindings.Clear()
        TextBox6.DataBindings.Clear()
        TextBox13.DataBindings.Clear()
        TextBox14.DataBindings.Clear()








        TextBox1.DataBindings.Add("Text", DataSet1, "table1.Sectionname")
        TextBox2.DataBindings.Add("Text", DataSet1, "table1.floor")
        TextBox3.DataBindings.Add("Text", DataSet1, "table1.side")
        TextBox4.DataBindings.Add("Text", DataSet1, "table1.phone")
        TextBox5.DataBindings.Add("Text", DataSet1, "table1.convert1")
        TextBox6.DataBindings.Add("Text", DataSet1, "table1.fax")
        TextBox13.DataBindings.Add("Text", DataSet1, "table1.email")
        TextBox14.DataBindings.Add("Text", DataSet1, "table1.pic")






        If TextBox14.Text = "" Then
            PictureBox1.Image = Nothing
        Else


            On Error Resume Next




            PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pic\" & TextBox14.Text)




        End If


        Me.BindingContext(DataSet1, "table1").Position = pos
    End Sub


    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub


    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If MsgBox("هل تريد إضافة معلومات قسم جديد ", vbYesNo + vbQuestion, "إضافة جديدة") = MsgBoxResult.Yes Then


            Button1.Enabled = False
            Button2.Enabled = True


            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox13.Clear()
            TextBox14.Clear()


        End If


        TextBox1.Focus()


    End Sub


    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try


            My.Computer.FileSystem.CopyFile(TextBox14.Text, Application.StartupPath & "\pic\" & IO.Path.GetFileName(TextBox14.Text), True)






        Catch ex As Exception
        End Try








        Try
            Dim SavInto As New OleDb.OleDbCommand






            If Conn.State = ConnectionState.Open Then Conn.Close()


            SavInto.Connection = Conn
            SavInto.CommandType = CommandType.Text








            SavInto.CommandText = "update table1 SET Sectionname = '" & Trim(TextBox1.Text) & "' , floor = '" & Trim(TextBox2.Text) & "' , side = '" & Trim(TextBox3.Text) & "' , phone = '" & Trim(TextBox4.Text) & "' , Convert1 = '" & Trim(TextBox5.Text) & "' , fax= '" & Trim(TextBox6.Text) & "' , email = '" & (TextBox13.Text) & "' , pic = '" & IO.Path.GetFileName(TextBox14.Text) & "' WHERE Sectionname = '" & (TextBox1.Text) & "'"


            Conn.Open()






            SavInto.ExecuteNonQuery()










            Dim dataadapter As New OleDbDataAdapter(SQLstr, Conn)




            DataSet1.Clear()
            dataadapter.Fill(DataSet1, "table1")














            Conn.Close()
            MsgBox("تمت عملية التعديل بنجاح بنجاح")




        Catch ex As Exception


            MsgBox(ex.ToString)


        End Try






    End Sub


    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'My.Computer.FileSystem.CopyFile(TextBox14.Text, Application.StartupPath & "\pic\" & IO.Path.GetFileName(TextBox14.Text))






        Try


            My.Computer.FileSystem.CopyFile(TextBox14.Text, Application.StartupPath & "\pic\" & IO.Path.GetFileName(TextBox14.Text), True)






        Catch ex As Exception
        End Try








        Try
            Dim SavInto As New OleDb.OleDbCommand
            'Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\sow.mdb"


            'Dim Conn As New OleDbConnection(ConStr)






            If Conn.State = ConnectionState.Open Then Conn.Close()


            SavInto.Connection = Conn
            SavInto.CommandType = CommandType.Text












            SavInto.CommandText = "Insert Into table1(Sectionname,floor,side,phone,Convert1,fax,email,pic) Values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox13.Text & "','" & IO.Path.GetFileName(TextBox14.Text) & "')"










            Conn.Open()




            SavInto.ExecuteNonQuery()
            Conn.Close()
            MsgBox("تمت عملية الاضافة بنجاح")
            Button1.Enabled = True
            'Me.Close()


        Catch ex As Exception


            MsgBox(ex.ToString)
            'Exit Sub
            Button1.Enabled = True




        End Try
    End Sub


    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim op As New OpenFileDialog


        With op


            .Title = "اختار صورة"


            .Filter = "Jpg(*.jpg)|*.jpg|Bmp(*.bmp)|*.bmp|Png(*.png)|*.png|Gif(*.gif)|*.gif"


            .ShowDialog()


        End With


        If op.FileName = Nothing Then


            Exit Sub


        Else






            TextBox14.Text = op.FileName
            PictureBox1.Image = Image.FromFile(op.FileName)








            op.Dispose()










        End If
    End Sub


    Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.BindingContext(DataSet1, "table1").Position = 0
        ChangePosition()
    End Sub


    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.BindingContext(DataSet1, "table1").Position += 1
        ChangePosition()
    End Sub


    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.BindingContext(DataSet1, "table1").Position -= 1
        ChangePosition()
    End Sub


    Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.BindingContext(DataSet1, "table1").Position = Me.BindingContext(DataSet1, "table1").Count - 1
        ChangePosition()
    End Sub


    Private Sub TextBox14_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
        Try


            If TextBox14.Text.Length > 0 Then


                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pic\" & TextBox14.Text)


            Else


                PictureBox1.Image = Nothing


            End If


        Catch ex As Exception


        End Try


    End Sub


    
End Class