Scribd
Upload
38 views15 pages

Login and Data Management System

This document contains code for a listing program with multiple forms in Visual Basic. The code includes: 1) A login form that authenticates users against a database table and loads a main menu form if credentials are valid. 2) A main menu form that contains buttons to load additional forms for viewing phone data, transactions, and reports. 3) A phone data form with controls and code to display, add, edit, and delete phone records from a database table. 4) A transactions form with controls and code to generate transaction IDs, display item and transaction data, and add items to transactions.

Uploaded by

rikisamosir111
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
38 views15 pages

Login and Data Management System

This document contains code for a listing program with multiple forms in Visual Basic. The code includes: 1) A login form that authenticates users against a database table and loads a main menu form if credentials are valid. 2) A main menu form that contains buttons to load additional forms for viewing phone data, transactions, and reports. 3) A phone data form with controls and code to display, add, edit, and delete phone records from a database table. 4) A transactions form with controls and code to generate transaction IDs, display item and transaction data, and add items to transactions.

Uploaded by

rikisamosir111
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

LISTING PROGRAM

FORM LOGIN

Imports [Link]
Public Class frmLogin

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
Try
Using con As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("SELECT * FROM tblLogin WHERE username = '"
& [Link] & "' AND password = '" & [Link] & "'", con)
[Link]()
Using dr As OleDbDataReader = [Link]
If [Link] Then
bersih(Me, TextBox1)
[Link]()
[Link]()
Else
MsgBox("Cek Kembali Username dan Password Anda",
[Link])
bersih(Me, TextBox1)
End If
End Using
End Using
End Using
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Private Sub frmLogin_Load(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link]()
End Sub
End Class

FORM MENU UTAMA

Public Class frmUtama

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link] = Me
[Link]()
End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link] = Me
[Link]()
End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link] = Me
[Link]()
End Sub

Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link]()
End Sub

Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link]()
[Link]()
End Sub

Private Sub frmUtama_Load(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]

End Sub
End Class

FORM DATA HANDPHONE

Imports [Link]
Public Class frmHandphone

Private Sub frmHandphone_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
bersih(Me, TextBox1)
tampilData("SELECT * FROM tblHandphone", ListView1)

[Link] = False
[Link] = False

End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
If [Link] = "" Or [Link] = "" Then
MsgBox("Proses simpan tidak dapat dilakukan, Semua Field Data wajib diisi",
[Link])
Else
simpan("INSERT INTO tblHandphone VALUES('" & [Link] & "', '" &
[Link] & "')")
tampilData("SELECT * FROM tblHandphone", ListView1)
bersih(Me, TextBox1)
End If
End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
If MsgBox("Yakin Data Akan Diubah?", [Link], "Confirm") =
[Link] Then
ubah("UPDATE tblHandphone SET nmBarang='" & [Link] & "' WHERE
kdBarang='" & [Link] & "'")
tampilData("SELECT * FROM tblHandphone", ListView1)
[Link] = True
bersih(Me, TextBox1)
[Link] = True
[Link] = False
[Link] = False
Else
[Link] = True
bersih(Me, TextBox1)
[Link] = True
[Link] = False
[Link] = False
End If
End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
If MsgBox("Yakin Data Akan Dihapus?", [Link], "Confirm") =
[Link] Then
hapus("DELETE * FROM tblHandphone WHERE kdBarang = '" & [Link] & "'")
tampilData("SELECT * FROM tblHandphone", ListView1)
[Link] = True
bersih(Me, TextBox1)
[Link] = True
[Link] = False
[Link] = False
Else
[Link] = True
bersih(Me, TextBox1)
[Link] = True
[Link] = False
[Link] = False
End If
End Sub

Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As


[Link]) Handles [Link]
[Link] = [Link](0).Text
[Link] = [Link](0).SubItems(1).Text
[Link] = False
[Link]()

[Link] = False
[Link] = True
[Link] = True
End Sub

Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link] = True
bersih(Me, TextBox1)
[Link] = True
[Link] = False
[Link] = False
End Sub

Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link]()
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]

End Sub
End Class

FORM DATA TRANSAKSI

Imports [Link]
Public Class frmTransaksi
Dim no As Integer
Dim idTransaksi As String
Sub tampilDataItem()
Dim x As Integer = 0
Using con As New OleDbConnection(dburl)
Using cmd As New OleDbCommand("SELECT * FROM tblHandphone", con)
[Link]()
Using dr As OleDbDataReader = [Link]
[Link]()
While [Link]
With ListView1
.[Link](x + 1)
.Items(x).[Link](IIf(IsDBNull(dr(0)) = True, "-",
(dr(0))))
.Items(x).[Link](IIf(IsDBNull(dr(1)) = True, "-",
(dr(1))))
x += 1
End With
End While
End Using
End Using
End Using
End Sub
Sub autoID()
Try
Using conn As New OleDbConnection(dburl)
Using cmd As New OleDbCommand("SELECT MAX(kdTransaksi) as [nilMAX] FROM
tblTransaksi", conn)
[Link]()
Using dr As OleDbDataReader = [Link]
If [Link] Then
idTransaksi = dr("nilMAX")
no = Val([Link](3, 3))
no += 1
If no > 9 Then
[Link] = "TR-0" & no
ElseIf no > 99 Then
[Link] = "TR-" & no
Else
[Link] = "TR-00" & no
End If
End If
End Using
End Using
End Using
Catch ex As Exception
[Link] = "TR-001"
End Try
End Sub
Sub tampilDataTransaksi()
Try
Using con As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("Select DISTINCT kdTransaksi,tglTransaksi
from tblTransaksi", con)
[Link]()
Using dr As OleDbDataReader = [Link]
[Link]()
Dim x As Integer = 0
While [Link]
[Link](dr("kdTransaksi"))
[Link](x).[Link](dr(1))
Dim cmd1 As New OleDbCommand("SELECT * from QTransaksi WHERE
kdTransaksi='" & dr("kdTransaksi") & "'", con)
Dim dr1 As OleDbDataReader = [Link]
Dim transaksi As String
transaksi = ""
While [Link]
transaksi = transaksi & dr1("nmBarang") & ", "
End While
[Link](x).[Link](transaksi)
x += 1
End While
End Using
End Using
End Using
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub hilangkan_checklist()
For i = 0 To [Link] - 1
[Link](i).Checked = False
Next
End Sub
Private Sub frmTransaksi_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
tampilDataItem()
tampilDataTransaksi()
autoID()
[Link] = True
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
If [Link] = True Then
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
Else
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End If
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
If [Link] = True Then

End If
End Sub

Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As


[Link]) Handles [Link]
Dim kdBarang As String
kdBarang = [Link](0).SubItems(1).Text
If [Link] = 0 Then
Dim lv As New ListViewItem
[Link] = kdBarang
[Link]([Link](0).SubItems(2).Text)
[Link](lv)
Else
With ListView2
Dim itm As ListViewItem
itm = .FindItemWithText(kdBarang, False, 0, False)
If Not itm Is Nothing Then
MsgBox("Data Dengan Kode Produk " & kdBarang & " Sudah Dipilih")
Else
Dim lv As New ListViewItem
[Link] = kdBarang
[Link]([Link](0).SubItems(2).Text)
[Link](lv)
End If
End With
End If
[Link] = [Link]
End Sub
Private Sub ListView2_DoubleClick(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link](0).Remove()
[Link] = [Link]
End Sub
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Try
For i = 0 To [Link] - 1
Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("INSERT INTO tblTransaksi VALUES('" &
[Link] & "', '" & [Link] & "', '" &
[Link](i).SubItems(0).Text & "', '" & [Link](i).SubItems(1).Text &
"')", conn)
[Link]()
[Link]()
End Using
End Using
Next
Catch ex As Exception
MsgBox([Link])
Finally
MsgBox("Data Telah Disimpan")
tampilDataTransaksi()
[Link]()
autoID()
End Try
End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
Try
Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("DELETE FROM tblTransaksi WHERE kdTransaksi
= '" & [Link] & "'", conn)
[Link]()
[Link]()
End Using
End Using
For i = 0 To [Link] - 1
Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("INSERT INTO tblTransaksi VALUES('" &
[Link] & "', '" & [Link] & "', '" &
[Link](i).SubItems(0).Text & "', '" & [Link](i).SubItems(1).Text &
"')", conn)
[Link]()
[Link]()
End Using
End Using
Next
Catch ex As Exception
MsgBox([Link])
Finally
MsgBox("Data Telah Diubah")
tampilDataTransaksi()
[Link]()
autoID()
[Link]()
[Link] = True
[Link] = False
[Link] = False
End Try
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Try
If MsgBox("Anda Akan Menghapus Data Transaksi?", [Link],
"Konfirmasi") = [Link] Then
hapus("DELETE FROM tblTransaksi WHERE kdTransaksi='" & [Link] &
"'")
End If
[Link] = True
[Link] = False
[Link] = False
Catch ex As Exception
MsgBox([Link])
Finally
tampilDataTransaksi()
autoID()
[Link]()
[Link] = Today
End Try
End Sub

Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link]()
autoID()
[Link] = Today
End Sub

Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link]()
autoID()
[Link] = Today
End Sub
Private Sub ListView3_DoubleClick(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]

Try
Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("SELECT * FROM tblTransaksi WHERE
kdTransaksi = '" & [Link](0).Text & "'", conn)
[Link]()
Using dr As OleDbDataReader = [Link]
[Link]()
Dim x As Integer = 0
While [Link]
[Link] = dr(0)
[Link] = dr(1)
[Link](dr(2))
[Link](x).[Link](dr(3))
x += 1
End While
End Using
End Using
End Using
Catch ex As Exception
MsgBox([Link])
End Try
[Link] = False
[Link] = True
[Link] = True
End Sub

Private Sub ListView3_SelectedIndexChanged(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]

End Sub
End Class

FORM LAPORAN

Imports [Link]
Public Class frmProses
Private Function getJlhTransaksi()
Dim jlhPenjualan As Integer = 0
Try
Using con As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("SELECT COUNT(*) as [jlh] FROM (SELECT
DISTINCT kdTransaksi FROM tblTransaksi) ", con)
[Link]()
Using dr As OleDbDataReader = [Link]
If [Link] Then
jlhPenjualan = dr("jlh")
End If
End Using
End Using
End Using
Catch ex As Exception
MsgBox([Link])
End Try
Return jlhPenjualan
End Function

Sub oneItemset()
Dim no As Integer = 0
Using con As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("Select * from tblHandphone", con)
[Link]()
Using dr As OleDbDataReader = [Link]
[Link]()
While [Link]
no += 1
Dim lv = [Link](no)
[Link](dr(0))
[Link](dr(1))
Dim cmd1 As New OleDbCommand("Select count(kdBarang) as jlh from
tblTransaksi where kdBarang='" & dr("kdBarang") & "'", con)
Dim dr1 As OleDbDataReader = [Link]()
[Link]()
[Link](dr1("jlh"))
Dim nilSupport As Double
nilSupport = FormatNumber(dr1("jlh") / getJlhTransaksi() * 100,
0)
[Link](nilSupport)
End While
End Using
End Using
End Using
End Sub
Private Sub frmProses_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
oneItemset()
End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
If [Link] = 0 And [Link] = 0 Then
MsgBox("Tentukan Min. Support dan [Link] Terlebih Dahulu",
[Link], "Warning")
Else
[Link] = "PROSES FP-Growth | Sedang Berjalan..."

[Link]()
[Link]()
[Link]()

Dim no As Integer = 1
[Link] = [Link]
For i = 0 To [Link] - 1
If Val([Link](i).SubItems(4).Text) >= [Link] Then
Dim lv = [Link]([Link](i).SubItems(4).Text)
With lv
.[Link](no)
.[Link]([Link](i).SubItems(1).Text)
.[Link]([Link](i).SubItems(2).Text)
.[Link]([Link](i).SubItems(3).Text)
.[Link]([Link](i).SubItems(4).Text)
End With
End If
Next
For i = 0 To [Link] - 1
[Link](i).SubItems(1).Text = no
no += 1
Next

Dim jlhDataMemenuhiSupport As Integer = [Link] - 1


For i = jlhDataMemenuhiSupport To 0 Step -1
For j = 0 To jlhDataMemenuhiSupport

Dim kdBarang As String = [Link](i).SubItems(2).Text


Dim kdBarang1 As String = [Link](j).SubItems(2).Text
Dim support1 As Integer = Val([Link](j).SubItems(4).Text)
If kdBarang = kdBarang1 Then
Else
Dim cek1, cek2 As Boolean
Dim freq2Item As Integer = 0
Dim support2 As Double
Try
Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("SELECT DISTINCT
kdTransaksi FROM tblTransaksi", conn)
[Link]()
Using dr As OleDbDataReader = [Link]
While [Link]
cek1 = False
cek2 = False
Using cmd1 As New OleDbCommand("SELECT * FROM
tblTransaksi WHERE kdTransaksi = '" & dr("kdTransaksi") & "' and kdBarang = '" & kdBarang
& "'", conn)
Using dr1 As OleDbDataReader =
[Link]
While [Link]
cek1 = True
End While
End Using
End Using
Using cmd2 As New OleDbCommand("SELECT * FROM
tblTransaksi WHERE kdTransaksi = '" & dr("kdTransaksi") & "' and kdBarang = '" &
kdBarang1 & "'", conn)
Using dr2 As OleDbDataReader =
[Link]
While [Link]
cek2 = True
End While
End Using
End Using

If cek1 = True And cek2 = True Then


cek1 = False
cek2 = False
freq2Item += 1
End If
End While
End Using
End Using

support2 = FormatNumber(freq2Item / getJlhTransaksi() *


100, 2)
Dim conf As Double
conf = FormatNumber(freq2Item / support1 * 100, 2)
If support2 >= Val([Link]) And conf >=
Val([Link]) Then
Dim lv =
[Link]([Link](j).SubItems(3).Text)
With lv

.[Link]([Link](j).SubItems(3).Text
)
.[Link]([Link](i).SubItems(3).Text
)
.[Link](freq2Item)
.[Link](support2)
.[Link](conf)
End With
'Else
' MsgBox("Tidak Ada Itemset yang memenuhi [Link]
dan Min. Confidence")

End If
End Using
Catch ex As Exception
MsgBox("error 2 " & [Link])
End Try
End If
Next
jlhDataMemenuhiSupport -= 1
Next

Dim no1 As Integer = 1


For i = 0 To [Link] - 1
[Link](i).SubItems(0).Text = no1
no1 += 1
Next
End If

For i = 0 To [Link] - 1
Dim teks1, teks2 As String
teks1 = [Link](i).SubItems(1).Text
teks2 = [Link](i).SubItems(2).Text
[Link]("Jika Konsumen Membeli " & teks1 & " maka akan membeli "
& teks2 & " Dengan Nilai Keyakinan sebesar " & [Link](i).SubItems(5).Text)
Next
[Link] = "PROSES FP-Growth | Selesai"
End Sub
Dim ID As Integer = 1
Sub simpanHasilProses()
Try

For i = 0 To [Link] - 1
Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("INSERT INTO tblHasil VALUES('" &
[Link](i).Text & "','" & [Link](i).SubItems(1).Text & "', '" & _
[Link](i).SubItems(2).Text &
"', '" & _
[Link](i).SubItems(3).Text &
"', '" & _
[Link](i).SubItems(4).Text &
"', '" & _
[Link](i).SubItems(5).Text &
"', '" & _
[Link](i).Text & "')", conn)
[Link]()
[Link]()
End Using
End Using
ID += 1
Next

Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
If [Link] = 0 Then
MsgBox("Proses Simpan tidak dapat dilakukan, Hasil Proses Kosong")
Else
Try
Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand("DELETE FROM tblHasil", conn)
[Link]()
[Link]()
End Using
End Using
Catch ex As Exception
MsgBox([Link])
Finally
simpanHasilProses()
MsgBox("Data Telah Disimpan")
End Try
End If
End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link]()
End Sub

Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link]()
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]

End Sub
End Class

FORM HASIL

Public Class frmLaporan

Private Sub frmLaporan_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
Try
Dim rptEng As New [Link]
Dim conInfo As New [Link]
Dim rptPath As String = [Link] & "\[Link]"

[Link](rptPath)

For counter As Integer = 0 To [Link] - 1


[Link](counter).ApplyLogOnInfo(conInfo)
Next
[Link] = ""
[Link] = rptEng
[Link]()
[Link]()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Private Sub CrystalReportViewer1_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]

End Sub
End Class

MODULE

Imports [Link]
Module Module1
Public DBURL As String = "Provider=[Link].4.0;Data Source=" &
[Link] & "\[Link]"

Public Sub tampilData(ByVal query As String, ByVal lv As ListView)


Dim no As Integer = 1
Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand(query, conn)
[Link]()
Using dr As OleDbDataReader = [Link]
[Link]()
While [Link]
Dim lv1 = [Link](no)
With lv1
For i = 0 To [Link] - 1
.[Link](IIf(IsDBNull(dr(i)) = True, "-", dr(i)))
Next
End With
no += 1
End While
End Using
End Using
End Using
End Sub

Public Sub simpan(ByVal query As String)


Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand(query, conn)
[Link]()
[Link]()
MsgBox("Data Telah Disimpan")
End Using
End Using
End Sub

Public Sub ubah(ByVal query As String)


Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand(query, conn)
[Link]()
[Link]()
MsgBox("Data Telah Diubah")
End Using
End Using
End Sub

Public Sub hapus(ByVal query As String)


Using conn As New OleDbConnection(DBURL)
Using cmd As New OleDbCommand(query, conn)
[Link]()
[Link]()
MsgBox("Data Telah Dihapus")
End Using
End Using
End Sub

Sub bersih(ByVal obj As Control, ByVal txt1 As Control)


For Each itm As Control In [Link]
If TypeOf itm Is TextBox Then
[Link] = ""
[Link] = True
End If
If TypeOf itm Is ComboBox Then
[Link] = "-PILIH-"
End If
Next
[Link]()
End Sub

End Module

You might also like