Form Login
Imports [Link]
Public Class Form1
Dim cn As OleDbConnection
Dim da As OleDbDataAdapter
Dim cmd As OleDbCommand
Dim rd As OleDbDataReader
Dim reader As OleDbDataReader
Dim ds As DataSet
Dim Query As String
Sub koneksi()
cn = New OleDbConnection("Provider=[Link].12.0;Data Source=[Link]")
If [Link] = [Link] Then
[Link]()
End If
End Sub
Private Sub btncancel_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
End Sub
Private Sub Form1_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]
Call koneksi()
End Sub
Private Sub btnlogin_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Query = "Select * from Login Where Username='" & [Link] & "' AND Password='" & [Link]
& "'"
cmd = New OleDbCommand(Query, cn)
rd = [Link]
If [Link] Then
MsgBox("wellcome....")
[Link]()
Else
MsgBox("User atau Password Salah")
[Link] = ""
[Link] = ""
[Link]()
End If
End Sub
2. Form Loading
Public Class Form2
Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link](1)
[Link] = [Link] & ("%")
If [Link] = 100 Then
[Link]()
[Link]()
[Link]()
End If
End Sub
Private Sub Form2_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]
[Link]()
End Sub
End Class
3. Form Input (Copykan Dari Import sampai Dataset (No. 1))
Sub Kosong()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()
End Sub
Sub Tampil()
da = New OleDbDataAdapter("Select * from Biodata", cn)
ds = New DataSet
[Link](ds, "Biodata")
[Link] = [Link]("Biodata")
[Link] = True
End Sub
Sub Koneksi()
cn = New OleDbConnection("Provider=[Link].12.0;Data Source=[Link]")
If [Link] = [Link] Then
[Link]()
End If
End Sub
Private Sub Frminput_Load(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Call Koneksi()
Call Tampil()
Call Kosong()
End Sub
Private Sub btnbatal_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Kosong()
End Sub
Private Sub btnkeluar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link]()
End Sub
Private Sub btnsimpan_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Dim Query As String
Query = "Select * from biodata Where kode_barang='" & [Link] & "'"
cmd = New OleDbCommand(Query, cn)
rd = [Link]
If Not [Link] Then
cmd = New OleDbCommand("Insert into Biodata Values('" & [Link] & "','" & [Link]
& "','" & [Link] & "','" & [Link] & "' )", cn)
[Link]()
MsgBox("Data Tersimpan....")
Call Tampil()
Call Kosong()
Else
MsgBox("Data yang di isikan sudah ada")
Call Kosong()
End If
End Sub
End Class
4. Form edit (Copykan Dari Import Sampai Sub Koneksi (No.3))
Private Sub FrmEdit_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]
Call Koneksi()
Call Tampil()
Call Kosong()
End Sub
Private Sub DGV_CellContentClick(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim Cari As Integer = Nothing
Cari = [Link]
With DGV
[Link] = .Item(0, Cari).Value
[Link] = .Item(1, Cari).Value
[Link] = .Item(2, Cari).Value
[Link] = .Item(3, Cari).Value
[Link] = False
End With
[Link]()
End Sub
Private Sub btnbatal_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Kosong()
End Sub
Private Sub btnkeluar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link]()
End Sub
Private Sub btnubah_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
If [Link] = "" Then
MsgBox(" Jangan Dikosongkan")
Exit Sub
Else
Try
cmd = New OleDbCommand(" Update Biodata Set Nama='" & _txtnabar.Text & "' ,jumlah='" &
[Link] & "' ,satuan='" & [Link] & "' where kode_barang='" & _txtkobar.Text & "'", cn)
[Link]()
Call Tampil()
MsgBox("Data Berhasil Diubah")
Call Kosong()
Catch ex As Exception
MsgBox("Data gagal Diubah")
Call Kosong()
End Try
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
If [Link] = "" Then
MsgBox("Kode Barang Jangan Kosong")
Exit Sub
Else
If [Link]("Benar data DiHapus", "Pesan Hapus", [Link]) =
[Link] Then
cmd = New OleDbCommand("Delete * from Biodata where kode_barang='" & [Link] & "'",
cn)
[Link]()
Call Tampil()
Call Kosong()
Else : Call Kosong()
End If
End If
End Sub
End Class
Private Sub btncari_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
If [Link] = "Kode Barang" Then
Call Koneksi()
cmd = New OleDbCommand("Select * from Biodata where kode_barang like '%" &
[Link] & "%'", cn)
rd = [Link]
[Link]()
If [Link] Then
Call Koneksi()
da = New OleDbDataAdapter("Select * from Biodata where kode_barang like
'%" & [Link] & "%'", cn)
ds = New DataSet
[Link](ds, "Ketemu")
[Link] = [Link]("Ketemu")
[Link] = True
End If
End If
End Sub
End Class
