Listing Form Transaksi

Private Sub cmdadd_Click()
dtacust.Enabled = True
bersih Me
no
End Sub

Private Sub cmdkeluar_Click()
a = MsgBox("Yakin mau keluar bozz?", vbQuestion + vbOKCancel, "info")
If a = vbOK Then
Unload Me
End If
End Sub

Private Sub cmdsave_Click()
With adotrans.Recordset
.AddNew
!notrans = txtnotrans.Text
!tgljual = txttgl.Text
!ttl = txttotbay.Text
!idcust = dtacust.Text
.Update
End With

adosemen.Refresh
adosemen.Recordset.MoveFirst
While Not adosemen.Recordset.EOF

adodetail.Refresh
adodetail.Recordset.AddNew
adodetail.Recordset!notrans = txtnotrans.Text
adodetail.Recordset!qty = adosemen.Recordset!qty
adodetail.Recordset!subttl = adosemen.Recordset!subtotal
adodetail.Recordset!kdbrg = adosemen.Recordset!kdbrg
adodetail.Recordset.Update

adosemen.Recordset.Delete
adosemen.Recordset.MoveNext
Wend
MsgBox "Data sudah tersimpan coyyy!!!"

crtran.WindowState = crptMaximized
crtran.RetrieveDataFiles
crtran.SelectionFormula = "{transaksi.notrans}='" & txtnotrans.Text & "'"
crtran.Action = 1

dtacust.Text = "--Pilih--"
dtabrg.Text = "--Pilih--"
mati Me
bersih Me
End Sub

Private Sub dtabrg_Click(Area As Integer)
adobrg.Refresh
With adobrg.Recordset
.Find "kdbrg='" & dtabrg.Text & "'"
If Not .EOF Then
txtnmbrg.Text = .Fields("nmbrg")
txtstok.Text = .Fields("stok")
txthrg.Text = .Fields("hrgsat")
txtjumbel.Enabled = True
End If
End With
End Sub

Private Sub dtacust_Click(Area As Integer)
adocust.Refresh
With adocust.Recordset
.Find "id_cust='" & dtacust.Text & "'"
If Not .EOF Then
txtnama.Text = !nm_cust
txtalamat.Text = !alamat
txttlp.Text = !telp
End If
End With
End Sub

Private Sub Form_Load()
mati Me
txtubay.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label16.Caption = Time
txttgl.Text = Date
End Sub

Sub no()
Dim kd As Integer
adotrans.Refresh
With adotrans.Recordset
If .RecordCount <= 0 Then kd = .RecordCount + 1 txtnotrans.Text = "FK-" + Format(kd, "000") Else .MoveLast kd = Val(Right(!notrans, 3)) + 1 txtnotrans.Text = "FK-" + Format(kd, "000") End If End With End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'mengitung subtotal
txtsubtotal.Text = Val(txtjumbel.Text) * Val(txthrg.Text)

'menyimpan ke tabel sementara
With adosemen.Recordset
.AddNew
!kdbrg = dtabrg.Text
!nmbrg = txtnmbrg.Text
!hrgsat = txthrg.Text
!qty = txtjumbel.Text
!subtotal = txtsubtotal.Text
.Update
End With

'update stok di tabel barang
Dim a As Integer
With adobrg.Recordset
.Find "kdbrg='" & dtabrg.Text & "'"
If Not .EOF Then
a = !stok - Val(txtjumbel.Text)
!stok = a
.Update
End If

txttotbay.Text = Val(txtsubtotal.Text) + Val(txttotbay.Text)
x = MsgBox("mau input data lagi?", vbQuestion + vbYesNo, "info")
If x = vbYes Then
dtabrg.Text = "--Pilih--"
txtnmbrg.Text = ""
txtstok.Text = ""
txthrg.Text = ""
txtjumbel.Text = ""
txtsubtotal.Text = ""
Else
txtubay.SetFocus
End If
End With
End If
End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(txtubay.Text) < Val(txttotbay.Text) Then MsgBox "Uang yang anda input kurang" txtubay.Text = "" txtubay.SetFocus Else txtukem.Text = Val(txtubay.Text) - Val(txttotbay.Text) End If End If End Sub