البحث في الموقع

السلام عليكم, في سنة 2017 قمت بكتابة كلاس بسيط لحماية برنامجي ولضمان برنامجي لا يعمل في غير كومبيوترات في حاله بيعه. مميزات الكلاس: 1- قفل قاعدة البيانات على ( رقم الهارد , البروسيسور , المذربورد , الماك أدريس ) 2- (استحاله) فك النماذج والتقارير في حال عدم تجاوزك لنموذج ( تسجيل الدخول ) ببساطة ستقول يمكنني العثور على باسورد القاعدة داخل الجدول ( الطريقة المعتادة لدينا جميعا في انشاء نموذج تسجيل دخول ). قبل كل شي ليكن لدينا مثلا جدول اسمة ( tbl_Login ) و نموذج اسمه ( frm_Login ) الجدول لتخزين اسم المستخدم وكلمة المرور والنموذج لعمل تسجيل الدخول عند ذهابنا للجدول ( tbl_Login ) ، سوف نحصل على باسورد مشفر من الجدول لو كان الباسورد مثلا ( 313 ) فإنك ستحصل على ( 701D6068 ) 2- عندما نقوم بتسجيل الدخول في النموذج سيقوم البرنامج بأخذ كلمة السر المدخلة ويقوم بتشفيرها ثم يقوم بمطابقتها مع الباسورد الموجود في الجدول اذا كان الباسورد المُدخل يطابق الجدول سيكتب قيمة معينة runtime ويقوم بازالة جميع القيود من النماذج والتقارير. اولا: كلاس الحماية Option Compare Database '----------------------------------------------------- ' Protection Module Coded By Hassanein Hirz Aldeen (SEMO.Pa3x) ' Date 26/11/2017 ' All rights reserved. copyright © 2017 '----------------------------------------------------- Public SEMO As String Function SEMO_GET() SEMO = SEMO SEMO_GET = SEMO End Function Function PR() As Boolean PR = False 'False=Disabled , True=Enabled End Function Function HWND_ID() HWND_ID = "3C3F4825" 'Your HWID End Function Function HWND_MSG() HWND_MSG = "...ليست لديك صلاحيات كافية لإستخدام هذا الاجراء" End Function Function KEY_ENDE() KEY_ENDE = "PA$X" End Function Function HWND_GET() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_GET = disk.volumeserialnumber Exit For End If Next End Function Function HWND_PROTECTION() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_PROTECTION = disk.volumeserialnumber Exit For End If Next If HWND_ID = HWND_PROTECTION Then HWND_PROTECTION = "True" Else HWND_PROTECTION = "False" End If End Function 'Code contained within module named mdlforencryptionanddecryption Public Function XORDecryption(CodeKey As String, DataIn As String) As String Dim arkdata1 As Long Dim strDataOut As String Dim intXOrValue1 As Integer Dim intXOrValue2 As Integer For arkdata1 = 1 To (Len(DataIn) / 2) 'The first value to be XOr-ed comes from the data to be encrypted intXOrValue1 = Val("&H" & (Mid(DataIn, (2 * arkdata1) - 1, 2))) 'The second value comes from the code key intXOrValue2 = Asc(Mid(CodeKey, ((arkdata1 Mod Len(CodeKey)) + 1), 1)) strDataOut = strDataOut + Chr(intXOrValue1 Xor intXOrValue2) Next arkdata1 XORDecryption = strDataOut End Function Public Function XOREncryption(CodeKey As String, DataIn As String) As String Dim arkdata1 As Long Dim strDataOut As String Dim temp As Integer Dim tempstring As String Dim intXOrValue1 As Integer Dim intXOrValue2 As Integer For arkdata1 = 1 To Len(DataIn) 'The first value to be XOr-ed comes from the data to be encrypted intXOrValue1 = Asc(Mid$(DataIn, arkdata1, 1)) 'The second value comes from the code key intXOrValue2 = Asc(Mid$(CodeKey, ((arkdata1 Mod Len(CodeKey)) + 1), 1)) temp = (intXOrValue1 Xor intXOrValue2) tempstring = Hex(temp) If Len(tempstring) = 1 Then tempstring = "0" & tempstring strDataOut = strDataOut + tempstring Next arkdata1 XOREncryption = strDataOut End Function الاستخدام لكل النماذج والتقارير اكتب في حدث Form_Load Option Compare Database Private Sub Form_Load() On Error Resume Next If HWND_PROTECTION = "False" Then MsgBox HWND_MSG, vbCritical, "عملية خاطئة" For i = 0 To Controls.Count - 1 Dim X As Control Set X = Me.Controls.Item(i) X.Visible = False Next DoCmd.Close DoCmd.CloseDatabase DoCmd.Quit End If If Protection.SEMO_GET = "SEMO" = False Then MsgBox HWND_MSG, vbCritical, "عملية خاطئة" For i = 0 To Controls.Count - 1 Dim XS As Control Set XS = Me.Controls.Item(i) XS.Visible = False Next DoCmd.Close DoCmd.CloseDatabase DoCmd.Quit End If End Sub الان عندما تريد اعطاء القاعدة لشخص ما قم باعطاءه اولا ملف الـ VBS هذا '----------------------------------------------------- ' ReCoded By Hassanein Hirz Aldeen (SEMO.Pa3x) ' Date 26/11/2017 ' All rights reserved. copyright © 2017 '----------------------------------------------------- ' Get clipboard text Set objHTML = CreateObject("htmlfile") Set Ws = CreateObject("WScript.Shell") Clipboardtext = objHTML.ParentWindow.ClipboardData.GetData("text") sText = HWND_GET 'Set Clipboard Ws.Run "mshta.exe ""javascript:clipboardData.setData('text','" & Replace(Replace(sText, "\", "\\"), "'", "\'") & "');close();""", 0, True MsgBox "Copied!" Function HWND_GET() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_GET = disk.volumeserialnumber Exit For End If Next End Function وظيفة هذا الملف يقوم باستخراج ( رقم الهارد , البروسيسور , المذربورد , الماك أدريس ) ثم ينسخه بعدما يشغله سيقوم العميل باعطاءك هذا الرقم لكي تقوم انت بدورك بوضعه داخل الكلاس في المنطقة Function HWND_ID() HWND_ID = "Your HWID" End Function استبدل كلمة ( Your HWID ) بالرقم الذي سيعطيه لك العميل. ثم بعد ذلك قم بحفظ القاعدة بصيغة ( ACCDE ) واتحدا اي شخص يفتحها مرة اخرى: لكي تفتح النماذج والتقارير عليك بتخطي نموذج تسجيل الدخول ارفقت لكم قاعدة محمية وقاعدة بدون حماية مع ملف الـ VBS الذي يستخرج ارقام قطع الجهاز ويقوم بنسخها،، اتمنى لكم الفائدة جميعاً اهداء الموضوع الى مُعلمي الرائع @jjafferr حسنين Login_SEMO_Pa3x.rar

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

أخي الكريم أسعد الله مسائك ، بداية في موضوع الحماية هناك نقاط كثيرة غابت عنك أثناء التفكير في حماية مشروعك وبياناتك من النسخ والنقل ....الخ . أولاً :- قد تكون قد اختلفت لديك اعدادات الـ Macro و إعدادات الـ ActiveX في جهازك عن تلك التي في جهاز العميل . هذه الإعدادات بالنسبة لي أفعلها بشكل يدوي عند تثبيت النسخة النهائية لأي مشروع عند العميل. ثانيا :- استكمالاً للحماية انا تمكنت من الدخول الى وضع التصميم دون الحاجة الى الباسوورد وأيضاً استيراد جميع الكائنات في المشروع الى ملف أكسيس آخر وذلك لعدة أسباب . منها أنك لم تقم بحماية محرر الأكواد الـ VBA بكلمة مرور وهو بدوره سيمنع وضع التصميم . أيضاً لحماية قاعدة البيانات لديك يجب أن يكون الملف النهائي بصيغة ACCDE ( وأعلم جيداً أنك قد تعلم هذه النقاط وإنما للتذكير ) . أيضاً موضوع حماية قاعدة البيانات 123 كمثال فكرة لا أتطرق لها إلا في قاعدة بيانات الجداول فقط . بالنسبة للنقطة الثالثة فأعتقد انها مربوطة بالنقطة الأولى . وفي النهاية ملفك فتح معي بشكل طبيعي دون أي أخطاء

الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته من فضلكم عايز انا عندي برنامج وقافل التصميم بتاعه من الشفت و حماية للاكواد بس لو حد معاه برنامج فتح الشفت يقدر يفتحه عادي هل في طريقة امنعها من الاساس خالص ان يتم تفعيل (الشفت) من الاساس اشكركم علي مساعدتكم

اشكرك اخى الكريم جداااااااااااااا اكمل جميلك اخى احتاج فورم الدخول وما يتعلق به من وسائل حماية نموذج الصلاحيات به امكانيات تحديد ما نحتاجه من اخفاء نماذج اخفاء زر او مجموعة ازرار لنموذج فأقوم انا باستخدامه فى البرامج والاخوة بحيث تكون خدمت الجميع بنموذج صلاحيات ودخول مستخدمين شامل وسائل الحماية ويتميز بسهولة تحديد ما يكون للمستخدم من نماذج او زر او ازرار او كل النماذج اى تحكم كامل مع امكانية تحديد تاريخ انتهاء فاعلية المستخدم كل ده من داخل نموذج اسمه صلاحيات او اعدادات بارك الله فيك ولك وكل عام وانت بخير وسلمت ايدك

بسم الله الرحمن الرحيم قمت بعمل شبكة اكسس على ويندوز سيرفر وقمت بعمل مجلد للمشاركة ولكن لاتوجد حماية لقاعدة البيانات للمنع من الحذف حيث يمكن لاى مستخدم حذف قاعدة البيانات للعلم انا اعمل على ويندوز سيرفر 2008 برجاء المساعدة ولكم جزيل الشكر

تفضل : اشياء كثيرة عملتها لك 1- نموذج تحكم ويوجد فيه : - تحديد اليوم الذي سيتم حماية وحجب الشهر السابق - التاريخ الذي عنده سوف يمنع كافة المستخدمين من الدخول الا المدير 2- ربط الازرار بنماذج الحسابات وانواعها والارصدة 3- اعداد النسخ الاحتياطي مع وقف التنفيذ ... التنفيذ سيتم بعد تقسيم قاعدة البيانات ... لان النسخ سيكون لقاعدة الجداول لمسات اخرى فنية ستجدها عند تصفحك FinancialPrg4.rar

السلام عليكم , مطلوب عمل كلمة مرور عند استخدام زر عرض التصميم فى اكسيس

السلام عليكم ورحمة الله وبركاتة في مووضوع سابق طرحته بالمنتدى حذرت من موضوع اخفاء الجداول المرتبطه لما يسببه من مشاكل وأخطاء تحذير من إستخدام كود إخفاء الجداول المرتبطة فأخذت افكرفي ايجاد طريقة لحماية كائنات قاعدة البيانات كافة من وصول المستخدم ومن ضمنها عدم وصول المستخدم لكلمة سر قاعدة البيانات الخلفية والتي تكون مخزنة بالجدول MsysObjects فلم أجد افضل من طريقة وضع كلمة سر لقاعدة البيانات بشرط أن تكون بصيغة accdb أو accde هنا لن يتمكن المستخدم من تفعيل الشفت ببرنامج خارجي ولن يتمكن من الوصول الى الكائنات وهذا كان سبب طرحي لموضوع هل لديك تجربه لكسر كلمة سر قاعدة بيانات ؟ وقد اكد استاذنا @jjafferr صعوبة الحصول على الرقم السري لمثل هذا النوع من قواعد البيانات فقررت وضع كلمة السر لقواعد البيانات !!!!!!! لكن ماهو الحل مع المستخدم ؟ هل سنقوم بتسليمه كلمة السر ليستخدم قاعدة البيانات اذا كأننا لمن نصنع شئ ففكرت بإيجاد وسيط نقوم بتسليمه كلمة السر ويكون هو الوسيط بين المستخدم والبرنامج ( الواجهة ) اذا الوسيط سنضعه جنب البرنامج ونأمره بفتح البرنامج للمستخدم اذا اراد استخدامه بدون أن يفصح له عن كلمة السر بالمرفق يوجد ملفين ملف قاعدة البيانات الاساس Start محمي بكلمة سر والاخر الوسيط الذي سنقوم بمن خلاله فتح البرنامج StartDatabes. بعد تمرير كلمة السر اليه والملفين تم تحويلهما الى صيغة accde بعد تنزيل المرفق اجعل الملفيين في مجلد واحد وشغل الملف StartDatabes ملاحظة من المحتمل ان تظهر لديك رسالة في بدأ التشغيل لا يمكن قراءة مشروع Vba هنا اعتقد يجب أن يكون الوندوز لديك محدث بأخر تحديث ويجب أن تكون حزمة Microsoft .NET Framework محدثة بأخر اصدار حسب لغة الوندوز ونوعه عندك او كما يوجد لدي انا عندي الحزمة Microsoft .NET Framework 4.5.1 windos 10 office10 أخر تحديث ارجو التجربه ونتمنى الاستفاده للجميع Free.rar -------------------------------------- ملاحظات جعفر 14-7-2021 : بعد ان تم حذف الملف الاصل ، اصبح من الصعب على بعض الاعضاء متابعة الموضوع ، لذا ، وبعد إذن الاخ @kaser906 فعملت ملفاته مرة اخرى وارفقتها هنا: 1. الملف Locked.zip ، وهو الملف النهائي والذي سيتم تسليمه للزبون ، وهو الملف الذي يجب ان يجربه الاعضاء ، وفيه ملفين بصيغة accde ، 2. الملف Locked_Open_Source.zip ، يحتوي على ملفات مفتوحة المصدر ، بصيغة accdb ، والتي حولناها الى ملفي رقم 1 علاه ، 3. الملف Open_Source.zip ،يحتوي على نفس ملفي رقم 2 اعلاه بصيغة accdb ، ولكن بدون تجهيزهم لتحويلهم لصيغة accde . Locked.zip Locked_Open_Source.zip Open_Source.zip

السلام عليكم أولا: أنا سعيد جدا بهذا الموقع الرائع، ربنا يبارك في الجميع. ثانيا: كيف يمكنني حماية الاستعلامات في أكسيس، بحيث لا يصل إليها أحد ولا يستطيع التعديل عليها، أي (عدم القدرة على فتحها في وضع التصميم)؟

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

هل إخفاء الجداول والاستعلامات يمنع استيرادها إلى قاعدة جديدة ؟ وهل هناك طريقة تجعل العميل يقوم بإظهار الجداول المخفية ؟

السلام عليكم لو عملت باس وورد معقد لمفتاح الشيفت، هل يمكن كسره أيضا؟

السلام عليكم ورحمة الله ممكن اكرامي بكود يقفل سجل الاسم (a) فقط. وليس كل المربعات .. بعد تحديث البيانات بمعنى حماية مربع الاسم (a) بعد التحديث ... ومن ثم لا يمكن التعديل الا بعد النقر المزدوج على( a) ولكم جزيل الشكر enable.accdb

أستاذنا أبو خليل حولت الملف لامتداد exe لكن وقفت لي حماية ويندوز يقول فيروس ويتم حذف الملف تلقائيا... أعمل استثاء وسماح ولكن لم يتجاوزه بل يتم حذفه كل مرة ... ولم أتمكن من ايقاف حماية الويندوز بالكامل. بينما الملف اللي أنت عملته يتقبله الويندوز ولا يشير له أنه فيروس . لو تكرمت اعمل لي الملف بالامتداد التالي وإذا فيه إمكانية العمل على النواتين 32 و 64 يكون أفضل لأن البرنامج مجهز للعمل عليهما معا: twasol.accde وفقك الله وبارك فيك

السلام عليكم ورحمه الله وبركاته لدي برنامج قمت بتركيب عليه برنامج القلعة لحماية برامج الاكسس بحيث ان يعطي العميل فترة تجرة لمدة 15 يوم وبعدها تظهر للعميل شاشة لطلب رمز التتفعيل للبرنامج ولكن بعد مضي 15 يوم على البرنامج وظهور شاشة مطالبة العميل بادخال الرمز يستطيع العميل العمل على البرنامج وذلك بازاحة شاشة التسجيل جانبا والعمل على البرنامج من جميع النواحي بدون ادخال رمز التفعيل لذا الطلب هو انه بعد انتهاء فترة التجربة وظهور شاشة التسجيل تظهر صورة كبيرة تمنع العميل من الدخول للبرنامج الا بعد التسجيل او اختفاء النماذج وظهور شاشة التفعيل فقط دون غيرها حتى يتم التفعيل .

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

السلام عليكم ورحمة الله تعالى وبركاته طبعا لن اضع افكارى صريحة لتطبيق فكرة محددة لا أنوى أن اعطيكم سمكا بل انوى أن أعلمكم الصيد ... لذلك سوف اضع الاكواد والافكار على وجه العموم وعلى سبيل الشرح ليس الا وليدل كل منكم بدلوه فى التطبيق وليستحضر بنات افكاره كما يترأى له 1- الحماية عن طريق اضافة بيانات الحماية فى الريجسترى نستخدم الأكواد الاتية فى وحدة نمطيه التطبيق فى القاعدة المرفقة .. تم وضع بعض التلميحات على الأكواد Public Const MyRegPath As String = "HKEY_CURRENT_USER\Software\Officena.net" Public Const MyRegKey As String = "Judy" Public Const myStringValue As String = "محمد" Public Const myValueData As String = "ابو جودى" 'returns True if the registry key i_RegKey was found 'and False if not Function RegKeyExists(i_RegKey As String) As Boolean Dim myWS As Object On Error GoTo ErrorHandler 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'try to read the registry key myWS.RegRead i_RegKey 'key was found RegKeyExists = True Exit Function ErrorHandler: 'key was not found RegKeyExists = False End Function Function RegKeyRead(i_RegKey As String) As String Dim myWS As Object On Error Resume Next 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'read key from registry RegKeyRead = myWS.RegRead(i_RegKey) End Function Function RegKeySave(i_RegKey As String, _ i_Value As String, _ Optional i_Type As String = "REG_SZ") Dim myWS As Object 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'write registry key myWS.RegWrite i_RegKey, i_Value, i_Type End Function Function RegKeyDelete(i_RegKey As String) As Boolean Dim myWS As Object On Error GoTo ErrorHandler 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'delete registry key myWS.RegDelete i_RegKey 'deletion was successful RegKeyDelete = True Exit Function ErrorHandler: 'deletion wasn't successful RegKeyDelete = False End Function يتبع.. القاعدة المرفقة 01-Dealing with the registry.accdb

مرحبا بكم في المثال المرفق جدول و نموذج و وحدة نمطية , الفكرة حماية البرنامج لعدم فتحها لاكثر من جهاز , السوال هل يمكن فتحها لاكثر من جهاز , اي عند مشاركة البرنامج على الشبكة المحلية لاكثر من مستخدم , هل بالامكان تعديل الكود ؟؟ وشكرا 112.accdb

السلام عليكم خير الكلام ما قل ودل . اللهم صل على محمد وآله وصحبه . بسبب ملاحظتي لحرص البعض _خاصة المستجدين _ على مسألة الحماية واستخدام طرق معقدة والبحث عن الجديد والأقوى احببت ان انشر تجربتي وخبرتي في هذه المسألة كأيسر وكذلك اقوى طريقة . الحماية من جهتين : 1- حماية البيانات وهي الجداول .. وهذه تهم المستخدم ( العميل) 2- حماية البناء ..( التصميم بما يشتمل من اكواد وغيرها ) وهذه تهم المبرمج ----------------------------------- الجهة الأولى : 1- اكسس ضعيف جدا في حماية جداوله .. لأن اي مستخدم مهما ضعفت صلاحياته يمكنه التمكن من الجداول ( نسخ / تغيير / حذف) 2- اي شخص يملك قاعدة بيانات اكسس يمكنه الوصول الى الجداول ما لم يتم حمايتها بكلمة مرور اكسس 3- ينطبق هذا على القواعد المقسمة حيث يجب تفعيل كلمة مرور اكسس على الواجهات الأمامية قبل عرض كلمة مرور المستخدم ، والا ستكون الجداول في متناول اليد . نأتي للجهة الثانية وهي ما يخص المبرمج : من خلال تجارب وخبرة سنوات افضل طريقة تريح المبرمج وكذلك العميل وبعيدا عن غرس الملفات والريجستري والفلاش : الاعتماد على رقم سيريال واحد من عتاد الجهاز ( قرص صلب / معالج / اللوحة الأم ) بشرط ان يكون الرقم اساسي خاصة القرص الصلب لا يتغير عند عمل التهيئة . فكون الرقم اساسي لا يتغير يفيد العميل عندما يقوم بتهيئة القرص ، وهو مريح ايضا للمبرمج ( يوجد كثير من المواضيع هنا في هذا المنتدى تشرح عملية استخلاص ارقام القطع الداخلية لجهاز الحاسب .. ابحث ) الخطوات : --------------------------------- - استخراج واستخلاص الارقام من السيريل ( غالبا يأتي مختلط بارقام وحروف) سيظهر هذا الرقم للعميل في فورم التسجيل واسفله حقل لادخال رقم النسخة ------------------------------- - نعمل دالة1 = استقطاع جزء محدد من النتيجة .. مثلا خمسة ارقام او اربعة ارقام من اليمين او من اليسار ( استقطاع ثابت) - نعمل دالة2 = اجراء معادلة على دالة1 ، مثلا ( دالة1 (x) 1234567 + 53954 ) ------------------------------- - عندما يرسل العميل رقم السيريل ويطلب رقم النسخة نقوم بعمل المعادلة ومن ثم نرسلها للعميل نتيجة هذه المعادلة ستبقى ملك دائم لجهاز حاسب واحد ما دام على قيد الحياة -------------------------------------------------------------------------------------------------------------- ما ذكرته اعلاه هو للنسخة الدائمة .. أما النسخة المؤقته فأقوم بعملها كالتالي : يجب ان يكون العمل مقسم الى واجهات وجداول . يجب ان اتعامل مع العميل على اساس نسختين من الواجهات : مؤقتة / دائمة الفرق بين الواجهة المؤقتة والواجهة الدائمة .. هي زيادة سطرين بشرطين في المؤقتة 1- الشرط 1: لن تفتح المؤقتة الا مع وجود الأنترنت شغال 2- نضع سطرا نحدد تاريخ توقف البرنامج ( يتم جلب التاريخ من الانترنت ) لنفرض انتهت مدة التجربة بعد شهر او شهرين .. وتم الشراء .. هنا نرسل الواجهة الدائمة للصق والاستبدال . هنا نكون حافظنا على بيانات العميل المدخلة وعلى حقوقنا البرمجية ----------------------------------------------------- نقطة اخيرة : سيتبادر الى الذهن ! اين يحفظ رقم النسخة ؟ لأن البرنامج سيطلبه عند كل اقلاع ؟ الجواب : ما دام رقم النسخة ملكا للجهاز فيمكن حفظه في اي مكان ، مثلا في حقل في جدول بشرط ان يحتوي الجدول على سجل واحد فقط او يمكن حفظه في ملف نصي بجانب قاعدة البيانات وهذه الطريقة الاخيرة هي الافضل بل تجب اذا تم توزيع الواجهات على اكثر من جهاز .. والسبب ان كل جهاز سيكون له رقمه الخاص هذا ما لدي آمل تجدوا فائدة

تمام حماية مربع التحرير من التغيير فى حاله تعبئة القائمه بالبيانات

السلام عليكم طبعا لم تحصلي على رد وسوف ابين السبب : هنا اصلا لا يمكن ظهور بيانات في القائمة الا بمعلومية ID النموذج لانك وضعت هذا المعيار في الاستعلام وبكذا يكون طلبك لا معنى له ارى الافضل لك صياغة الطلب بطريقة اخرى وهي توضيح الفكرة او الهدف الذي تريدين الوصول اليه وحسب فهمي للعنوان يمكنك حماية مربع التحرير اذا كانت القائمة تحمل بيانات

اخي الكريم أفضل حماية موجودة لك الآن هي حماية أكسيس نفسها ، قم بحفظ المشروع بصيغة Accde فقط ، ولن تتمكن حتى أنت من التعديل على النماذج

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