بالطبع، فهم مشكلتك وتوفير الحل المناسب لها يعتبر جزءاً مهماً من تطوير البرمجيات. يبدو أنك تعمل على تطبيق في VB6 وتحتاج إلى تحسين الكود الخاص بك ليتعامل بشكل صحيح مع تكرار السجلات.
المشكلة الرئيسية هي كيفية التعامل مع حالتين: إذا كان اسم العائلة والاسم الأول موجودين بالفعل في سجل، فمن المسموح بتكرار اسم العائلة ولكن مع اسم أول مختلف في السجل الأخير. وعند إضافة سجل جديد، يجب التحقق مما إذا كانت هذه الحالة قد تكررت بالفعل في قاعدة البيانات.
للقيام بذلك، يمكنك تطبيق الخوارزمية التالية:
-
قم بالبحث في قاعدة البيانات للتحقق مما إذا كانت هناك سجلات موجودة بنفس اسم العائلة والاسم الأول الذي تم إدخالهما.
-
إذا وجد البرنامج سجلات متطابقة، قم بالتحقق مما إذا كان السجل الأخير يحتوي على اسم أول مختلف. إذا كان الأمر كذلك، فهذا مقبول.
-
إذا لم يتم العثور على سجلات متطابقة أو إذا تم العثور على سجلات متطابقة ولكن السجل الأخير يحتوي على نفس الاسم الأول، فسجل البيانات الجديد.
بناءً على هذا التحليل، يمكننا تعديل الكود الخاص بك على النحو التالي:
vbPrivate Sub Command2_Click()
Dim found As Boolean
found = False
With Adodc1.Recordset
' Check if any required field is empty
If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Then
MsgBox "Please Update the Information Given!", vbCritical, "ASAP"
Else
' Search for existing records with the same last name and first name
.MoveFirst
Do Until .EOF
If .Fields(0) = Text2.Text And .Fields(1) = Text3.Text Then
' If the last record has a different first name, it's okay
If Not .EOF And .MoveNext And .Fields(0) = Text2.Text And .Fields(1) <> Text3.Text Then
found = False
Exit Do
Else
found = True
Exit Do
End If
End If
.MoveNext
Loop
' If no matching records found or if the last record has the same first name, add the new record
If Not found Then
.AddNew
.Fields(0) = Text2.Text
.Fields(1) = Text3.Text
.Fields(2) = Text4.Text
.Fields(3) = Combo1.Text
.Fields(4) = Text5.Text
.Fields(5) = Text6.Text
.Fields(6) = Text7.Text
.Fields(7) = Text8.Text
.Update
MsgBox "Saved!", vbInformation, "Save"
Else
MsgBox "ALREADY EXIST!", vbExclamation, "Duplicate Record"
End If
End If
' Clear input fields
Frame1.Visible = False
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Combo1.Text = ""
End With
End Sub
تم تحسين الكود ليتناسب مع متطلباتك، مع إضافة التحقق من تكرار السجلات بناءً على الشروط التي ذكرتها. استخدم هذا الكود وجربه في تطبيقك، ولا تتردد في طرح أي استفسار إضافي إذا كنت بحاجة إلى مزيد من المساعدة.
المزيد من المعلومات
بالطبع، سأقوم بمواصلة المقال بتوضيح وشرح بعض النقاط الهامة في الكود المقترح.
يعتمد الكود المقترح على استخدام أداة ADO (ActiveX Data Objects) للتعامل مع قاعدة البيانات. يبدأ الكود بفحص ما إذا كان أحد الحقول اللازمة لإضافة سجل جديد فارغًا أم لا. إذا كان أي من هذه الحقول فارغًا، سيتم عرض رسالة تنبيه للمستخدم.
ثم يتم البحث في قاعدة البيانات عن سجلات متطابقة باستخدام اسم العائلة والاسم الأول الذي تم إدخالهما. إذا وُجدت سجلات متطابقة، يتم التحقق من مطابقة السجلات مع شرط السجل الأخير يحتوي على اسم أول مختلف. في حالة تحقق هذا الشرط، يتم السماح بإضافة السجل الجديد، وإلا سيتم عرض رسالة تنبيه تفيد بأن السجل موجود بالفعل.
إذا لم يتم العثور على أي سجلات متطابقة، أو إذا كان السجل الأخير يحتوي على نفس الاسم الأول، فسيتم إضافة السجل الجديد إلى قاعدة البيانات.
من المهم أن نلاحظ أنه عند استخدام أداة ADO، يجب التأكد من تعيين خصائص CursorType وLockType بشكل صحيح. وفي هذا الكود، تم استخدام افتراضيات ADO لكل منهما.
كما يجب أن يكون لديك اتصال بقاعدة البيانات قبل استخدام أوامر ADO، ويمكنك ذلك باستخدام عنصر تحكم ADODC (Microsoft ADO Data Control) في نموذج VB6 وتكوينه للاتصال بقاعدة البيانات.
بهذا الشكل، تم تحسين الكود ليتناسب مع متطلباتك ويحل مشكلة التكرار المحتملة في سجلات قاعدة البيانات. يمكنك الآن استخدام هذا الكود واختباره في تطبيقك، ولا تتردد في الاستفسار إذا كنت بحاجة إلى مساعدة إضافية أو شرح إضافي.
