Oleh: admin | 28/10/2011

Source Code Penjualan Voucher Pulsa

Source code Aplikasi Penjualan Voucher Pulsa ini sangat cocok bagi Programmer Pemula yang baru belajar Bahasa Pemrograman Visual Basic 6. Yang terdiri dari form :


Form Menu Utama dan Login

Form Entry Kartu

Form Entry Voucher

Form Entry Transaksi Penjualan

Form Pencarian Data Transaksi

Form Laporan Transaksi

Laporan Transaksi

Berikut source code Form Entry Kartu :

'untuk menonaktifkan tombol command
Private Sub tomboltidakaktif()
cmdedit.Enabled = False: cmdhapus.Enabled = False
End Sub
'Untuk mengaktikan tombol command
Private Sub tombolaktif()
cmdedit.Enabled = True: cmdhapus.Enabled = True
End Sub
'perintah penekanan tombol enter
Private Sub txtkode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   'kursor langsung aktif pada txtlayanan
   txtlayanan.SetFocus
End If
End Sub
'perintah penekanan tombol enter
Private Sub txtlayanan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   'tombol simpan aktif
   cmdsimpan.SetFocus
End If
End Sub
'untuk mengaktifkan textbox
Private Sub textboxaktif()
txtkode.Enabled = True: txtlayanan.Enabled = True
End Sub
'untuk menonaktifkan textbox
Private Sub textboxtdkaktif()
txtkode.Enabled = False: txtlayanan.Enabled = False
End Sub
'perintah pada saat tombol batal diklik
Private Sub cmdbatal_Click()
tomboltidakaktif
textboxtdkaktif
kosong
txtkartu.Enabled = True
txtkartu.SetFocus
End Sub
'perintah pada saat tombol edit diklik
Private Sub cmdedit_Click()
cmdsimpan.Enabled = True
textboxaktif
cmdhapus.Enabled = False
cmdedit.Enabled = False
txtkartu.Enabled = False
txtkode.SetFocus
End Sub
'perintah pada saat tombol hapus diklik
Private Sub cmdhapus_Click()
With Data1.Recordset
      .Index = "kartudex"  'index berdasarkan nama index yang diketik pada tabel
      .Seek "=", txtkartu.Text   'harus sesuai dengan penempatan index
      If Not .NoMatch Then  'meyakinkan bahwa data benar2 ada sesuai dengan nomor index
         Pesan = MsgBox("Yakin data ini akan dihapus ...?", vbYesNo, "Konfirmasi")  'pertanyaan
         If Pesan = vbYes Then  'jika tombol yes di klik
           .Delete  'maka akan menghapus
           Data1.Refresh  'data1 akan merepresh
           cmdbatal_Click   'tombol batal secara otomatis terklik
           cmdsimpan.Enabled = True  'tombol simpan langsung aktif
         Else  'jika menekan tombol No
           Exit Sub  'maka keluar dari perintah
         End If   'perintah menutup kondisi if (percabangan)
      End If 'perintah menutup kondisi if (percabangan)
End With '
End Sub
'perintah pada saat tombol keluar diklik
Private Sub cmdkeluar_Click()
Unload Me  'keluar dari form
End Sub
'perintah pada saat tombol simpan diklik
Private Sub cmdsimpan_Click()
'memeriksa penginputan data
If (txtkartu.Text = Empty Or txtkode.Text = Empty Or txtlayanan.Text = Empty) Then
   'jika terdapat data belum lengkap diberikan konfirmasi
   MsgBox "Data belum lengkap !", , "Konfirmasi"
Else ' jika sudah lengkap
   With Data1.Recordset  'memeriksa kondisi tabel
      .Index = "kartudex"  'berdasarkan index
      .Seek "=", txtkartu.Text  'disesuaikan input
      If .NoMatch Then  'jika data yang dinput tersebut belum ada dalam tabel maka
           .AddNew  'memberikan ruang kosong pada tabel
           !kartu = txtkartu.Text   'mengisi data kartu pada tabel
           !no_kode = txtkode.Text 'mengisi data kode pada tabel
           !layanan = txtlayanan.Text 'mengisi data layanan pada tabel
           .Update  'memperifikasi kembali
      Else  'jika data yang diinput sudah ada dalam tabel maka
           'dan jika ditekan tombol edit ditekan dan langsung menekan tombol simpan maka
           .Edit   'perintah mengedit
           !no_kode = txtkode.Text  'memperbaharui data kode
           !layanan = txtlayanan.Text  'memperbaharui data layanan
           .Update  'memperifikasi data
      End If
    End With
End If
Data1.Refresh   'merepresh kembali data
kosong 'mengosongkan form
cmdbatal_Click  'tombol batal otomatis terklik
End Sub
'untuk mengosongkan kembali textbox
Private Sub kosong()
txtkartu.Text = "": txtkode.Text = "": txtlayanan.Text = ""
End Sub
'perintah pada saat form dijalankan
Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
Data1.DatabaseName = App.Path & "\dbsvoucher.mdb"
Data1.RecordsetType = 0
Data1.RecordSource = "tblkartu"
tomboltidakaktif
textboxtdkaktif
End Sub
'perintah pada saat penekanan tomblol enter pada textbox
Private Sub txtkartu_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))  'huruf besar pada saat penginputan
If KeyAscii = 13 Then  'perintah pada saat penekanan tombol enter
   With Data1.Recordset  'memeriksa kondisi data
      .Index = "kartudex"   'berdasakan index
      .Seek "=", txtkartu.Text   'berdasarkan input
      If Not .NoMatch Then  'jika data tersebut ada maka
         tampilkan   'ditampilkan pada form
         textboxtdkaktif  'sebagian textbox tidak aktif
         tombolaktif  'tombol edit & hapus aktif
         cmdsimpan.Enabled = False 'tombol simpan tidak aktif
      Else  'jika data tersebut belum ada maka
         textboxaktif  'sebagian textbox aktif
         txtkode.SetFocus   'kursor langsung aktif pada kode
      End If
   End With
End If
End Sub
'perintah untuk menampilkan data pada form textbox
Private Sub tampilkan()
With Data1.Recordset
  txtkode.Text = !no_kode
  txtlayanan.Text = !layanan
End With
End Sub
'akhir listing

Software Pendukung :
1. Microsoft Visual Basic 6.0
2. Microsoft Access 2000
Tambahan Fasilitas:
– About
– Backup Database
Anda berminat, downloadnya : DISINI


Responses

  1. mantap sy penegn banegt sofwere yg tinggal nginstal cara nya gmana yah untuk mendapatkanya….tks

    • sms aja di 085756231035

  2. kk hebat.
    belajar dimana ya??
    hehe


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: