من يساعد في تصحيح جملةselect

#14 سبتمبر 2012 في 11:07 صاحب الموضوع

ما مشكلة جملة select جزاكم الله خيرا

الفورم دوره استعلام من الجدول لتحديد الفواتير الغير مستخلصة ليتم استخلاصها

Dim SQLstr As String = "SELECT NumFacture,Num_Contrat,[Annee],[Mois],Prix_Total_Payer,Date_Echeance_Regl,Gharama FROM TabFacture where Etat_De_Paye= false "

        	Con.Open()
        	Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Con)
        	DataAdapter1.Fill(ds, "TabFacture")
        	Con.Close()


        	'  تحميل البيانات  في Txtebox
        	TxtFacture.DataBindings.Add("Text", ds, "TabFacture.NumFacture")
        	TxtNumContrat.DataBindings.Add("Text", ds, "TabFacture.Num_Contrat")
        	TxtAnnee.DataBindings.Add("Text", ds, "TabFacture.Annee")
        	ComboMois.DataBindings.Add("Text", ds, "TabFacture.Mois")
        	TxtPrix_Total_Payer.DataBindings.Add("Text", ds, "TabFacture.Prix_Total_Payer")
        	DateTimePaye.DataBindings.Add("Text", ds, "TabFacture.Date_Echeance_Regl")
        	CheckBoxTaxe.DataBindings.Add("Text", ds, "TabFacture.Gharama")
        	'إظهار البيانات في Dategridview
        	GridFacture.DataSource = ds
        	GridFacture.DataMember = "TabFacture"


    	Catch ex As Exception
        	MsgBox("erreur:" & ex.Message)
    	End Try

المشروع في المرفقات

تعديل :

المرفقات في المشاركة في الأسفل (رابط)

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 4 سبتمبر 2012 في 21:35

#24 سبتمبر 2012 في 14:44

السلام عليكم ...

ملف قاعدة البيانات غير موجود في المشروع , تأكد أنه موجود ...

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#34 سبتمبر 2012 في 20:02

عذرا ا نسبت ان اضيف القاعدة لنسخة المشروع الذي ارفقته

هاهو المشروع مرة اخرى في المرفقات

استخلاص الفواتير.rar

#44 سبتمبر 2012 في 21:18

السلام عليكم ..

اسم الحقل في قاعدة البيانات Num_Facture و ليس NumFacture ...
قم بتنفيذ الاستعلام في الأكسس قبل أن وضعه في الفيجوال استديو , و استخدم معالج الأكسس لتوليد الاستعلام ثم خذ view SQL لترى الــ SQL الخاص بالاستعلام فذلك يجنبك الخطأ في أسماء الحقول ..
يجب استخدام New عند إنشاء الكائنات :
```
Dim ds As New DataSet
```

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 4 سبتمبر 2012 في 21:22

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#54 سبتمبر 2012 في 21:51

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

والله اخي نصائحك من ذهب ساحرص على ما قلت ان شاء الله

لدي طلب آخر وطبعا ليس اخير فانا استفيد منك ايما استفادة جزاك الله خيرا و حرر الشام من الضاغية الضالم و اعوانه و جعل الله كيده في نحره

أمين يا رب العالمين

السؤال هو :

كيف اضيف اسم صاحب العقدة للفورم ليطمئن مدخل البيانات انه الفاتورة المدخلة تطابق صاحب العقدة ,فقط يظهر الاسم تحت صاحب العقدة كما في الصورة

كما ترى في القاعدة هناك جدولين :

جدول المنخرطين Condidats

و جدول الفواتير Facture

طبعا هناك علاقة بين الجدولين بالعمود رقم العقدة: Num_Condidat

هل يضر في الجدولين اين يكون العمودين الذين بينهما علاقة مختلفا الاسم مثلا:NumContrat و Num_Contrat ؟

لانهما عندي كذلك

gجزاك الله خيرا على المساعدة

المرفقات

#65 سبتمبر 2012 في 11:59

السلام عليكم ...

بارك الله بك أخي .. آمين .. آمين ..

يمكنك وضع اسم الشخص بــ Combobox يتم ملؤها بالاسماء من الجدول , و عند الحفظ يتم تحديد رقم الشخص المحدد .

كود التعبئة :

 Dim candidateSql As String = "SELECT Num_Client ,Nom FROM TabCondidats"
        	Con.Open()
        	Dim candidateDA As New OleDbDataAdapter(candidateSql, Con)
        	Dim candidateDS As New DataSet
        	candidateDA.Fill(candidateDS, "TabCondidats")
        	cmbCandidate.DataSource = candidateDS.Tables("TabCondidats")
        	cmbCandidate.DisplayMember = "Nom"
        	cmbCandidate.ValueMember = "Num_Client"
        	Con.Close()

كود الحفظ :

 Private Sub BtnSauvgarde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSauvgarde.Click
    	If (cmbCandidate.SelectedIndex = -1) Then
        	MsgBox("please select item")
        	Exit Sub
    	End If

    	Dim num_client As Integer
    	num_client = cmbCandidate.SelectedValue
    	MsgBox("num_client = " & num_client)

	End Sub

يمكن ربط الأعمدة حتى لو كانت بأسماء مختلفة , المهم أن تكون من نفس نوع البيانات ..
الجدول Candidate فيه حقل ترقيم تلقائي و حقل آخر هو مفتاح .. لا داعي للحقل الآخر و اجعل حقل الترقيم التلقائي هو المفتاح و اربطه مع الجدول الآخر ...

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 5 سبتمبر 2012 في 12:02

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#75 سبتمبر 2012 في 13:22

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

اعتذر منك فقد اخطات شرح طلبي

المطلوب.:

هو استعمال العلاقة بين الجدولين في قاعدة البيانات و طلب استعلام يعبأ خانة الاسم تلقائيا مع باقي الخانات و كنت قد جربت هذا الاستعلام لكن لم يعمل

    	Con.Open()
    	Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Con)
    	DataAdapter1.Fill(ds, "TabFacture" And "TabCondidats")
    	Con.Close()
    	'  تحميل البيانات  في Txtebox
    	TxtFacture.DataBindings.Add("Text", ds, "TabFacture.Num_Facture") 'TabFactureمن جدول الفواتير
    	TxtNumContrat.DataBindings.Add("Text", ds, "TabCondidats.Num_Contrat") 'من جدول المنخرطينTabCondidats
    	TxtNom.DataBindings.Add("Text", ds, "TabCondidats.Nom") 'من جدول المنخرطينTabCondidats
    	TxtAnnee.DataBindings.Add("Text", ds, "TabFacture.Annee") 'TabFactureمن جدول الفواتير
    	ComboMois.DataBindings.Add("Text", ds, "TabFacture.Mois") 'TabFactureمن جدول الفواتير
    	TxtDate_Releve.DataBindings.Add("Text", ds, "TabFacture.Date_Releve") 'TabFactureمن جدول الفواتير
    	TxtPrix_Total_Payer.DataBindings.Add("Text", ds, "TabFacture.Prix_Total_Payer") 'TabFactureمن جدول الفواتير
    	TxtDate_Echeance_Reglement.DataBindings.Add("Text", ds, "TabFacture.Date_Echeance_Regl") 'TabFactureمن جدول الفواتير

    	DateTimeDate_Reglement_Facture.DataBindings.Add("Text", ds, "TabFacture.Date_Reglement_Facture") 'TabFactureمن جدول الفواتير
    	CheckBoxTaxe.DataBindings.Add("Text", ds, "TabFacture.Gharama") 'TabFactureمن جدول الفواتير
    	CheckBoxPaye.DataBindings.Add("Text", ds, "TabFacture.Etat_De_Paye") 'TabFactureمن جدول الفواتير

    	'إظهار البيانات في Dategridview
    	GridFacture.DataSource = ds
    	GridFacture.DataMember = "TabFacture" And "TabCondidats"

بالنسبة لجوابك الاخير قرات انه خطأ كبير ان يكون ترقيم تلقائي للحقل الذي يحتوي المفتاح

http://www.arabteam2...pic=35237&st=20

المشاركة 28 العشر الاسطر الاخيرة

#85 سبتمبر 2012 في 14:42

السلام عليكم ..

نقوم بملء الــ ComboBox كما سبق ..

نقوم بربط الخاصية SelectedValue للــ ComboBox مع رقم الشخص , فيتم إظهار الاسم الموافق للرقم بشكل تلقائي , و لم لم اختيار اسم آخر , سيتم وضع الرقم أيضا بشكل تلقائي في الجدول :

 Dim myDS As New DataSet
    	Con.Open()
    	Dim SQLstr As String = "SELECT Num_Facture,Num_Contrat,[Annee],[Mois],Prix_Total_Payer,Date_Echeance_Regl,Gharama FROM TabFacture where Etat_De_Paye= false "
    	Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Con)
    	DataAdapter1.Fill(myDS, "TabFacture")
    	Con.Close()
    	TxtFacture.DataBindings.Add("Text", myDS, "TabFacture.Num_Facture") 'TabFactureمن جدول الفواتير
    	TxtNumContrat.DataBindings.Add("Text", myDS, "TabFacture.Num_Contrat") 'من جدول المنخرطينTabCondidats
    	cmbCandidate.DataBindings.Add("SelectedValue", myDS, "TabFacture.Num_Contrat")
    	TxtAnnee.DataBindings.Add("Text", myDS, "TabFacture.Annee") 'TabFactureمن جدول الفواتير
    	ComboMois.DataBindings.Add("Text", myDS, "TabFacture.Mois") 'TabFactureمن جدول الفواتير
    	TxtPrix_Total_Payer.DataBindings.Add("Text", myDS, "TabFacture.Prix_Total_Payer") 'TabFactureمن جدول الفواتير

    	CheckBoxTaxe.DataBindings.Add("Text", myDS, "TabFacture.Gharama") 'TabFactureمن جدول الفواتير

    	GridFacture.DataSource = myDS
    	GridFacture.DataMember = "TabFacture"

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#95 سبتمبر 2012 في 15:12

جزاك الله خيرا

الكود اصبح 100/100

نرد لك الشكر بدعوات عن ظهر الغيب

بقي طلب آخر

لكنه ليس في هذا القسم لكن راريد منك ان ترشيدني الى موضوع كامل لعمل setup للمشروع فقد رأيت من اهتماماتك برنامج CRYSTAL REPPOR

فقد اعياني التجول في الانترنت من موضوع الى آخر و من برنامج الى آخر فقد جربت INSTALLSHIELD

. INNERSETUP

SETUPFACTORY

.SETUP WESERT VB2010

فلم افلح في ضم تقارير CRYSTAL REPPERT المشروع

وقد وصلت الى اكثر من 100 setup ولم يعمل اي تقرير

ارشدني جزاك الله الفردوس الاعلى في الجنةانت و من تحب الى موضوع مناسب

#105 سبتمبر 2012 في 16:32

السلام عليكم ..

بارك الله بك اخي ....

الفيجوال استديو يمكنك من إنشاء Setup للمشروع , و يوجد الكثير من المواضيع تتحدث عن ذلك , و هذا رابط خارجي لأحدها ..
نقرة يمينة على مشروع الــ Setup ثم Properties ثم نضغط الزر Prerequisites ثم تظهر مجموعة من العناصر التي نريد تضمينها للملف الــ SetUp نختار منها SAP Crystal Reports Runtime Engine for .NET Framework 4.0 و نحدد الخيار في الأسفل Download Prerequisites from the same location as my application
هنا الطريقة للقيام بذلك بالشكل الصحيح (رابط) .

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#118 سبتمبر 2012 في 10:22

houssam11350_11350 كتب:
السلام عليكم ..
بارك الله بك اخي ....
الفيجوال استديو يمكنك من إنشاء Setup للمشروع , و يوجد الكثير من المواضيع تتحدث عن ذلك , و هذا رابط خارجي لأحدها ..
نقرة يمينة على مشروع الــ Setup ثم Properties ثم نضغط الزر Prerequisites ثم تظهر مجموعة من العناصر التي نريد تضمينها للملف الــ SetUp نختار منها SAP Crystal Reports Runtime Engine for .NET Framework 4.0 و نحدد الخيار في الأسفل Download Prerequisites from the same location as my application
هنا الطريقة للقيام بذلك بالشكل الصحيح (رابط) .

للاسف بقي نفس المشكل كل الاخطاء ترجع الى crystal repport

#128 سبتمبر 2012 في 12:35

السلام عليكم ..

اقتباس
للاسف بقي نفس المشكل كل الاخطاء ترجع الى crystal repport

ما هي رسالة الخطا ؟ ممكن صورة لرسالة الخطأ ..

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#138 سبتمبر 2012 في 13:18

انا استعمل نسخة بالفرنسية من vb2010

المهم هذه صورة الخطأ و بالاحرى الاخطاء

المرفقات

#148 سبتمبر 2012 في 14:37

السلام عليكم ..

نعم أخي , يقول لك أن حزمة الــ Crystal reports لا يمكن تضمينها مع الــ Setup , بل يجب أن يتم تحميلها من الموقع .
في الرابط الذي ارسلته لك , طريقة الإلتفاف على الموضوع و جعله يعمل و هي كمايلي :
قم بتحميل الملفين CRRuntime_32bit_13_0.msi و CRRuntime_64bit_13_0.msi المفروض من هنا (لكن نزل إصدار جديد على كل ابحث عن الملف و ستجده على بعض المواقع الأخرى)

ضع الملفين في المسار :

C:\\Program Files\Microsoft SDKs\Windows\v7.0A\Bootstrapper\Packages\Crystal Reports for .NET Framework 4.0\

قم بإعادة ترجمة المشروع .
المفروض حسب الرابط المرسل أنه سيعمل .

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 8 سبتمبر 2012 في 14:38

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#158 سبتمبر 2012 في 15:47

لقد فعلت ذلك

انظر الصورة

المرفقات

#168 سبتمبر 2012 في 15:53

السلام عليكم ..

لاحظ أخي انه يطلب منك الملفات CRRuntime_32bit_13_0.msi و CRRuntime_64bit_13_0.msi و أنت وضعت CRRuntime_64bit_13_0_1.msi و CRRuntime_64bit_13_1.msi أي أسماء الملفات مختلفة , و أحدها يجب ان يكون للـ 32 بت و الآخر للــ 64 بت .....
ربما إعادة تسمية الملفات يحل المشكلة , أو أنت بحاجة للملفات الاصلية المطلوبة .

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#178 سبتمبر 2012 في 23:24

جزاك الله خيرا

لم تعد هناك مشاكل فيما يخص الكرستال

لكن ظهر مشكل جديد

انا لم اضع رقم سري لعاعدة البياتات وهو يطلب مني الرقم السري لم افهم لماذا

كما في الصورة

المرفقات

#188 سبتمبر 2012 في 23:40

السلام عليكم ..

تظهر هذه الرسالة إذا لم تمرر البيانات المطلوبة للتقرير ... فيحاول الاتصال بالقاعدة لجلب البيانات .
ما هي طريقة إظهار التقرير في الكود .؟

لو أردت التقرير الاتصال بالقاعدة مباشرة , يمكنك تمرير البيانات اللازمة للأتصال كما يلي :

Private Sub configureCRYSTALREPORT()
Dim myConnectionInfo As New ConnectionInfo()

myConnectionInfo.DatabaseName = "DatabserName"
myConnectionInfo.UserID = "UID"
myConnectionInfo.Password = "PWD"
setDBLOGONforREPORT(myConnectionInfo)
End Sub

Private Sub setDBLOGONforREPORT(ByVal myconnectioninfo As ConnectionInfo)
Dim mytableloginfos As New TableLogOnInfos()
mytableloginfos = CrystalReportViewer1.LogOnInfo
For Each myTableLogOnInfo As TableLogOnInfo In mytableloginfos
myTableLogOnInfo.ConnectionInfo = myconnectioninfo
Next
End Sub

الرابط

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#199 سبتمبر 2012 في 14:17

ما هي طريقة إظهار التقرير في الكود .؟

جواب:

انا اعد التقرير اولا كاملا بسحب البرامترات من نافذة field exploror

ثم اربط التقرير بالاداة

crystal report viewer

الوجودة في الفورم

وهذه الاداة مربوطة بكل التقارير لدي اي اني استعمل فورم واحد لكل التقارير

الصورة في المشاركة السابقة توضح شكل الفورم

#209 سبتمبر 2012 في 14:52

بقية المشاركة

هذا الكود لإضافة بعض الثوابث الة الفورم

وكذلك ربط التقرير بالفورم

'اضافة بعض الثوابث للفورم'
 Dim rep As New ReportWahadat3
    	Dim Nom As New IO.StreamReader(Application.StartupPath & "\Nom.txt")
    	Dim Niveau As New IO.StreamReader(Application.StartupPath & "\Niveau.txt")
    	Dim AnneeScolaire As New IO.StreamReader(Application.StartupPath & "\AnneeScolaire.txt")
    	Dim Delegation As New IO.StreamReader(Application.StartupPath & "\Delegation.txt")
    	Dim Ecole As New IO.StreamReader(Application.StartupPath & "\Ecole.txt")
    	Dim Unite As New IO.StreamReader(Application.StartupPath & "\Unite.txt")

    	rep.SetParameterValue(0, Nom.ReadToEnd)
    	rep.SetParameterValue(1, Niveau.ReadToEnd)
    	rep.SetParameterValue(2, AnneeScolaire.ReadToEnd)
    	rep.SetParameterValue(3, Delegation.ReadToEnd)
    	rep.SetParameterValue(4, Ecole.ReadToEnd)
    	rep.SetParameterValue(5, Unite.ReadToEnd)

    	Nom.Close()
    	Niveau.Close()
    	AnneeScolaire.Close()
    	Delegation.Close()
    	Ecole.Close()
    	Unite.Close()
'--ربط التقرير الاداة reportviewer' '
    	Me.CrystalReportViewer1.ReportSource = rep
    	Me.CrystalReportViewer1.Refresh()

#219 سبتمبر 2012 في 15:07

السلام عليكم ..

التقرير إما نمرر له البيانات برمجيا كما يلي :

Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data  Source=" + Application.StartupPath & "\db1.mdb" & ";Persist Security  Info=False")
Dim command As New OleDbCommand()
command.CommandType = CommandType.Text
command.CommandText = "SELECT * FROM Customer"
command.Connection = connection
Dim dataAdapter As New OleDbDataAdapter()
dataAdapter.SelectCommand = command
Dim ds As New DataSet()
dataAdapter.Fill(ds)

Dim rpt As New CrystalReport2()
rpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rpt

أو فأنه سيحاول الاتصال بقاعدة البيانات , و ستظهر مربع الحوار الذي ظهر معك , إذا لم تضع له بيانانت الاتصالات التي ذكرتها في مشاركتي السابقة.
راجع الدروس المثبتة في منتدى برمجة و تصميم التقارير (رابط)
نعم .. الآن رأيت باقي مشاركتك , لكن هل التقرير يحوي بارمترات فقط , ألا يحوي جداول .. إذا كان يحوي جداول استخد كود مثل الكود المذكور في مشاركتي هذه .

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 9 سبتمبر 2012 في 15:36

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#229 سبتمبر 2012 في 21:16

الحمد لله

لقد اشتغل الطبع وعلى جاسوب اخر

لك الفضل بعد الله في ما تطور اليه المشروع

مع قليل من البحث

في البداية لم افهم مشاركتك الاخيرة ولم اعرف كيف اسقطها على مشروعي

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

انت لا تعرف فرجتي الان

لان المشروع عمره اكثر من3 سنوات هو مشروع كبير يعني سيستعني فيه لاستاذ عن الدفتر تماما وبسبب هذا المشروع تعلمت البرمجة وفكرته كانت منذ 2005وكنت قد بدأت في access

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

وبدأتت من vb6 ثم انتقلت الى الجافا حاولي السنة ثم عدت الى vb.net و خيرا اناعلى مشارف النهاية ولله الحمد

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

وبعض الللمسات الاخيرة

وحزاك الله عني خيرا و كل من ساعدني

و انالك الله ما تمنيت

لو تكرمت ونظرت الى هذا الموضوع

/index.php?showtopic=268820

تم تعديل هذه المشاركة بواسطة aboumazen في 9 سبتمبر 2012 في 21:19

من يساعد في تصحيح جملةselect

المرفقات

المرفقات

المرفقات

المرفقات

مواضيع مشابهة