MeltOS

LISTING PROGRAM Private Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset!NPM = Text1.Text Adodc1.Recordset!Nama = Text2.Text Adodc1.Recordset!Kelas = Text3.Text Adodc1.Recordset.Update DataGrid1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command2_Click() Select Case Command2.Caption Case "UBAH" Text1.Text = Adodc1.Recordset!NPM Text2.Text = Adodc1.Recordset!Nama Text3.Text = Adodc1.Recordset!Kelas Command2.Caption = "UPDATE" Case "UPDATE" Adodc1.Recordset!NPM = Text1.Text Adodc1.Recordset!Nama = Text2.Text Adodc1.Recordset!Kelas = Text3.Text DataGrid1.Refresh Command2.Caption = "UBAH" Text1.Text = "" Text2.Text = "" Text3.Text = "" End Select End Sub Private Sub Command3_Click() pilih = MsgBox("Anda yakin ingin menghapus?", vbYesNo + vbQuestion, "Konf

ILMU BUDAYA DASAR RUMAH ADAT KALIMANTAN BARAT “RUMAH PANJANG” DISUSUN OLEH: NAMA : MELTHA ALHIDAYA PUTRA NPM : 56414585 KELAS : 1IA02 DOSEN : SRI WULANDARI PROGRAM STUDI TEKNIK INFORMATIKA FAKULTAS TEKNOLOGI INDUSTRI UNIVERSITAS GUNADARMA 2015/2016 Rumah Panjang Kategori: Tempat berlindung & Perumahan | Editor: Meltha Alhidaya Putra