13-01-22, 04:53 AM
عملت بحث عن الفاتوره وظهر النتائج واريد ان افتح تفاصيل الفاتوره فكيف افعلها
ياريت حد يجاوبنى انا غيرت صيغه السؤال علشان محدش رد عليا
ياريت حد يجاوبنى انا غيرت صيغه السؤال علشان محدش رد عليا
13-01-22, 04:53 AM
13-01-22, 05:08 AM
(13-01-22, 04:53 AM)حسين ادريس كتب : [ -> ]عملت بحث عن الفاتوره وظهر النتائج واريد ان افتح تفاصيل الفاتوره فكيف افعلهااطلاع على هذا
ياريت حد يجاوبنى انا غيرت صيغه السؤال علشان محدش رد عليا
http://vb4arb.com/vb/showthread.php?tid=23530
13-01-22, 05:35 AM
(13-01-22, 05:08 AM)محمود صالح كتب : [ -> ](13-01-22, 04:53 AM)حسين ادريس كتب : [ -> ]عملت بحث عن الفاتوره وظهر النتائج واريد ان افتح تفاصيل الفاتوره فكيف افعلهااطلاع على هذا
ياريت حد يجاوبنى انا غيرت صيغه السؤال علشان محدش رد عليا
http://vb4arb.com/vb/showthread.php?tid=23530
الف شكر يا اخ محمود على الاهتمام وربنا يجعله فى ميزان حسناتك
لاكن انا مبتدئ وحاول بمساعدت المحترفين فى اليوتيوب والموقع دا
انا اقدر اعمل برنامج مبيعات بسيط احتاجه قدرت اعمل البرنامج الحمد لله
بس ينقصنى البحث فى داتا جريد عن فاتوره واظهار التفاصيل اللى فيها فى داتا اخرى
ولا اعرف كيف يتم ذلك خصوصا ان قاعدة البيانات معمول لها علاقات وتظهر كل الاصناف تحت كل صف ولا اعلم كيف اجلب البيانات واظهرها فى الداتا جريد
وشاكر ليك تعبك وربنا يجعله فىميزان حسناتك
13-01-22, 06:27 AM
24-01-22, 07:35 PM
(13-01-22, 04:53 AM)حسين ادريس كتب : [ -> ]عملت بحث عن الفاتوره وظهر النتائج واريد ان افتح تفاصيل الفاتوره فكيف افعلهابص يا سيدي ده خلاصة جزء من مشروعي
ياريت حد يجاوبنى انا غيرت صيغه السؤال علشان محدش رد عليا
بس بالنسبة ليا انا عامل الاستعلام عن الفاتورة في فورم مخصوص فيه داتا جريد فيو بتظهر فيها بيانات الفاتورة او رأس الفاتورة يعني رقمها وتاريخها واسم العميل والكاشير .....
وعامل زرار في الفورم ده لما تضغط عليه يفتح تفاصيل الفاتورة بقى (الأصناف وأسعارها وكدة) في فورم تانية هي نفسها الفورم الي بتعمل منها فاتورة جديدة(وده عشان لو في تعديل في الفاتورة سواء بإضافة أصناف او حذف اصناف او تعديل صنف منها) فعشان اعرف اعمل كدة عملت:
Public dt As New DataTable
وبعدين في برمجة الزرار نفسه بقى الي هيفتح تفاصيل الفاتورة ده عملت:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=data.accdb")
Dim cmd As New OleDbCommand
cmd = New OleDbCommand("select cod, iname_o, price_o, qty_o, tot_o, from orders_d where id_o =@ido ", con)
cmd.Parameters.Add("@ido", OleDbType.Integer).Value = Dgv3.CurrentRow.Cells(0).Value
(dgv3 ده اسم الداتا جريد في فورم البحث)
con.Open()
dt.Clear()
dt.Load(cmd.ExecuteReader)
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
Form2.Show()
(ده فورم الفاتورة)
Form2.CheckBox4.Checked = False
Form2.Text = "تعديل فاتورة"
Form2.dt = Me.dt
Form2.dgv1.DataSource = dt
Form2.dgv1.Columns(0).HeaderText = "كود الصنف"
Form2.dgv1.Columns(1).HeaderText = "اسم الصنف"
Form2.dgv1.Columns(2).HeaderText = "السعر"
Form2.dgv1.Columns(3).HeaderText = "الكمية"
Form2.dgv1.Columns(4).HeaderText = "الاجمالي"
Form2.dgv1.Columns(5).HeaderText = "جملة"
Form2.dgv1.Columns(6).HeaderText = "مستهلك"
End If
Me.Close()
End Sub
يا رب اكون قدرت اساعدك