[asemshahen5]

عدل في الملف

AddUserNameFirstLogin\AddUserNameFirstLogin\My Project\Application.Designer.vb

بوضع الشرط التالي :

كود :

       Protected Overrides Sub OnCreateMainForm()
           Dim DT As New DataTable
           DT.Clear()
           ConnectionSql("(Local)", "Company_2018", "Select * From users", DT)
           If DT.Rows.Count = 0 Then
               Me.MainForm = AddUserName
           Else
               Me.MainForm = LoginForm
           End If
       End Sub

بالنسبة لكود الاتصال : ConnectionSql في مديول ConnectionStringMD

كود :

Module ConnectionStringMD
   Public Sub ConnectionSql(SqlServerName As String, DbName As String, SqlQuery As String, DTable As DataTable)
       Dim conn As New SqlClient.SqlConnection("Data Source=" & SqlServerName & ";Initial Catalog=" & DbName & ";Integrated Security=True")
       If conn.State = ConnectionState.Closed Then conn.Open()
       Dim DA As New SqlClient.SqlDataAdapter(SqlQuery, conn)
       DTable.Clear()
       DA.Fill(DTable)
       If conn.State = ConnectionState.Open Then conn.Close()
   End Sub
End Module