<?
//error_reporting(1);
//print "Error reporting: ".get_env("error_reporting");
$estefichero="http://".$SERVER_NAME.$REQUEST_URI;
//print "estefichero: $estefichero";
print "<font size=3 face=\"verdana\">tabla: <b>##tabla##</b></font>";
$motor_basedatos="odbc";
include("class_##clase##.php");
include("inc/class_odbc.php");
//creamos la instancia de la clase CD
$##objeto##= new ##clase##;
$BD= new odbc;
if(include("inc/claves.php")){
//print "\n<br>incluyendo fichero de claves: si";
} else {
print "\n<br>No se pudo incluir el fichero de claves";
}
$tabla_objeto="##tabla##";
$sep_duracion="-";
if($BD->conectar()){
if($debug){print "\n<br>conexion OK";}
} else {
if($debug){
print "\n<br>Sin conexion... KO";
//exit;
}
}
$BD->select_db($DB->basedatos);
if($debug){print "\n<br>opcion: $opcion";}
switch ($opcion){
case nuevo:
{
//mostrar formulario vacío
//asigna valores a las variables de la instancia
##asign_var_cero##
$##objeto##->form_submit="Grabar datos CD";
$##objeto##->form_opcion="intro";
$##objeto##->form_action="$estefichero";
$##objeto##->form_method="post";
$##objeto##->mostrar_formulario_##clase##();
break;
}
case intro:
{
//recuperar datos
//comprobar datos
$duracion=$dur_min.$sep_duracion.$dur_seg;
//print "duracion= $duracion";
//obtener id_maximo
$BD->consulta="##sql_pre_intro##";
$BD->consultar();
$##campo_id##=odbc_result($BD->cursor, "maximo")+1;
print "\n<br>ID maximo=$##campo_id##...";// con ID: $id";
//introducir datos en BD
$BD->consulta="##sql_intro##";
if($BD->consultar()){
//$id=mysql_insert_id();
print "\n<br>Registro introducido...";// con ID: $id";
} else {
print "\n<br>No hay registros con ID: $id";
print "\n<br>$BD->consulta";
print "\n<br>$BD->error";
print "\n<br>$BD->errno";
//exit;
}
//mostrar mensaje
break;
}
case pre_editar:
{
//seleccionar id
//mostrar formulario relleno
$##objeto##->form_method="post";
$##objeto##->form_opcion="editar";
$##objeto##->mostrar_seleccion_id();
break;
}
case editar:
{
//seleccionar id
//mostrar formulario relleno
//print "\neditar-----";
//print "\nID: $id";
$BD->consulta="SELECT * FROM $tabla_objeto WHERE ##id_objeto##=$id;";
if($BD->consultar()){
//if($datos=mysql_fetch_row($BD->cursor)){
if(odbc_fetch_into($BD->cursor, &$datos)){
##asign_var_editar##
$##objeto##->form_method="post";
$##objeto##->form_opcion="actualiza";
$##objeto##->##id_objeto##=$id;
$##objeto##->mostrar_formulario_##clase##();
print "\n<br><h1>Editado ID: $id</h1>";
} else {
print "\n<br>No hay registros con ID: $id";
}
} else {
print "\n<br>No hay registros con ID: $id";
//exit;
}
break;
}
case actualiza:
{
//actualizar registro
$id=$id_editar;
//print "\n<br><h1>Editado ID: $id</h1>";
//introducir datos en BD
$BD->consulta="##sql_editar##";
if($BD->consultar()){
print "\n<br>Registro $##id_objeto## actualizado";
} else {
print "\n<br>No se actualizó el registro";
print "\n<br>$BD->consulta";
print "\n<br>$BD->error";
print "\n<br>$BD->errno";
//exit;
}
break;
}
case pre_borrar:
{
//seleccionar id
//mostrar formulario relleno
$##objeto##->form_method="post";
$##objeto##->form_opcion="borrar";
$##objeto##->mostrar_seleccion_id();
break;
}
case borrar:
{
//eliminar registro
//$BD->consulta="DELETE FROM $tabla_objeto WHERE id_cd=$id";
$BD->consulta="DELETE FROM $tabla_objeto WHERE ##id_objeto##=$id;";
//$BD->consulta="##query_elimina##";
if($BD->consultar()){
print "\n<br>Registro $id Kaput...";
} else {
print "\n<br>No se eliminó el registro";
print "\n<br>$BD->consulta";
print "\n<br>$BD->error";
print "\n<br>$BD->errno";
//exit;
}
break;
}
case eliminar:
{
//eliminar registro
break;
}
case listar:
{
//eliminar registro
$BD->consulta="SELECT * FROM $tabla_objeto;";
if($BD->consultar()){
$salida.= "<table border=1>";
$salida.= "<tr>
##rotulos_tabla##
</tr>";
//while($datos=mysql_fetch_array($BD->cursor)){
while(odbc_fetch_into($BD->cursor, &$datos)){
//aqui se recuperan los valores y se asignan a las variables
##recuperacion_datos3##
$salida.= "<tr>
##valores_tabla##
<td><a href=\"$estefichero?opcion=editar&id=$##id_objeto##\">editar</a></td>
</tr>";
}
$salida.="</table>";
print $salida;
} else {
print "\nNo hay registros...";
//exit;
}
break;
}
case lista_tabla:
{
//eliminar registro
$BD->consulta="SELECT * FROM $tabla_objeto;";
if($BD->consultar()){
//while($datos=mysql_fetch_array($BD->cursor)){
while(odbc_fetch_into($BD->cursor, &$datos)){
//aqui se recuperan los valores y se asignan a las variables
##recuperacion_datos3##
$salida.= "<table border=0>##valores_listado##</table><hr>";
}
if($salida){
$salida="<p><font face='verdana' size='3' color='navy'><b>Listando registros:</b></font><hr>".$salida;
}
print $salida;
} else {
print "\nNo hay registros...";
//exit;
}
break;
}
default:
{
//menu
$##objeto##->form_action="$estefichero";
$##objeto##->form_method="post";
$##objeto##->mostrar_formulario_menu();
break;
}
}//fin del switch
$##objeto##->mostrar_menu_basico();
?> |