Proses ini adalah kelanjutan dari Mengkoneksikan Visual Basic 6.0 dengan Ms.Acces
Untuk contoh database bisa diunduh Disini
1. Buat tampilan from dengan properties (name) frmakademik
Untuk contoh database bisa diunduh Disini
1. Buat tampilan from dengan properties (name) frmakademik
- 10 Label
- 5 Textbox
- 2 DTPicker
- 3 Combobox
- 5 commandButton
Dengan keterangan :
- LABEL
label 1
- caption : Nim
label 2
- caption : Nama
label 3
- caption : Tanggal Lahir
label 4
- caption : Jenis Kelamin
label 5
- caption : Agama
label 6
- caption : Alamat
label 7
- caption : Notelp
label 8
- caption : Study
label 9
- caption : Tanggal Masuk
label 10
- caption : Cari
Datagrid1
-(name) dgmahasiswa
- TEXTBOX
Text1
-(name) : txtnim
Text2
-(name) : txtnama
Text3
-(name) : txtalamat
Text4
-(name) : txttelp
Text5
-(name) : txtcari
- DTPICKER
DTPicker1
-(name) : tgllahir
DTPicker2
-(name) : tglmasuk
- COMBOBOX
Combo1
-(name) : cmbjenkel
Combo2
-(name) : cmbagama
Combo3
-(name) : cmbstudy
- COMMADBUTTON
Command1
-(name) : cmdtambah
-caption : tambah
Command2
-(name) : cmdsimpan
-caption : simpan
Command3
-(name) : cmdbatal
-caption : batal
Command4
-(name) : cmdhapus
-caption : hapus
Command5
-(name) : cmdkeluar
-caption : keluar
2. Klik form 2x pada form_load
3. Ketikan kode berikut
Private Sub Form_Load()
'memanggil sub kosongkan
kosongkan
'memanggil sub combo
combo
Call koneksi
'koneksi adalah sub yang kita buat di module tadi
End Sub
4. berkan kode berikut untuk mengkosongkan textbox dan mengisi combobox dengan kode , berikan dipaling bawah atau selelah kode form_load
Berikut kode lengkapnya
Sub kosongkan()
'untuk mengkosongkan textbox
txtnim.Text = ""
txtnama.Text = ""
cmbjenkel.Text = ""
cmbagama.Text = ""
txtalamat.Text = ""
txttelp.Text = ""
cmbstudy.Text = ""
txtcari.Text = ""
End Sub
Sub combo()
'mengisi combobox
cmbjenkel.AddItem "Pria"
cmbjenkel.AddItem "Wanita"
cmbagama.AddItem "Islam"
cmbagama.AddItem "Kristen"
cmbagama.AddItem "Kristen Protistan"
cmbagama.AddItem "Budha"
cmbagama.AddItem "Hindu"
cmbagama.AddItem "Kong Hu Chu"
cmbstudy.AddItem "D3 - ABA"
cmbstudy.AddItem "D3 - MI"
cmbstudy.AddItem "S1 - ABA"
cmbstudy.AddItem "S1 - MI"
End Sub
Berikut kode lengkapnya
Tidak ada komentar:
Posting Komentar