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

[شامل2]

السلام عليكم

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

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

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

ملاحظة: عند ظهور رقم التسجيل اطرح منه العدد 52361369 ثم اضرب الناتج في 2

ليكون الرقم  الناتج هو مفتاح تسجيل البرنامج.

Example2.rar

[سعيد صواب]

حياك الله اخي الكريم 

في هذه السطر يوجد عنصر بإسم  PassengerName

DoCmd.RunSQL "INSERT INTO [SerialNo] ([SerialNo]) VALUES ('" & [PassengerName] & "')"

وهو غير موجود ضمن المثال المرفق استبدله ب txtserialNo في النموذج .. 

بالتوفيق

[شامل2]

23 دقائق مضت, سعيد صواب said:

حياك الله اخي الكريم 

في هذه السطر يوجد عنصر بإسم  PassengerName

DoCmd.RunSQL "INSERT INTO [SerialNo] ([SerialNo]) VALUES ('" & [PassengerName] & "')"

وهو غير موجود ضمن المثال المرفق استبدله ب txtserialNo في النموذج .. 

بالتوفيق

السلام عليكم

اخ سعيد اسعد الله ايامك

لا زالت نفس المشكلة

[سعيد صواب]

حياك الله اخوي الشمال هذا شكل الكود بعد التعديل 

Private Sub cmdEnter_Click()

On Error Resume Next
If IsNull([txtSerialNo]) Or ([txtSerialNo]) = "" Then
MsgBox "لم تقم بإدخال رقم التسجيل ، نرجو إدخال الرقم والمحاولة مجددا", vbOKOnly + vbMsgBoxRight + vbCritical, "إجراء غير مكتمل"
Me.txtSerialNo.SetFocus



ElseIf (Me.HardiskSerial.Value - 52361369) * 2 = Val(Me.txtSerialNo) Then
    Dim Count As Integer
    Count = Nz(DCount("SerialNo", "SerialNo"),0)
    DoCmd.SetWarnings False
    If Count > 0 Then
    DoCmd.RunSQL "UPDATE SerialNo SET SerialNo.SerialNo = [forms]![Start]![txtSerialNo];"
    MsgBox "النسخة اصلية", vbOKOnly + vbMsgBoxRight + vbInformation, "تم التسجيل بنجاح"
DoCmd.Close
    DoCmd.OpenForm "Al_Name"
    
    ElseIf Count = 0 Then
    DoCmd.RunSQL "INSERT INTO [SerialNo] ([SerialNo]) VALUES ('" & [txtSerialNo] & "')"
    MsgBox "النسخة اصلية", vbOKOnly + vbMsgBoxRight + vbInformation, "تم التسجيل بنجاح"
    DoCmd.Close
    DoCmd.OpenForm "Al_Name"
    
ElseIf (Me.HardiskSerial.Value - 52361369) * 2 <> Val(Me.txtSerialNo) Then

    MsgBox "عفواً ، رقم التسجيل غير صحيح ً" & vbCr & "سيتم إنهاء البرنامج", vbOKOnly + vbMsgBoxRight + vbCritical, "فشل في عملية التسجيل"
    DoCmd.Quit
End If
End If
End Sub

بالنسبة للفورم لوق ان في الوحدة النمطية فهو غير موجود لذلك عدله الى اي نموذج في المثال ..

بالتوفيق

[شامل2]

السلام عليكم

شكرا اخ سعيد  بارك الله فيك

 

[سعيد صواب]

العفو 

بالتوفيق

[محمد سلامة]

هل هذا الموضوع للحماية برقم الهارد الحقيقي.. ام يتغير عند فرمتة نسخة الويندوز!؟ 

من لديه مثال علي رقم الهارد الحقيقي او المازربورد.. لا يبخل علينا به

[سعيد صواب]

استاذ محمد 

الق نظرة على الرابط  

http://www.officena.net/ib/topic/67762-استخراج-رمز-المعالج-والماذر-بورد-ورقم-الهارد-ديسك-للحماية/

بالتوفيق للجميع

[hosamahmeed]

On 3/5/2016 at 2:18 AM, سعيد صواب said:

استاذ محمد 

الق نظرة على الرابط  

http://www.officena.net/ib/topic/67762-استخراج-رمز-المعالج-والماذر-بورد-ورقم-الهارد-ديسك-للحماية/

بالتوفيق للجميع

اساتذتنا الكرام انا عمل فورم  1 به   رقم الهارد في حقل ورقم الماذر بورد في حقل  ورقم المعالج ف حقل وعمل حقل اسمة كود التسجيل وزر تسجيل  ونفس هذه البيانات مرة اخري  في فورم 2 تاني بس اختلف  الزر ب جلب السريال المطلوب كيف اعمل معالجة بين الثلاث حقول ويظهر رقم واحد و يكون هوا كود التسجيل مع العلم ظهور رقم المعالج  و الماذر بورد  به حروف وارقام