daftar sekolah

assalammu'alaikum wr.wb
saya akan menunjukan langkah membuat tabel daftar sekolah

membuat tabel daftar sekolah

komponen yang digunakan
1.label 1,propertis caption diganti nama menjadi"nis"
2.label 2,propertis caption diganti nama menjadi"nama"
3.label 3,propertis caption diganti nama menjadi"program"
4.komponen text1,kosongkan
5..komponen  text2,kosongkan
6.komponen kombo di isi dengan jurusan
7.command 1 propertis caption diganti nama menjadi"simpan"
8..command 2 propertis caption diganti nama menjadi"batal"
9..command 3 propertis caption diganti nama menjadi"hapus"
10..command 4 propertis caption diganti nama menjadi"edit"
11.lalu komponen adodc1 di conecsikan dg cara klik kanan pd adodc pilih

 

12.lalu komponen datagrid
13yang terakhir komponen command 5 captionnya di ganti namannya menjadi cetak


berikut rumus"dari program tersebut

Private Sub Command1_Click()
Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset!nis = Text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Berhasil di Simpan", vbInformation, "Penyimpanan Data"
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.Text1.SetFocus
End Sub

Private Sub Command2_Click()
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Me.Adodc1.Recordset.Delete
MsgBox "Data Siswa Telah Dihapus", vbInformation, "Hapus Data"
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.Text1.SetFocus
End Sub

Private Sub Command4_Click()
Load DataReport1
DataReport1.Show
End Sub

Private Sub Command5_Click()
Me.Adodc1.Recordset!nis = Text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Telah Dirubah", vbInformation, "Perubahan Data"
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.Text1.SetFocus
End Sub

Private Sub DataGrid1_Click()
Me.Text1.Text = Adodc1.Recordset!nis
Me.Text2.Text = Adodc1.Recordset!nama
Me.Combo1.Text = Adodc1.Recordset!program
End Sub

Private Sub Form_Load()
Me.Combo1.AddItem "Rekayasa Perangkat Lunak"
Me.Combo1.AddItem "Teknik Komputer dan Jaringan"
Me.Combo1.AddItem "Teknik Kendaraan Ringan"
Me.Combo1.AddItem "Akuntansi"
End Sub

fungsi if then dan else

fungsi if then else digunakan untuk beberapa blok pernyata.an menurut kondisi yg di persyaratkan
contoh :pembelian barang berdiskon dalam visual basic menggunakan if,then,else
jika pembelian >200000 maka bonus 15% dari pembelian


1pertama buka visual basic,lalu buat tampilan seperti tampilan dibawah ini
 

2tulis rumus pada  tombol hitung bonus,seperti contoh dibawah ini

3 lalu akan berubah tampilan seperti ini  jika di jalankan,jikapembeli >200000 maka tidak ada bonus

  

4.jika kita  menulis harga <200000 maka mendapat  bonus gelas cantik

5.itulah contoh dari pembelian berbonus