Ya hemos visto como crear el archivo modelo en base a la nueva tabla
Para crear el contenido del archivo controlador la lógica es igual

Y metemos el siguiente código
' Gambas module file
Public Function creaControlador() As String
Dim strControlador As String
Dim conexion As New Connection
Dim strDatos As String
With conexion
.Type = "mysql"
.Port = "3306"
.Host = Settings["servidor"]
.User = Settings["usuario"]
.Password = Settings["password"]
.Name = Settings["baseDeDatos"]
.Open()
End With
Dim $result As Result
$result = conexion.Exec("describe " & FMain.txtTabla.Text)
Dim contador As Integer
Dim strSegundoCampo As String
Dim strDatosEditas As String
contador = 0
While $result.Length > contador
strDatos &= " $datos[\"nuevo" & UCase(Mid$($result["Field"], 1, 1)) & Mid$($result["Field"], 2, 100) & "\"] = $_POST[ \"nuevo" & UCase(Mid$($result["Field"], 1, 1)) & Mid$($result["Field"], 2, 100) & "\"];" & gb.CrLf
If contador == 1
' SEGUNDO CAMPO
strSegundoCampo = $result["Field"]
End If
strDatos &= " $datos[\"" & UCase(Mid$($result["Field"], 1, 1)) & Mid$($result["Field"], 2, 100) & "\"] = $_POST[ \"editar" & UCase(Mid$($result["Field"], 1, 1)) & Mid$($result["Field"], 2, 100) & "\"];" & gb.CrLf
$result.MoveNext
contador = contador + 1
Wend
strControlador &= "" & "<?php" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "class Controlador" & UCase(Mid$(FMain.txtTabla.text, 1, 1)) & Mid$(FMain.txtTabla.text, 2, 100) & " {" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " /*=============================================" & gb.CrLf
strControlador &= "" & " REGISTRO" & gb.CrLf
strControlador &= "" & " =============================================*/" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " static public function ctrIngresar(){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " if(isset($_POST[\"nuevo" & UCase(Mid$(strSegundoCampo, 1, 1)) & Mid$(strSegundoCampo, 2, 100) & "\"])){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " $tabla = \"" & FMain.txtTabla.Text & "\";" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
'LLENA ARREGLO
strControlador &= "" & strDatos & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " $respuesta = Modelo" & utilerias.strPrimeraMayuscula(FMain.txtTabla.Text) & "::mdlIngresar($tabla, $datos);" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " if($respuesta == \"ok\"){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " echo '<script>" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " swal({" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " type: \"success\"," & gb.CrLf
strControlador &= "" & " title: \"Guardado correctamente!\"," & gb.CrLf
strControlador &= "" & " showConfirmButton: true," & gb.CrLf
strControlador &= "" & " confirmButtonText: \"Cerrar\"" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }).then(function(result){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " if(result.value){" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & " window.location = \"" & FMain.txtTabla.text & " \";" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " });" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " </script>';" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }else{" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " echo '<script>" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " swal({" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " type: \"error\"," & gb.CrLf
strControlador &= "" & " title: \"'.$respuesta.'\"," & gb.CrLf
strControlador &= "" & " showConfirmButton: true," & gb.CrLf
strControlador &= "" & " confirmButtonText: \"Cerrar\"" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }).then(function(result){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " if(result.value){" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & " window.location = \"" & FMain.txtTabla.text & "\";" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " });" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " </script>';" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " } " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " /*=============================================" & gb.CrLf
strControlador &= "" & " MOSTRAR " & gb.CrLf
strControlador &= "" & " =============================================*/" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " static public function ctrMostrar($item, $valor){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " $tabla = \"" & FMain.txtTabla.text & " \"; " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " $respuesta = Modelo" & UCase(Mid$(FMain.txtTabla.text, 1, 1)) & Mid$(FMain.txtTabla.text, 2, 100) & "::mdlMostrar($tabla, $item, $valor); " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " return $respuesta;" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " /*=============================================" & gb.CrLf
strControlador &= "" & " EDITAR " & gb.CrLf
strControlador &= "" & " =============================================*/" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " static public function ctrEditar(){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " if(isset($_POST[\"editar" & UCase(Mid$(FMain.txtTabla.text, 1, 1)) & Mid$(FMain.txtTabla.text, 2, 100) & "\"])){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " $tabla = \"" & FMain.txtTabla.Text & "\";" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " $datos = $_POST;" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " $respuesta = Modelo" & UCase(Mid$(FMain.txtTabla.text, 1, 1)) & Mid$(FMain.txtTabla.text, 2, 100) & "::mdlEditar($tabla, $datos); " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " if($respuesta == \"ok\"){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " echo'<script>" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " swal({" & gb.CrLf
strControlador &= "" & " type: \"success\"," & gb.CrLf
strControlador &= "" & " title: \"Editado correctamente\"," & gb.CrLf
strControlador &= "" & " showConfirmButton: true," & gb.CrLf
strControlador &= "" & " confirmButtonText: \"Cerrar\"" & gb.CrLf
strControlador &= "" & " }).then(function(result) {" & gb.CrLf
strControlador &= "" & " if (result.value) {" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " window.location = \"" & FMain.txtTabla.text & " \";" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & " })" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " </script>';" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & " else{" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " echo'<script>" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " swal({" & gb.CrLf
strControlador &= "" & " type: \"error\"," & gb.CrLf
strControlador &= "" & " title: \"'.$respuesta.'\"," & gb.CrLf
strControlador &= "" & " showConfirmButton: true," & gb.CrLf
strControlador &= "" & " confirmButtonText: \"Cerrar\"" & gb.CrLf
strControlador &= "" & " }).then(function(result) {" & gb.CrLf
strControlador &= "" & " if (result.value) {" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " window.location = \"" & FMain.txtTabla.text & "\";" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & " })" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " </script>';" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "}" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " /*=============================================" & gb.CrLf
strControlador &= "" & " BORRAR " & gb.CrLf
strControlador &= "" & " =============================================*/" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " static public function ctrBorrar(){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " if(isset($_GET[\"borrar" & UCase(Mid$(FMain.txtTabla.text, 1, 1)) & Mid$(FMain.txtTabla.text, 2, 100) & "\"])){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " $tabla =\"" & FMain.txtTabla.Text & " \";" & gb.CrLf
strControlador &= "" & " $datos = $_GET[\"id" & UCase(Mid$(FMain.txtTabla.text, 1, 1)) & Mid$(FMain.txtTabla.text, 2, 100) & "\"];" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " $respuesta = Modelo" & UCase(Mid$(FMain.txtTabla.text, 1, 1)) & Mid$(FMain.txtTabla.text, 2, 100) & "::mdlBorrar($tabla, $datos); " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " if($respuesta == \"ok\"){" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " echo'<script>" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " swal({" & gb.CrLf
strControlador &= "" & " type: \"success\"," & gb.CrLf
strControlador &= "" & " title: \"Borrado correctamente\"," & gb.CrLf
strControlador &= "" & " showConfirmButton: true," & gb.CrLf
strControlador &= "" & " confirmButtonText: \"Cerrar\"," & gb.CrLf
strControlador &= "" & " closeOnConfirm: false" & gb.CrLf
strControlador &= "" & " }).then(function(result) {" & gb.CrLf
strControlador &= "" & " if (result.value) {" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " window.location = \"" & FMain.txtTabla.text & " \";" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & " })" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " </script>';" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " } " & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & " }" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "" & gb.CrLf
strControlador &= "" & "}" & gb.CrLf
strControlador &= "" & " // BUSCA " & utilerias.strPrimeraMayuscula(FMain.txtTabla.Text) & "" & gb.CrLf
strControlador &= "" & " if(isset($_POST[\"buscar" & utilerias.strPrimeraMayuscula(FMain.txtTabla.Text) & "\"])) {" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & " include '../modelos/" & FMain.txtTabla.Text & ".modelo.php';" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & " $valor = $_POST[\"id" & utilerias.strPrimeraMayuscula(FMain.txtTabla.Text) & "\"];" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & " $respuesta = Modelo" & utilerias.strPrimeraMayuscula(FMain.txtTabla.Text) & "::mdlMostrar(\"" & FMain.txtTabla.Text & "\",\"id\",$valor);" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & " echo json_encode($respuesta);" & gb.CrLf
strControlador &= "" & " " & gb.CrLf
strControlador &= "" & "}" & gb.CrLf
Return strControlador
End
Y listo ahora nomas nos falta para crear el contenido para el archivo vista, lo vemos en la siguiente publicación
Deja un comentario