data base perusahaan distro

Private Sub ComDPROSES_Click()

total = TXTXJUMABA.text x txtHARGA.text

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Update

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub ComdBATAL_Click()

kosong

End Sub

Public Sub kosong()

TxtKODE.SetFocus

TxtNAMABA.Text = “”

TxtDISKON.Text = “”

TxtJUMABA.Text = “”

TxtHARGA.Text = “”

TxtTOTAL.Text = “”

End Sub

Private Sub ComDKELUAR_Click()

Unload Me

End Sub

 

Private Sub ComdLAGI_Click()

kosong

End Sub

 

 

Private Sub DBGrid1_Click()

 

End Sub

 

 

End Sub

 

Private Sub Text1_Change()

 

End Sub

 

Private Sub TxtKODE_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNAMA.SetFocus

End If

 

End Sub