برنامج ادارة العقارات

اخي تقدر ترفع لينا مثال عشان نعدل لك عليه ............... وان شاء الله ربنا يقدرنا علي مساعدتك اخي الكريم

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

هي البرانامج كلو بالمرفقات اطلع عليه

ومشكور جدا سلفاً اخي

Pro.rar

أخي الكريم ، تحية طيبة وبعد ،

عندما نظرت الي قاعدة البيانات وجدت أن هناك ثلاثة جداول تحمل نفس الحقول بنفس أنواعها ( وهذا غير مقبول ) وذلك لأن هناك ثلاثة أخطاء يقع فية المبرمج منها عملية التكرار للبيانات !!!

وإليك أخطاء التصميم الشائعة :

1- إحتواء الجدول علي العديد من الحقول التي لا تتعلق بنفس الموضوع .

2- قد تكون هناك حقول متروكة فارغة عمداً في كثير من السجلات لأنها لا تتطابق معها ، وعادتاً ما يعني هذا أن هذه الحقول تخص جدول آخر FK .

3- قد يكون هناك عدديد من الجداول التي تحتوي علي نفس الحقول ( وهذا هو خطأك ) .

لكن أخي إذا كنت ترغب في إنشاء ثلاثة جداول من نفس التكوين في الحقول يمكن من خلال أن تنشأ جدول واحد وبه حقل إضافي يدعي Type يميز به عن الحقول الباقية

ولكن هناك أمور تجعلنا نضطر علي بنا أكثر من جدول يحتوي علي نفس البيانات وهذا لزيادة سرعتها لأنها ستحتوي علي ملايين من السجلات مثل جدول الفاتورة ( شراء/بيع ) حيث أن هذا الجدول يمكنه أن يحتوي علي أكثر من مليون سجل وهذا حسب الشركة التي تستخدمها !!

المهم ، نفرض أن لديك حالة خاصة تتطلب منك إنشاء ثلاثة جداول تحتوي علي نفس الحقول بنفس أسمائهم !!!

إذهب الي حدث Combo1_Click وحدد الجدول الذي ترغب في فتحة كما تشاء !!!

Private Sub Form_Load()
	Combo1.AddItem "جدول 1"
	Combo1.AddItem "جدول 2"
	Combo1.AddItem "جدول 3"
	Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
	If(Rs.State = 1)Then Rs.Close
	Rs.CursorLocation = 3
	Select Case Combo1.ListIndex
		Case 0
			SQL = "Select * From Buy"
		Case = 1
			SQL = "Select * From Rent"
		Case Else
			SQL = "Select * From Sale"
	End Select
	Rs.Open Sql
End Sub

الي هنا قد إنتهينا من فتح الجدول المناسب ، يبقي علينا الآن عرض بيانات الجدول ، وهذا حسب !!!

لم أنك تعرض بيانات السجلات يدوياًَ ما عليك إلا إستدعاء إجراء عرض السجل الحالي كما يلي :

Call ViewRecord

أما إذا كان الأدوات مرتبطة مباشرتاً مع الـ Recordset فيجب إرسال قيمة الـ Rs الي الأدوات كما يلي :

Set Text1.DataSource = rs
Set Text2.DataSource = rs
Set Text3.DataSource = rs
Set Combo1.DataSource = rs
Set Combo2.DataSource = rs

وهكذا

أما إذا كنت تتعامل مع أدوات أخري مثل الـ DataControl أو الـ Adodc فقم بإرسال جملة SQL وحدث محتوياتها Refresh ومن ثم أرسل كائن الـ Recordset للأدوات المرتبطة كما يلي :

Set Text1.DataSource = Data1.Recordset

وهكذا

بالتوفيق

مشكور كتير اخي والله يجزيك الخير ..

انا ما فهمت الكود كلو بصراحه نسختو وحطيتو طلعلي اخطاء

اخي ممكن تكمل معروفك معي وبعتبارك اطلعت على المشروع .. تفهملي الموضوع اكتر

واذا بتحب بتعملو درس منفصل بعود كل الناس الي حابه تعمل هيك برنامج بتستفيد وان شاء الله بتكسب دعوه صالحه من الكل

وجزاك الله خير..بإنتظارك :)

اقتباس

انا ما فهمت الكود كلو بصراحه نسختو وحطيتو طلعلي اخطاء

بعد إذن حضرتك أرفع لي المثال مرة ثانية بعد التعديل علية بنفس الخطأ المذكور

شكراً