Public Function hapus(id As Integer)
        db.koneksi()
        query = "DELETE FROM ruang WHERE id_ruang = @id"
        cmd = New SqlCommand(query, db.konek)

        cmd.Parameters.Add("@id", SqlDbType.Int).Value = id

        If cmd.ExecuteNonQuery Then
            Return True
        Else
            Return False
        End If
    End Function