Crear función en GAMBAS3 para crear el código para el archivo controlador en php8
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
Creamos el modulo creadorControlador dentro de la carpeta módulos
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
Comentarios
Publicar un comentario