Membuat Form Kasir Dengan Vb 6.0
Berikut ini yaitu BAB 7 yaitu Cara Membuat Form Kasir Dengan Visual Basic 6.0. Database yang kami paakai yaitu Database MySQL. dan BAB 7 ini lanjutan dari BAB sebelumnya. oleh alasannya yaitu itu jikalau anda ingin mengikuti BAB ini, pastikan anda sudah mengikuti cuilan 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 dipakai 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 yaitu sebagai berikut :
Jika sudah menciptakan FormMasterKasir menyerupai diatas, masukan koding dibawah ini :
Silahkan KLIK DISINI untuk download Project diatas
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 dipakai 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 yaitu sebagai berikut :
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