• 0
nacer_alger

وضع برنامج في شيكة داخلية

سؤال

سلام عليكم

 

قمت بتطوير برامج في أكسس هدا من فضل الله ثم الفضل يعود بحثي في المنتديات مثل هدا المنتدى الجميل.

 

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

الاستفادة روابط لي برامجي

برنامج كراء السيارات

 

كود المستعمل

 

Private Sub Commande1_Click()
 Dim DB As Database
    Dim rs As Recordset
Set DB = CurrentDb
    Set rs = DB.OpenRecordset("TBpass")
    If rs.EOF = True Then
       rs.AddNew
       rs!Ser = Me.SERTEXT.Value
       rs!HdNum = Me.HdNum.Value
       rs.Update
       rs.Close
Else
rs.Edit
       rs!Ser = Me.SERTEXT.Value
       rs!HdNum = Me.HdNum.Value
       rs.Update
       rs.Close
       End If
Dim X, x2
X = Nz((Me.HdNum)) * 236
x2 = Nz(DLookup("ser", "TBpass"), 0)

If "'" & x2 & "'" = "'" & X & "'" Then
DoCmd.Close
DoCmd.OpenForm "Gestion de location de voiotures"
Else
MsgBox "Le Numéro et erroné Demander le Code d'activation", vbYes, "Obtenir le logiciel Contact le Fournisseur 0550735799"
DoCmd.Quit
End If
End Sub

 

 

تم تعديل بواسطه nacer_alger
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أعتقد أن السبب هو أنك تخزن سيريل الهارديسك في قاعدة البيانات التي على السيرفر.

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .