تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل
#1
السلام عليكم الاخوة الكرام أعضاء المنتدي

عملت مشروع صغير من خلف احد الاشخاص من علي اليوتيوب

بخصوص اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل

وفعلا شرح جميل جدا وتابعت وكتبت كل الخطوات كما كان يشرح بالضبط

ولكن للاسف لم يعمل المشروع معي

فبرجاء فحص المشروع وتعديله في المرفقات

مع فائق الشكر والاحترام

والسلام عليكم ورحمة الله وبركاته


الملفات المرفقة
.rar   Code.rar (الحجم : 95.27 ك ب / التحميلات : 86)
الرد
تم الشكر بواسطة:
#2
(16-05-17, 08:20 AM)khaled12345 كتب : السلام عليكم الاخوة الكرام أعضاء المنتدي

عملت مشروع صغير من خلف احد الاشخاص من علي اليوتيوب

بخصوص اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل

وفعلا شرح جميل جدا وتابعت وكتبت كل الخطوات كما كان يشرح بالضبط

ولكن للاسف لم يعمل المشروع معي

فبرجاء فحص المشروع وتعديله في المرفقات

مع فائق الشكر والاحترام

والسلام عليكم ورحمة الله وبركاته

ممكن اخي الكريم رابط الشرح
الرد
تم الشكر بواسطة:
#3
(16-05-17, 10:04 PM)bidaya كتب :
(16-05-17, 08:20 AM)khaled12345 كتب : السلام عليكم الاخوة الكرام أعضاء المنتدي

عملت مشروع صغير من خلف احد الاشخاص من علي اليوتيوب

بخصوص اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل

وفعلا شرح جميل جدا وتابعت وكتبت كل الخطوات كما كان يشرح بالضبط

ولكن للاسف لم يعمل المشروع معي

فبرجاء فحص المشروع وتعديله في المرفقات

مع فائق الشكر والاحترام

والسلام عليكم ورحمة الله وبركاته

ممكن اخي الكريم رابط الشرح

(17-05-17, 02:03 PM)khaled12345 كتب :
(16-05-17, 10:04 PM)bidaya كتب :
(16-05-17, 08:20 AM)khaled12345 كتب : السلام عليكم الاخوة الكرام أعضاء المنتدي

عملت مشروع صغير من خلف احد الاشخاص من علي اليوتيوب

بخصوص اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل

وفعلا شرح جميل جدا وتابعت وكتبت كل الخطوات كما كان يشرح بالضبط

ولكن للاسف لم يعمل المشروع معي

فبرجاء فحص المشروع وتعديله في المرفقات

مع فائق الشكر والاحترام

والسلام عليكم ورحمة الله وبركاته

ممكن اخي الكريم رابط الشرح



 please see the attached , with thanks

https://www.youtube.com/watch?v=NQYGC26kcI4
الرد
تم الشكر بواسطة:
#4
عندك خطأ في الكود، وهو وجود مسافات حول علامة % يجب حذفها
   

انتبه فالمسافات قد تعطل البرنامج باكمله دون أن ينتبه لها المبرمج حتى المحترف
الرد
تم الشكر بواسطة:
#5
(17-05-17, 03:22 PM)alma2 كتب : عندك خطأ في الكود، وهو وجود مسافات حول علامة % يجب حذفها


انتبه فالمسافات قد تعطل البرنامج باكمله دون أن ينتبه لها المبرمج حتى المحترف

السلام عليكم

بس كده

يعني باقي الكود صحيح

فلو تسمح تضبطها في المرفقات اكون عاجز عن الشكر والله
الرد
تم الشكر بواسطة:
#6
انت تتابع دروس وتطبق بنفسك لتتعلم
هل اجريت التعديل؟
الرد
تم الشكر بواسطة:
#7
(17-05-17, 05:10 PM)alma2 كتب : انت تتابع دروس وتطبق بنفسك لتتعلم
هل اجريت التعديل؟

 أجريت التعديل والله

بس للاسف لم تعمل معي
الرد
تم الشكر بواسطة:
#8
كود :
Imports System.Data.OleDb

Public Class Form1

    ' جملة الربط
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Code.accdb")

    Dim da As New OleDbDataAdapter ' جدول مصدر المعلومات

    Dim dt As New DataTable        ' مكان التخزين

    Sub Load_Data()
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1", con)
        da.Fill(dt)
    End Sub
    Sub save_Data()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub

    ' جملة تحميل الجدول الي الداتا جريد فيو

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Load_Data()
        DataGridView1.DataSource = dt

    End Sub

    ' مفتاح الاضافة

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        dt.Rows.Add()
        Dim pos As String = dt.Rows.Count - 1
        dt.Rows(pos).Item(1) = TextBox1.Text
        dt.Rows(pos).Item(2) = TextBox2.Text
        dt.Rows(pos).Item(3) = Val(TextBox3.Text)
        ' تستخدم هذا الكود لو مطلوب نكتب التاريخ مع الوقت
        'dt.Rows(pos).Item(4) = DateTimePicker1.Value
        ' تستخد هذا الكود لو مطلوب نكتب التاريخ فقط
        dt.Rows(pos).Item(4) = DateTimePicker1.Value.ToString("dd/MM/yyyy")
        dt.Rows(pos).Item(5) = Val(TextBox4.Text)
        dt.Rows(pos).Item(6) = TextBox5.Text
        save_Data()
        Load_Data()
    End Sub
    ' كود عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس
    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        Dim pos As String = BindingContext(dt).Position

        TextBox1.Text = dt.Rows(pos).Item(1)
        TextBox2.Text = dt.Rows(pos).Item(2)
        TextBox3.Text = dt.Rows(pos).Item(3)
        DateTimePicker1.Value = dt.Rows(pos).Item(4)
        TextBox4.Text = dt.Rows(pos).Item(5)
        TextBox5.Text = dt.Rows(pos).Item(6)
    End Sub
    ' كود التعديل
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim pos As String = BindingContext(dt).Position

        dt.Rows(pos).Item(1) = TextBox1.Text
        dt.Rows(pos).Item(2) = TextBox2.Text
        dt.Rows(pos).Item(3) = Val(TextBox3.Text)
        dt.Rows(pos).Item(4) = DateTimePicker1.Value.ToString("dd/MM/yyyy")
        dt.Rows(pos).Item(5) = Val(TextBox5.Text)
        save_Data()
        Load_Data()
    End Sub
    ' كود الحذف
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        dt.Rows(BindingContext(dt).Position).Delete()
        save_Data()
        Load_Data()
    End Sub
    ' كود البحث عن الاسم
    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Name Like '%" + TextBox6.Text.Trim + "%'", con)
        da.Fill(dt)

    End Sub
    '' كود البحث عن العنوان
    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Address Like '%" + TextBox7.Text.Trim + "%'", con)
        da.Fill(dt)
    End Sub
    ' كود البحث عن رقم  التليفون
    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Telephone Like '%" + TextBox8.Text.Trim + "%'", con)
        da.Fill(dt)
    End Sub
  
    ' كود البحث عن  ألتاريخ
    Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Date Like #" + DateTimePicker2.Text + "#", con)
        da.Fill(dt)
    End Sub

    ' كود البحث عن  المرتب

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Salary Like = " & Val(TextBox10.Text), con)
        da.Fill(dt)
    End Sub

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

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        DateTimePicker1.Value = Now

    End Sub

End Class
الرد
تم الشكر بواسطة:
#9
(17-05-17, 05:50 PM)alma2 كتب :
كود :
Imports System.Data.OleDb

Public Class Form1

   ' جملة الربط
   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Code.accdb")

   Dim da As New OleDbDataAdapter ' جدول مصدر المعلومات

   Dim dt As New DataTable        ' مكان التخزين

   Sub Load_Data()
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1", con)
       da.Fill(dt)
   End Sub
   Sub save_Data()
       Dim save As New OleDbCommandBuilder(da)
       save.QuotePrefix = "["
       save.QuoteSuffix = "]"
       da.Update(dt)
       dt.AcceptChanges()
   End Sub

   ' جملة تحميل الجدول الي الداتا جريد فيو

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Load_Data()
       DataGridView1.DataSource = dt

   End Sub

   ' مفتاح الاضافة

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       dt.Rows.Add()
       Dim pos As String = dt.Rows.Count - 1
       dt.Rows(pos).Item(1) = TextBox1.Text
       dt.Rows(pos).Item(2) = TextBox2.Text
       dt.Rows(pos).Item(3) = Val(TextBox3.Text)
       ' تستخدم هذا الكود لو مطلوب نكتب التاريخ مع الوقت
       'dt.Rows(pos).Item(4) = DateTimePicker1.Value
       ' تستخد هذا الكود لو مطلوب نكتب التاريخ فقط
       dt.Rows(pos).Item(4) = DateTimePicker1.Value.ToString("dd/MM/yyyy")
       dt.Rows(pos).Item(5) = Val(TextBox4.Text)
       dt.Rows(pos).Item(6) = TextBox5.Text
       save_Data()
       Load_Data()
   End Sub
   ' كود عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس
   Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

       Dim pos As String = BindingContext(dt).Position

       TextBox1.Text = dt.Rows(pos).Item(1)
       TextBox2.Text = dt.Rows(pos).Item(2)
       TextBox3.Text = dt.Rows(pos).Item(3)
       DateTimePicker1.Value = dt.Rows(pos).Item(4)
       TextBox4.Text = dt.Rows(pos).Item(5)
       TextBox5.Text = dt.Rows(pos).Item(6)
   End Sub
   ' كود التعديل
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       Dim pos As String = BindingContext(dt).Position

       dt.Rows(pos).Item(1) = TextBox1.Text
       dt.Rows(pos).Item(2) = TextBox2.Text
       dt.Rows(pos).Item(3) = Val(TextBox3.Text)
       dt.Rows(pos).Item(4) = DateTimePicker1.Value.ToString("dd/MM/yyyy")
       dt.Rows(pos).Item(5) = Val(TextBox5.Text)
       save_Data()
       Load_Data()
   End Sub
   ' كود الحذف
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       dt.Rows(BindingContext(dt).Position).Delete()
       save_Data()
       Load_Data()
   End Sub
   ' كود البحث عن الاسم
   Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Name Like '%" + TextBox6.Text.Trim + "%'", con)
       da.Fill(dt)

   End Sub
   '' كود البحث عن العنوان
   Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Address Like '%" + TextBox7.Text.Trim + "%'", con)
       da.Fill(dt)
   End Sub
   ' كود البحث عن رقم  التليفون
   Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Telephone Like '%" + TextBox8.Text.Trim + "%'", con)
       da.Fill(dt)
   End Sub
 
   ' كود البحث عن  ألتاريخ
   Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Date Like #" + DateTimePicker2.Text + "#", con)
       da.Fill(dt)
   End Sub

   ' كود البحث عن  المرتب

   Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Salary Like = " & Val(TextBox10.Text), con)
       da.Fill(dt)
   End Sub

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

       TextBox1.Clear()
       TextBox2.Clear()
       TextBox3.Clear()
       TextBox4.Clear()
       TextBox5.Clear()
       DateTimePicker1.Value = Now

   End Sub

End Class

بارك الله فيك أخي الحبيب

وجدت بعض الاكواد تعمل وبعض الاكواد لا تعمل

ساراجعها ان شاء الله نقطة نقطة واعود لحضرتك

مع جزيل الشكر والاحترام
الرد
تم الشكر بواسطة:
#10
(17-05-17, 07:33 PM)khaled12345 كتب :
(17-05-17, 05:50 PM)alma2 كتب :
كود :
Imports System.Data.OleDb

Public Class Form1

   ' جملة الربط
   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Code.accdb")

   Dim da As New OleDbDataAdapter ' جدول مصدر المعلومات

   Dim dt As New DataTable        ' مكان التخزين

   Sub Load_Data()
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1", con)
       da.Fill(dt)
   End Sub
   Sub save_Data()
       Dim save As New OleDbCommandBuilder(da)
       save.QuotePrefix = "["
       save.QuoteSuffix = "]"
       da.Update(dt)
       dt.AcceptChanges()
   End Sub

   ' جملة تحميل الجدول الي الداتا جريد فيو

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Load_Data()
       DataGridView1.DataSource = dt

   End Sub

   ' مفتاح الاضافة

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       dt.Rows.Add()
       Dim pos As String = dt.Rows.Count - 1
       dt.Rows(pos).Item(1) = TextBox1.Text
       dt.Rows(pos).Item(2) = TextBox2.Text
       dt.Rows(pos).Item(3) = Val(TextBox3.Text)
       ' تستخدم هذا الكود لو مطلوب نكتب التاريخ مع الوقت
       'dt.Rows(pos).Item(4) = DateTimePicker1.Value
       ' تستخد هذا الكود لو مطلوب نكتب التاريخ فقط
       dt.Rows(pos).Item(4) = DateTimePicker1.Value.ToString("dd/MM/yyyy")
       dt.Rows(pos).Item(5) = Val(TextBox4.Text)
       dt.Rows(pos).Item(6) = TextBox5.Text
       save_Data()
       Load_Data()
   End Sub
   ' كود عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس
   Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

       Dim pos As String = BindingContext(dt).Position

       TextBox1.Text = dt.Rows(pos).Item(1)
       TextBox2.Text = dt.Rows(pos).Item(2)
       TextBox3.Text = dt.Rows(pos).Item(3)
       DateTimePicker1.Value = dt.Rows(pos).Item(4)
       TextBox4.Text = dt.Rows(pos).Item(5)
       TextBox5.Text = dt.Rows(pos).Item(6)
   End Sub
   ' كود التعديل
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       Dim pos As String = BindingContext(dt).Position

       dt.Rows(pos).Item(1) = TextBox1.Text
       dt.Rows(pos).Item(2) = TextBox2.Text
       dt.Rows(pos).Item(3) = Val(TextBox3.Text)
       dt.Rows(pos).Item(4) = DateTimePicker1.Value.ToString("dd/MM/yyyy")
       dt.Rows(pos).Item(5) = Val(TextBox5.Text)
       save_Data()
       Load_Data()
   End Sub
   ' كود الحذف
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       dt.Rows(BindingContext(dt).Position).Delete()
       save_Data()
       Load_Data()
   End Sub
   ' كود البحث عن الاسم
   Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Name Like '%" + TextBox6.Text.Trim + "%'", con)
       da.Fill(dt)

   End Sub
   '' كود البحث عن العنوان
   Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Address Like '%" + TextBox7.Text.Trim + "%'", con)
       da.Fill(dt)
   End Sub
   ' كود البحث عن رقم  التليفون
   Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Telephone Like '%" + TextBox8.Text.Trim + "%'", con)
       da.Fill(dt)
   End Sub
 
   ' كود البحث عن  ألتاريخ
   Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Date Like #" + DateTimePicker2.Text + "#", con)
       da.Fill(dt)
   End Sub

   ' كود البحث عن  المرتب

   Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Salary Like = " & Val(TextBox10.Text), con)
       da.Fill(dt)
   End Sub

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

       TextBox1.Clear()
       TextBox2.Clear()
       TextBox3.Clear()
       TextBox4.Clear()
       TextBox5.Clear()
       DateTimePicker1.Value = Now

   End Sub

End Class

بارك الله فيك أخي الحبيب

وجدت بعض الاكواد تعمل وبعض الاكواد لا تعمل

ساراجعها ان شاء الله نقطة نقطة واعود لحضرتك

مع جزيل الشكر والاحترام



السلام عليكم ورحمة الله

بعد التعديل بالكود من حضرتك اشتغلت معظم الاكواد

ويبقي الاتي
1- البحث بال salary 
2- عدم وجود ربط بين الداتا جريد فيو والتكست بوكس

بمعني اذا وقفت علي اي صف المفروض تظهر الداتا تبعه في التكست بوكس

فبرجاء مراجعة الكود الجديد في المرفقات

مع فائق الشكر للاستاذ alam2

والسلام عليكم


الملفات المرفقة
.rar   Code-2.rar (الحجم : 95.97 ك ب / التحميلات : 77)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة ادوات لفيجوال بيسك خالد20 1 35 منذ 10 ساعة مضت
آخر رد: عدنان الشمري
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 201 07-10-21, 11:32 AM
آخر رد: asemshahen5
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 240 06-10-21, 08:33 PM
آخر رد: ابو انس
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 0 141 06-10-21, 07:07 PM
آخر رد: saramustafa182
  اضافة اداة التاريخ والوقت الى داتا جريد فيو خالد20 4 317 30-09-21, 10:52 PM
آخر رد: خالد20
Question [سؤال] listview اضافة عمود مخفى alims 2 230 29-09-21, 07:11 AM
آخر رد: ماشي
  [VB.NET] كيفية اضافة ال public key token في البرنامج Codack 0 257 07-09-21, 07:30 PM
آخر رد: Codack
  اضافة التاريخ الى جميع السجلات aftfm 6 586 30-08-21, 11:11 PM
آخر رد: aftfm
  كود اضافة الفواصل العشرية ahmedbezia 7 621 09-08-21, 12:00 AM
آخر رد: ابراهيم ايبو
  كيفية اضافة مشغل mpv بداخل الفورم ميدو الفنان 45 6,819 15-07-21, 02:45 AM
آخر رد: islam39

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم