Tutorial (como empezar con Firebird) Novatos

[[Caral]]

Hola
Como ya tenemos casi todo listo y tenemos una tabla USUARIOS creada lo logico es hacer un Form para loguearnos, entonces crearemos un form mas.
Como siempre:
File New, Form.
Esto nos creara el form2 que es el que iniciara el programa:
Arrastremos al nuevo form:
2 Edit.
2 Label
2 Botones
1 IBQuery (de la paleta Interbase)

Cambiemos el Name del form por FLogin, quedaria asi:



Bien, ahora nos queda poner el codigo que necesitamos:
Empecemos por el IBQuery:

En la propiedad Database pondremos la direccion de la IBDatabase:
DataModule2.IBDatabase1

En la propiedad SQL (strings) presionaremos el boton y nos saldra una pantalla:
En este caso solo tendremos la Tabla Usuarios, escribiremos esto:

Código SQL [-]
SELECT CodUsuario, Nombre, Clave FROM Usuarios WHERE
CodUsuario = :cod

Quedara asi:



Presionamos OK.

Ahora en la propiedad Params del IBQuery, presionamos el boton y nos saldra una pequeña pantalla, ahi cambiaremos algunos datos, quedara asi:



Segimos con los botones.
Saludos
Continua....

[[Caral]]

Hola
Segimos con el form FLogin:
Coloquemos una variable (cuenta), esta nos servira para determinar la cantidad de veces que se intenta introducir la clave:

Código Delphi [-]
var
  FLogin: TFLogin;
  Cuenta : integer;
 
implementation

En el evento OnCreate la iniciamos en cero:

Código Delphi [-]
procedure TFLogin.FormCreate(Sender: TObject);
begin
   Cuenta := 0;
 
end;

En el boton OK:

Código Delphi [-]
procedure TFLogin.BtnOkClick(Sender: TObject);
begin
   IBQuery1.Params.ParamByName('Cod').Value:= Edit1.Text;
   IBQuery1.Active:= True;
If IBQuery1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       Edit1.Text := '';
       Edit2.Text := '';
       IBQuery1.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If IBQuery1Clave.AsString = Edit2.Text then
        Begin
          Form1.Show;
          IBQuery1.Active := False;
          FLogin.Visible:= False;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           Edit2.Text := '';
           IBQuery1.Active := False;
           If Cuenta = 3 then Close;
         end;
 
end;

En el boton Cancelar:

Código Delphi [-]
procedure TFLogin.Button2Click(Sender: TObject);
begin
  Close;
end;

Ahora solo nos queda que el programa arranque desde el form login:
Vamos al Proyecto, en units, project y cambiamos el orden de entrada al programa asi:

Código Delphi [-]
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule},
  UFLogin in 'UFLogin.pas' {FLogin};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TFLogin, FLogin);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Listo, a correr.
AHHHHHHHH, que monton de errores, logico, somos novatos y se nos olvido asignar algunas cositas.
Son faciles de apreciar pero son errores que nos pueden pasar por descuido:

Primero regresemos un poco atras, al datamodule:

1- En el IBDatabase nos olvidamos de colocar en su propiedad DefaultTransaction el IBTransaction.
Con esto ya se ligan.
2- Lo mismo con el IBTransaction, en su propiedad DefaultDatabase lo ligamos pero esta vez con el IBDatabase.
Osea, uno con otro.

Regresemos al FLogin.
Demosle doble click al IBQuery, nos saldra una pequeña pantalla, raton derecho y add, nos colocara los campos dentra de esta pantalla.
Listo, no era para tanto, corredlo, esta listo para usarse.

Ojala os sirva de algo este.

Saludos

Para dudas y aclaraciones estan los maestros

[[Caral]]

Hola
Mi amigo y maestro Casimiro me envia una informacion que me parece muy importante aportar:

Te informo de un par de cositas sobre el tutorial:

Cuando creas un campo que va a ser la clave primaria no tienes que crear
un índice, lo que hay que hacer es indicarle que es la clave primaria
(primary key) y él sólo automáticamente creará el índice que necesite.
Te he adjuntado una imagen para que lo veas.

En el componente de base de datos has puesto el usuario, la clave y el
sql_role, en este último caso le has puesto el valor 3. Creo que te has
confundido con el dialecto. El dialecto se indica cuando se está creando
la base de datos, hay un campo que indica si se quiere con dialecto 1 o
el dialecto 3. Esto de role tiene que ver con los privilegios de los
usuarios.

Muchas gracias por el aporte.
Saludos

[olbeup]

Alucinante documental de Firebid, es un placer pertenecer al clubdelphi.

Un saludo.

[[fjcg02]]

Hola Caral,
es importante que cuando se crea una BBDD , se indique el CHARSET, para que luego el tema de acentos, la eñe , etc no nos den problemas a la hora de hacer búsquedas, ... siempre y cuando trabajemos en castellano.
Yo suelo poner el ISO8859_1 y en general no he tenido problemas.

Buena aportación, novato.

Saludos

[Casimiro Noteví]

Está bien lo que comenta fjcg02, sin embargo yo tengo la costumbre de no ponerlo en la declaración de la base de datos, sólo en los campos que me interesa hacer búsquedas y ordenaciones que se tenga en cuenta las palabras acentuadas, signos, etc.
Por ejemplo, para los campos de nombres (personas, empresas, artículos, etc.) los declaro así:

Código SQL [-]
create domain domNombre varchar(64) character set ISO8859_1 collate ES_ES_CI_AI default '';

p.d.: siempre uso dominios, nunca creo los campos indicando el tipo.

[ContraVeneno]

gracias.

[fpirovani]

Empezado por Casimiro Notevi

Está bien lo que comenta fjcg02, sin embargo yo tengo la costumbre de no ponerlo en la declaración de la base de datos, sólo en los campos que me interesa hacer búsquedas y ordenaciones que se tenga en cuenta las palabras acentuadas, signos, etc.
Por ejemplo, para los campos de nombres (personas, empresas, artículos, etc.) los declaro así:

Código SQL [-]create domain domNombre varchar(64) character set ISO8859_1 collate ES_ES_CI_AI default '';


p.d.: siempre uso dominios, nunca creo los campos indicando el tipo.

Hola, buenas tardes.
Si no es mucha molestia quisiera saber que es eso de "dominios" y porque es mejor crear el campo asi.

Muchas gracias.

[DalberDurango]

En el boton OK:

Código Delphi [-]
procedure TFLogin.BtnOkClick(Sender: TObject);
begin
   IBQuery1.Params.ParamByName('Cod').Value:= Edit1.Text;
   IBQuery1.Active:= True;
If IBQuery1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       Edit1.Text := '';
       Edit2.Text := '';
       IBQuery1.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If IBQuery1Clave.AsString = Edit2.Text then {Me arroja error en esta linea}
        Begin
          Form1.Show;
          IBQuery1.Active := False;
          FLogin.Visible:= False;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           Edit2.Text := '';
           IBQuery1.Active := False;
           If Cuenta = 3 then Close;
         end;
 
end;

Tengo un problema en la linea que esta indicada
If IBQuery1Clave.AsString = Edit2.Text then {Me arroja error en esta linea}

[DCC Error] ULogin.pas(51): E2003 Undeclared identifier: 'IBQuery1clave'

no se que hacer, agradezco la ayuda y perdonen la novatada.

[[Caral]]

Hola
No dices el error que te envia, pero podria ser que no esta en la caja de texto el campo clave, como solucionarlo, facil.
Dale doble click a IBQuery1.
Te saldra una pequeña pantalla.
Dale click derecho y ADD.
Esto colocara los campos en esa pantalla.
De momento solo coloca los que te den error, en este caso Clave.
Corre el programa otra vez.
Saludos
PD: Hay otra forma de solucionarlo pero empecemos por ahi.

[guillotmarc]

Hola

Empezado por DalberDurango

Tengo un problema en la linea que esta indicada
If IBQuery1Clave.AsString = Edit2.Text then {Me arroja error en esta linea}

[DCC Error] ULogin.pas(51): E2003 Undeclared identifier: 'IBQuery1clave'

no se que hacer, agradezco la ayuda y perdonen la novatada.

El mensaje de error es muy claro, no existe nada llamado IBQuery1Clave, por lo que esa línea no se puede compilar.

¿ Que es IBQuery1clave ?. Con toda seguridad un campo persistente. Así que como bien dice Caral, deberías crearlos.

Aunque personalmente prefiero sustituir esa línea por :If IBQuery1.FieldByName('Clave').AsString = Edit2.Text thenY es que prefiero acceder a los campos de esta forma, en lugar de hacerlo por el correspondiente campo persistente. Te ahorras bastantes problemas de este tipo.

Saludos.

[pacopenin]

Empezado por guillotmarc

Hola



El mensaje de error es muy claro, no existe nada llamado IBQuery1Clave, por lo que esa línea no se puede compilar.

¿ Que es IBQuery1clave ?. Con toda seguridad un campo persistente. Así que como bien dice Caral, deberías crearlos.

Aunque personalmente prefiero sustituir esa línea por :If IBQuery1.FieldByName('Clave').AsString = Edit2.Text thenY es que prefiero acceder a los campos de esta forma, en lugar de hacerlo por el correspondiente campo persistente. Te ahorras bastantes problemas de este tipo.

Saludos.

Por otro lado, esa forma de trabajar, traslada los errores a ejecución (compilaría bien, pero si el nombre del campo tiene un error o no existe, se produciría un error al ejecutar dicha línea), lo que en determinadas circustancias hace que los procesos de prueba y puesta a punto sean más largos y complejos. Ambas formas de trabajar tienen sus pros y contras.

[DalberDurango]

OK muchachos, lo que pasa es que he estado siguiendo los pasos en el post, pero la linea de código que dice:

If IBQuery1Clave.AsString = Edit2.Text then

es porque lo puse tal cual aparece en el post, realice todos los pasos, pero al darle doble clic al IBQuery1 de la forma para identificarse y tratar de adicionar los campos me sale este otro error

Unknown SQL Data type (0).

y los detalles que me salen son:

[407A5A3B]{ibxpress140.bpl} Ib.IBError + $97
[40778C4E]{ibxpress140.bpl} Ibsql.TIBXSQLDA.Initialize + $3BE
[4077AE95]{ibxpress140.bpl} Ibsql.TIBSQL.Prepare + $391
[4076BBC5]{ibxpress140.bpl} Ibcustomdataset.TIBCustomDataSet.InternalPrepare + $ED
[4076DE0E]{ibxpress140.bpl} Ibcustomdataset.TIBCustomDataSet.InternalInitFieldDefs + $42
[50690D9F]{dbrtl140.bpl} DB.TDataSet.OpenCursor (Line 11348, "DB.pas" + 2) + $4
[50690F8D]{dbrtl140.bpl} DB.TDataSet.InitFieldDefs (Line 11419, "DB.pas" + 5) + $7
[407BFFF0]{ibxpress140.bpl} Ibquery.TIBQuery.InitFieldDefs + $0
[5067F6B7]{dbrtl140.bpl} DB.TDefCollection.UpdateDefs (Line 3396, "DB.pas" + 6) + $3
[506802EC]{dbrtl140.bpl} DB.TFieldDefs.Update (Line 3774, "DB.pas" + 1) + $A
[22AE849B]{dcldb140.bpl} DSDesign.TFieldsEditor.DoAddFields (Line 823, "DSDesign.pas" + 5) + $C
[22AE8425]{dcldb140.bpl} DSDesign.TFieldsEditor.AddFields (Line 808, "DSDesign.pas" + 1) + $2
[22AE8646]{dcldb140.bpl} DSDesign.TFieldsEditor.AddItemClick (Line 855, "DSDesign.pas" + 0) + $2
[502801CB]{vcl140.bpl } Menus.TMenuItem.Click (Line 2520, "Menus.pas" + 19) + $8
[50281787]{vcl140.bpl } Menus.TMenu.DispatchCommand (Line 3383, "Menus.pas" + 5) + $2
[50282966]{vcl140.bpl } Menus.TPopupList.WndProc (Line 4489, "Menus.pas" + 4) + $E
[502828B5]{vcl140.bpl } Menus.TPopupList.MainWndProc (Line 4464, "Menus.pas" + 2) + $5
[50076360]{rtl140.bpl } Classes.StdWndProc (Line 13014, "Classes.pas" + 8) + $0
[502C98F5]{vcl140.bpl } Forms.TApplication.StopHintTimer (Line 10515, "Forms.pas" + 3) + $6
[502C8749]{vcl140.bpl } Forms.TApplication.ProcessMessage (Line 9784, "Forms.pas" + 30) + $1
[502C878E]{vcl140.bpl } Forms.TApplication.HandleMessage (Line 9814, "Forms.pas" + 1) + $4
[502C8AB9]{vcl140.bpl } Forms.TApplication.Run (Line 9951, "Forms.pas" + 26) + $3
[0042D94A]{bds.exe } bds.bds (Line 200, "" + 8) + $FFFB

No he entendido nada de lo que dice .

Ha se me olvidaba decirles que estoy utilizando el Delphi 2010, perdonen por la demora para responder he tenido que salir. Y muchas gracias por responder tan prontamente

[guillotmarc]

Empezado por DalberDurango

OK muchachos, lo que pasa es que he estado siguiendo los pasos en el post, pero la linea de código que dice:

If IBQuery1Clave.AsString = Edit2.Text then

es porque lo puse tal cual aparece en el post, realice todos los pasos, pero al darle doble clic al IBQuery1 de la forma para identificarse y tratar de adicionar los campos me sale este otro error

Unknown SQL Data type (0).

Como te dice el mensaje de error, Firebird (o Delphi) es incapaz de detectar uno de los tipos de datos implicados.

¿ Cual es la consulta que estás intentado ejecutar ?. ¿ La has probado, ejecutándola directamente en IBExpert o cualquier otro gestor de Bases de Datos Firebird ?.

Saludos.

[defcon1_es]

Empezado por DalberDurango

OK muchachos, lo que pasa es que he estado siguiendo los pasos en el post, pero la linea de código que dice:

If IBQuery1Clave.AsString = Edit2.Text then

es porque lo puse tal cual aparece en el post, realice todos los pasos, pero al darle doble clic al IBQuery1 de la forma para identificarse y tratar de adicionar los campos me sale este otro error

Unknown SQL Data type (0).

He leido (y comprobado) que en Delphi 2010 hay un par de fallos en las units IBQuery.pas e IBSQL.pas, en los métodos SetParams:

Código Delphi [-]
        ftString, ftFixedChar, ftWideString: // les faltó el tipo ftWideString
          SQLParams[i].AsString := Params[i].AsString;

Comprueba esto.

[guillotmarc]

Empezado por pacopenin

Por otro lado, esa forma de trabajar, traslada los errores a ejecución (compilaría bien, pero si el nombre del campo tiene un error o no existe, se produciría un error al ejecutar dicha línea), lo que en determinadas circustancias hace que los procesos de prueba y puesta a punto sean más largos y complejos. Ambas formas de trabajar tienen sus pros y contras.

En realidad el hecho de que el campo exista, como obliga el tener un campo persistente, tampoco es ninguna garantía de que en tiempo de ejecución no nos salte igualmente un error. Por ejemplo si el tipo del campo persistente no coincide con el tipo del campo en la base de datos (esto me pasa mucho, por ejemplo al pasar un campo de entero a decimal), o porqué tenemos campos persistentes que ya no existen en la base de datos, o que han cambiado de nombre, ...

Así que aunque utilices campos persistentes, los procesos de prueba y puesta a punto tienen que ser igualmente largos y complejos.

[negrokau]

hola caral... sabes no estoy ubicando donde es:
(Vamos al Proyecto, en units, project y cambiamos el orden de entrada al programa asi no estoy ubicando, muchas gracias....

[miguelgalindo87]

Caral Muy bueno este tutorial la verdad me sirvio de mucho porque no entendia muy bien firebird...


Una pregunta podrias dar algun otro tutorial de este tipo sobre las operaciones basicas
como insertar,modificar,borrar

de antemano muchas gracias si puedes seria muy muy util

[maxi915]

estoy haciendo el tuto y tengo un problema en este paso:
------------------------------------------------------------------------
Bien, ahora nos queda poner el codigo que necesitamos:
Empecemos por el IBQuery:

En la propiedad Database pondremos la direccion de la IBDatabase:
DataModule2.IBDatabase1

------------------------------------------------------------

me dice invalid property value, al copiar la direccion en esa propiedad.
controle que sea el datamodule2 y el database1, nose que esta pasando.....

[coej]

Empezado por DalberDurango

En el boton OK:

Código Delphi [-]
procedure TFLogin.BtnOkClick(Sender: TObject);
begin
   IBQuery1.Params.ParamByName('Cod').Value:= Edit1.Text;
   IBQuery1.Active:= True;
If IBQuery1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       Edit1.Text := '';
       Edit2.Text := '';
       IBQuery1.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If IBQuery1Clave.AsString = Edit2.Text then {Me arroja error en esta linea}
        Begin
          Form1.Show;
          IBQuery1.Active := False;
          FLogin.Visible:= False;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           Edit2.Text := '';
           IBQuery1.Active := False;
           If Cuenta = 3 then Close;
         end;
 
end;

Tengo un problema en la linea que esta indicada
If IBQuery1Clave.AsString = Edit2.Text then {Me arroja error en esta linea}

[DCC Error] ULogin.pas(51): E2003 Undeclared identifier: 'IBQuery1clave'

no se que hacer, agradezco la ayuda y perdonen la novatada.

Creo que es porque en el IBQUERY del Flogin, no has pulsado dos veces y añadido los campos, a mí al menos al seguir el manual me ha dado ese error, y me he dado cuenta que me faltaba hacer ese paso en el ibquery, haber si es eso...