Skip to main content

VB6 : Database & Form Kasir (Lanjutan Form Barang)

Database & Form Kasir 

Buatlah sebuah Form Kasir dengan desain sepert dibawah ini

Form ini dibuat untuk mengelola data baik kasir atau petugas yang melayani transaksi penjualan barang. Namun Sebelum merancang form buka terlebih dahulu database penjualan yang pernah kita buat sebelumnya lalu tambahkan tabel kasir sebagai berikut :

Berikut adalah tampilan rancangan form data barang yang akan dibuat


Form Kasir diatas logika programnya hampir sama dengan Form Barang, bedanya pada Form Kasir Kode Kasirnya dapat tampil otomatis sesuai format tertentu.



Setting Properties Objeknya seperti berikut :
Listing programnya :

Sub nomor()
Dim urutan As String
Dim hitung As Integer
With adokasir.Recordset
If .RecordCount = 0 Then
urutan = "KSR01"
txtkdkasir.Text = urutan
Else
.MoveLast
hitung = Val(Right(!kdkasir, 2)) + 1
urutan = "KSR" & Right("00" & hitung, 2)
txtkdkasir.Text = urutan
End If
End With
End Sub

Sub tampil()
With adokasir.Recordset
txtkdkasir.Text = !kdkasir
txtnmksr.Text = !nmkasir
txttelp.Text = !telp
txtalamat.Text = !alamat
End With
End Sub

Sub bersih()
txtkdkasir.Text = ""
txtnmksr.Text = ""
txttelp.Text = ""
txtalamat.Text = ""
End Sub

Sub mati()
txtkdkasir.Enabled = False
txtnmksr.Enabled = False
txttelp.Enabled = False
txtalamat.Enabled = False
End Sub

Sub hidup()
txtkdkasir.Enabled = True
txtnmksr.Enabled = True
txttelp.Enabled = True
txtalamat.Enabled = True
End Sub



Private Sub cmdadd_Click()
Call nomor
Call hidup
cmdsave.Enabled = True
cmdadd.Enabled = False
cmdundo.Enabled = True
txtkdkasir.Enabled = False
txtnmksr.SetFocus
End Sub

Private Sub cmddelete_Click()
a = MsgBox("Yakin Mau Dihapus???", vbYesNo + vbInformation, "Konfirmasi")
If a = vbYes Then
adokasir.Recordset.Delete
Call mati
Call bersih
End If
End Sub

Private Sub cmdedit_Click()
Call hidup
txtkdkasir.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = False
cmdundo.Enabled = True
cmddelete = False
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdfind_Click()
adokasir.Recordset.Find "kdkasir='" & Me.txtcari.Text & "'", , adSearchForward
If Not adokasir.Recordset.EOF Then
Call tampil
Call mati
cmdadd.Enabled = False
cmdedit.Enabled = True
cmdsave.Enabled = False
txtkdkasir.Enabled = False
txtcari.Text = ""
Else
MsgBox "kode kasir tidak ada", vbInformation, "info"
txtcari.Text = ""
End If
End Sub

Private Sub cmdfirst_Click()
adokasir.Recordset.MoveFirst
tampil
End Sub

Private Sub cmdlast_Click()
adokasir.Recordset.MoveLast
tampil
End Sub

Private Sub cmdnext_Click()
adokasir.Recordset.MoveNext
If adokasir.Recordset.EOF Then
MsgBox "DATA SUDAH DIAKHIR RECORD", vbInformation, "INFO"
adokasir.Recordset.MoveLast
End If
Call tampil
End Sub

Private Sub cmdprevious_Click()
adokasir.Recordset.MovePrevious
If adokasir.Recordset.BOF Then
MsgBox "DATA SUDAH DIAWAL RECORD", vbInformation, "INFO"
adokasir.Recordset.MoveFirst
End If
Call tampil
End Sub

Private Sub cmdsave_Click()
With adokasir.Recordset
adokasir.Recordset.Find "kdkasir='" & Me.txtkdkasir.Text & "'", , adSearchForward
.AddNew
If adokasir.Recordset.EOF Then
!kdkasir = txtkdkasir.Text
!nmkasir = txtnmksr.Text
!telp = txttelp.Text
!alamat = txtalamat.Text
.Update
Else
!kdkasir = txtkdkasir.Text
!nmkasir = txtnmksr.Text
!telp = txttelp.Text
!alamat = txtalamat.Text
.Update
End If
End With
Call mati
Call bersih
cmdsave.Enabled = False
cmdadd.Enabled = True
cmddelete.Enabled = True
cmdundo.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub cmdundo_Click()
Call bersih
Call mati
cmdundo.Enabled = False
cmdadd.Enabled = True
cmdsave.Enabled = False
cmddelete.Enabled = True
End Sub

Private Sub Form_Activate()
Call mati
cmdedit.Enabled = False
cmdsave.Enabled = False
cmdundo.Enabled = False
cmdedit.Enabled = True
jam.Caption = Time
tanggal.Caption = Date
End Sub


Private Sub txtkdkasir_Change()
txtkdkasir.MaxLength = 6
End Sub

Hasilnya akan seperti ini :


Untuk kalian yang gagal membuatnya silakan download filenya DISINI , dengan password rarnya fajaryusuf.com





Labels:

Comments

Post a Comment

Popular posts from this blog

Menambahkan Peraturan Komentar Pada Blog

Menambahkan Peraturan Komentar Pada Blog : Ngblog Menulis sebuah artikel dan dikomentari dengan link aktif/promosi produk dan kata kata spam lainnya memang tidak mengenakan anda mungkin akan sangat merasa kecewa sekali, anda mungkin seperti menulis sebuah artikel namun tidak dihargai karyanya oleh orang lain. Mungkin membuat aturan berkomentar di blog adalah salah 1 cara menetralisirnya, mungkin jika ada aturan tersebut orang berpikir 2 kali untuk meninggalkan komentar Spam, lalu bagaimana cara membuat aturan komentar tersebut? langsung saja kita praktekan Ikuti langkah berikut : Login ke bloger,masuk ke blog yang anda inginkan, Klik Setelan -> POS-KOMENTAR   Scroll kebawah dan cari menu "pesan formulir komentar" klik tambahkan , dan isi kolom sesuai keinginan kalian atau peraturan yang kalian inginkan.  Setelah selesai silakan klik simpan setelan dipojok kanan atas. Lihat hasilnya di blog kalian ,akan seperti ini : Jika ada pertanyaan...
21 comments
Baca Lebih »

TEKNOLOGI ADALAH

TEKNOLOGI ADALAH Pengertian Teknologi  Teknologi adalah berbagai macam keperluan serta sarana yang memiliki bentuk beraneka macam seperti peralatan atau sistem yang berfungsi untuk memberikan kenyamanan juga kemudahan bagi penggunanya. Teknologi berasal dari kata technologia yang berasal dari bahasa yunani. Techno artinya keahlian dan logia artinya pengetahuan.  Awal kemunculan kata teknologi bermakna terbatas pada benda- benda berwujud seperti peralatan-peralatan atau mesin. Dengan berjalannya waktu maka makna dari teknologi mengalami perubahan dan perluasan makna. Teknologi tidak terbatas pada benda berwujud, tetapi juga benda yang tidak berwujud. Misalnya perangkat lunak, sebuah mertode, metode pembelajaran, metode keuangan, dan lain sebagainya. Pengertian Teknologi Menurut Para Ahli Teknologi merupakan kegiatan pengembangan dan penerapan berbagai peralatan atau sistem untuk menyelesaikan masalah dan persoalan yang dihadapi manusia dalam kehidupan seha...
5 comments
Baca Lebih »

Kumpulan Script Jail Batch dan VBS

Kumpulan Script Jail Batch dan VBS Hallo pembaca fajaryusuf.com. Kali ini saya akan berbagi Kumpulan Script Jail Menggunakan Notepad. Script berikut hanya untuk jahil.. Untuk membuat script ini aktif yang Anda butuhkan adalah : 1. Notepad 2. PC/Laptop 3. Nah sekarang tinggal copy paste scriptnya ke notepad,, langsung saja dicoba : MESSAGES YG NONGOL TERUS MENERUS SECARA OTOMATIS @ECHO off :Begin msg * muka lo jelek msg * ngaca dulu gih msg * hayo lo,cpu lu gw acak2 msg * ud install ulang aja msg * biar masalah nya kelar GOTO BEGIN Save nama script diatas dg ekstensi *.bat BIKIN SHUTDOWN + MESSAGES @echo off msg * apaan sih lo shutdown -s -c "Error! muka mu standar abis" Save nama script diatas dg ekstensi *.bat MAININ CAPS LOCK BUTTON Set wshShell =wscript.CreateObject ("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" loop Save nama script diatas dg ekstensi *....
3 comments
Baca Lebih »