ID_USER

 Sub USER_ID()


        Dim T As String
        Dim H As String
        Dim P As Integer
        Dim kode As String

        'membuat random password baru
        Randomize()
        P = Int(Rnd() * 10000)
        txtpass.Text = P
        'parameter mengambil 2 karakter username sebelah kiri
        T = txtusername.Text
        H = Strings.Left(T, 2) 'mengambil 2 karakter dari T

        Try
            conn.Open()
            'cari id user berdasarkan username
            sstr = "select id_user from tbl_user where left(id_user,2) ='" & strings.left(txtusername.Text,2) & "' order by id_user desc"
            cmd = New MySqlCommand(sstr, conn)
            rd = cmd.ExecuteReader
            rd.Read()
            If rd.HasRows Then
                'jika id user sudah ada di dalam database maka tambahkan 1 digit
                kode = Microsoft.VisualBasic.Right(rd.GetString(0), 2) + 1
                txtiduser.Text = H + "0" + kode
            Else
                'jika id user belum ada di database maka buat id baru
                txtiduser.Text = H + "01"
            End If
            'selanjutnya nanti beri notifikasi saat save data, jika ditemukan id ganda
                conn.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub