TRANSAKSI PENJUALAN

 

Dim kdCUS, kdBRG As String

Private Sub b1_Click()
Dim jml As String
Call kosong

T2.SetFocus
jml = Adodc3.Recordset.RecordCount
If jml = 0 Then
 T2.Text = "PEN001"
 ElseIf jml >= 100 Then
 T2.Text = "PEN" & jml + 1

 ElseIf jml >= 10 Then
 T2.Text = "PEN0" & jml + 1

 ElseIf jml <= 9 Then
 T2.Text = "PEN00" & jml + 1
 End If

b2.Enabled = True
b1.Enabled = False
b4.Enabled = False
b5.Enabled = False
b3.Enabled = False
End Sub

Private Sub b2_Click()
Adodc3.Recordset.AddNew
Adodc3.Recordset!NOPENJ = T2.Text
Adodc3.Recordset!TGLPENJ = T1.Text
Adodc3.Recordset!JUMPENJ = t4.Text
Adodc3.Recordset!BYRPENJ = T8.Text
Adodc3.Recordset!IDCUS = C1.Text
Adodc3.Recordset!IDBRG = C2.Text
Adodc3.Recordset.Update
Call kosong

b2.Enabled = False
b1.Enabled = True
b4.Enabled = True
b5.Enabled = True
b3.Enabled = True
End Sub

Private Sub b3_Click()
If MsgBox("yakin mau keluar ??", vbOKCancel + vbCritical, "WARNING !") = vbOK Then
End
Else
End If
End Sub

Private Sub b4_Click()
Adodc3.Recordset.delete
Adodc3.Refresh
Adodc3.Recordset.MoveFirst

b2.Enabled = False
b1.Enabled = True
n4.Enabled = True
b5.Enabled = True
b3.Enabled = True
End Sub

Private Sub b5_Click()
Adodc3.Recordset.Update

b2.Enabled = True
b1.Enabled = True
b4.Enabled = True
b5.Enabled = False
b3.Enabled = True
End Sub

Private Sub c1_Click(Area As Integer)
kdCUS = ""
    Set CUS = conn.Execute("SELECT * FROM " _
        & " CUSTOMER WHERE IDCUS='" _
        & C1.Text & "'")
       
    With CUS
        If .EOF And .BOF Then
            Exit Sub
        Else
            kdCUS = CUS!IDCUS
            t3.Text = CUS!NMCUS
'            Text4.Text = kdCUS!hrg
'            DataCombo1.SetFocus
        End If
    End With
End Sub
'Private Sub DataCombo1_DropDown()
'Combo1.Clear
'    Set CUS = conn.Execute("select * from " _
'        & " CUSTOMER order by IDCUS")
'
'    If Not CUS.BOF Then
'        While Not CUS.EOF
'         DataCombo1.AddItem CUS!IDCUS
'         CUS.MoveNext
'         Wend
'    End If
'End Sub


Private Sub c2_Click(Area As Integer)
kdBRG = ""
    Set BRG = conn.Execute("SELECT * FROM " _
        & " BARANG WHERE IDBRG='" _
        & C2.Text & "'")
       
    With BRG
        If .EOF And .BOF Then
            Exit Sub
        Else
            kdBRG = BRG!IDBRG
            t6.Text = BRG!NMBRG
            t7.Text = BRG!HRGBRG
'            Text4.Text = kdCUS!hrg
'            DataCombo1.SetFocus
        End If
    End With

End Sub



Private Sub Form_Activate()
T1.Text = Format(Date, "dd-mm-yyyy")
End Sub

Private Sub Form_Load()
opendb
'Text1.Text = Format(Date, "dd-mm-yyy")
End Sub
Private Sub t4_Change()
t5.Text = Val(t7.Text) * Val(t4.Text)
End Sub

Private Sub T8_Change()
T9.Text = Val(T8.Text) - Val(t5.Text)
End Sub

Private Sub Timer1_Timer()
Label13.Caption = Format(Time)
End Sub


Private Sub WanButton1_Click()
Form1.Show
End Sub

Private Sub WanButton2_Click()
Form2.Show
End Sub
Sub kosong()
'T1.Text = ""
T2.Text = ""
t3.Text = ""
t4.Text = ""
t5.Text = ""
t6.Text = ""
t7.Text = ""
T8.Text = ""
T9.Text = ""
C1.Text = ""
C2.Text = ""
End Sub