Coding Public Class Frmkontak
Uploaded by
mu13niCoding Public Class Frmkontak
Uploaded by
mu13niPublic Class frmkontak
Sub kosongkanform()
txtKode.Text = ""
txtNama.Text = ""
txtTelp.Text = ""
txtGmail.Text = ""
txtAlamat.text = ""
txtKode.Focus()
End Sub
Sub Matikanform()
txtKode.Enabled = False
txtNama.Enabled = False
cmbKelamin.Enabled = False
txtTelp.Enabled = False
txtGmail.Enabled = False
txtAlamat.Enabled = False
End Sub
Sub Hidupkanform()
txtKode.Enabled = True
txtNama.Enabled = True
cmbKelamin.Enabled = True
txtTelp.Enabled = True
txtGmail.Enabled = True
txtAlamat.Enabled = True
End Sub
Sub tampilkandata()
Call KoneksiDB()
DA = New OleDb.OleDbDataAdapter("select * from Kontak", CONN)
DS = New DataSet
DA.Fill(DS)
DGV.DataSource = DS.Tables(0)
DGV.ReadOnly = True
End Sub
Private Sub frmkontak_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call Matikanform()
Call tampilkandata()
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnKeluar.Click
Me.Close()
End Sub
Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnTambah.Click
Call Hidupkanform()
Call kosongkanform()
End Sub
Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnBatal.Click
Call Matikanform()
Call kosongkanform()
End Sub
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnSimpan.Click
If txtKode.Text = "" Or txtNama.Text = "" Or cmbKelamin.Text = "" Then
MsgBox("Data Belum Lengkap")
Exit Sub
Else
Call KoneksiDB()
CMD = New OleDb.OleDbCommand("select * from kontak where kode='" &
txtKode.Text & "'", CONN)
DR = CMD.ExecuteReader
DR.Read()
If Not DR.HasRows Then
Call KoneksiDB()
Dim simpan As String
simpan = "insert into kontak values('" & txtKode.Text & "', '" &
txtNama.Text & "','" & cmbKelamin.Text & "','" & txtTelp.Text & "','" &
txtGmail.Text & "','" & txtAlamat.Text & "') "
CMD = New OleDb.OleDbCommand(simpan, CONN)
CMD.ExecuteNonQuery()
MsgBox("InputBox Data Sukses")
Else
MsgBox("Kode teman Sudah ada")
End If
Call Matikanform()
Call kosongkanform()
Call tampilkandata()
End If
End Sub
Private Sub DGV_CellMouseClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DGV.CellMouseClick
On Error Resume Next
txtKode.Text = DGV.Rows(e.RowIndex).Cells(0).Value
txtNama.Text = DGV.Rows(e.RowIndex).Cells(1).Value
cmbKelamin.Text = DGV.Rows(e.RowIndex).Cells(2).Value
txtTelp.Text = DGV.Rows(e.RowIndex).Cells(3).Value
txtGmail.Text = DGV.Rows(e.RowIndex).Cells(4).Value
txtAlamat.Text = DGV.Rows(e.RowIndex).Cells(5).Value
Call Hidupkanform()
txtKode.Enabled = False
End Sub
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnEdit.Click
If txtKode.Text = "" Or txtNama.Text = "" Or cmbKelamin.Text = "" Then
MsgBox("Data Belum Lengkap")
Exit Sub
Else
Call KoneksiDB()
CMD = New OleDb.OleDbCommand("update kontak set nama_teman='" &
txtNama.Text & "',jenis_kelamin='" & cmbKelamin.Text & "',n0_telepon='" &
txtTelp.Text & "',gmail='" & txtGmail.Text & "',alamat_rumah='" & txtAlamat.Text
& "' where kode='" & txtKode.Text & "'", CONN)
CMD.ExecuteNonQuery()
MsgBox(" Update Data Sukses")
End If
Call Matikanform()
Call kosongkanform()
Call tampilkandata()
End Sub
End Class