مشکل در کد

سلام من کد زیر رو برای ورود افراد به برنامه قرار دادم
ولی میخوام وقتی user, pass درست وارد میشه و فرم شروع باز میشه خود فرم login بسته شه ولی طبق کد من وقتی فرم login بسته میشه فرم بعدی هم به همراه اون بسته میشه لطفا راهنمایی کنید

Dim cmd As New SqlClient.SqlCommand("select count(*) from table2 where name='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'", con)

        Con.Open()

        If cmd.ExecuteScalar = 1 Then

            Form5.Show()

            Me.Close()

        ElseIf cmd.ExecuteScalar = 0 Then

            MsgBox("اطلاعات نام کاربری یا رمز عبور اشتباه است")

        End If

        con.Close()

نقل قول:

---

نوشته شده توسط soniarose

سلام من کد زیر رو برای ورود افراد به برنامه قرار دادم
ولی میخوام وقتی user, pass درست وارد میشه و فرم شروع باز میشه خود فرم login بسته شه ولی طبق کد من وقتی فرم login بسته میشه فرم بعدی هم به همراه اون بسته میشه لطفا راهنمایی کنید

Dim cmd As New SqlClient.SqlCommand("select count(*) from table2 where name='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'", con)

        Con.Open()

        If cmd.ExecuteScalar = 1 Then

            Form5.Show()

            Me.Close()

        ElseIf cmd.ExecuteScalar = 0 Then

            MsgBox("اطلاعات نام کاربری یا رمز عبور اشتباه است")

        End If

        con.Close()

---

اون فرم لوگین فرم اصلیت هست که بسته شدن اون تمام برنامه بسته میشه

برای درست کردن این مشکل یا باید بنویسی :
me.hide()
یا فرم اصلیت رو تغییر بدی
البته راه اول منطقی تره

با سلام
البته اگه LOGIN FORM را HIDE کردی هنگام بستن برنامه باید از دستور aplication.exit استفاده کنی یا فرم ورود را dispose کنی

نقل قول:

---

نوشته شده توسط majidsoft

با سلام
البته اگه LOGIN FORM را HIDE کردی هنگام بستن برنامه باید از دستور aplication.exit استفاده کنی یا فرم ورود را dispose کنی

---

یا بنویسی :

form1.close()

بجای form1 اسم همون فرم login رو بنویس

بعد از con.close

نقل قول:

---

Dim form2 AsNew form2
form2.Show()
Me.Hide()

---

را قرار بده در موقع خروج بايد در رويداد
form2_Disposed فقط end را بنويس از برنامه كامل خارج ميشويد