Langkah 1 . membuat form login . buat designnya seperti ini :
untuk formn login , kodingnya seperti ini :
Public Class frmlogin
Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Kumpulan\Tugas vb\Kelompok Kita\pendaftaran.accdb"
Dim kon As New OleDb.OleDbConnection(ConString)
Dim cmd As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
txtnama.Focus()
Dim nama As String = txtnama.Text.Trim
Dim password As String = txtpass.Text.Trim
Dim sql As String = "SELECT*FROM Login " & _
"WHERE UserName ='" & nama & "' AND " & _
"Password='" & password & "'"
kon.Open()
cmd.CommandText = sql
cmd.Connection = kon
dr = cmd.ExecuteReader
If dr.HasRows Then
While dr.Read
End While
Me.Hide()
MDIform.Show()
Else
MsgBox("Nama dan password anda salah , silahkan ulangi kembali", vbInformation, "Pesan")
txtnama.Clear()
txtpass.Clear()
txtnama.Focus()
End If
kon.Close()
End Sub
Private Sub txtpass_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpass.TextChanged
txtpass.Focus()
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
Dim kl As String
kl = MsgBox("Anda yakin ingin keluar dari aplikasi ? ", MsgBoxStyle.YesNo + vbQuestion, "Pesan")
If kl = vbYes Then
End
End If
End Sub
Private Sub frmlogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
ingat !!! harus ada accessnya terlebih dahulu ..
Langkah 2 . Membuat form MDI seperti ini :
Public Class Pendaftaran
Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Kelompok Kita\pendaftaran.accdb"
Dim kon As New OleDb.OleDbConnection(ConString)
Dim cmd As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
Dim SQL As String
Private Sub simpanuser()
'Dim nem = txtnem0.Text + txtnem00.Text
SQL = "INSERT INTO pendaftaran VALUES ('" & DateTimePicker1.Text.Trim & "','" _
& txtnomoriden.Text.Trim & "','" _
& txtnamalengkap.Text.Trim & "','" _
& cmbjenis.SelectedItem & "','" _
& cmdagama.SelectedItem & "','" _
& txtasalsekolah.Text & "','" _
& cmdjurusan.SelectedItem & "','" _
& txtnem0.Text.Trim & "," & txtnem00.Text.Trim & "','" _
& txtalamat.Text.Trim & "','" _
& txtemail.Text.Trim & "','" _
& txttlp.Text.Trim & "','" _
& cmbgel.SelectedItem & "','" _
& cmdprogram.SelectedItem & "','" _
& lblbiaya1.Text & "','" _
& txtnamortu.Text.Trim & "','" _
& txttlportu.Text.Trim & "','" _
& txtpekerjaan.Text.Trim & "')"
'MsgBox(SQL)
'Return
Try
kon.Open()
cmd.CommandText = SQL
cmd.Connection = kon
cmd.ExecuteNonQuery()
kon.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
MsgBox("Data anda sudah disimpan ", vbInformation, "pesan")
Call bersih()
End Sub
Private Sub bersih()
txtnamalengkap.Clear()
txtnomoriden.Clear()
txtalamat.Clear()
txtasalsekolah.Clear()
txtpekerjaan.Clear()
txttlp.Clear()
txtnamortu.Clear()
txttlportu.Clear()
txtemail.Clear()
txtnem0.Clear()
txtnem00.Clear()
cmdprogram.ResetText()
cmdjurusan.ResetText()
cmdagama.ResetText()
cmbjenis.ResetText()
cmbgel.ResetText()
DateTimePicker1.ResetText()
lblbiaya1.Text = ""
End Sub
Private Sub btndaftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndaftar.Click
Call simpanuser()
End Sub
Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
MDIform.Show()
End Sub
Private Sub isidata()
Select Case cmbgel.Text
Case "Gelombang 1"
Select Case cmdprogram.Text
Case "Beasiswa"
lblbiaya1.Text = "1725000"
Case "Regular Pagi"
lblbiaya1.Text = "3600000"
Case "Regular Sore"
lblbiaya1.Text = "38500000"
End Select
Case "Gelombang 2"
Select Case cmdprogram.Text
Case "Beasiswa"
lblbiaya1.Text = "2000000"
Case "Regular Pagi"
lblbiaya1.Text = "3750000"
Case "Regular Sore"
lblbiaya1.Text = "4000000"
End Select
End Select
End Sub
Private Sub cmbgel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbgel.SelectedIndexChanged
Call isidata()
End Sub
Private Sub cmdprogram_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprogram.SelectedIndexChanged
Call isidata()
End Sub
Private Sub lblbiaya1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblbiaya1.Click
Call isidata()
End Sub
Private Sub Pendaftaran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
ingat !! harus udah ada databasenya
Langkah 4 :Buat form Pemabayaran
ketikan koding ini
Public Class Pembayaran
Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Kelompok Kita\pendaftaran.accdb"
Dim kon As New OleDb.OleDbConnection(ConString)
Dim cmd As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
Dim SQL As String
Private Sub simpan2()
SQL = "INSERT INTO PembayaranDetail VALUES ('" & Txtid.Text.Trim & "','" _
& lblbiaya.Text.Trim & "','" _
& cmdpembke.SelectedItem & "','" _
& txtbayar.Text.Trim & "','" _
& Labelsisa.Text.Trim & "')"
'MsgBox(SQL)
' Return
Try
kon.Open()
cmd.CommandText = SQL
cmd.Connection = kon
cmd.ExecuteNonQuery()
kon.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
MsgBox("Pembayaran anda sudah disimpan ", vbInformation, "pesan")
Call bersih()
Call bersih()
End Sub
Private Sub simpanuser()
'Dim nem = txtnem0.Text + txtnem00.Text
SQL = "INSERT INTO Pembayaran VALUES ('" & idpmbyrn.Text.Trim & "','" _
& txtnoidd.Text.Trim & "','" _
& lblnama.Text.Trim & "','" _
& cmbgel.Text.Trim & "','" _
& cmprog.Text.Trim & "','" _
& labelbiaya.Text.Trim & "','" _
& txtbayar.Text.Trim & "','" _
& Labelsisa.Text.Trim & "')"
'MsgBox(SQL)
' Return
Try
kon.Open()
cmd.CommandText = SQL
cmd.Connection = kon
cmd.ExecuteNonQuery()
kon.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
MsgBox("Pembayaran anda sudah disimpan ", vbInformation, "pesan")
Call bersih()
End Sub
Private Sub bersih()
idpmbyrn.Text = ""
lblnama.Text = ""
txtnoidd.Clear()
txtbayar.Text = ""
cmbgel.ResetText()
cmprog.ResetText()
TextBox1.Text = ""
labelbiaya.Text = ""
lblsisa.Text = ""
Txtid.Text = ""
lblbiaya.Text = ""
cmdpembke.ResetText()
txtbayar.Text = ""
Labelsisa.Text = ""
End Sub
Private Sub Btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnclear.Click
Call bersih()
lblbiaya.Text = ""
Txtid.Clear()
txtbayar.Text = ""
cmdpembke.SelectedIndex = 0
lblsisa.Text = ""
TextBox1.Text = ""
End Sub
Private Sub Btncetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncetak.Click
If MsgBox("apakah transaksi pembayaran sudah benar ?", vbYesNo, "KONFIRMASI") = MsgBoxResult.Yes Then
Kwitansi.Show()
Kwitansi.lbltelahditerima.Text = " " & lblnama.Text & " "
Kwitansi.lblprogram.Text = "" & labelbiaya.Text & ""
Kwitansi.lblgelombang.Text = "" & cmbgel.Text & ""
Kwitansi.lblbayar.Text = " Rp " & txtbayar.Text
Kwitansi.lblsisa.Text = " Rp " & Labelsisa.Text
Kwitansi.lbltanggal.Text = Date.Now.ToString("BOGOR, dd/MM/yyyy")
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print(Kwitansi, PowerPacks.Printing.PrintForm.PrintOption.FullWindow)
End If
End Sub
Private Sub btnenter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenter.Click
Dim no As String = txtnoidd.Text
Dim sql As String = "SELECT * FROM pendaftaran " & "WHERE Nomor_Identitas = '" & txtnoidd.Text & "'"
kon.Open()
cmd.CommandText = sql
cmd.Connection = kon
dr = cmd.ExecuteReader
Dim nama As String = Nothing
Dim nom As String = Nothing
Dim gel As String = Nothing
Dim prog As String = Nothing
Dim biaya As String = Nothing
If dr.HasRows Then
While dr.Read
nama = dr.Item("Nama_Lengkap").ToString.Trim
nom = dr.Item("Nomor_Identitas").ToString
gel = dr.Item("Gelombang").ToString
prog = dr.Item("Program").ToString
biaya = dr.Item("biaya").ToString
End While
txtnoidd.Text = "" & no
lblnama.Text = "" & nama
cmbgel.Text = "" & gel
cmprog.Text = "" & prog
labelbiaya.Text = "" & biaya
Else
MsgBox("Anda belum terdaftar")
txtnoidd.Clear()
End If
kon.Close()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call simpanuser()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
On Error Resume Next
lblsisa.Text = CDbl(labelbiaya.Text) - CDbl(TextBox1.Text)
End Sub
Private Sub Btnenter2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenter2.Click
Dim no As String = txtnoidd.Text
Dim sql As String = "SELECT * FROM Pembayaran " & "WHERE idPembayaran = '" & Txtid.Text & "'"
kon.Open()
cmd.CommandText = sql
cmd.Connection = kon
dr = cmd.ExecuteReader
Dim biaya As String = Nothing
Dim nom As String = Nothing
If dr.HasRows Then
While dr.Read
biaya = dr.Item("biaya").ToString.Trim
nom = dr.Item("idPembayaran").ToString
End While
Txtid.Text = "" & no
lblbiaya.Text = "" & biaya
Else
MsgBox("Anda belum membayar")
txtnoidd.Clear()
End If
kon.Close()
End Sub
Private Sub txtbayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbayar.TextChanged
On Error Resume Next
Labelsisa.Text = CDbl(lblbiaya.Text) - CDbl(txtbayar.Text)
End Sub
Private Sub Labelsisa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Labelsisa.Click
End Sub
Private Sub btncetak2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncetak2.Click
If MsgBox("apakah transaksi pembayaran sudah benar ?", vbYesNo, "KONFIRMASI") = MsgBoxResult.Yes Then
Kwitansi.Show()
Kwitansi.lbltelahditerima.Text = " " & lblnama.Text & " "
Kwitansi.lblprogram.Text = "" & labelbiaya.Text & ""
Kwitansi.lblgelombang.Text = "" & cmbgel.Text & ""
Kwitansi.lblbayar.Text = " Rp " & txtbayar.Text
Kwitansi.lblsisa.Text = " Rp " & Labelsisa.Text
Kwitansi.lbltanggal.Text = Date.Now.ToString("BOGOR, dd/MM/yyyy")
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print(Kwitansi, PowerPacks.Printing.PrintForm.PrintOption.FullWindow)
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Call bersih()
End Sub
Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
MDIform.Show()
End Sub
Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
End Sub
End Class
Langkah 5 : membuat kwitansi
Module Module1
Public constring As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Kumpulan\Tugas vb\Kelompok Kita\pendaftaran.accdb"
Public conn As New OleDb.OleDbConnection(constring)
Public cmd As New OleDb.OleDbCommand
Public rd As OleDb.OleDbDataReader
langkah 7 : Membuat form Laporan
Imports System.IO
Public Class laporan
Private Sub generatehHTML()
Cursor = Cursors.WaitCursor
Dim pathFile As String = Application.StartupPath & "\laporan.html"
Dim HTMLstr As String = "<html>" &
"<head></head>" & _
"<body>" & _
"Daftar Mahasiswa Baru" & _
"<table border='1'>" & _
"<tr>" & _
"<td>No </td>" & _
"<td>No Indentitas</td>" & _
"<td>Nama Lengkap</td>" & _
"<td>Jenis kelamin </td>" & _
"<td>Agama </td>" & _
"<td>Asal Sekolah </td>" & _
"<td>Jurusan SMU </td>" & _
"<td>Rata-Rata NEM</td>" & _
"<td>Alamat</td>" & _
"<td>Email </td>" & _
"<td>Telpn</td>" &
"<td>Program </td>" & _
"<td>Nama Orangtua</td>" & _
"<td>Telpon Orangtua</td>" & _
"<td>Pekerjaan</td>" & _
"</tr>"
conn.Open()
Dim strSQL As String = "SELECT * FROM pendaftaran "
If Cmbfile.SelectedIndex = 1 Then
Select Case cmbkrieteria.SelectedIndex
Case 0
strSQL = strSQL & "WHERE Asal_Sekolah ='" & Txtnilai.Text & "'"
Case 1
strSQL = strSQL & "WHERE Program = '" & Txtnilai.Text & "'"
Case 2
strSQL = strSQL & "WHERE Jurusan_SMU = '" & Txtnilai.Text & "'"
End Select
End If
'strSQL = strSQL & "ORDER BY Asal_Sekolah DESC"
cmd.CommandText = strSQL
cmd.Connection = conn
rd = cmd.ExecuteReader
Dim no As Integer = 1
If rd.HasRows Then
While rd.Read
HTMLstr = HTMLstr & "<tr>" & _
"<td>" & no & "</td>" & _
"<td>" & rd.Item(0) & "</td>" & _
"<td>" & rd.Item(1) & "</td>" & _
"<td>" & rd.Item(2) & "</td>" & _
"<td>" & rd.Item(3) & "</td>" & _
"<td>" & rd.Item(4) & "</td>" & _
"<td>" & rd.Item(5) & "</td>" & _
"<td>" & rd.Item(6) & "</td>" & _
"<td>" & rd.Item(7) & "</td>" & _
"<td>" & rd.Item(8) & "</td>" & _
"<td>" & rd.Item(9) & "</td>" &
"<td>" & rd.Item(10) & "</td>" & _
"<td>" & rd.Item(11) & "</td>" & _
"<td>" & rd.Item(12) & "</td>" & _
"<td>" & rd.Item(13) & "</td>" & _
"</tr>"
no += 1
End While
End If
conn.Close()
HTMLstr = HTMLstr & "</table>" & _
"</body>" & _
"</html>"
File.WriteAllText(pathFile, HTMLstr)
Cursor = Cursors.Default
End Sub
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
Dim namaFile As String = Application.StartupPath & "\laporan.html"
Call generatehHTML()
WebBrowser1.Navigate(namaFile)
End Sub
Private Sub laporan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Selesaiiiiiiii . Aplikasi penerimaan mahasiswa baru selesai , meskipun sangat sederaha hehe , masih tahap pembelajaran :)
Tidak ada komentar:
Posting Komentar