FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#61
|
||||
|
||||
En nuestro menú para que funcione la petición de clave y no muestre los números que estamos metiendo tenemos que hacer lo siguiente, pongo el código tal cual lo baje
Esto fue bajado de http://www.planetadelphi.com.br/dica...rd-no-inputbox Intentare explicarlo por encima Justo despues de nuestro USES y antes del TYPE al principio de la unidad añadimos
En el Type en su parte private la lamada del procedimiento
Es importante la parte de message InputBoxMessage;, ya que si no la añadimos funcionara, pero no nos ocultara los dígitos por asteriscos Y luego las dos siguientes lineas
Yo lo he usado en este ejemplo en un If then, pero podira usarse como respuesta a una variable en mi caso está es en el ejemplo VarClaveUSusario
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#62
|
||||
|
||||
Nuestro siguiente módulo es configuración, dándole al formulario los siguientes parámetros
Nombre UNIT UCONFIGURACION Name=FConfiguracion Caption=Configuración Height=800 Width=1000 Position=PoScreenCenter Shohint=True KeyPreview=true El módulo configuración sólo trabaja con tres paneles, nuestro botonera 1 que sólo contendrá el botón Salir y editar, eliminando el resto, el PanelOculto, con los botones Confirmar y cancelar para grabar los datos y el panel de datos, en el que muchos de ellos estarán des habilitados Las secciones las he dividido con Groupbox, he usado separadores mediante simples etiquetas y bevels y por último he puesto un seleccionador con un radioGroup y para los colores he usado colorbox, por lo que estos junto al memo para el texto de la ley de protección de datos tendremos que controlarlos manualmente. Claro esta hay componentes que nos ahorrarían este trabajo, algunos de pagos y otros libres, teniendo yo algunos de ellos, pero como dije en este tutorial no usaremos más componentes que los estándar de Delphi. El form quedaría así y aquí tenéis el código completo https://gist.github.com/anonymous/0c376637878de9278273 Vamos a comentar algunas parte del código, empecemos como controlar que nos muestre el texto y el color seleccionado en el memo y los colorbox para eso usamos el evento OnShow del formulario
Como veis la única condición es que no este en modo edición nuestro datasource (DsPrincipal) En el momento de grabar deberemos controlar estos mismos campos por lo que antes de hacer el post haremos los siguiente
Siguiendo el resto del proceso como ya hemos visto También cambia nuestros procedures en los botones SBMAS y SBMENOS por los siguientes, ya que sirven para varios campos
Esto implica que hacemos una nueva llamada al editor por lo que el siguiente procedure en este módulo cambia de la siguiente manera
y por último está sería la manera de llamarlo
Ya mañana seguiré ya que hoy tengo otras cosas que terminar.
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#63
|
||||
|
||||
Sigamos con el tutorial, lo primero es añadir nuevas tablas para poder proseguir a nuestro DM (El DataModule)
Un par de cosas a recordar, los pasos que hay que seguir para activarlos 1) Seleccionamos nuestros Ibddataset y le damos nombre (está última parte se puede hacer luego) 2) Ponemos en su propiedad Database el nombre de ibDatabase en nuestro caso DB, esto activara también la transaction a IBT 3) En la propiedad SelectSql seleccionamos la tabla y los campos, dándoles a los botones de cada una y luego al OK 4) Luego pasamos al GeneratorField y lo rellenamos aprovechando el evento OnPost 5) Pulsamos con el ratón sobre el ibdataset y pulsamos botón derecho seleccionamos Dataset Editor 6) Rellenamos los campos, 1 el del indice, 2 normalmente seleccionamos todos los campos, 3 marcamos el Quote Identifiers, 4 el Generate Sql y 5 por último el OK 7) bien pulsamos dos veces con el ratón sobre el Ibddataset o selecionamos con el botón derecho del menú la opción Fields Editor, Botón derecho nuevamente para seleccionar normalmente Add all fields, después modificamos cada uno para que queden más estéticos 8) le damos al Active del IbddataSet y si todo ha ido bien ya tenemos activa nuestra tabla La segunda cosa a recordar es que si hacemos una modificación en nuestra tabla a nivel estructural y tenemos activo el delphi o nuestro programa con la base de datos en marcha, este no se refleja, por lo que tendremos que cerrar la base de datos y volver a abrirla, bien manualmente, con lo que tendremos que activar cada una a mano, bien cerrando bien sea nuestro proyecto o nuestra aplicación, para que los nuevos cambios estén disponible. Si he dicho disponibles, por que tendremos que trabajar sobre las tablas que hemos modificado, repitiendo muchas veces los pasos 5,6,7 y 8 de los explicados hace un momento e incluso otros como el 4, para que estos cambios se reflejen en nuestro proyecto y aplicación. Por último deberemos añadir las siguientes lineas al procedure Conectar de nuestro módulo DM
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#64
|
||||
|
||||
Bueno os pongo una serie de pantallas en alas que básicamente he hecho un corta y pega
y el código en: https://gist.github.com/anonymous/97e4048a1622608c1734
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#65
|
||||
|
||||
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#66
|
||||
|
||||
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#67
|
||||
|
||||
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#68
|
||||
|
||||
Como e dicho hasta el momento ha sido un simple copia y pega pero para el siguiente módulo nos hace falta la siguiente función así que la pongo por adelantado
El funcionamiento es sencillo cogemos una imagen desde internet o cual quier otro lado y la copiamos al portapapeles, está función se encarga de cargarla en nuestro Dbimagen
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#69
|
||||
|
||||
Aquí el módulo de Formas de pago
El botón no se ve al estar en modo normal, pero no os preocupéis veréis el botón copiar en el próximo form junto al de cargar El código https://gist.github.com/anonymous/d1fcea21c39c22cb9ab8
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#70
|
||||
|
||||
En el siguiente módulo veremos muchas cosas nuevas, más botones, componentes DblookucpCombobox, IbQuerrys y el uso del color en los paneles, explicare varios procedimientos, pero antes debo publicar una función que usaremos
Podéis modificara o añadir al principio de funciones mis valores por defecto, os pongo las primeras lineas de como yo lo tengo
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#71
|
||||
|
||||
Vamos con el módulo Unidades, primero os pongo una imagen en uso
Dentro de poco veremos los indicadores puestos en esta imagen, pero antes veamos parte del mismo Form en fase de diseño Así podéis apreciar el botón de copiar en el panel (PanelOculto) El siguiente es el código https://gist.github.com/anonymous/600ac17cef6c1c53c46f El apartado 1 indica una serie de botones que aun no están activos por lo que este módulo no esta totalmente terminado, dejando el resto para la semana que viene. El 2 nos muestra una serie de DBLoocupComboBox, que es la manera de leer desde otra tabla a la nuestra sin muchas operaciones por media, después del 3 apartado seguiré hablando de ellos. El 3 es el Panel nivel que sólo se vera si el usuario tiene un nivel determinado, no estando visible siempre. Volviendo a los DBLoocupComboBox, debo explicaros que hay 5 apartados que deben estar rellenos para que funcionen estos son DataSource: Donde ponemos el datasource de la base que pide los datos DataField: El campo donde guardaremos el dato ListSource: El datasource de donde obtendremos los datos KeyField: El Campo clave por donde nos ordenara los datos ListField: La lista de campos a mostrar, siendo el primero el dato a registrar, para poder mostrar varios campos debemos separa el nombre de estos con un punto y coma ( Pero aun así debemos hacer varios cambios en este componente para que funcione todo lo bien que debería, os diré los que yo hago, en primer lugar cambio la propiedad DropDownWidth para que me deje ver los diversos campos que muestro. si me hace falta cambio también DropDownRows, pero nunca me deja mostrar más de 7 registros, si alguien sabe como que lo comparta . Luego usos los eventos Onenter y Onclick como el primero solo añadiendo el siguiente código
Si veis la última imagen tenemos 7 datasource, el del principal, los de los 3 querrys y 3 más que parecen estar repetidos, pero no es así, explico por que, de la tabla valor Alquiler, tenemos 2 datasource, el primero esta unido a la tabla directamente y el segundo a un querry (IBQValor), el primero lo uso para posicionarme al final de la tabla y así nos muestre todos los registros en nuestro DBLoocupComboBox, ya que si no sólo mostraría 1 registro, claro que podria usar este mismo Datasource, para mostrar el dato que hay al lado del DBLoocupComboBox en dbtext de color marrón, pero si lo hago asi siempre mostraria un dato no siendo este cierto muchas veces. Por ello uso el segundo dataSource unido al Querry, para que nos muestre este dato correctamente, usando tanto el procedure comprobar, que ahora veremos como el Onexit de nuestro DBLoocupComboBox.
Como dije en comprobar añadimos parte del mismo código, la diferencia es que comprobar sólo se ejecuta cuando la tabla esta en reposo, mientras que con el OnExit lo usamos cuando estemos insertando editando, aclarado esto este es el código.
Como veréis también aquí es donde decidimos colocar el color en el panel de datos para que funcione debemos poner a false el ParentBackGorund y el parentColor Y ya por último usamos el evento OnShow del formulario para decidir si mostramos o no el PanelNivel (3), este es el código
Como véis si la variable de nivel de usuario es menor de 8 no lo muestra, en caso contrario si. Se me olvidaba comentar que también he añadido al Onkeypress para que nos admita el saltar entre componente con el entre en los DBLoocupComboBox , podéis verlo en el código completo. Ahora hasta la próxima semana.
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#72
|
||||
|
||||
Cita:
A ver cuándo puedo hacer el tutorial con Lazarus y pongo las diferencias que encuentre, si hay alguna. ¡Buen trabajo! |
#73
|
||||
|
||||
Muchas gracias Ñuño
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#74
|
||||
|
||||
Buenos días compañeros sigamos con la explicación de los botones, para recordar cuales pongo la imagen nuevamente
hablamos de los marcados con el 1 Este es el código para la baja
Como veis es un procedimiento sencillos, en el que marcamos como no disponible si no lo esta ya, añadimos una cadena de texto a nuestras notas notificando la baja y el usuario y por último ponemos la fecha de baja. Para ello hay dos apartados que son nuevo la cadena VarSCadena, que hemos creado en el datamodule para que la usemos genéricamente llamando únicamente al modulo, que es lo más normal y por otra parte el procedimiento MiControlDeErrores que vemos a continuación
Al que hemos hecho la llamada de la siguiente manera en el código anterior
Vamos con Recuperar que nos sirve tanto para las bajas como para perdidas
Lo primero que hacemos es comprobar nuestro memo para saber si esta marcada como baja en el en algún momento por nuestro sistema automatizado +- después pasamos a comprobar con la siguiente linea
que se produzca las siguientes condiciones, que la unidad no este disponible o este perdida y que ademas en ningún caso este vendida, si es así seguimos y quitamos la fecha de baja, marcamos el disponible como 'S' ya que tanto si estaba de baja como si estaba perdida nos pondría este campo como 'N' y si de la busca en nuestro memo de si estaba en baja nos da algún acierto lo eliminamos marcando el texto de recuperada. Podéis ver que usado parte del código facilitado en una ocasión por EGostar, para poder posicionarme dentro del memo y saber que linea habría que borrar. El siguiente es el botón de perdida, no creo que tenga que explicar el código
Bien el siguiente apartado es mandar a otra base de datos la etiqueta, para que cuando imprimamos la hoja, podamos ponérsela a nuestra unidad para el alquiler. Aunque no veamos ahora ese módulo (Ya lo haremos más adelante) es importante saber que este funcionara, registrando varias unidades, para cuando lo imprimamos sacar en un una sola hoja varias unidades, ya lo veremos más adelante
Bien ahora pondré el código de nuestro siguiente botón, el cual realmente manda a otro módulo los datos y registra usando ambos módulos ya que entramos en dos apartados muy diferentes en el que se usan 3 tablas de nuestra base de datos.
Tanto para este último botón como para el anterior hemos usado nuevas tablas que hemos creado junto a otras, de las cuales hoy y mañana veremos únicamente la de movimientos, clientes, dejando las otras para más adelante
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#75
|
||||
|
||||
Vamos primero con el módulo de cliente, primero una imagen en fase de diseño
Y otra en ejecución El código en https://gist.github.com/anonymous/29671ebc05abf548bb61
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#76
|
||||
|
||||
Comentar que este módulo es necesario antes del próximo ya descubriremos por que, comentemos los 3 botones que tenemos de más
A Cuenta: nos permite introducir una cantidad de dinero que estará a favor de nuestro cliente, para ello limitamos el código del cliente a este, no haciéndolo en los cargos, ya que estos los podemos crear de manera muy diferente a la mía, pero rellenamos partes de los conceptos y lo registramos en el cliente en notas Pagos: Permite que un cliente pague el pendiente que tiene existiendo tres posibilidades al realizarlo que veremos en el otro módulo que es donde se hace Carnet: este es un módulo que de momento no tocaremos haciéndolo cuando entremos en la parte de impresión, pero lo que hace es el carnet del cliente
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#77
|
||||
|
||||
Veamos los cambios en el DataModule (DM)
Como vemos vamos añadiendo nuestras tablas según avanzamos y vamos insertandolas
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#78
|
||||
|
||||
Y ya por último en esta semana ya que mañana dudo que pueda ponerme con el tutorial os pongo el módulo de movimiento y algunas partes a comentar
El código https://gist.github.com/anonymous/fcad11f5cd2b6ef0b6e2
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#79
|
||||
|
||||
Veamos el procedimiento del botón nuevo del módulo movimientos, lo he dividido en partes para ir comentandolo
Creamos la variable VarBSeguimos, para saber si debemos continuar por uno u otor lado, ya lo veremos más adelante
Le decimos a la variable que es true y lo primero que hacemos es saber si estas tablas tiene datos, en caso contrario marcamos la variable para no seguir
Si tenemos datos usamos la variable y seguimos, activamos los ibquerry con todos los clientes y seguimos con los datos
Ahora dependerá de nuestro método de apertura preparamos ciertos datos usando la variable VarIModoApertura y para que este funcione automáticamente usamos el siguiente código
Como vemos dice que si hay elegido un método de apertura diferente a o automáticamente nos genere un nuevo registro, ya que estos métodos vienen de los módulos Unidades en el botón vendida y de Clientes en los botones A Cuenta y Pagar
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#80
|
||||
|
||||
Sigamos con confirmar
Como vemos difiere mucho de los otros botones confirmar, pero es muy simple de seguir el procedimiento, para ellos vamos a guiarnos por los valores que le vamos dando a la variable VarIFase, cuando vale 1 hacemos lo siguiente -Comprobamos si estamos insertando, para en tal caso actualizar el numerador en Configuración y grabamos los datos de la tabla movimientos Cuando VarIFase vale 2 -Actualizamos el numerador de configuración, pero sólo si la tabla estaba en inserción Cuando VarIFase vale 3 -1º comprobamos si la caja ya tiene registro con esta fecha, en caso de no hacerlo pasamos al 2 paso -2º En caso de no tener registro la creamos el aumento de este en el numerador de cajas de configuración -3 Independientemente de que necesitemos el paso 2 o no grabamos los datos en la caja cogiendo el registro directamente del valor actual del numerador en configuración, por esto si no existe debemos registrarlo con el paso 2 Pasemos a cuando VarIFase vale 4 -Aquí dependerá del modo de apertura, modificando los campos necesarios de las tablas Unidades o clientes, según ha sido nuestra apertura, omitiendolos todos si estamos en modo de apertura 0 Aquí debemos registrar un cambio en el código que es el siguiente por un error mio
De esta manera la modificación solo se registra si estamos en insercción Por último vamos cuando VarIFase vale 5 que eles el final -Pasamos el DM.IBT.CommitRetaining; para que nuestros cambios se hagan efectivos Por cierto hay otro cambio en el botón nuevo de este módulo donde pone
debe ser
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Obtener fotograma de video. Video Finish | rabata2001 | Varios | 0 | 07-05-2014 12:02:30 |
segundo video tutorial delphi | cacu | La Taberna | 4 | 21-02-2012 14:30:26 |
Video Tutorial Delphi Para Novatos | cacu | Varios | 4 | 22-11-2011 07:41:30 |
crear video tutorial | glrjola | Varios | 7 | 28-04-2011 12:08:56 |
Video Tutorial para instalar Apache + MySQL + PHP desde 0 !!! | Hagen | PHP | 0 | 07-02-2007 12:57:45 |
|