(25-12-18, 08:00 PM)حريف برمجة كتب : هذا اللي فهمته من طلبك ،، وهي فكرة تحديد عدد مستخدمين البرنامج وتكون كالتالي :

في جدول المستخدمين تعمل حقل إضافي وليكن اسمه (userstate) نوعه رقمي يحمل القيم التالية (1 ، 0)

0 = غير متصل بالبرنامج (بمعنى لم يدخل بياناته في شاشة دخول البرنامج أو ان المستخدم خرج من البرنامج)
1 = المستخدم مازال داخل البرنامج .

وعند عملية دخول المستخدم تعمل استعلام .

كود :

Dim cmd As New SqlCommand("Select SUM(userstate) From usertable", conn)
       conn.Open()
       If cmd.ExecuteScalar > 4 Then
         
msgbox("المتصلين بالبرنامج عدد خمسة مستخدمين لا يمكنك استخدام التطبيق حالياً")
Application.Exit()

       End If
       conn.Close()