Anggun Miranda

VB DENGAN DATABASE 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

FORM1 sintaks program : Private Sub Command1_Click() Form2.Show Unload Me End Sub Private Sub Command2_Click() Form4.Show Unload Me End Sub Private Sub Command3_Click() Form7.Show Unload Me End Sub Private Sub Image1_Click() Label1.FontSize = 28 Label1.Caption = "ANGGUN HOTEL" 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 Private Sub Timer2_Timer() Label2.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)  If (Label2.Left + Label2.Width) <= o Then  Label2.Left = Me.Width Label2.Left = Label.Left - 100 End If End Sub FORM 2 sintaks program : Private Sub Command1_Click() Text1.FontSize = 12 Text1.Text = "Jalan.Malam bintang,no.17 Depok,Jawa Barat no.tlp:081320004926(layanan 24 jam)" End Sub Private Sub Comman