Dim x As Control
Private Sub Timer1_Timer()
Label15.Caption = Time
txttgltrans.Text = Format(Date, "dd/mm/yy")
End Sub
Private Sub DBCombo1_Change()
dtcust.Recordset.Index = "xkdcust"
dtcust.Recordset.Seek "=", DBCombo1
If Not dtcust.Recordset.NoMatch Then
txtnmcust.Text = dtcust.Recordset!NmCust
txtalamat.Text = dtcust.Recordset!alamat
txtnotelp.Text = dtcust.Recordset!telp
End If
End Sub
Private Sub DBCombo2_Change()
dtbrg.Recordset.Index = "xkdbrg"
dtbrg.Recordset.Seek "=", DBCombo2
If Not dtbrg.Recordset.NoMatch Then
txtnmbrg.Text = dtbrg.Recordset!nmbrg
txthrg.Text = dtbrg.Recordset!harga
txtjumbel.Enabled = True
txtjumbel.SetFocus
End If
End Sub
Private Sub txtbayar_Change()
txtkembali.Text = Val(txtbayar.Text) - Val(txttotal.Text)
End Sub
Private Sub Form_Activate()
cmdsave = False
End Sub
Private Sub Form_Load()
nonaktif
bersih
End Sub
Private Sub nonaktif()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = 0
End If
Next x
End Sub
Private Sub aktif()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = 1
End If
Next x
End Sub
Private Sub bersih()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Text = ""
End If
Next x
DBCombo1.Text = "Pilih Kode Customer"
DBCombo2.Text = "Pilih Kode Barang"
End Sub
Private Sub cmdundo_Click()
p = MsgBox("cancel all saving or editing data ??", vbQuestion + vbOKCancel, "Informasi")
If vbOK Then
dtcust.Recordset.MoveFirst
nonaktif
End If
cmdsave.Enabled = False
cmdadd.Enabled = True
cmdundo.Enabled = False
End Sub
Private Sub cmdclose_Click()
Unload Me
End Sub
Private Sub cmdadd_Click()
dttrans.Recordset.AddNew
aktif
bersih
txtnotrans.SetFocus
cmdsave.Enabled = True
cmdadd.Enabled = False
txtnmcust.Enabled = False
txtalamat.Enabled = False
txtnotelp.Enabled = False
txtnmbrg.Enabled = False
txthrg.Enabled = False
txttgltrans.Enabled = False
txttotal.Enabled = False
txtkembali.Enabled = False
End Sub
Private Sub cmdsave_Click()
dttrans.Recordset.AddNew
dttrans.Recordset!notrans = txtnotrans.Text
dttrans.Recordset!tgltrans = txttgltrans.Text
dttrans.Recordset!kdcust = DBCombo1
dttrans.Recordset!kdbrg = DBCombo2
dttrans.Recordset!jmlbeli = txtjumbel.Text
dttrans.Recordset!total = txttotal.Text
dttrans.Recordset.Update
DBGrid1.Refresh
nonaktif
cmdsave.Enabled = False
cmdinput.Enabled = True
End Sub
Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal.Text = Val(txthrg.Text) * Val(txtjumbel.Text)
txtbayar.SetFocus
End If
End Sub