Friday, June 17, 2016

VB : Transaksi One To One (Lanjutan Post Sebelumnya)

Transaksi One To One 

Setelah latihan membuat Form Barang dan Form Kasir, Selanjutnya adalah membuat Form Transaksi. Ada 2 Jenis transaksi yang pertama adalah transaksi One To One dan Transaksi One To Many. Untuk latihan form transaksi yang kita buat sekarang adalah One To One.

Struktur Tabel Transaksi
Buatlah sebuah form baru dengan format sebagai berikut
Name     : FTransaksi
Caption  : Form Transaksi

Properties koneksi
Untuk menambahkan objek yang digunakan untuk membuat Data Combo, caranya adalah :
1.ctrl+t
2.Ceklist->Microsoft DataList Control 6.0 (OLEDB) -> Klik OK

Listing programnya :

Sub nomor()
Dim Urutan As String
Dim Hitung As Integer
adotrans.Refresh
With adotrans.Recordset
If .RecordCount = 0 Then
Urutan = "TRS" & Format(Date, "YY") & Format(Date, "mm") & "001"
txtnotrans.Text = Urutan
Else
.MoveLast
Hitung = Val(Right(!notrans, 3)) + 1
Urutan = "TRS" & Format(Date, "YY") & Format(Date, "mm") & Right("000" & Hitung, 3)
txtnotrans.Text = Urutan
End If
End With
End Sub

Private Sub cmdadd_Click()
Call nomor
DBkdkasir.Enabled = True
DBkdbarang.Enabled = True
txtjumbel.Enabled = True
txtubay.Enabled = True
cmdadd.Enabled = False
cmdcancel.Enabled = True
cmdsave.Enabled = True
cmdexit.Enabled = False
End Sub
Sub aktif()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = 1
End If
Next x
DBkdkasir.Enabled = True
DBkdbarang.Enabled = True
End Sub
Sub nonaktif()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = 0
End If
Next x
DBkdkasir.Enabled = False
DBkdbarang.Enabled = False
End Sub

Sub bersih()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Text = ""
End If
Next x
DBkdkasir.Text = "Pilih Kode"
DBkdbarang.Text = "Pilih Kode"
End Sub
Sub kondisi_awal()
bersih
nonaktif
cmdadd.Enabled = True
cmdexit.Enabled = True
cmdsave.Enabled = False
cmdcancel.Enabled = False
End Sub

Private Sub cmdcancel_Click()
Call kondisi_awal
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdsave_Click()
With adotrans.Recordset
.AddNew
!notrans = txtnotrans.Text
!tgltrans = txttgl.Text
!kdbrg = DBkdbarang.Text
!kdkasir = DBkdkasir.Text
!total = txttobay.Text
!qty = txtjumbel.Text
.Update
End With
MsgBox "data tersimpan", vbInformation, "info"
kondisi_awal
End Sub

Private Sub DBkdbarang_Change()
adobarang.Recordset.Find "kdbrg='" & Me.DBkdbarang.Text & "'", , adSearchForward
If Not adobarang.Recordset.EOF Then
txtnmbrg.Text = adobarang.Recordset!nmbrg
txtharga.Text = adobarang.Recordset!harga
txtsatuan.Text = adobarang.Recordset!satuan
txtjumbel.SetFocus
End If
End Sub

Private Sub DBkdkasir_Change()
adokasir.Recordset.Find "kdkasir='" & Me.DBkdkasir.Text & "'", , adSearchForward
If Not adokasir.Recordset.EOF Then
txtnmkasir.Text = adokasir.Recordset!nmkasir
End If
End Sub

Private Sub Form_Load()
Call kondisi_awal
txttgl = Date
End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttobay = txtjumbel.Text
txtharga.Text
txtubay.SetFocus
End If
End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(txtubay.Text) < Val(txttobay.Text) Then
MsgBox "Uang Bayar Kurang", vbExclamation, "info"
txtubay.Text = ""
txtubay.SetFocus
Else
txtukem = txtubay.Text - txttobay.Text
txtubay.SetFocus
End If
End If
End Sub

Hasilnya akan seperti ini:












Jangan Lupa Like and Share...
Jika ada pertanyaan silakan berkomentar...
hormat saya FajarYusuf.com


Reviewer: FajarYusuf.Com
ItemReviewed: VB : Transaksi One To One (Lanjutan Post Sebelumnya)

Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.