Download Program / Aplikasi Dengan VB 6.0. Program Pembelian; 02. Mas saya mau tanya tutorial membuat aplikasi perpustakaan memakai barcode ada?? Membuat program kasir dengan visual basic 6.0. Program kasir dengan vb 6, vb6, tutorial membuat program kasir sederhana dengan menggunakan visual basic 6.

Setelah itu kita akan masuk pada pengekodean, yang pertama akan kita bahas adalah koneksi, untuk menghubungakan vb dengan database acces kita memerlukan komponen ADODC untuk mencari alamat database yang telah kita buat, setelah itu baru kita masukkan alamat tadi kedalam module, baiklah kita lansung saja untuk mengkoneksikan vb dengan database acces adalah sebagai berikut: 1. Patra Scent Of Attraction Rar on this page. Ambillah komponen ADODC didalam menu komponen, jika tidak ada nama komponen ADODC maka kita keluarkan dengan cara klik kanan pada menu komponen.

Di sini saya akan membahas tentang cara membuat aplikasi penjualan yang sangat sederhana menggunakan visual basic 6.0 dengan database SQL Server 2000. Pastikan Anda.

Seperti gambar dibawah ini. Function koneksi() Set cn = New ADODB.Connection cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & App.Path & ' Pustaka.mdb;Persist Security Info=False' End Function Setelah koneksi database kita lakukan tutup halaman module koneksi ini dan simpan, setelah itu hapus saja ADODC yang ada pada form dan koneksi ini cukup satu kali kita lakukan untuk satu project vb ini,untuk form selanjutnya kita akan panggil koneksi yang sudah kita buat tadi. Sekarang kita akan mengisi perintah pada setiap tombol yang ada pada form dan yang pertama kita membuat tombol simpan. - Klik 2 kali tombol simpan dan ketikkan perintah dibawah ini. Set rs = New ADODB.Recordset rs.Open 'select*from Anggota where NIS =' & Text1.Text & '', cn, adOpenKeyset If rs.RecordCount 0 Then MsgBox ' data sudah ada' BERSIH Else cn.Execute 'insert into Anggota values (' & Text1.Text & ',' & Text2.Text & ',' & Text3.Text & ',' & DTPicker1 & ',' & Combo1.Text & ',' & Combo2.Text & ',' & Text7.Text & ',' & Text8.Text & ',' & DTPicker2 & ')' MsgBox 'Data Anda Sudah Di Simpan' tampil BERSIH End If - Selanjutnya klik tombol hapus dan masukkan perintah ini. Private Sub Command3_Click() cn.Execute ('update Anggota set NIS= ' & Text1.Text & ',Nama= ' & Text2.Text & ', Tempat_lahir = ' & Text3.Text & ',Tanggal_lahir= ' & DTPicker1 & ',Jenis_Kelamin=' & Combo1.Text & ',Agama=' & Combo2.Text & ',Alamat = ' & Text7.Text & ',No_hp =' & Text8.Text & ',Aktif_sampai=' & DTPicker2 & ' where NIS= ' & Text1.Text & '') MsgBox 'Data Anda Sudah Di Perbaiki' tampil BERSIH End Sub Sekarang perintah yang paling gampang yaitu untuk membersihkan komponen text.

Private Sub Form_Load() Call koneksi tampil Text1.Text = ' Text2.Text = ' Text3.Text = ' Text7.Text = ' Text8.Text = ' Combo1.Text = '----Pilih----' Combo2.Text = '----Pilih----' With Combo1.AddItem 'laki-laki'.AddItem 'Perempuan' End With With Combo2.AddItem 'Islam'.AddItem 'Kristen'.AddItem 'Hindu'.AddItem 'Budha' End With End Sub Perintah diatas adalah untuk mengisi item atau nilai kedalam combo. Maka setiap program akan dijalankan maka akan langsung membaca script koneksi yang di tujukan ke module koneksi yang kita bikin tadi. Perintah berikutnya adalah untuk meriksa apakah data yang akan kita simpan sudah ada di dalah database atau belum yakni dengan cara klik 2 kali pada komponen text1 lalu masukkan perintah berikut ini. Private Sub Text1_Change() Set rs = New ADODB.Recordset rs.Open 'select*from Anggota where NIS =' & Text1.Text & '', cn, adOpenKeyset If rs.RecordCount 0 Then Text2.Text = rs!Nama Text3.Text = rs!Tempat_lahir DTPicker1.Value = rs!Tanggal_lahir Combo1.Text = rs!Jenis_kelamin Combo2.Text = rs!Agama Text7.Text = rs!Alamat Text8.Text = rs!No_hp DTPicker2.Value = rs!Aktif_sampai MsgBox 'Data Sudah Ada!!!'

Bodeans Home Rapidshare. End If End Sub Untuk image 1 dan 2 kita atur pada propertis  Picture dan cari file gambar yang anda ingin jadikan background.

• Atur Formnya. Klik Form1, lihat properties, pada (Name) ganti dengan “VLMKERUCUT_FRM”, pada Caption ganti dengan “MENGHITUNG VOLUME KERUCUT”. Jika ingin menggunakan backgroundnya pilih Picture, klik kotak kecil di kiri (None) kemudian pilih gambar yang diinginkan. • Klik Label1, lihat properties, pada Caption ganti dengan “MENGHITUNG VOLUME KERUCUT”, untuk mengatur letak tulisan pilih alignment (disini saya pilih 2-center), untuk memilih warna latar pada tulisan pilih BackColor klik palette( saya pilih warna kuning ), untuk memilih tipe tulisan dan besarnya pilih Font (saya pilih Kristen ITC, Bold, 14), untuk memilih warna tulisan pilih ForeColor klik palette. • Klik Label2, lihat properties, pada Caption ganti dengan “JARI JARI”.