VB : Transaksi One To One (Lanjutan Post Sebelumnya)
Transaksi One To One
Struktur Tabel Transaksi
Buatlah sebuah form baru dengan format sebagai berikut
Name : FTransaksi
Caption : Form Transaksi
Listing programnya :
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
MATERI VB6
Jika anda baru Belajar VB 6 silakan belajar dari materi pertama :
Materi ke-2 : Membuat Form
Materi ke-3 : Variabel dan Konstanta
Materi ke-4 : Operator
Materi ke-5 : Fungsi Operator
Materi ke-6 : Fungsi Standar Visual Basic
Materi ke-7 : Percabangan
Materi ke-8 : Percabangan Lanjutan
Materi ke-9 : Procedure dan Function
Materi ke-10 : Module
Materi ke-11 : Array
Materi ke-12 : Efek Form dan Control Componen
Materi ke-13 : Database Form Barang
Materi ke-14 : Database Form Kasir
Materi ke-15 : Transaksi One To One
Materi ke-16 : Laporan Dengan Data Report