PROGRAM VB MENGGUNAKAN DATABASE

VB DENGAN DATABASE

1. Tampilan database access Table Pembeli

 Table tersebut menampilkan data - data pembelian yang terjadi di Rabbity Shop , lalu kita akan menampilkan stok kelinci . berikut tampilan tablenya

 2.  Tampilan database access Table Stock Kelinci

 3. Desain Vb sebagai berikut pada tampilan form 1

lalu klik info kelinci untuk melanjutkan ke tampilan form 2 

3. Tampilan untuk form 2 yang menggunakan database stok kelinci

untuk menjalankannya baca perintah yang diberikan atau di tampilkan , pilih jenis kelinci lalu tekan klik

4. Mencari data pada database di VB

maka akan tampil gambar dan informasi kelinci tersebut serta kode untuk mengecek persediaan stok kelinci yang ada di Rabbity Shop . lalu masukkan kode kelinci untuk mengecek ketersediaan pada textbox lalu klik cek ketersediaan 

maka akan tampil sebagai berikut dalam pencaharian . 

5. Mengupdate data , tanpa perlu merubahnya ke database dulu . kita bisa langsung mengupdatenya di vb 

ubah persediaan 12 menjadi 22 dengan double klik pada data yang ingin di update lalu masukkan jumlah yang kita ingin update misalnya 22 , maka klik enter lalu database akan mengupdate secara otomatis

6. Lanjut ke form 3 , dengan megkilik keluar lalu pilih beli

berikut tampilan form 3 ...

7. Database table Pembeli ada pada form 3 , cara menjalankannya adalah isi data pembeli seperti di bawah ini

8. klik Tambah , maka data akan masuk kedalam database

9. kita juga bisa meghapus database , jika terjadi cancel . berikut caranya klik pada database yang ada di vb lalu klik hapus . contoh kita akan mengklik bambang lalu klik hapus maka data bambang akan hilang 

 jika mengklik keluar maka akan kembali pada form 1 .

Berikut adalah kodingan untuk form 1 :

Private Sub Command1_Click()

Form2.Show

Unload Me

End Sub

Private Sub Command2_Click()

Form3.Show

Unload Me

End Sub

Private Sub Command3_Click()

Form2.Show

Unload Me

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

    If (Label1.Left + Label1.Width) <= 0 Then

        Label1.Left = Me.Width

    End If

    Label1.Left = Label1.Left - 200

End Sub

kodingan untuk form 2 :

Private Sub Command1_Click()

If Combo1.Text = "HAVANA" Then

Image2.Picture = LoadPicture(App.Path & "\havana.jpg")

ElseIf Combo1.Text = "LIONHEAD" Then

Image2.Picture = LoadPicture(App.Path & "\lionhead.jpg")

ElseIf Combo1.Text = "DUTCH" Then

Image2.Picture = LoadPicture(App.Path & "\dutch.jpg")

ElseIf Combo1.Text = "NETHERLAND DWARF" Then

Image2.Picture = LoadPicture(App.Path & "\netherland.jpg")

ElseIf Combo1.Text = "DRAWFT HOTOT" Then

Image2.Picture = LoadPicture(App.Path & "\DwarfHotot.jpg")

ElseIf Combo1.Text = "ENGLISH ANGGORA" Then

Image2.Picture = LoadPicture(App.Path & "\english.jpg")

ElseIf Combo1.Text = "LOP HOLLAND" Then

Image2.Picture = LoadPicture(App.Path & "\Lopholand.jpg")

End If

Select Case Combo1

Case "HAVANA": Text1.Text = "KODE A2 (1-6 BULAN ) KODE A22 (7-12 BULAN) Kelinci Havana termasuk ras kelinci tertua di dunia karena sudah dikembangkan di Belanda sejak tahun 1898 silam. Penyebaran kelinci Havana terbilang cepat, sebab memasuki tahun 1908 jenis kelinci ini sudah tersebar diseluruh daratan Eropa. Baru pada tahun 1916 kelinci Havana dipasarkan di Amerika dan Asia termasuk Indonesia. Dulunya mereka di kembangbiakan oleh beberapa orang antara lain, Fee de Marbourg, Perle Biaya dan Gris Perle de Hal. Kelinci jenis ini telah diakui oleh American Rabbit Breeders Association dalam empat jenis varian warna yang mereka miliki antaranya: coklat, biru, dan hitam. Berat rata-rata mereka adalah antara (2,0 kg) dan (2,9 kg)"

Case "LIONHEAD": Text1.Text = "KODE A6 (1-6 BULAN) KODE A66 (7-12 BULAN )Lionhead merupakan salah satu ras kelinci yang lebih baru dari kelinci domestik di Amerika Serikat, dan baru-baru ini kelompok kelinci tersebut telah lulus dalam Asosiasi proses presentasi Kelinci Peternak di amerika dan telah diterima dan di akui oleh American Rabbit Breeders Association (ARBA)"

Case "DUTCH": Text1.Text = "KODE A4 (1-6 BULAN) KODE A44(7-12 BULAN) Kelompok Jenis kelinci ini berasal dari Negeri kincir angin. Mereka mempunyai bulu yang pendek dan kaya akan warnanya dan berat dari jenis kelinci yang satu ini bisa mencapai 1,5 hingga 2 kg"

Case "NETHERLAND DWARF": Text1.Text = "KODE A1 (1-6 BULAN ) KODE A11(7-12 BULAN ) Seperti namanya yang berarti Belanda Kerdil, jenis kelinci Netherland Dwarf ukurannya mungil dan pertumbuhannya sangat lambat. Konon jenis kelinci ini dibawa oleh bangsa Belanda ke Indonesia dan dipelihara di perkebunan kolonial. Dibanding jenis-jenis kelinci lain Netherland Dwarf sebenarnya kurang cocok untuk diternakkan, namun penyebarannya sendiri di Indonesia sangat merata"

Case "DRAWFT HOTOT": Text1.Text = "KODE A5 (1-6 BULAN ) KODE A55 (7-12 BULAN ) Ras kelinci jenis ini terlihat cantik dan anggun. Kelompok kelinci ini mempunyai ciri yang khas dengan lingkaran hitam yang terdapat di bagian matanya, selain dari itu untuk ras kelinci ini juga memiliki telinga yang cukup seimbang atau pas, telinga mereka tidak terlalu pendek dan juga tidak terlalu panjang"

Case "ENGLISH ANGGORA": Text1.Text = "KODE A3 (1-6 BULAN ) KODE A33 (7-12 BULAN )Kelinci hias jenis ini mirip dengan kelinci anggora, kelompok mereka memiliki ciri bulu yang tebal dan panjang, selain itu mereka juga memiliki ciri yang begitu khas dan sangat berbeda dengan ras kelinci lain nya yaitu pada bagian ujung telinganya tumbuh bulu yang menjuntai dan indah"

Case "LOP HOLLAND": Text1.Text = "KODE A7 (1-6 BULAN) KODE A77 (7-12 BULAN )Untuk jenis kelinci ini mereka memiliki Ciri khas telinga yang panjang dan jatuh. Kelompok ras kelinci ini juga memiliki hidung yang pesek dan mempunyai ukuran panjang tubuh mencapai 12 sampai 23 cm. Pada bagian warna yang mereka miliki juga cukup bervariasi"

End Select

End Sub

Private Sub Command2_Click()

STOCK.RecordSource = "select * from STOCK_KELINCI where KODE_KELINCI like '" & Text2 & "'"

STOCK.Refresh

End Sub

Private Sub Command3_Click()

Form1.Show

Unload Me

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

 If (Label1.Left + Label1.Width) <= o Then

 Label1.Left = Me.Width

Label1.Left = Label.Left - 100

End If

End Sub

kodingan untuk form 3 :

Private Sub Command1_Click()

PEMBELI.Recordset.AddNew

Me.PEMBELI.Recordset.Fields(0) = Text1.Text

Me.PEMBELI.Recordset.Fields(1) = Text2.Text

Me.PEMBELI.Recordset.Fields(2) = DTPicker1

Me.PEMBELI.Recordset.Fields(3) = Text3.Text

Me.PEMBELI.Recordset.Fields(4) = Text4.Text

Me.PEMBELI.Recordset.Fields(5) = Text5.Text

Me.PEMBELI.Recordset.Fields(6) = Combo1.Text

Me.PEMBELI.Recordset.Fields(7) = Combo2.Text

Me.PEMBELI.Recordset.Fields(8) = Text6.Text

Me.PEMBELI.Recordset.Fields(9) = Text7.Text

PEMBELI.Recordset.Update

End Sub

Private Sub Command3_Click()

PEMBELI.Recordset.Delete

PEMBELI.Recordset.MoveLast

End Sub

Private Sub Command4_Click()

Form1.Show

Unload Me

End Sub

Terima kasih untuk ibu Ito Riris selaku dosen Algoritma dan Pemograman 2B , karna telah membimbing saya agar saya dapat berkembang pengetahuannya dan sistem kerja saya juga jadi dapat bersaing nanti jika saya dalam dunia kerja . 

Sekian Vb dengan Database dari saya semoga bermanfaat bagi para pembaca .