'kode untuk form data buku (frame 1)
Private Sub Command6_Click()
On Error Resume Next
Data1.Recordset.Delete
Data1.Refresh
BERSIH
End Sub
Private Sub Text1_GotFocus()
Data1.Recordset.MoveLast
Do While Not Data1.Recordset.EOF
Text1.Text = Data1.Recordset!kode_buku + 1
Data1.Recordset.MoveNext
Loop
End Sub
Private Sub Command1_Click()
On Error Resume Next
Data1.Recordset.AddNew
Data1.Recordset!kode_buku = Text1.Text
Data1.Recordset!judul_buku = Text2.Text
Data1.Recordset!harga_beli = Text3.Text
Data1.Recordset!harga_jual = Text23.Text
Data1.Recordset!jumlah_stok = Text4.Text
Data1.Recordset!suplier = Combo1.Text
Data1.Recordset!tanggal_entry = Text5.Text
Data1.Recordset.Update
Data1.Refresh
Data1.Recordset.Edit
Data1.Recordset!kode_buku = Text1.Text
Data1.Recordset!judul_buku = Text2.Text
Data1.Recordset!harga_beli = Text3.Text
Data1.Recordset!harga_jual = Text23.Text
Data1.Recordset!jumlah_stok = Text4.Text
Data1.Recordset!suplier = Combo1.Text
Data1.Recordset!tanggal_entry = Text5.Text
Data1.Recordset.Update
Data1.Refresh
BERSIH
End Sub
Private Sub Command2_Click()
On Error Resume Next
pesan = MsgBox("Anda yakin akan menghapus?", vbOKCancel, "PESAN")
If pesan = vbOK Then
Data1.Recordset.Delete
Data1.Refresh
BERSIH
Else
Exit Sub
End If
End Sub
Private Sub BERSIH()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text23.Text = ""
Text4.Text = ""
Combo1.Text = ""
Text5.Text = ""
End Sub
Private Sub Timer1_Timer()
Text5.Text = Format(Date, "dddd, dd mmmm yyyy") & " " & Format(Time, "hh:mm:ss")
End Sub
'batas kode untuk form data barang
'kode untuk form suplier (frame 3)
Private Sub Command3_Click()
On Error Resume Next
Data2.Recordset.Delete
Data2.Refresh
clear
End Sub
Private Sub Text6_GotFocus()
Data2.Recordset.MoveLast
Do While Not Data2.Recordset.EOF
Text6.Text = Data2.Recordset!id_suplier + 1
Data2.Recordset.MoveNext
Loop
End Sub
Private Sub Command4_Click()
On Error Resume Next
Data2.Recordset.AddNew
Data2.Recordset!id_suplier = Text6.Text
Data2.Recordset!nama_suplier = Text7.Text
Data2.Recordset!alamat_suplier = Text8.Text
Data2.Recordset.Update
Data2.Refresh
Data2.Recordset.Edit
Data2.Recordset!id_suplier = Text6.Text
Data2.Recordset!nama_suplier = Text7.Text
Data2.Recordset!alamat_suplier = Text8.Text
Data2.Recordset.Update
Data2.Refresh
clear
End Sub
Private Sub Command5_Click()
On Error Resume Next
pesan = MsgBox("Anda yakin akan menghapus?", vbOKCancel, "PESAN")
If pesan = vbOK Then
Data2.Recordset.Delete
Data2.Refresh
clear
Else
Exit Sub
End If
End Sub
Private Sub clear()
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub
'batas kode untuk form suplier
'kode form member (frame 4)
Private Sub Command7_Click()
On Error Resume Next
Data3.Recordset.AddNew
Data3.Recordset!id_member = Text9.Text
Data3.Recordset!nama_member = Text10.Text
Data3.Recordset!alamat_member = Text11.Text
Data3.Recordset!discount = Text12.Text
Data3.Recordset.Update
Data3.Refresh
Data3.Recordset.Edit
Data3.Recordset!id_member = Text9.Text
Data3.Recordset!nama_member = Text10.Text
Data3.Recordset!alamat_member = Text11.Text
Data3.Recordset!discount = Text12.Text
Data3.Recordset.Update
Data3.Refresh
beres
End Sub
Private Sub Command8_Click()
On Error Resume Next
pesan = MsgBox("Anda yakin akan menghapus?", vbOKCancel, "PESAN")
If pesan = vbOK Then
Data3.Recordset.Delete
Data3.Refresh
beres
Else
Exit Sub
End If
End Sub
Private Sub beres()
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
End Sub
Private Sub Command9_Click()
On Error Resume Next
Data3.Recordset.Delete
Data3.Refresh
beres
End Sub
Private Sub Text9_GotFocus()
Data3.Recordset.MoveLast
Do While Not Data3.Recordset.EOF
Text9.Text = Data3.Recordset!id_member + 1
Data3.Recordset.MoveNext
Loop
End Sub
'batas kode form member
'kode form pembayaran
Private Sub Command10_Click()
On Error Resume Next
Data4.Recordset.AddNew
Data4.Recordset!kode_buku = Combo2.Text
Data4.Recordset!judul_buku = Text13.Text
'Data4.Recordset!harga_beli = Text14.Text
Data4.Recordset!harga_jual = Text15.Text
Data4.Recordset!jumlah_stok = Text16.Text
Data4.Recordset!jumlah_beli = Text17.Text
Data4.Recordset!sisa_stok = Text18.Text
Data4.Recordset!id_member = Combo3.Text
Data4.Recordset!discount = Text20.Text
Data4.Recordset!jumlah_bayar = Text21.Text
Data4.Recordset!uang_bayar = Text22.Text
Data4.Recordset!kembalian = Text23.Text
Data4.Recordset.Update
Data4.Refresh
Data4.Recordset.Edit
Data4.Recordset!kode_buku = Combo2.Text
Data4.Recordset!judul_buku = Text13.Text
'Data4.Recordset!harga_beli = Text14.Text
Data4.Recordset!harga_jual = Text15.Text
Data4.Recordset!jumlah_stok = Text16.Text
Data4.Recordset!jumlah_beli = Text17.Text
Data4.Recordset!sisa_stok = Text18.Text
Data4.Recordset!id_member = Combo3.Text
Data4.Recordset!discount = Text20.Text
Data4.Recordset!jumlah_bayar = Text21.Text
Data4.Recordset!uang_bayar = Text22.Text
Data4.Recordset!kembalian = Text23.Text
Data4.Recordset.Update
Data4.Refresh
kosong
End Sub
Private Sub Command11_Click()
On Error Resume Next
Data4.Recordset.Delete
Data4.Refresh
kosong
End Sub
Private Sub kosong()
Combo2.Text = ""
Text13.Text = ""
'Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Combo3.Text = ""
Text20.Text = ""
Text21.Text = ""
Text22.Text = ""
Text23.Text = ""
End Sub
Private Sub Combo2_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Data6.Recordset.Index = "kode_buku"
Data6.Recordset.Seek "=", Combo2.Text
If Data6.Recordset.NoMatch Then
pesan = MsgBox("DATA TIDAK ADA", vbOKOnly, "info")
Text1.SetFocus
BERSIH
Else
Combo2.Text = Data6.Recordset!kode_buku
Text13.Text = Data6.Recordset!judul_buku
'Text14.Text = Data6.Recordset!harga_beli
Text15.Text = Data6.Recordset!harga_jual
Text16.Text = Data6.Recordset!jumlah_stok
End If
End If
End Sub
Private Sub Combo3_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Data7.Recordset.Index = "id_member"
Data7.Recordset.Seek "=", Combo3.Text
If Data7.Recordset.NoMatch Then
pesan = MsgBox("DATA TIDAK ADA", vbOKOnly, "info")
Text9.SetFocus
BERSIH
Else
Combo3.Text = Data7.Recordset!id_member
Text20.Text = Data7.Recordset!discount
End If
End If
End Sub
Private Sub Text13_keypress(keyascii As Integer)
If keyascii = 13 Then
Data4.Recordset.Index = "judul_buku"
Data4.Recordset.Seek ">=", Text13.Text
If Data4.Recordset.NoMatch Then
MsgBox "DATA TIDAK ADA"
Else
Combo2.Text = Data1.Recordset!kode_buku
Text13.Text = Data1.Recordset!judul_buku
'Text14.Text = Data1.Recordset!harga_beli
Text15.Text = Data1.Recordset!harga_jual
Text16.Text = Data1.Recordset!jumlah_stok
Text17.Text = Data1.Recordset!jumlah_beli
Text18.Text = Data1.Recordset!sisa_stok
Combo3.Text = Data1.Recordset!id_member
Text20.Text = Data1.Recordset!discount
Text21.Text = Data1.Recordset!jumlah_bayar
Text22.Text = Data1.Recordset!uang_bayar
Text23.Text = Data1.Recordset!kembalian
End If
End If
End Sub
Private Sub Command12_Click()
cetakstruk
End Sub
Private Sub cetakstruk()
Form2.Font = "courier new"
Form2.Show
Form2.CurrentX = 0
Form2.CurrentY = 0
Form2.FontSize = 12
Form2.FontBold = True
Form2.Print Tab(19); "TOKO BUKU RPL"
Form2.Print Tab(14); "STMIK AKAKOM YOGYAKARTA"
Form2.Print Tab(9); "Jl.Raya Janti Karang Jambe N0.143"
Form2.Print
Form2.FontSize = 12
Form2.FontBold = False
Form2.Print Tab(14); Now
Form2.Print
MGARIS = String$(47, "-")
Form2.Print MGARIS
Form2.Print Tab(3); "KODE BUKU"; " : " & Combo2 & " "
Form2.Print Tab(3); "NAMA BUKU"; " : " & Text13 & " "
Form2.Print Tab(3); "JUMLAH BELI"; " : " & Text17 & " "
Form2.Print Tab(3); "JUMLAH BAYAR"; ": " & Text21 & " "
Form2.Print Tab(3); "DISCOUNT"; " : " & Text20 & " "
Form2.Print Tab(3); "UANG BAYAR"; " : " & Text22 & " "
Form2.Print Tab(3); "KEMBALIAN"; " : " & Text18 & " "
MGARIS = String$(47, "-")
Form2.Print MGARIS
Form2.Print Tab(17); "TERIMAKASIH"
End Sub
Private Sub Text17_Change()
Text19.Text = Val(Text16.Text) - Val(Text17.Text)
Text21.Text = Val(Text17.Text) * Val(Text15.Text) '-Val(Text20.Text)
End Sub
Private Sub Text20_Change()
Text21.Text = Val(Text21.Text) - Val(Text20.Text)
End Sub
Private Sub Text22_Change()
Text18.Text = Val(Text22.Text) - Val(Text21.Text)
End Sub
'batas kode form pembayaran
'kode untuk keseluruhan
Private Sub Form_Load()
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame2.Visible = False
Frame6.Visible = False
Frame7.Visible = False
Frame8.Visible = False
Frame10.Visible = False
End Sub
Private Sub tambah_suplier_Click()
Frame3.Visible = True
Frame1.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame2.Visible = False
Frame6.Visible = False
Frame7.Visible = False
Frame8.Visible = False
Frame10.Visible = False
End Sub
Private Sub tambah_stok_Click()
Frame1.Visible = True
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame10.Visible = False
Frame7.Visible = False
Frame8.Visible = False
Frame2.Visible = False
Frame6.Visible = False
End Sub
Private Sub tambah_member_Click()
Frame4.Visible = True
Frame1.Visible = False
Frame3.Visible = False
Frame5.Visible = False
Frame2.Visible = False
Frame6.Visible = False
Frame7.Visible = False
Frame8.Visible = False
Frame10.Visible = False
End Sub
Private Sub pembayaran_Click()
Frame5.Visible = True
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame2.Visible = False
Frame6.Visible = False
Frame7.Visible = False
Frame8.Visible = False
Frame10.Visible = False
End Sub
Private Sub data_suplier_Click()
Frame2.Visible = True
Frame5.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame6.Visible = False
Frame7.Visible = False
Frame8.Visible = False
Frame10.Visible = False
End Sub
Private Sub data_buku_Click()
Frame6.Visible = True
Frame5.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame2.Visible = False
Frame7.Visible = False
Frame8.Visible = False
Frame10.Visible = False
End Sub
Private Sub data_member_Click()
Frame7.Visible = True
Frame5.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame2.Visible = False
Frame6.Visible = False
Frame8.Visible = False
Frame10.Visible = False
End Sub
Private Sub laporan_pembayaran_Click()
Frame8.Visible = True
Frame5.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame2.Visible = False
Frame6.Visible = False
Frame7.Visible = False
Frame10.Visible = False
End Sub
Private Sub informasi_Click()
Frame10.Visible = True
Frame5.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame2.Visible = False
Frame6.Visible = False
Frame7.Visible = False
Frame8.Visible = False
End Sub
Private Sub keluar_Click()
On Error Resume Next
pesan = MsgBox("Anda yakin akan keluar?", vbOKCancel, "PERINGATAN!")
If pesan = vbOK Then
End
End If
End Sub
Private Sub Form_Activate()
Data5.Recordset.MoveFirst
Do While Not Data5.Recordset.EOF
Combo1.AddItem Data5.Recordset!nama_suplier
Data5.Recordset.MoveNext
Loop
Data6.Recordset.MoveFirst
Do While Not Data6.Recordset.EOF
Combo2.AddItem Data6.Recordset!kode_buku
Data6.Recordset.MoveNext
Loop
Data7.Recordset.MoveFirst
Do While Not Data7.Recordset.EOF
Combo3.AddItem Data7.Recordset!id_member
Data7.Recordset.MoveNext
Loop
End Sub
'batas kode untuk keseluruhan
Komentar
Posting Komentar