formtoko.frm

来自「Application for mini shop」· FRM 代码 · 共 628 行 · 第 1/2 页

      Begin VB.Shape Shape1 
         BorderColor     =   &H00FF8080&
         Height          =   2055
         Left            =   6240
         Top             =   600
         Width           =   4215
      End
      Begin VB.Label Lbl_Kembali 
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   7920
         TabIndex        =   25
         Top             =   2160
         Width           =   1935
      End
      Begin VB.Label Label11 
         Caption         =   "Kembali"
         Height          =   255
         Left            =   6600
         TabIndex        =   24
         Top             =   2160
         Width           =   735
      End
      Begin VB.Label Label10 
         Caption         =   "Bayar"
         Height          =   255
         Left            =   6600
         TabIndex        =   22
         Top             =   1440
         Width           =   855
      End
      Begin VB.Label Label9 
         Caption         =   "Total"
         Height          =   255
         Left            =   6600
         TabIndex        =   21
         Top             =   840
         Width           =   495
      End
      Begin VB.Label Lbl_Total 
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   7920
         TabIndex        =   17
         Top             =   840
         Width           =   1935
      End
      Begin VB.Label Label8 
         Caption         =   "Jumlah"
         Height          =   255
         Left            =   720
         TabIndex        =   15
         Top             =   2520
         Width           =   615
      End
      Begin VB.Label Lbl_Harga 
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   2040
         TabIndex        =   14
         Top             =   1920
         Width           =   1935
      End
      Begin VB.Label Lbl_Nama 
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   2040
         TabIndex        =   13
         Top             =   1320
         Width           =   3375
      End
      Begin VB.Label Label7 
         Caption         =   "Harga  Rp."
         Height          =   255
         Left            =   720
         TabIndex        =   11
         Top             =   1920
         Width           =   855
      End
      Begin VB.Label Label6 
         Caption         =   "Nama Barang"
         Height          =   255
         Left            =   720
         TabIndex        =   10
         Top             =   1320
         Width           =   1095
      End
      Begin VB.Label Label5 
         Caption         =   "Kode Barang"
         Height          =   255
         Left            =   720
         TabIndex        =   9
         Top             =   720
         Width           =   1095
      End
      Begin VB.Label Label4 
         Caption         =   "Jenis"
         Height          =   255
         Left            =   -74160
         TabIndex        =   4
         Top             =   2640
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "Harga  Rp."
         Height          =   255
         Left            =   -74160
         TabIndex        =   3
         Top             =   2160
         Width           =   855
      End
      Begin VB.Label Label2 
         Caption         =   "Nama Barang"
         Height          =   255
         Left            =   -74160
         TabIndex        =   2
         Top             =   1680
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "Kode Barang"
         Height          =   255
         Left            =   -74160
         TabIndex        =   1
         Top             =   1200
         Width           =   1095
      End
      Begin VB.Shape Shape2 
         BorderColor     =   &H80000002&
         Height          =   3135
         Left            =   -74400
         Top             =   840
         Width           =   5655
      End
   End
End
Attribute VB_Name = "FormToko"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdBaru_Click()
    Total = 0
    Kembali = 0
    Bersih
    CLear
    Lbl_Total.Caption = ""
    Txt_Bayar.Text = ""
    Lbl_Kembali.Caption = ""
    Txt_Kode1.SetFocus
End Sub

Private Sub CmdBayar_Click()
    If Txt_Bayar.Text = Empty Then
        MsgBox "Pembayaran Belum dimasukkan ... !"
        Txt_Bayar.SetFocus
    Else
        Kembali = Val(Txt_Bayar.Text) - Total
        If Kembali < 0 Then
            MsgBox "Uang Pembayaran kurang ... !"
            Txt_Bayar.Text = ""
            Lbl_Kembali.Caption = ""
            Txt_Bayar.SetFocus
        Else
            Lbl_Kembali.Caption = Format(Kembali, "#,#")
        End If
    End If
End Sub

Private Sub CmdCetak_Click()
    Bayar = Val(Txt_Bayar)
    FormCetak.Show
End Sub

Private Sub CmdDel_Click()
    Dta_Barang.Recordset.Delete
    Dta_Barang.Recordset.MoveFirst
    Txt_Kode.SetFocus
End Sub

Private Sub CmdEdit_Click()
    Dta_Barang.Recordset.Edit
    Dta_Barang.Recordset.Update
    Txt_Kode.SetFocus
End Sub

Private Sub CmdExit_Click()
    End
End Sub

Private Sub CmdNext_Click()
    Bersih
    Txt_Kode1.SetFocus
End Sub

Private Sub CmdSimpan_Click()
    Dta_Barang.Recordset.Update
    Txt_Kode.SetFocus
End Sub

Private Sub CmdTambah_Click()
    Dta_Barang.Recordset.AddNew
    Txt_Kode.SetFocus
End Sub

Private Sub Form_Activate()
    Txt_Kode1.SetFocus
End Sub

Private Sub Form_Load()
    Dim StatSQL As String
    Total = 0
    
    Dta_Barang.DatabaseName = App.Path & "\Toko.mdb"
    StatSQL = "SELECT * FROM Barang ORDER BY Kode"
    Dta_Barang.RecordSource = StatSQL
End Sub

Private Sub Txt_Bayar_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If Txt_Bayar.Text = Empty Then
            MsgBox "Pembayaran Belum dimasukkan ... !"
            Txt_Bayar.SetFocus
        Else
            Kembali = Val(Txt_Bayar.Text) - Total
            If Kembali < 0 Then
                MsgBox "Uang Pembayaran kurang ... !"
                Txt_Bayar.Text = ""
                Lbl_Kembali.Caption = ""
                Txt_Bayar.SetFocus
            Else
                Lbl_Kembali.Caption = Format(Kembali, "#,#")
            End If
        End If
    End If
End Sub

Private Sub Txt_Jumlah_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If Txt_Kode1.Text = Empty Then
            MsgBox "Masukkan Kode Barang ...!"
            Txt_Jumlah.Text = ""
            Txt_Kode1.SetFocus
        Else
            If Txt_Jumlah.Text = Empty Then
                MsgBox "Masukkan Jumlah Barang yang dibeli...!"
            Else
                Subtotal = Dta_Barang.Recordset.Fields(2) * Val(Txt_Jumlah.Text)
                Total = Total + Subtotal
                Lbl_Total.Caption = Format(Total, "#,#")
                Add
                CmdNext.SetFocus
            End If
        End If
    End If
End Sub

Private Sub Txt_Kode1_KeyPress(KeyAscii As Integer)
    Dim CARI As String
    If KeyAscii = 13 Then
        If Txt_Kode1.Text = Empty Then
            MsgBox "Masukkan Kode Barang ... !"
            Txt_Kode1.SetFocus
        Else
            CARI = "Kode = '" & Txt_Kode1.Text & "'"
            Dta_Barang.Recordset.FindFirst CARI
            If Dta_Barang.Recordset.NoMatch Then
                MsgBox "Kode Barang belum terdaftar ... !"
                Txt_Kode1.Text = ""
                Lbl_Nama.Caption = ""
                Lbl_Harga.Caption = ""
                Txt_Kode1.SetFocus
            Else
                With Dta_Barang.Recordset
                    Txt_Kode1.Text = .Fields(0)
                    Lbl_Nama.Caption = .Fields(1)
                    Lbl_Harga.Caption = Format(.Fields(2), "#,#")
                    Txt_Jumlah.SetFocus
                End With
            End If
        End If
    End If
End Sub

Sub Bersih()
    Txt_Kode1.Text = ""
    Lbl_Nama.Caption = ""
    Lbl_Harga.Caption = ""
    Txt_Jumlah.Text = ""
End Sub
Sub Add()
    Dim Hitung As String
    Jml = Txt_Jumlah.Text
    Hitung = Dta_Barang.Recordset.Fields(2) * Val(Txt_Jumlah.Text)
    With Dta_Barang.Recordset
        Txt_Kode1.Text = .Fields(0)
        Lbl_Nama.Caption = .Fields(1)
        Lbl_Harga.Caption = Format(.Fields(2), "#,#")
    End With
        LstKode.AddItem Txt_Kode1.Text
        LstNama.AddItem Lbl_Nama.Caption
        LstHarga.AddItem Lbl_Harga.Caption
        LstJumlah.AddItem Jml
        LstTotal.AddItem Format(Hitung, "#,#")
End Sub
Sub CLear()
    LstKode.CLear
    LstNama.CLear
    LstHarga.CLear
    LstJumlah.CLear
    LstTotal.CLear
End Sub