Validar Registro de Datos en una BD
Hola.
Soy nuevo en el foro y he revisado varias post frente a este tema pero después de una larga ausencia de mi parte en delphi, veo que algunas cosas han cambiado y me encuentro atorado en esto que describo a continuación: Tengo un form con varios campos (TDBEdit y TDBLookupComboBox), quiero verificar que si existen campos en blancos, la instrucción de inserción en la base de datos no se ejecute hasta que todos los campos estén diligenciados. he superado el problema en cuanto a validar los TDBEdit pero los TDBLookUpComboBox me da un error. El código que uso es sencillo pero como dije solo me valida los DBEdit. for x := 0 to ComponentCount - 1 do if ((Components[x] is TDBEdit) or (Components[x] is TDBLookupComboBox)) then begin if (((Components[x] as TDBEdit).Text = '') or ((Components[x] as TDBLookupComboBox).Text = '')) then begin ShowMessage ('Campos sin diligenciar' +' '+ QuotedStr(Components[x].Name) ); (Components[x] as TDBEdit).SetFocus; end end else begin TInsercion.BtnClick(nbInsert); end; De igual forma agradezco si podrían ayudarme en validar si el dato es numero o texto. de antemano gracias y disculpas si he repetido el tema, pero no encontré información concreta frente a este inconveniente. |
Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración :)
Y recuerda poner los tags al código fuente, ejemplo: Gracias :) |
Frank algo que no tiene que ver con BB DD. Es "if" que colocaste debería estar separado en dos partes dado que estás tratando de evaluar el mismo objeto como dos clase distintas (en principio no debe haber problemas porque ambas deben descender de algo como TCustomEdit, pero el operador "as" es bastante quisquilloso).
En todo caso separa en lugar de if A or B then algo como if A then..... if B then.... Tu problema es en el segundo "if" Cita:
|
Gracias por su ayuda y comentarios...pues termine resolviendo el problema sin evaluar los componentes, asi que use una comprobacion directa a la vieja usanza.
y con eso me funciono bien, en cuanto a lo de la validación en el evento keypress de datos lo especifique así:
|
La franja horaria es GMT +2. Ahora son las 01:00:41. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi