Membuat Menu dan Login
Pertama-tama buat Form baru pilih Project->Add windows form
Bagian startupposition pilih Center screen
Backgroundimage bisa dikasih gambar
Local Resource Pilih Import Kemudian Tentukan Nama File Image Yang Akan Dijadikan
Latarbelakang
Pastikan backgroundimagelayout Stretch
Jangan lupa ubah ismdicontainer menjadi TRUE
Pilih menu strip pada bagian toolbox
untuk membuat menu dan
submenu pada form
Desainlah seperti berikut :
Data->Program1, Program1
Transaksi_> Input1, Input2
Laporan->Cetak1, Cetak2
Selesai
Jika kita menginginkan menu utama tersebut langsung membesar memenuhi layar computer bisa
disetting properties sebagai berikut, windowstate->Maximized
Listing kode programnya
Public Class Form39
Private Sub
PROGRAM1ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles PROGRAM1ToolStripMenuItem.Click
Form1.MdiParent = Me
Form1.Show()
End Sub
Private Sub
PROGRAM2ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles PROGRAM2ToolStripMenuItem.Click
Form2.MdiParent = Me
Form2.Show()
End Sub
Private Sub
INPUT1ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles INPUT1ToolStripMenuItem.Click
Form36.MdiParent = Me
Form36.Show()
End Sub
Private Sub
INPUT2ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles INPUT2ToolStripMenuItem.Click
Form37.MdiParent = Me
Form37.Show()
End Sub
Private Sub
CETAK1ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles CETAK1ToolStripMenuItem.Click
Form38.MdiParent = Me
Form38.Show()
End Sub
Private Sub
CETAK2ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles CETAK2ToolStripMenuItem.Click
Form38.MdiParent = Me
Form38.Show()
End Sub
Private Sub
SELESAIToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles SELESAIToolStripMenuItem.Click
End
End Sub
End Class
Jika dijalankan hasilnya sebagai berikut :
Membuat Form LOGIN
Buka Database T3TABEL.MDB tambahkan Tabel Access bernama TPENGGUNA buatlah field
NAMAUSER Text 15
PASSWORD_ Text 15
Kemudian isikan record sebanyak 1 aja
NAMAUSER PASSWORD_
ADMIN 123
Kemudian kembali ke FORM buatlah FORM baru pada VBNET
Desainlah form seperti berikut:
Khusus Textbox2.text supaya saat diisikan tidak nampak abjad / angka hanya berupa karakter
disini bisa diubah di bagian properties textbox2.text Passwordchar dengan ? atau X
Kemudian ketikan listing kode program sebagai berikut :
Imports System.Data.OleDb
Public Class Form40
Public DBC As OleDbConnection
Public CMD As OleDbCommand
Public DA As OleDbDataAdapter
Public DR As OleDbDataReader
Public DS As New DataSet
Dim SQL As String
Public Sub OpenDB()
Dim LOKASI =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source =|
datadirectory|/T3TABEL.mdb"
DBC = New OleDbConnection(LOKASI)
If DBC.State = ConnectionState.Closed Then
DBC.Open()
End If
End Sub
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Close()
End Sub
Private Sub Form40_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Call OpenDB()
End Sub
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
If Not TextBox1.Text = "" And Not
TextBox2.Text = "" Then
SQL = "SELECT * FROM TPENGGUNA Where
NAMAUSER='" & TextBox1.Text & "' AND PASSWORD_='"
& TextBox2.Text & "'"
CMD = New OleDbCommand(SQL, DBC)
DR = CMD.ExecuteReader
DR.Read()
If DR.HasRows = True Then 'jika
ditemukan
Me.Hide()
Form39.Show() 'form menu utama
tampilkan
Else
MsgBox("nama user/password tidak
terdaftar", vbCritical, "salah")
End If
Else
MsgBox("masih ada isian kotak teks yag
kosong", vbCritical, "salah")
End If
End Sub
End Class
