Tugas PKK
- Dapatkan link
- Aplikasi Lainnya
PROGRAM NAWASENA
kelompok 7
HAIKAL RAMADHAN
kelas XI-RPL
Pertama disini ada form untuk masuk ke form pendaftaran.
dan ini syntax nya :
Imports System.Data.SqlClient
Imports System.Windows
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
End Class
Lalu setelah dari form satu kalian langsung masuk ke pendaftaran, kemudian kalian bisa isi nama lengkap, user, dan password yang kalian inginkan.
seperti ini syntaxnya :
Imports System.Data.SqlClient
Imports System.Net.Http.Headers
Imports System.Windows
Imports System.Windows.Forms.DataFormats
Public Class Form2
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim con As SqlConnection = New SqlConnection("Data Source=LAPTOP-NTF5IRQF;Initial Catalog=NawasenaMarket;Integrated Security=True")
Dim cmd As SqlCommand = New SqlCommand("insert into TB_Registrasi values ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "')", con)
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
MessageBox.Show("Anda Berhasil Mendaftar, Silahkan Login Kembali", "information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form3.Show()
Me.Hide()
End Sub
End Class
Jika kalian sudah mendaftar kalian bisa login, lalu kalian masukan user dan password yang sudah kalian buat sebelumnya.
dan ini syntaxnya :
Imports Microsoft.VisualBasic.ApplicationServices
Public Class Form3
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
If con.State = ConnectionState.Open Then con.Close()
con.Open()
Dim sql As String = "select * from TB_Registrasi where User= '" & Trim(TextBox1.Text) & "'"
Dim cmd = New SqlClient.SqlCommand(sql, con)
Dim rdr As SqlClient.SqlDataReader = cmd.ExecuteReader()
If rdr.HasRows = False Then
MsgBox("Maaf, User Id Tidak Ditemukan!")
TextBox1.Focus()
End If
cmd.Dispose()
rdr.Close()
sql = "select * from TB_Registrasi where User = '" & Trim(TextBox1.Text) & "' And Password = '" & Trim(TextBox2.Text) & "'"
cmd = New SqlClient.SqlCommand(sql, con)
rdr = cmd.ExecuteReader()
If rdr.HasRows = False Then
MsgBox("Maaf, Sepertinya Password Anda Salah!")
TextBox2.Focus()
Exit Sub
Else
Form4.Show()
Me.Hide()
End If
con.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
Sebelumnya kalian harus menuliskan syntax untuk modulnya.
Imports System.Data.SqlClient
Module Module1
Dim Constr As String = "Data Source=LAPTOP-NTF5IRQF;Initial Catalog=NawasenaMarket;Integrated Security=True"
Public con As New SqlConnection(Constr)
End Module
- Dapatkan link
- Aplikasi Lainnya
Komentar
Posting Komentar