30-09-20, 11:55 PM (آخر تعديل لهذه المشاركة : 30-09-20, 11:58 PM {2} بواسطة اسامه الهرماوي.)
أنا كنت بس عايز أفهم الفكرة وأبسطهاله, لأن الموقع مبيرداش يفتح من الشغل ولازم أفتحة على vpn.
وانا بكون متواجد في البيت يوم في الاسبوع, فقولت وقت منا فاضي أفهمه, وتقبل تحياتي أستاذي عبدالعزيز.
على العموم إنظر للمشروع في المرفقات هو سهل ومبسط وهيساعدك في حاجات كتير.
(30-09-20, 11:55 PM)اسامه الهرماوي كتب : أنا كنت بس عايز أفهم الفكرة وأبسطهاله, لأن الموقع مبيرداش يفتح من الشغل ولازم أفتحة على vpn.
وانا بكون متواجد في البيت يوم في الاسبوع, فقولت وقت منا فاضي أفهمه, وتقبل تحياتي أستاذي عبدالعزيز.
على العموم إنظر للمشروع في المرفقات هو سهل ومبسط وهيساعدك في حاجات كتير.
جعلت فورم1 .. فيه عرض بيانات الجدول في TextBox خاصة بكل حقل
لما اضغط زر add ياخذني الى form2
بنفس texboxes ..لاضيف مريض جديد الى الجدول
الى حد الان كل شيء اشتغل معي تمام ..
الان مشكلتي
1. زر Delete (في الفورم 1) ..اريده ان يحذف البيانات التي تكون ظاهرة اثناء ضغط الزر.
2. زر التعديل Edit (في الفورم 1) اريده يفتحلي الفورم 2 و يظهرلي البيانات نفسها اللي كانت ظاهرة في الفورم 1 اثناء الضغط على زر edit .للتعديل عليها .و حفظها مكان البيانات السابقة (تماما مثل فكرة مشروع "مستوصف")
3. زر البحث في فورم 1 .. اريد اضيف امام textbox لما اكتب اسم المريض يظهر لي بياناته في الفورم 1 نفسها.
عدلت لك الكود بناء على طريقة مساعدة أحد الأعضاء لي سابقا
هذا كود الفورم 1
كود :
Imports System.Data.OleDb
Public Class Form1
Dim ConStr As String = ("Provider=Microsoft.jet.oledb.4.0;" & "Data source =" & Application.StartupPath & "\MyData.mdb")
Dim Conn As New OleDbConnection(ConStr)
Dim DataTable1 As New DataTable
Dim SQLStr As String = "SELECT * From Table1"
Dim DataAdapter1 As OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataAdapter1 = New OleDbDataAdapter(SQLStr, Conn)
DataAdapter1.Fill(DataTable1)
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BindingContext(DataTable1).Position += 1
ChangePosition()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BindingContext(DataTable1).Position -= 1
ChangePosition()
End Sub
Public Sub ChangePosition()
Label4.Text = Me.BindingContext(DataTable1).Position + 1 & "/" & Me.BindingContext(DataTable1).Count
If Me.BindingContext(DataTable1).Position >= 0 Then
Button6.Enabled = True
Button8.Enabled = True
Else
Button6.Enabled = False
Button8.Enabled = False
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Hide()
Using frm2 As New Form2
frm2.Button4.Text = "Ajouter"
frm2.DataTable1 = Me.DataTable1
frm2.BindingContext = Me.BindingContext
frm2.BindingContext(DataTable1).AddNew()
Me.Hide()
If frm2.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BindingContext(DataTable1).EndCurrentEdit()
If DataUpdate() Then
DataUpdate()
DataTable1.Clear()
DataAdapter1.Fill(DataTable1)
Me.BindingContext(DataTable1).Position = Me.BindingContext(DataTable1).Count - 1
ChangePosition()
MsgBox("تمت الإضافة و الحفظ بنجاح")
End If
Else
Me.BindingContext(DataTable1).CancelCurrentEdit()
End If
End Using
Me.Show()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
If MsgBox("هل تريد الحذف؟", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Me.BindingContext(DataTable1).RemoveAt(Me.BindingContext(DataTable1).Position)
DataUpdate()
ChangePosition()
End If
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Me.Hide()
Using frm2 As New Form2
frm2.Button4.Text = "Modifier"
frm2.DataTable1 = Me.DataTable1
frm2.BindingContext = Me.BindingContext
If frm2.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BindingContext(DataTable1).EndCurrentEdit()
If DataUpdate() Then
MsgBox("تم التعديل و الحفظ بنجاح")
End If
Else
Me.BindingContext(DataTable1).CancelCurrentEdit()
End If
End Using
Me.Show()
End Sub
Private Function DataUpdate() As Boolean
Try
Me.BindingContext(DataTable1).EndCurrentEdit()
Dim save As New OleDbCommandBuilder(DataAdapter1)
DataAdapter1.Update(DataTable1)
DataTable1.AcceptChanges()
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Dim nom = InputBox("Entrez le nom:")
If nom.Trim <> "" Then
Dim i As Integer
For i = 0 To DataTable1.Rows.Count - 1
If DataTable1.Rows(i)("Nom").ToString.ToLower.Contains(nom.ToLower) Then
Me.BindingContext(DataTable1).Position = i
ChangePosition()
Exit Sub
End If
Next
If i = DataTable1.Rows.Count Then
MsgBox("لا يوجد")
End If
End If
End Sub
End Class
هذا كود الفورم 2
كود :
Public Class Form2
Public DataTable1 As DataTable
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.DataBindings.Add("Text", DataTable1, "Nom")
TextBox2.DataBindings.Add("Text", DataTable1, "Prenom")
TextBox3.DataBindings.Add("Text", DataTable1, "Age")
TextBox4.DataBindings.Add("Text", DataTable1, "Adresse")
TextBox5.DataBindings.Add("Text", DataTable1, "Tel")
TextBox6.DataBindings.Add("Text", DataTable1, "Groupage")
TextBox7.DataBindings.Add("Text", DataTable1, "atcd")
TextBox8.DataBindings.Add("Text", DataTable1, "Observation")
TextBox9.DataBindings.Add("Text", DataTable1, "Traitement")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox1.Text.Trim = "" Then
MsgBox("Entrez le nom")
Exit Sub
End If
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Close()
End Sub
(06-10-20, 05:35 PM)hatan كتب : عدلت لك الكود بناء على طريقة مساعدة أحد الأعضاء لي سابقا
هذا كود الفورم 1
كود :
Imports System.Data.OleDb
Public Class Form1
Dim ConStr As String = ("Provider=Microsoft.jet.oledb.4.0;" & "Data source =" & Application.StartupPath & "\MyData.mdb")
Dim Conn As New OleDbConnection(ConStr)
Dim DataTable1 As New DataTable
Dim SQLStr As String = "SELECT * From Table1"
Dim DataAdapter1 As OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataAdapter1 = New OleDbDataAdapter(SQLStr, Conn)
DataAdapter1.Fill(DataTable1)
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BindingContext(DataTable1).Position += 1
ChangePosition()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BindingContext(DataTable1).Position -= 1
ChangePosition()
End Sub
Public Sub ChangePosition()
Label4.Text = Me.BindingContext(DataTable1).Position + 1 & "/" & Me.BindingContext(DataTable1).Count
If Me.BindingContext(DataTable1).Position >= 0 Then
Button6.Enabled = True
Button8.Enabled = True
Else
Button6.Enabled = False
Button8.Enabled = False
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Hide()
Using frm2 As New Form2
frm2.Button4.Text = "Ajouter"
frm2.DataTable1 = Me.DataTable1
frm2.BindingContext = Me.BindingContext
frm2.BindingContext(DataTable1).AddNew()
Me.Hide()
If frm2.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BindingContext(DataTable1).EndCurrentEdit()
If DataUpdate() Then
DataUpdate()
DataTable1.Clear()
DataAdapter1.Fill(DataTable1)
Me.BindingContext(DataTable1).Position = Me.BindingContext(DataTable1).Count - 1
ChangePosition()
MsgBox("تمت الإضافة و الحفظ بنجاح")
End If
Else
Me.BindingContext(DataTable1).CancelCurrentEdit()
End If
End Using
Me.Show()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
If MsgBox("هل تريد الحذف؟", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Me.BindingContext(DataTable1).RemoveAt(Me.BindingContext(DataTable1).Position)
DataUpdate()
ChangePosition()
End If
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Me.Hide()
Using frm2 As New Form2
frm2.Button4.Text = "Modifier"
frm2.DataTable1 = Me.DataTable1
frm2.BindingContext = Me.BindingContext
If frm2.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BindingContext(DataTable1).EndCurrentEdit()
If DataUpdate() Then
MsgBox("تم التعديل و الحفظ بنجاح")
End If
Else
Me.BindingContext(DataTable1).CancelCurrentEdit()
End If
End Using
Me.Show()
End Sub
Private Function DataUpdate() As Boolean
Try
Me.BindingContext(DataTable1).EndCurrentEdit()
Dim save As New OleDbCommandBuilder(DataAdapter1)
DataAdapter1.Update(DataTable1)
DataTable1.AcceptChanges()
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Dim nom = InputBox("Entrez le nom:")
If nom.Trim <> "" Then
Dim i As Integer
For i = 0 To DataTable1.Rows.Count - 1
If DataTable1.Rows(i)("Nom").ToString.ToLower.Contains(nom.ToLower) Then
Me.BindingContext(DataTable1).Position = i
ChangePosition()
Exit Sub
End If
Next
If i = DataTable1.Rows.Count Then
MsgBox("لا يوجد")
End If
End If
End Sub
End Class
هذا كود الفورم 2
كود :
Public Class Form2
Public DataTable1 As DataTable
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.DataBindings.Add("Text", DataTable1, "Nom")
TextBox2.DataBindings.Add("Text", DataTable1, "Prenom")
TextBox3.DataBindings.Add("Text", DataTable1, "Age")
TextBox4.DataBindings.Add("Text", DataTable1, "Adresse")
TextBox5.DataBindings.Add("Text", DataTable1, "Tel")
TextBox6.DataBindings.Add("Text", DataTable1, "Groupage")
TextBox7.DataBindings.Add("Text", DataTable1, "atcd")
TextBox8.DataBindings.Add("Text", DataTable1, "Observation")
TextBox9.DataBindings.Add("Text", DataTable1, "Traitement")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox1.Text.Trim = "" Then
MsgBox("Entrez le nom")
Exit Sub
End If
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Close()
End Sub
