bayusulaimanstmikpringsewu

Private Sub cmdadd_Click() Data1.Recordset.AddNew End Sub   Private Sub cmdcancel_Click() txtkode.SetFocus txtkode = “” txtnb = “” txthb = “” txtjb = “” txtby = “” txtpot = “” txttb = “” Data1.Recordset.Delete   End Sub   Private Sub cmdhitung_Click() txtby = Val(txthb) * Val(txtjb) If txtjb > 5 Then txtpot = Val(txtby) * 0.02 … More tugas baru

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = “” txtnpm = “” txtjur = “” txtprodi = “” txttm = “” txturut = “” End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = “” txtnpm = “” txtjur = “” txtprodi = “” txttm = “” txturut = “” End Sub Private Sub cmdproses_Click() Dim S As String … More tugas 3

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = “” txtnpm = “” txtjur = “” txtprodi = “” txttm = “” txturut = “” End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = “” txtnpm = “” txtjur = “” txtprodi = “” txttm = “” txturut = “” End Sub Private Sub cmdproses_Click() Dim S As String … More tugas 2