Materi Visual Basic BSI BEKASI Transaksi One To One 1.1

Materi Visual Basic
BSI BEKASI

Transaksi One To One
1.1    Buatlah Rancangan Form dibawah ini??



Listing Programnya adalah :


Private Sub bersih()
tnofak.Text = ""
dbsup.Text = ""
tnama.Text = ""
dbbrg.Text = ""
tnabar.Text = ""
tharga.Text = ""
tstok.Text = ""
tjumbel.Text = ""
tbayar.Text = ""
tubay.Text = ""
tkembali.Text = ""

End Sub

Private Sub nonaktif()
tnofak.Enabled = False
dbsup.Enabled = False
tnama.Enabled = False
dbbrg.Enabled = False
tnabar.Enabled = False
tharga.Enabled = False
tstok.Enabled = False
tjumbel.Enabled = False
tbayar.Enabled = False
tubay.Enabled = False
tkembali.Enabled = False
tnofak.BackColor = &H8000000F
dbsup.BackColor = &H8000000F
tnama.BackColor = &H8000000F
dbbrg.BackColor = &H8000000F
tnabar.BackColor = &H8000000F
tharga.BackColor = &H8000000F
tstok.BackColor = &H8000000F
tjumbel.BackColor = &H8000000F
tbayar.BackColor = &H8000000F
tubay.BackColor = &H8000000F
tkembali.BackColor = &H8000000F

End Sub

Private Sub cadd_Click()
tnofak.MaxLength = 5
tnofak.Enabled = True
tnofak.BackColor = vbWhite
Call bersih
Call auto
dttransaksi.Recordset.AddNew
End Sub




Private Sub cclose_Click()
p = MsgBox("Yakin keluar Dari Aplikasi", 64 + 4, "Info")
If p = vbYes Then
Unload Me
Else
cadd.SetFocus
End If

End Sub

Private Sub cdel_Click()
p = MsgBox("Yakin Ingin Di Hapus?", 32 + 4, "Tanya")
If p = vbYes Then
    dttransaksi.Recordset.Delete
   dttransaksi.Refresh
End If
Call bersih
cadd.SetFocus

End Sub

Private Sub csave_Click()
With dttransaksi.Recordset
.AddNew
!nofaktur = tnofak
!Tanggal = ltgl.Caption
!Kd_barang = dbbrg.Text
!nmbarang = tnabar
!harga = tharga
!jumlah_beli = tjumbel
!total_bayar = tbayar
!kd_supplier = dbsup.Text
.Update
End With
dtbarang.Recordset.Edit
dtbarang.Recordset!stok = dtbarang.Recordset!stok - Val(tjumbel)
dtbarang.Recordset.Update
dtbarang.Refresh
cclose.Enabled = True

End Sub

Private Sub dbbrg_Change()
dtbarang.Recordset.Index = "kode"
dtbarang.Recordset.Seek "=", dbbrg
If Not dtbarang.Recordset.NoMatch Then
tnabar.Text = dtbarang.Recordset!nmbarang
tharga.Text = dtbarang.Recordset!harga
tstok.Text = dtbarang.Recordset!stok
End If
tjumbel.Enabled = True
tjumbel.BackColor = &H80000005
tjumbel.SetFocus

End Sub

Private Sub dbsup_Change()
dtsuplier.Recordset.Index = "xkdsup"
dtsuplier.Recordset.Seek "=", dbsup
If Not dtsuplier.Recordset.NoMatch Then
tnama.Text = dtsuplier.Recordset!nm_supplier
End If
dbbrg.Enabled = True
dbbrg.BackColor = &H80000005
dbbrg.SetFocus

End Sub

Private Sub Form_Activate()
nonaktif
cadd.SetFocus
End Sub

Private Sub Timer1_Timer()
ltgl.Caption = Format(Date, "dd-mmmm-yyyy")
End Sub

Private Sub tjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tbayar.Text = Val(tharga.Text) * Val(tjumbel.Text)
tubay.Enabled = True
tubay.BackColor = &H80000005
tubay.SetFocus
End If

End Sub

Private Sub tnofak_Change()
dbsup.Enabled = True
dbsup.BackColor = &H80000005

End Sub

Private Sub tubay_Change()
tkembali.Text = Val(tubay.Text) - Val(tbayar.Text)

End Sub

Private Sub auto()
Dim urutan As String * 5
Dim hitung As Long
With dttransaksi.Recordset
If .RecordCount = 0 Then
urutan = "F" + "001"
Else
.MoveLast
    If Left(!nofaktur, 1) <> "F" Then
    urutan = "F" + "001"
    Else
    hitung = (Right(!nofaktur, 3)) + 1
    urutan = "F" + Right("000" & hitung, 3)
    End If
End If
tnofak.Text = urutan
End With
End Sub

Share

»»  Baca lagi... Best Regard,