[اسلام الكبابى]

نعم أريد وضع رقم الهارد دسك في قاعده البينات ولكن لن أسأل العميل عن رقم الهاردسك
لن أضعه في قاعده البينات الا اذا كانت Nwork = 0 (أى عند أول مرة لتشغيل البرنامج)
أخزن رقم الHARD DISK الخاص بأول جهاز تم عليه التشغيل الذى حصلت عليه من الNew HDSLN وأتجه للجملة رقم100

PHP كود :

If Nwork = "0" Then
 Rem"الشرط السابق يعنى اذا كانت هذه هى أول مرة لتشغيل البرنامج"
 txtHARD1 = New HDSLN
Rem"لاحظ أنه بالجملةالسابقة يتم معرفة رقم الHARD DISK للكمبيوترالذى يتم تشغيل البرنامج عليه الآن ، ولاحظ أيضآأن هذه هى أول مرة لتشغيل البرنامج"

  Adodc1.Recordset.MoveFirst
  Adodc1.Refresh
  Adodc1.Recordset.Fields(1) = txtHARD1
  Adodc1.Recordset.Update
Rem"الجمل الأربعة السابقة لتخزين رقم الHARD DISK الذى وجدته فى قاعدة البيانات"
GoTo 100
End If 


أما عند تشغيل البرنامج أى مرة بعد ذلك (أى اذا كانت0 [FONT=&amp]≠ [/FONT] Nwork ) فانه يحصل على رقم الHARD DISK الخاص بأول جهاز تم عليه التشغيل من خلال قاعدة البيانات
ويحصل على رقم الHARD DISK الخاص بالكمبيوتر الذى يتم تشغيل البرنامج عليه الآن من خلال الNew HDSLN
ويقارنهما

PHP كود :

txtHARDnew = New HDSLN
 Rem"لاحظ أنه بالجملة السابقة  يتم معرفة رقم الHARD DISK الخاص بالكمبيوتر الذى يتم تشغيل البرنامج عليه الآن"
 
  txtHARDold = Adodc1.Recordset.Fields(1)
Rem"لاحظ أن  قيمة المتغيرtxtHARDold هو رقم الHARD DISK الخاص بالكمبيوتر الذى تم تشغيل البرنامج عليه أول مرة"
If txtHARDnew <> txtHARDold Then MsgBox "انت غير مخول بستخدام هذا البرنامج الرجاء مراسلة المصنع", , "نأسف": End