API tools faq
paste
Advertisement
masyanto

error , conversion from string "", to integer is not valid

masyanto
Oct 15th, 2020
2,444
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 17.94 KB | None | 0 0
raw download clone embed print report
  1. Private Sub Btnlogin_Click(sender As Object, e As EventArgs) Handles Btnlogin.Click
  2.         Dim salah As Integer
  3.  
  4.         Try
  5.             If Txtusername.Text = "developer" And Txtpassword.Text = "123456" Then
  6.                 FormMenuUtama.Show()
  7.                 FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  8.                 Formconfig.ShowDialog()
  9.                 Me.Hide()
  10.                 Exit Sub
  11.             ElseIf Txtusername.Text <> "" And Txtpassword.Text <> "" Then
  12.                 GetDBSetting()
  13.                 DbConnected()
  14.                 conn.Open()
  15.                 sstr = "select * from v_join_akses where nama_guru='" & Txtusername.Text & "' and password_guru='" & Txtpassword.Text & "'"
  16.                 cmd = New MySqlCommand(sstr, conn)
  17.                 rd = cmd.ExecuteReader
  18.                 rd.Read()
  19.                 If rd.HasRows Then
  20.                     If rd("v1").ToString = 0 And rd("v2").ToString = 0 And rd("v3").ToString = 0 And rd("v4").ToString = 0 And rd("v5").ToString = 0 And rd("v6").ToString = 0 And rd("v7").ToString = 0 Then
  21.                         MsgBox("Anda tidak mempunyai hak Akses , hub. Operator")
  22.                     ElseIf rd("v1").ToString = 1 And rd("v2").ToString = 0 And rd("v3").ToString = 0 And rd("v4").ToString = 0 And rd("v5").ToString = 0 And rd("v6").ToString = 0 And rd("v7").ToString = 0 Then
  23.                         FormMenuUtama.TsOperator.Visible = True
  24.                         FormMenuUtama.TsBendahara.Visible = False
  25.                         FormMenuUtama.TsSarpras.Visible = False
  26.                         FormMenuUtama.TsTataUsaha.Visible = False
  27.                         FormMenuUtama.TsGuru.Visible = False
  28.                         '------------------------------------
  29.                         FormMenuUtama.TsProfile.Visible = True
  30.                         FormMenuUtama.TsTahunAjaran.Visible = False
  31.                         FormMenuUtama.TsMapel.Visible = False
  32.                         FormMenuUtama.TsDataGuru.Visible = False
  33.                         FormMenuUtama.TsDataSiswa.Visible = False
  34.                         FormMenuUtama.TsHakAkses.Visible = False
  35.                         FormMenuUtama.TsDatabase.Visible = False
  36.                         Me.Hide()
  37.                         FormMenuUtama.Show()
  38.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  39.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  40.  
  41.                     ElseIf rd("v1").ToString = 1 And rd("v2").ToString = 1 And rd("v3").ToString = 0 And rd("v4").ToString = 0 And rd("v5").ToString = 0 And rd("v6").ToString = 0 And rd("v7").ToString = 0 Then
  42.                         FormMenuUtama.TsOperator.Visible = True
  43.                         FormMenuUtama.TsBendahara.Visible = False
  44.                         FormMenuUtama.TsSarpras.Visible = False
  45.                         FormMenuUtama.TsTataUsaha.Visible = False
  46.                         FormMenuUtama.TsGuru.Visible = False
  47.                         '------------------------------------
  48.                         FormMenuUtama.TsProfile.Visible = True
  49.                         FormMenuUtama.TsTahunAjaran.Visible = True
  50.                         FormMenuUtama.TsMapel.Visible = False
  51.                         FormMenuUtama.TsDataGuru.Visible = False
  52.                         FormMenuUtama.TsDataSiswa.Visible = False
  53.                         FormMenuUtama.TsHakAkses.Visible = False
  54.                         FormMenuUtama.TsDatabase.Visible = False
  55.                         Me.Hide()
  56.                         FormMenuUtama.Show()
  57.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  58.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  59.                     ElseIf rd("v1").ToString = 1 And rd("v2").ToString = 1 And rd("v3").ToString = 1 And rd("v4").ToString = 0 And rd("v5").ToString = 0 And rd("v6").ToString = 0 And rd("v7").ToString = 0 Then
  60.                         FormMenuUtama.TsOperator.Visible = True
  61.                         FormMenuUtama.TsBendahara.Visible = False
  62.                         FormMenuUtama.TsSarpras.Visible = False
  63.                         FormMenuUtama.TsTataUsaha.Visible = False
  64.                         FormMenuUtama.TsGuru.Visible = False
  65.                         '------------------------------------
  66.                         FormMenuUtama.TsProfile.Visible = True
  67.                         FormMenuUtama.TsTahunAjaran.Visible = True
  68.                         FormMenuUtama.TsMapel.Visible = True
  69.                         FormMenuUtama.TsDataGuru.Visible = False
  70.                         FormMenuUtama.TsDataSiswa.Visible = False
  71.                         FormMenuUtama.TsHakAkses.Visible = False
  72.                         FormMenuUtama.TsDatabase.Visible = False
  73.                         Me.Hide()
  74.                         FormMenuUtama.Show()
  75.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  76.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  77.                     ElseIf rd("v1").ToString = 1 And rd("v2").ToString = 1 And rd("v3").ToString = 1 And rd("v4").ToString = 1 And rd("v5").ToString = 0 And rd("v6").ToString = 0 And rd("v7").ToString = 0 Then
  78.                         FormMenuUtama.TsOperator.Visible = True
  79.                         FormMenuUtama.TsBendahara.Visible = False
  80.                         FormMenuUtama.TsSarpras.Visible = False
  81.                         FormMenuUtama.TsTataUsaha.Visible = False
  82.                         FormMenuUtama.TsGuru.Visible = False
  83.                         '------------------------------------
  84.                         FormMenuUtama.TsProfile.Visible = True
  85.                         FormMenuUtama.TsTahunAjaran.Visible = True
  86.                         FormMenuUtama.TsMapel.Visible = True
  87.                         FormMenuUtama.TsDataGuru.Visible = True
  88.                         FormMenuUtama.TsDataSiswa.Visible = False
  89.                         FormMenuUtama.TsHakAkses.Visible = False
  90.                         FormMenuUtama.TsDatabase.Visible = False
  91.                         Me.Hide()
  92.                         FormMenuUtama.Show()
  93.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  94.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  95.                     ElseIf rd("v1").ToString = 1 And rd("v2").ToString = 1 And rd("v3").ToString = 1 And rd("v4").ToString = 1 And rd("v5").ToString = 1 And rd("v6").ToString = 0 And rd("v7").ToString = 0 Then
  96.                         FormMenuUtama.TsOperator.Visible = True
  97.                         FormMenuUtama.TsBendahara.Visible = False
  98.                         FormMenuUtama.TsSarpras.Visible = False
  99.                         FormMenuUtama.TsTataUsaha.Visible = False
  100.                         FormMenuUtama.TsGuru.Visible = False
  101.                         '------------------------------------
  102.                         FormMenuUtama.TsProfile.Visible = True
  103.                         FormMenuUtama.TsTahunAjaran.Visible = True
  104.                         FormMenuUtama.TsMapel.Visible = True
  105.                         FormMenuUtama.TsDataGuru.Visible = True
  106.                         FormMenuUtama.TsDataSiswa.Visible = True
  107.                         FormMenuUtama.TsHakAkses.Visible = False
  108.                         FormMenuUtama.TsDatabase.Visible = False
  109.                         Me.Hide()
  110.                         FormMenuUtama.Show()
  111.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  112.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  113.                     ElseIf rd("v1").ToString = 1 And rd("v2").ToString = 1 And rd("v3").ToString = 1 And rd("v4").ToString = 1 And rd("v5").ToString = 1 And rd("v6").ToString = 1 And rd("v7").ToString = 0 Then
  114.                         FormMenuUtama.TsOperator.Visible = True
  115.                         FormMenuUtama.TsBendahara.Visible = False
  116.                         FormMenuUtama.TsSarpras.Visible = False
  117.                         FormMenuUtama.TsTataUsaha.Visible = False
  118.                         FormMenuUtama.TsGuru.Visible = False
  119.                         '------------------------------------
  120.                         FormMenuUtama.TsProfile.Visible = True
  121.                         FormMenuUtama.TsTahunAjaran.Visible = True
  122.                         FormMenuUtama.TsMapel.Visible = True
  123.                         FormMenuUtama.TsDataGuru.Visible = True
  124.                         FormMenuUtama.TsDataSiswa.Visible = True
  125.                         FormMenuUtama.TsHakAkses.Visible = True
  126.                         FormMenuUtama.TsDatabase.Visible = False
  127.                         Me.Hide()
  128.                         FormMenuUtama.Show()
  129.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  130.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  131.                     ElseIf rd("v1").ToString = 1 And rd("v2").ToString = 1 And rd("v3").ToString = 1 And rd("v4").ToString = 1 And rd("v5").ToString = 1 And rd("v6").ToString = 1 And rd("v7").ToString = 1 Then
  132.                         FormMenuUtama.TsOperator.Visible = True
  133.                         FormMenuUtama.TsBendahara.Visible = False
  134.                         FormMenuUtama.TsSarpras.Visible = False
  135.                         FormMenuUtama.TsTataUsaha.Visible = False
  136.                         FormMenuUtama.TsGuru.Visible = False
  137.                         '------------------------------------
  138.                         FormMenuUtama.TsProfile.Visible = True
  139.                         FormMenuUtama.TsTahunAjaran.Visible = True
  140.                         FormMenuUtama.TsMapel.Visible = True
  141.                         FormMenuUtama.TsDataGuru.Visible = True
  142.                         FormMenuUtama.TsDataSiswa.Visible = True
  143.                         FormMenuUtama.TsHakAkses.Visible = True
  144.                         FormMenuUtama.TsDatabase.Visible = True
  145.                         Me.Hide()
  146.                         FormMenuUtama.Show()
  147.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  148.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  149.                     ElseIf rd("v1").ToString = 0 And rd("v2").ToString = 1 And rd("v3").ToString = 1 And rd("v4").ToString = 1 And rd("v5").ToString = 1 And rd("v6").ToString = 1 And rd("v7").ToString = 1 Then
  150.                         FormMenuUtama.TsOperator.Visible = True
  151.                         FormMenuUtama.TsBendahara.Visible = False
  152.                         FormMenuUtama.TsSarpras.Visible = False
  153.                         FormMenuUtama.TsTataUsaha.Visible = False
  154.                         FormMenuUtama.TsGuru.Visible = False
  155.                         '------------------------------------
  156.                         FormMenuUtama.TsProfile.Visible = False
  157.                         FormMenuUtama.TsTahunAjaran.Visible = True
  158.                         FormMenuUtama.TsMapel.Visible = True
  159.                         FormMenuUtama.TsDataGuru.Visible = True
  160.                         FormMenuUtama.TsDataSiswa.Visible = True
  161.                         FormMenuUtama.TsHakAkses.Visible = True
  162.                         FormMenuUtama.TsDatabase.Visible = True
  163.                         Me.Hide()
  164.                         FormMenuUtama.Show()
  165.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  166.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  167.                     ElseIf rd("v1").ToString = 0 And rd("v2").ToString = 0 And rd("v3").ToString = 1 And rd("v4").ToString = 1 And rd("v5").ToString = 1 And rd("v6").ToString = 1 And rd("v7").ToString = 1 Then
  168.                         FormMenuUtama.TsOperator.Visible = True
  169.                         FormMenuUtama.TsBendahara.Visible = False
  170.                         FormMenuUtama.TsSarpras.Visible = False
  171.                         FormMenuUtama.TsTataUsaha.Visible = False
  172.                         FormMenuUtama.TsGuru.Visible = False
  173.                         '------------------------------------
  174.                         FormMenuUtama.TsProfile.Visible = False
  175.                         FormMenuUtama.TsTahunAjaran.Visible = False
  176.                         FormMenuUtama.TsMapel.Visible = True
  177.                         FormMenuUtama.TsDataGuru.Visible = True
  178.                         FormMenuUtama.TsDataSiswa.Visible = True
  179.                         FormMenuUtama.TsHakAkses.Visible = True
  180.                         FormMenuUtama.TsDatabase.Visible = True
  181.                         Me.Hide()
  182.                         FormMenuUtama.Show()
  183.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  184.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  185.                     ElseIf rd("v1").ToString = 0 And rd("v2").ToString = 0 And rd("v3").ToString = 0 And rd("v4").ToString = 1 And rd("v5").ToString = 1 And rd("v6").ToString = 1 And rd("v7").ToString = 1 Then
  186.                         FormMenuUtama.TsOperator.Visible = True
  187.                         FormMenuUtama.TsBendahara.Visible = False
  188.                         FormMenuUtama.TsSarpras.Visible = False
  189.                         FormMenuUtama.TsTataUsaha.Visible = False
  190.                         FormMenuUtama.TsGuru.Visible = False
  191.                         '------------------------------------
  192.                         FormMenuUtama.TsProfile.Visible = False
  193.                         FormMenuUtama.TsTahunAjaran.Visible = False
  194.                         FormMenuUtama.TsMapel.Visible = False
  195.                         FormMenuUtama.TsDataGuru.Visible = True
  196.                         FormMenuUtama.TsDataSiswa.Visible = True
  197.                         FormMenuUtama.TsHakAkses.Visible = True
  198.                         FormMenuUtama.TsDatabase.Visible = True
  199.                         Me.Hide()
  200.                         FormMenuUtama.Show()
  201.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  202.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  203.                     ElseIf rd("v1").ToString = 0 And rd("v2").ToString = 0 And rd("v3").ToString = 0 And rd("v4").ToString = 0 And rd("v5").ToString = 1 And rd("v6").ToString = 1 And rd("v7").ToString = 1 Then
  204.                         FormMenuUtama.TsOperator.Visible = True
  205.                         FormMenuUtama.TsBendahara.Visible = False
  206.                         FormMenuUtama.TsSarpras.Visible = False
  207.                         FormMenuUtama.TsTataUsaha.Visible = False
  208.                         FormMenuUtama.TsGuru.Visible = False
  209.                         '------------------------------------
  210.                         FormMenuUtama.TsProfile.Visible = False
  211.                         FormMenuUtama.TsTahunAjaran.Visible = False
  212.                         FormMenuUtama.TsMapel.Visible = False
  213.                         FormMenuUtama.TsDataGuru.Visible = False
  214.                         FormMenuUtama.TsDataSiswa.Visible = True
  215.                         FormMenuUtama.TsHakAkses.Visible = True
  216.                         FormMenuUtama.TsDatabase.Visible = True
  217.                         Me.Hide()
  218.                         FormMenuUtama.Show()
  219.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  220.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  221.                     ElseIf rd("v1").ToString = 0 And rd("v2").ToString = 0 And rd("v3").ToString = 0 And rd("v4").ToString = 0 And rd("v5").ToString = 0 And rd("v6").ToString = 1 And rd("v7").ToString = 1 Then
  222.                         FormMenuUtama.TsOperator.Visible = True
  223.                         FormMenuUtama.TsBendahara.Visible = False
  224.                         FormMenuUtama.TsSarpras.Visible = False
  225.                         FormMenuUtama.TsTataUsaha.Visible = False
  226.                         FormMenuUtama.TsGuru.Visible = False
  227.                         '------------------------------------
  228.                         FormMenuUtama.TsProfile.Visible = False
  229.                         FormMenuUtama.TsTahunAjaran.Visible = False
  230.                         FormMenuUtama.TsMapel.Visible = False
  231.                         FormMenuUtama.TsDataGuru.Visible = False
  232.                         FormMenuUtama.TsDataSiswa.Visible = False
  233.                         FormMenuUtama.TsHakAkses.Visible = True
  234.                         FormMenuUtama.TsDatabase.Visible = True
  235.                         Me.Hide()
  236.                         FormMenuUtama.Show()
  237.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  238.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  239.                     ElseIf rd("v1").ToString = 0 And rd("v2").ToString = 0 And rd("v3").ToString = 0 And rd("v4").ToString = 0 And rd("v5").ToString = 0 And rd("v6").ToString = 0 And rd("v7").ToString = 1 Then
  240.                         FormMenuUtama.TsOperator.Visible = True
  241.                         FormMenuUtama.TsBendahara.Visible = False
  242.                         FormMenuUtama.TsSarpras.Visible = False
  243.                         FormMenuUtama.TsTataUsaha.Visible = False
  244.                         FormMenuUtama.TsGuru.Visible = False
  245.                         '------------------------------------
  246.                         FormMenuUtama.TsProfile.Visible = False
  247.                         FormMenuUtama.TsTahunAjaran.Visible = False
  248.                         FormMenuUtama.TsMapel.Visible = False
  249.                         FormMenuUtama.TsDataGuru.Visible = False
  250.                         FormMenuUtama.TsDataSiswa.Visible = False
  251.                         FormMenuUtama.TsHakAkses.Visible = False
  252.                         FormMenuUtama.TsDatabase.Visible = True
  253.                         Me.Hide()
  254.                         FormMenuUtama.Show()
  255.                         FormMenuUtama.TsNamaUser.Text = Txtusername.Text
  256.                         FormMenuUtama.TsIdUser.Text = rd("nip").ToString
  257.                     End If
  258.                 Else
  259.                     salah += 1
  260.                     MsgBox("Username atau Password salah !!!")
  261.                     If salah >= 3 Then
  262.                         End
  263.                         Exit Sub
  264.                     End If
  265.                 End If
  266.                 conn.Close()
  267.             End If
  268.             Infokoneksi()
  269.         Catch ex As Exception
  270.             MsgBox(ex.ToString)
  271.         End Try
  272.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!