?? formtoko.frm
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -