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