Belajar Bersama

Desain Database Program Bengkel:
Fitur yg tersedia

di dalam program bengkel ini yaitu :

1.form menu&keamanan:

• Menu Utama

• Login

2. form master:

• Data User
• Data Customer
• Data SparePart

3.form setting:

• Setting Harga Service
• Setting jenis kendaraan

  4. Form Transaksi, terdiri dari :

Transaksi servis,dilengkapi dengan cetak nota
5.form laporan


5. Laporan yang dibuat dengan Crystal Report, terdiri dari :

• Laporan Customer
• Laporan Sparepart
• Laporan Servis dan penjualan (cetak semua laporan,cetak per tanggal,cetak per periode,cetak perbulan

KODE PROGRM SEBAGAI BERIKUT:

Private Sub cmdOP_Click(Index As Integer)

On Error GoTo CheckIfOverFlowErr 

If bWasError Then
    Beep
    Exit Sub
End If

If bOp = True And bEqual = False Then 
 nOp = Index 'Remember the last operatore
 Exit Sub 'And..Exit sub
    ElseIf bEqual = True And bOp = True Then 
        If nOp = 1 Or nOp = 2 Then 
            nLastNum = 0 
                Else
                    nLastNum = 1 
        End If
End If

If nOp = 0 Then
    nResult = CDbl(lblOutput.Caption)
End If

Select Case nOp

    Case 1 '+
        nResult = nResult + nLastNum
    Case 2 '-
        nResult = nResult - nLastNum
    Case 3 '*
        nResult = nResult * nLastNum
    Case 4 '/
        
        If nLastNum = 0 Then
            lblOutput.Caption = "Cannot divide by zero."
            bWasError = True
            Exit Sub
            Else
                nResult = nResult / nLastNum
        End If
        
End Select

nOp = Index
bOp = True
bEqual = False
lblOutput.Caption = nResult

If Left$(lblOutput.Caption, 1) = "." Then
    lblOutput.Caption = "0" & nResult
End If

btnFocusEqual.SetFocus

Exit Sub
CheckIfOverFlowErr:

If Err.Number = 6 Then
    lblOutput.Caption = "Value is over max calculation limit."
    bWasError = True
End If

End Sub