🔒 Closed Multiple forms vb.net

[_KaNeKi_]

May tutorial po ba kung pano gawin yan. Login form tapos mapupunta ka sa ibanh form. Vb.net to ms access.

Salamat po

 

[deepneck]

Yes. madame sa yt lods. Basically gagawa ka ng condition dyan (if else) pag tama ang username at password saka mo papalabasin yung isang form ex. formname.Show()

 

[zackmark29]

Yeah merong basic tutorial sa yt marami.
Basic function niyan, kapag tama parehas yung username and password, magshoshow yung isang form tapos yung login form magcoclose. Kapag mali ang inputs, may error message dapat para alam ng user kung anong mali.

 

[_KaNeKi_]

Yes. madame sa yt lods. Basically gagawa ka ng condition dyan (if else) pag tama ang username at password saka mo papalabasin yung isang form ex. formname.Show()

pa link naman sir, kasi halos ng nakikita ko walang database eh, yung iba wala namang second form

Ty po.

 

[_KaNeKi_]

Yeah merong basic tutorial sa yt marami.
Basic function niyan, kapag tama parehas yung username and password, magshoshow yung isang form tapos yung login form magcoclose. Kapag mali ang inputs, may error message dapat para alam ng user kung anong mali.

pa link naman sir, kasi halos ng nakikita ko walang database eh, yung iba wala namang second form

Ty po..

 

[PHC-Xes]

Pwede po magpatulong ano po kaya itong error na ito

tama naman po sinundan ko sa vid nito

Salamat po

 

[PHC-Xes]

pa link naman sir, kasi halos ng nakikita ko walang database eh, yung iba wala namang second form

Ty po..

 

[2pepot]

Change mo yung:
Dim cm As SqlCommand
to
Dim cmd As SqlCommand
kulang ka ng letter "d" sa variable mo

 

[PHC-Xes]

Pahelp po paturo po kapag po CS nasa combobox mag proceed po

 

[PHC-Xes]

Patulong po nagkaganito po pano po gagawin ko?

 

[Splekenesis]

may mali sa code ng KANGAROFORM2.vb mo
sa designer line 39
check mo mabuti
bka may nagalaw ka tpos na save mo

 

[PHC-Xes]

[XX='spleken001, c: 1330396, m: 628608'][/XX]

may nadelete po ako na .XSD akala ko po kasi di na magagamit kasi nagbago ako ng connection kaso hindi ko na ma undo kaya ayan po nangyari

 

[PHC-Xes]

Sir pwede po magpatulong paano ko po ipapasok dito yung condition na kapag equal sa admin or cs ang value ng combobox1 mag proceed po.



Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrEmpty(txtuser.Text) = True Or String.IsNullOrEmpty(txtpass.Text) = True) Then
MessageBox.Show("Please enter username and password")
Else
Dim con As SqlConnection = New SqlConnection("Data Source=DESKTOP-DILIAA0;Initial Catalog=mydataBase;Integrated Security=True")
con.Open()
Dim cmd As SqlCommand = New SqlCommand("Select * from TBLUSER where USERNAME='" + txtuser.Text + "' , PASSWORD='" + txtpass.Text + "'", con)
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
con.Close()

If (dt.Rows.Count > 0) Then
MessageBox.Show("Login Successful")
KANGOFORM1.Show()
Me.Hide()
Else
MessageBox.Show("Incorrect Username or Password")
txtuser.Text = ""
txtpass.Text = ""
End If
End If
End Sub

 

[Xlayer]

if (combobox.text == "CS")
//condition
else if(combobox.text == "Admin")
//condition
else
//condition

 

[PHC-Xes]

[XX='Xlayer, c: 1330778, m: 838877'][/XX]

Saan ko po pwede ipasok yan dito?


If (String.IsNullOrEmpty(txtuser.Text) = True Or String.IsNullOrEmpty(txtpass.Text) = True) Then
MessageBox.Show("Please enter username and password")
Else
Dim con As SqlConnection = New SqlConnection("Data Source=DESKTOP-DILIAA0;Initial Catalog=mydataBase;Integrated Security=True")
con.Open()
Dim cmd As SqlCommand = New SqlCommand("Select * from TBLUSER where USERNAME='" + txtuser.Text + "' AND PASSWORD='" + txtpass.Text + "'", con)
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
con.Close()

If (dt.Rows.Count > 0) Then
MessageBox.Show("Login Successful")
KANGOFORM1.Show()
Me.Hide()
Else
MessageBox.Show("Incorrect Username or Password")
txtuser.Text = ""
txtpass.Text = ""
End If
End If

 

[emer0722]

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrEmpty(txtuser.Text) = True Or String.IsNullOrEmpty(txtpass.Text) = True) Then
MessageBox.Show("Please enter username and password")
Else
Dim con As SqlConnection = New SqlConnection("Data Source=DESKTOP-DILIAA0;Initial Catalog=mydataBase;Integrated Security=True")
con.Open()
Dim cmd As SqlCommand = New SqlCommand("Select * from TBLUSER where USERNAME='" + txtuser.Text + "' , PASSWORD='" + txtpass.Text + "'", con)
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
con.Close()

If (dt.Rows.Count > 0) Then
If(ComboBox1.Text = "ADMIN" Or ComboBox1.Text = "CS") Then
MessageBox.Show("Login Successful")
KANGOFORM1.Show()
Me.Hide()
End If
Else
MessageBox.Show("Incorrect Username or Password")
txtuser.Text = ""
txtpass.Text = ""
End If
End If
End Sub

 

[emer0722]

Try mo to boss

 

[PHC-Xes]

If (String.IsNullOrEmpty(txtuser.Text) = True Or String.IsNullOrEmpty(txtpass.Text) = True) Then
MessageBox.Show("Please enter username and password")
Else
Dim con As SqlConnection = New SqlConnection("Data Source=DESKTOP-DILIAA0;Initial Catalog=mydataBase;Integrated Security=True")
con.Open()
Dim cmd As SqlCommand = New SqlCommand("Select * from TBLUSER where USERNAME='" & txtuser.Text & "' AND PASSWORD='" & txtpass.Text & "'AND ROLE='" & ComboBox1.Text & "'", con)
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
con.Close()

If (dt.Rows.Count > 0) Then
If (ComboBox1.Text = "IT") Then
MessageBox.Show("Login Successful")
KANGOFORM1.Show()
Me.Hide()
End If
If (dt.Rows.Count > 0) Then
If (ComboBox1.Text = "CS") Then
MessageBox.Show("Login Successful")
KANGOFORM1.Show()
Me.Hide()
KANGOFORM1.TXT2.Enabled = False
KANGOFORM1.TXT3.Enabled = False
KANGOFORM1.TXT4.Enabled = False
KANGOFORM1.TXT5.Enabled = False
KANGOFORM1.TXT6.Enabled = False
KANGOFORM1.DTP1.Enabled = False
KANGOFORM1.BTN1.Enabled = False
KANGOFORM1.BTN2.Enabled = False
KANGOFORM1.BTN3.Enabled = False
End If
Else
MessageBox.Show("Incorrect Username or Password")
txtpass.Text = ""
End If
End If
End If

 

[PHC-Xes]

Working po medyo may problem lang po nawala po error message kapag mali user and pass

 

[emer0722]

If (String.IsNullOrEmpty(txtuser.Text) = True Or String.IsNullOrEmpty(txtpass.Text) = True) Then
MessageBox.Show("Please enter username and password")
Else
Dim con As SqlConnection = New SqlConnection("Data Source=DESKTOP-DILIAA0;Initial Catalog=mydataBase;Integrated Security=True")
con.Open()
Dim cmd As SqlCommand = New SqlCommand("Select * from TBLUSER where USERNAME='" & txtuser.Text & "' AND PASSWORD='" & txtpass.Text & "'AND ROLE='" & ComboBox1.Text & "'", con)
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
con.Close()

If (dt.Rows.Count > 0) Then
If (ComboBox1.Text = "IT") Then
MessageBox.Show("Login Successful")
KANGOFORM1.Show()
Me.Hide()
ElseIf (ComboBox1.Text = "CS") Then
MessageBox.Show("Login Successful")
KANGOFORM1.Show()
Me.Hide()
KANGOFORM1.TXT2.Enabled = False
KANGOFORM1.TXT3.Enabled = False
KANGOFORM1.TXT4.Enabled = False
KANGOFORM1.TXT5.Enabled = False
KANGOFORM1.TXT6.Enabled = False
KANGOFORM1.DTP1.Enabled = False
KANGOFORM1.BTN1.Enabled = False
KANGOFORM1.BTN2.Enabled = False
KANGOFORM1.BTN3.Enabled = False
End If
Else
MessageBox.Show("Incorrect Username or Password")
txtpass.Text = ""
End If
End If