MEMBUAT FORM USER (ARDIANSYAH AR MUCHTAR 1504411193 TI 4F) смотреть онлайн

Video ini dibuat tanpa opening dan closing (failed)
(Mohon maaf yang sebesar-besarnya) dikarekan kesalahan teknis pada laptop yang digunakan .

Skrip :
allo guys ... Berikut adalah script program login user visual studio 2012 menggunakan sql server.
Sql Server : Imports System.Data.SqlClient
Access : Imports System.Data.OleDb
2) Sub Kosongkan
Sub kosongkan()
TextBox1.Clear()
TextBox2.Clear()
ComboBox1.Text = ""
TextBox3.Clear()
TextBox6.Clear()
TextBox1.Focus()
End Sub
3) Sub DataBaru
Sub databaru()
TextBox2.Clear()
ComboBox1.Text = ""
TextBox3.Clear()
TextBox4.Clear()
TextBox2.Focus()
End Sub
4) Sub Ketemu
Sub ketemu()
On Error Resume Next
TextBox2.Text = DR.Item("nm_User")
ComboBox1.Text = DR.Item(2)
TextBox3.Text = DR.Item(3)
TextBox2.Focus()
End Sub
5) Sub TampilStatus_user
Sql Server
Sub TampilStatus_user()
CMD = New SqlCommand("select distinct Status_user from tblUser", CONN)
DR = CMD.ExecuteReader
ComboBox1.Items.Clear()
Do While DR.Read
ComboBox1.Items.Add(DR.Item("Status_user"))
Loop
End Sub
Access
Sub TampilStatus_user()
CMD = New OleDbCommand("select distinct Status_user from tblUser", CONN)
DR = CMD.ExecuteReader
ComboBox1.Items.Clear()
Do While DR.Read
ComboBox1.Items.Add(DR.Item("Status_user"))
Loop
End Sub
6) Sub TampilGrid
Sql Server
Sub TampilGrid()
DA = New SqlDataAdapter("select * from tblUser", CONN)
DS = New DataSet
DA.Fill(DS)
DGV.DataSource = DS.Tables(0)
DGV.ReadOnly = True
End Sub
Access
Sub TampilGrid()
DA = New OleDbDataAdapter("select * from tblUser", CONN)
DS = New DataSet
DA.Fill(DS)
DGV.DataSource = DS.Tables(0)
DGV.ReadOnly = True
End Sub
UNCP - UNIVERSITAS COKROAMINOTO PALOPO
Andryanto A, M.Kom Copyright @2017
7) Sub CariKode
Sql Server
Sub CariKode()
CMD = New SqlCommand("select * from tblUser where kd_User='" & TextBox1.Text &
"'", CONN)
DR = CMD.ExecuteReader
DR.Read()
End Sub
Access
Sub CariKode()
CMD = New OleDbCommand("select * from tblUser where kd_User='" & TextBox1.Text &
"'", CONN)
DR = CMD.ExecuteReader
DR.Read()
End Sub
8) User Event Load
Private Sub User_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call Koneksi()
Call kosongkan()
Call TampilStatus_user()
Call TampilGrid()
End Sub
9) TextBox1 Event KeyPress
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles
TextBox1.KeyPress
TextBox1.MaxLength = 3
If e.KeyChar = Chr(13) Then
Call CariKode()
If DR.HasRows Then
Call ketemu()
Else
Call databaru()
End If
End If
End Sub
10) Button1 (Simpan)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or
TextBox3.Text = "" Then
MsgBox("data belum lengakp")
Exit Sub
Else
Try
Call CariKode()
If Not DR.HasRows Then
Dim simpan As String = "insert into tblUser values('" & TextBox1.Text
& "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "')"
CMD = New OleDbCommand(simpan, CONN)
CMD.ExecuteNonQuery()
Else
Dim edit As String = "update tblUser set Nm_User='" & TextBox2.Text &
"',Status_user='" & ComboBox1.Text & "',Password_User='" & TextBox3.Text & "'where
Kd_User='" & TextBox1.Text & "'"
CMD = New OleDbCommand(edit, CONN)
CMD.ExecuteNonQuery()
End If
Call kosongkan()
Call TampilGrid()
Call TampilStatus_user()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
11) Button2 (Hapus)
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If TextBox1.Text = "" Then
MsgBox("kode harus diisi")
TextBox1.Focus()
Exit Sub
End If
Call CariKode()
If Not DR.HasRows Then
MsgBox("kode tidak terdaftar")
TextBox1.Focus()
Exit Sub
End If
If MessageBox.Show("Yakin akan di hapus....?", "", MessageBoxButtons.YesNo) =
Windows.Forms.DialogResult.Yes Then
Dim hapus As String = "delete * from tblUser where kd_User='" & TextBox1.Text
& "'"
CMD = New OleDbCommand(hapus, CONN)
CMD.ExecuteNonQuery()
Call kosongkan()
Call TampilGrid()
Call TampilStatus_user()
Else
Call kosongkan()
End If
End Sub
12) Button3 (Batal)
S
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Call kosongkan()
End Sub
13) Button4 (Tutup)
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.Close()
End Sub
14) TextBox4 Event TextChanged
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles
TextBox4.TextChanged
DA = New OleDbDataAdapter("select * from tblUser where nm_User like '%" &
TextBox4.Text & "%'", CONN)
DS = New DataSet
DA.Fill(DS)
DGV.DataSource = DS.Tables(0)
DGV.ReadOnly = True
End Sub
15) DataGridView Event CellMouseClick
Private Sub DGV_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs)
Handles DGV.CellMouseClick
On Error Resume Next
TextBox1.Text = DGV.Rows(e.RowIndex).Cells(0).Value
Call CariKode()
If DR.HasRows Then
Call ketemu()
End If
End Sub