ساعدوني في مشروع التخرج يا محترفي vb6

[سالم البدري]

اخواني انا لدي مشروع تخرج عبارة عن منظومة هذه المنظومة تحتوي على اربع واجهات جميعها مرتبطة بقواعد البيانات والواجهات متشابهة في طريقة العمل وهذه المنظومة تشتغل 100% لكن بها المشاكل التالية :

1- يجب نسخ قاعدة البيانات على القرص c لتشتغل فهل من طريقة لجعلها تشتغل من دون نسخ قاعدة البيانات.

2- عند الضغط على زر اضافة سجل يقوم باضافة السجل لكن عند الضغط على هذا الزر لاضافة سجل اخر تظهر رسالة خطأ يعني المنظومة لا تقوم إلا باضافة سجل واحد كل مرة واذا اردت اضافة سجل اخر يجب عليك الخروج من المنظومة والعودة اليها ثانية .

3- لدي زر لعرض التقارير وعند القيام بتغيير في قاعدة البيانات لا يقوم بتحديث التقرير فورا وانما يجب الخروج من المنظومة والعودة اليها لكي يتم التحديث وانا اريدها ان تقوم بالتحديث فورا.



وهذه صور الواجهات والاكواد المستخدمة لمزيد من التوضيح:

لتحميل الصور اضغط
http://upload.9q9q.net/file/TwSXZvFGDfA/---.zip.html-Accounting.html






والاكواد كالتالي:



-----------------------------------------------------------------------------------------------------------

الكود الخاص بزر حذف


Private Sub Command1_Click()
Data1.Recordset.Delete
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
Else
Data1.Recordset.MoveNext
End If
End Sub

-----------------------------------------------------------------------------------------------------------

الكود الخاص بزرتعديل

Private Sub Command2_Click()
Data1.Recordset.Edit
Data1.Recordset.Update

End Sub

-----------------------------------------------------------------------------------------------------------

الكود الخاص بزر اضافة سجل

Private Sub Command3_Click()
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

End Sub

-----------------------------------------------------------------------------------------------------------

الكود الخاص بزر رجوع

Private Sub Command4_Click()
Form2.Hide
Form1.Show
End Sub

-----------------------------------------------------------------------------------------------------------

الكود الخاص بزر عرض تقرير

Private Sub Command5_Click()
DataReport3.Show
End Sub

Private Sub Form_Load()

End Sub



علما بان جميع الواجهات الأربع تتشابه في الأكواد

فارجوا مراجعة الاكواد وتصحيح الخطأ إن وجد

اخواني ارجوكم ان تساعدوني فتسليم المشروع يوم السبت القادم

[@...Khalefa]

الخطأ بهذا الكود

Private Sub Command3_Click()
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

End Subالتصحيح


Private Sub Command3_Click()
Data1.Refresh
Data1.Recordset.AddNew
End Subسيتم افراغ التكستات الياّ حتي يتم اضافه بيانات جديده
ويضاف كومند جديد للحفظ

Private Sub CmdSaveData_Click()
Data1.Recordset.Update
End Sub

[سالم البدري]

الخطأ بهذا الكود

التصحيح

سيتم افراغ التكستات الياّ حتي يتم اضافه بيانات جديده
ويضاف كومند جديد للحفظ


لا استطيع اضافة كومند جديد لاني سحبت شاشات المنظومة وقمت بوضعها في كتاب البحث وتم تسليمه للمشرف فهل من حل دون التغيير على شكل المنظومة