Skip to main content

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
Labels:

Comments

Post a Comment

Popular posts from this blog

Menambahkan Peraturan Komentar Pada Blog

Menambahkan Peraturan Komentar Pada Blog : Ngblog Menulis sebuah artikel dan dikomentari dengan link aktif/promosi produk dan kata kata spam lainnya memang tidak mengenakan anda mungkin akan sangat merasa kecewa sekali, anda mungkin seperti menulis sebuah artikel namun tidak dihargai karyanya oleh orang lain. Mungkin membuat aturan berkomentar di blog adalah salah 1 cara menetralisirnya, mungkin jika ada aturan tersebut orang berpikir 2 kali untuk meninggalkan komentar Spam, lalu bagaimana cara membuat aturan komentar tersebut? langsung saja kita praktekan Ikuti langkah berikut : Login ke bloger,masuk ke blog yang anda inginkan, Klik Setelan -> POS-KOMENTAR   Scroll kebawah dan cari menu "pesan formulir komentar" klik tambahkan , dan isi kolom sesuai keinginan kalian atau peraturan yang kalian inginkan.  Setelah selesai silakan klik simpan setelan dipojok kanan atas. Lihat hasilnya di blog kalian ,akan seperti ini : Jika ada pertanyaan...
21 comments
Baca Lebih »

TEKNOLOGI ADALAH

TEKNOLOGI ADALAH Pengertian Teknologi  Teknologi adalah berbagai macam keperluan serta sarana yang memiliki bentuk beraneka macam seperti peralatan atau sistem yang berfungsi untuk memberikan kenyamanan juga kemudahan bagi penggunanya. Teknologi berasal dari kata technologia yang berasal dari bahasa yunani. Techno artinya keahlian dan logia artinya pengetahuan.  Awal kemunculan kata teknologi bermakna terbatas pada benda- benda berwujud seperti peralatan-peralatan atau mesin. Dengan berjalannya waktu maka makna dari teknologi mengalami perubahan dan perluasan makna. Teknologi tidak terbatas pada benda berwujud, tetapi juga benda yang tidak berwujud. Misalnya perangkat lunak, sebuah mertode, metode pembelajaran, metode keuangan, dan lain sebagainya. Pengertian Teknologi Menurut Para Ahli Teknologi merupakan kegiatan pengembangan dan penerapan berbagai peralatan atau sistem untuk menyelesaikan masalah dan persoalan yang dihadapi manusia dalam kehidupan seha...
5 comments
Baca Lebih »

Kumpulan Script Jail Batch dan VBS

Kumpulan Script Jail Batch dan VBS Hallo pembaca fajaryusuf.com. Kali ini saya akan berbagi Kumpulan Script Jail Menggunakan Notepad. Script berikut hanya untuk jahil.. Untuk membuat script ini aktif yang Anda butuhkan adalah : 1. Notepad 2. PC/Laptop 3. Nah sekarang tinggal copy paste scriptnya ke notepad,, langsung saja dicoba : MESSAGES YG NONGOL TERUS MENERUS SECARA OTOMATIS @ECHO off :Begin msg * muka lo jelek msg * ngaca dulu gih msg * hayo lo,cpu lu gw acak2 msg * ud install ulang aja msg * biar masalah nya kelar GOTO BEGIN Save nama script diatas dg ekstensi *.bat BIKIN SHUTDOWN + MESSAGES @echo off msg * apaan sih lo shutdown -s -c "Error! muka mu standar abis" Save nama script diatas dg ekstensi *.bat MAININ CAPS LOCK BUTTON Set wshShell =wscript.CreateObject ("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" loop Save nama script diatas dg ekstensi *....
3 comments
Baca Lebih »