[علي نوري]

وعليكم السلام

قم بأنشاء هذه الدالة

PHP كود :

 Function users_count()
        Dim cmd As New OleDbCommand("select count(*) from users", con)
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        Dim count As Integer = 0
        con.Open()
        count = cmd.ExecuteScalar()
        con.Close()
        If count = 0 Then
            Return True
        Else
            Return False
        End If
    End Function 


حدث الفورم لود (الفورم الرئيسي) \\ لازم تكون الخاصية  IsMdiContainer = True

PHP كود :

 Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        form1.MdiParent = Me
        Form2.MdiParent = Me
        If users_count() = True Then
            MsgBox("لايوجد هناك مستخدميين في البرنامج سيتم إضافتك كمستخدم رئيسي", MsgBoxStyle.Information)
            form1.StartPosition = FormStartPosition.CenterScreen
            form1.Show()
        Else
            Form2.StartPosition = FormStartPosition.CenterScreen
            Form2.Show()
            Exit Sub
        End If
    End Sub 


الدالة  users_count ماخوذة من احد امثلة الاخ Lo3i حسب ما اذكر الاسم

حمل المشروع من المرفقات