Pemograman Visual 1

Pemprograman Visual

VB 6.0

        Minggu ada tugas besar dari dosen nh, disuruh buat program database dengan emnampilkan hasil input data di form lain yah, setelah di coba sih lumayan susah juga.

Nih mau share ke teman-teman blogger gimana cara dan lankah-langkah pembuatan program database dengan menggunakan VB6.0.

          dengan usaha dan sdikit bantuan dari Om google akhirnya tugas ini bisa juga terselesaikan.

nah untuk teman-teman yang termasuk newbie sama seperti saya tutor ini mungkin bisa sedikit membantu kawan-kawan dalam belajar pemograman khusunya pemograman database menggunakan VB 6.0

Yah mungkin basa-basinya dah cukup langsung aja nih ke TKP....

1. Pertama design form1.y seperti berikut :

          sebenarnya sih ni tampilan saat program di run sih :)

 
2.  Setelah tampilan form satu di rancang sekaran rancang form2.y

     di form2 gunakan msflexgrid dan data control. koneksikan data1 dengan msflexgrid tersebut

3.  Nah setelah form-formnya dirancang sekarang siapkan data basenya, yaitu :

• Database dengan nama dbfinal
• kemudian buat tabel terserah namanya apa :)
• Setelah database siap sekarang saya akan bagikan listing programnya,

buka jendela penulisan code dan copy-pastekan code berikut :

LIST PROGRAM

Private Sub kunci()

Text2.Enabled = False: Text3.Enabled = False: Text4.Enabled = False: Text5.Enabled = False: Text6.Enabled = False

Option1.Enabled = False: Option2.Enabled = False: DTPicker1.Enabled = False

Combo1.Enabled = False: Combo2.Enabled = False

End Sub

Private Sub Command1_Click()

Data1.Recordset.AddNew

Data1.Recordset!stb = Text1.Text: Data1.Recordset!nama = Text2.Text: Data1.Recordset!tempat_lhr = Text3.Text: Data1.Recordset!tgl_lhr = CDate(DTPicker1)

If Option1.Value = True Then

Data1.Recordset!j_kel = 1

Else: If Option2.Value = True Then Data1.Recordset!j_kel = 2

End If

Data1.Recordset!agama = Combo1.ListIndex + 1

Data1.Recordset!jurusan = Combo2.Text

Data1.Recordset!alamat = Text4.Text: Data1.Recordset!telp = Text5.Text: Data1.Recordset!ket = Text6

Data1.Recordset.Update

End Sub

Private Sub bersih()

Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "": Text5.Text = "": Text6.Text = "": Combo2 = ""

Command1.Enabled = False: Command2.Enabled = False: Command3.Enabled = False

End Sub

Private Sub tampil()

Text2.Text = Data1.Recordset!nama: Text3.Text = Data1.Recordset!tempat_lhr: DTPicker1 = Data1.Recordset!tgl_lhr

If Data1.Recordset!j_kel = 1 Then

Option1.Value = True

Else

Option1.Value = False

Option2.Value = True

End If

Combo1.ListIndex = Data1.Recordset!agama: Combo2.Text = Data1.Recordset!jurusan

Text4.Text = Data1.Recordset!alamat: Text5.Text = Data1.Recordset!telp: Text6.Text = Data1.Recordset!ket

End Sub

Private Sub Command2_Click()

If Text1.Text = Data1.Recordset!stb Then

Data1.Recordset.Edit

Data1.Recordset!nama = Text2.Text: Data1.Recordset!tempat_lhr = Text3.Text: Data1.Recordset!tgl_lhr = CDate(DTPicker1)

If Option1.Value = True Then

Data1.Recordset!j_kel = 1

Else: If Option2.Value = True Then Data1.Recordset!j_kel = 2                  

End If

Data1.Recordset!agama = Combo1.ListIndex

Data1.Recordset!jurusan = Combo2.Text

Data1.Recordset!alamat = Text4.Text: Data1.Recordset!telp = Text5.Text: Data1.Recordset!ket = Text6

Data1.Recordset.Update

End If

MsgBox "Data teleh di rubah", vbOKOnly

End Sub

Private Sub Command3_Click()

MsgBox "Yakin data ingin di hapus ?", vbQuestion + vbYesNo

If vbYes Then

Data1.Recordset.Delete

Data1.Recordset.Update

Else

MsgBox "Penghapusan record dibatalkan", vbOKOnly

End If

End Sub

Private Sub Command4_Click()

Call bersih

Call kunci

Command1.Enabled = False: Command2.Enabled = False: Command3.Enabled = False

End Sub

Private Sub Command5_Click()

Form2.Show

End Sub

Private Sub Command6_Click()

Unload Me

End Sub

Private Sub Form_Load()

Call buka

Call kunci

Combo2.AddItem "Sistem informasi"

Combo2.AddItem "Teknik informasi"

Combo2.AddItem "Manajemen informasi"

End Sub

Private Sub buka()

Text2.Enabled = True: Text3.Enabled = True: Text4.Enabled = True: Text5.Enabled = True: Text6.Enabled = True

Option1.Enabled = True: Option2.Enabled = True: DTPicker1.Enabled = True

Combo1.Enabled = True: Combo2.Enabled = True

End Sub

Private Sub Text1_Change()

If Text1.Text <> Data1.Recordset!stb Then

Call buka

Command1.Enabled = True: Command2.Enabled = False: Command3.Enabled = False: Command4.Enabled = False

Else

Command1.Enabled = False: Command2.Enabled = True: Command3.Enabled = True: Command4.Enabled = True

Call tampil

End If

End Sub

INI dia screenshotnya :

 

SCREEN FORM2

 

yah mungkin dalam penjelasan saya banya kekurangannya jadi jika ada masalah

silahkan saja di komen

ok sampai disini dulu tutor seputar pemograman visual

ASSALAMU'ALAIKUM...

"BERBAGI ADALAH CARA UNTUK MENYIMPAN PENGETAHUAN"

"BERBAGI TIDAK AKAN MENGURANGI PENGETAHUAN"
"JUST SHARE"

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Unknown, Published at 4:28 AM and have 0 comments