Membuat Form Kasir Dengan VB 6.0

Berikut ini adalah BAB 7 yaitu Cara Membuat Form Kasir Dengan Visual Basic 6.0. Database yang kami paakai adalah Database MySQL. dan BAB 7 ini lanjutan dari BAB sebelumnya. oleh karena itu jika anda ingin mengikuti BAB ini, pastikan anda sudah mengikuti bab sebelumnya :

BAB Sebelumnya :
BAB 1 : Membuat Project Aplikasi Kasir
BAB 2 : Membuat Form Menu Utama Aplikasi Kasir
BAB 3 : Membuat Database dan Tabel Kasir
BAB 4 : Membuat Koneksi Database Kasir
BAB 5 : Membuat Form Login Aplikasi Kasir
BAB 6 : Membuat Koding Logout Aplikasi Kasir

 Form kasir yang akan kita buat ini, akan digunakan untuk memanage data kasir yang mana data kasir ini nantinya sebagai data untuk login ke Aplikasi Kasir.

Buka Project anda sebelumnya :
Klik Project - Add Form
Buatlah form dengan nama : FormMasterKasir
Design form adalah sebagai berikut :
Jika sudah membuat FormMasterKasir seperti diatas, masukan koding dibawah ini :

Dim mvBookMark As Variant
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Combo1 = "" Then
MsgBox "Data Belum Lengkap"
Else
Call BukaDB
Dim SQLTambah As String
            SQLTambah = "Insert Into TBL_Kasir values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Combo1 & "')"
            koneksi.Execute SQLTambah
            MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
            Form_Activate
            Call kondisiawal
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 20
Text3.MaxLength = 15
Text3.PasswordChar = "X"
kondisiawal
End Sub
Private Sub kondisiawal()
    Command1.Caption = "&Input"
    Command2.Caption = "&Edit"
    Command3.Caption = "&Hapus"
    Command4.Caption = "&Tutup"
    Command1.Enabled = True
    Command2.Enabled = True
    Command3.Enabled = True
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Combo1.Clear
    Combo1.AddItem "USER"
    Combo1.AddItem "ADMIN"
End Sub
Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = koneksi
Adodc1.RecordSource = "select KodeKasir,NamaKasir,LevelKasir from TBL_Kasir"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Call kondisiawal
Command1.SetFocus
End Sub


Silahkan KLIK DISINI untuk download Project diatas

11 Responses to "Membuat Form Kasir Dengan VB 6.0"

  1. Adodc1.ConnectionString = koneksi maaf gan kenapa punya saya debugmya disitu ya?

    ReplyDelete
    Replies
    1. Dear Gilang,
      Apakah sudah mengikuti step by step dari awal. Karena pemanggilan Koneksi ada di Module. Jika mengikuti dari awal harusnya tidak Error.

      Delete
  2. Masukkan kodingnya di master kasir kan ya? Kok saya compile error ambiguous name detected: Form_Load

    ReplyDelete
    Replies
    1. Dear Cukong,
      Betul dimasukinnya di form master kasir.
      Untuk Ambiguous biasanya ada 2 form load. Silahkan di hapus salah satu ya...
      Salam JNM.

      Delete
  3. Bang Video Bab 7 nya Ga ada yah?? ini Belum bisa running ,, bingung euy..

    ReplyDelete
    Replies
    1. Dear Ahmad,
      Iya belum ada Video nya.. tapi gpp karena sudah berkomentar
      akan diusahakan pembuatan videonya..
      mohon di tunggu :)

      Delete
  4. BANG ane udah ikutin cara di atas ya,, pas di runing kok gk jalan ya, apa ada koding lagi menu utama

    ReplyDelete
  5. bang saya udah ikutin tutorial di atas. pas di runing kok gk jalan ya????
    apa ada koding lagi buat di menu utama

    ReplyDelete
    Replies
    1. Di FormMenuUtama hanya memanggil Form Kasir saja.
      Apakah sudah sukses dipanggil?

      Delete
  6. udah di panggil FormMasterKasir.Show vbModal. pas di runing kena debug di Adodc1.ConnectionString = koneksi. padahalan udah di ikutin dari awal.. hmm ada yg kurang kah apa gmn ya bang?

    ReplyDelete
    Replies
    1. Dear Mas Nur Ichsan dan Sobat JNM lainnya,
      Sudah saya berikan project nya, silahkan di download ya..
      Semoga menjawab semua pertanyaan diatas
      Salam
      JNM

      Delete