Programa (Mini Tutorial) novatos

[[Caral]]

Bueno, aquí sigo:
Antes de conectar los componentes abrimos un momento al datamodule y nos posesionamos en el AC1, aquí colocaremos en su opción loginPrompt en False, con esto no nos pedira contraseña la base de datos.
Ahora abramos el form Banco y conectemos los componentes a las tablas.

Empecemos con el AdoTable (Banco):
Coloquémonos en este, en el inspector de objetos buscaremos y pondremos lo siguiente:
1- Connection: DataModule1.AC1
Con esto lo que estamos haciendo es conectarnos al datamodule y al AdoConnection (AC1), al hacer esto se activara el componente y pasaremos al segundo paso.
2- TableName: Buscaremos con la flecha la tabla Banco.
3- Dale doble clic al AdoTable (Banco), te saldrá una pantallita pequeña, dale clic derecho y addFields, te saldrá otra pantallita, en esta veras todos los campos de la tabla, seleccionados, presiona OK, cierra la pantallita pequeña, ya tenemos conectado y listo el primer componente.

Conectemos el ADOQuery1 (SumRet):
1- Hagamos lo mismo que el paso 1 del componente anterior (conectarnos).
2- Estos componentes hacen la conexión a la tabla por medio de sentencia sql, por esta razón no tienen la propiedad tablename, pero tienen la propiedad SQL (TStrings) en donde trabajaremos.
Bien coloquémonos en esta, veremos un botón con tres puntos, al presionarlo nos saldrá una nueva pantalla (String List Editor) en esta escribiremos la siguiente sentencia:

Código SQL [-]
SELECT DISTINCTROW Sum([Banco].[Retiros]) AS [Suma De Retiros]
FROM Banco;

Con esta sentencia hacemos una distinción entre los campos, a la vez sumamos el campo Retiros y lo renombramos, presiona OK y listo.
3-Haremos lo mismo que el paso 3 del componente anterior, por supuesto con este ADOQuery1 (SumRet).

Conectemos el ADOQuery2 (SumDep):
1- Lo mismo que ADOQuery1 (SumRet):
2- Siguiendo los mismos pasos del componente ADOQuery1 (SumRet), pero pondremos esta sentencia sql:

Código SQL [-]
SELECT DISTINCTROW Sum([Banco].[Depósitos]) AS [Suma De Depósitos]
FROM Banco;

3- Haremos lo mismo que el paso 3 del componente anterior, por supuesto con este ADOQuery2 (SumDep).

Bueno ya tenemos la base de datos conectada y a su vez las tablas con todos sus campos en el lugar adecuado.
NOTA: Me han hecho el comentario al respecto de colocar el código y la base de datos de este mini tutorial, si obtengo el permiso del club, lo colocare al final del mismo.
En el siguiente post veremos más.
Espero todavía sigáis este y os sirva.

Saludos

[Neftali [Germán.Estévez]]

Pues muchas gracias Caral.
Estaría bien (si no te importa), subir el código de ejempo al FTP y añadir el link.
¿Qué te parece?

[[Caral]]

Aquí seguimos.
Primero darle las gracias a Neftali por su comentario y apoyo, con vuestro permiso subiere el código al momento de terminar este, la base de datos creo que es pequeña y se puede poner aquí mismo.
He modificado en primer post, para subir la base de datos, así podrán seguir esto desde el principio.
Saludos

[[Caral]]

Bueno aquí estoy de nuevo.
Ya nos conectamos a la base de datos ahora conectaremos los DBEdit a sus respectivos componentes.
Ya teníamos conectados los datasource con su respectivo componente ADO, esto lo vimos en el segundo post (revisadlo), de todos modos recordad que se conectan en su propiedad DataSet, con la flechita.
Ahora conectaremos los DBEdit a los DataSource.
NOTA: Quiero hacer notar que también se pueden obtener los dbedit directamente de los componentes Ado, recordáis la pantallita pequeña en donde están los campos, pues con solo seleccionarlos y paradlos al form quedaran listos y activados, este procedimiento es efectivo pero en mi caso prefiero hacer una colocación de los componentes primero y luego la activación de los mismos, es un asunto de gustos, pero de todos modos quise daros la explicación del caso.
Sigamos:
Primero recordad que a los DBEdit se les cambio el nombre así que usare estos (post 2).
1- DBNtransac:
Datasource = Datasource1
DataField = CodTransac
2- DBDescrip:
Datasource = Datasource1
DataField = Descripción
3- DBDeposit:
Datasource = Datasource1
DataField = Depósitos
4- DBRetiros:
Datasource = Datasource1
DataField = Retiros
5- DBSalAnt
Datasource = Datasource1
DataField = SaldoAnt
Listos y conectados, podéis cambiarles el tipo de letra y tamaño en su propiedad Font, bueno hay muchas cosas mas que se pueden hacer, seguro ya experimentareis.

El componente ComBobox (CBTipo):
Nos posesionamos en este y en su propiedad Items (TString) presionaremos el botón, con esto nos saldrá otra pantalla, en esta escribiremos lo siguiente:
Uno debajo del otro:
Retiros
Depósitos
Y presionamos OK en esta pantalla
Su propiedad ItemIndex tiene que estar en -1, con esto aparecerá en blanco obligando a escoger una de las dos opciones (podéis experimentar con esta veréis los resultados).

El componente DBNavigator :
Posesiónense en el y en su propiedad VisibleButtons presione el signo +, cambie a False todos los tipos con la flecha excepto el que dice NBInsert, este quedara True.
En su propiedad DataSource pondremos con la flecha DataSource1.

Bueno por ahora no hemos escrito nada de código (Delphi lo hace todo) pero ya estamos a punto de poner esto en marcha.
Espero sigáis este y no os aburráis con mis explicaciones, trato de ser lo mas explicito posible.
Saludos

[[Caral]]

Bueno un poquito de código, aquí es donde me corrigen los maestros del Club, con mucho gusto acepto sus criticas.
Empecemos:
Nos posicionamos en el form Banco y le damos doble clic, con esto no llevara a su evento OnFormCreate, en donde ponemos esto:
NOTA: El código esta explicado:

Código Delphi [-]
procedure TBanco.FormCreate(Sender: TObject);
begin
   DTP1.DateTime:= now; // inicio la fecha al dia de hoy
   Banco.Active := True; // activo la tabla
   Banco.Last;  // le indico que lea el ultimo registro
   SumRet.Active := True; // activo el query
   SumDep.Active := True; // activo el query
   // coloco el resultado de (SumDep - SumRet) en el edit
   ESalTot.Text := FloatToStr((SumDep.Fields[0].AsFloat) - SumRet.Fields[0].AsFloat);
   // establecemos los dbedits como desactivados
   DBNTransac.Enabled := False;
   DBDescrip.Enabled := False;
   DBRetiros.Enabled := False;
   DBDeposit.Enabled := False;
   DBSalAnt.Enabled := False;
   // Deshabilitamos el combobox
   CBTipo.Enabled:= False;
   // Deshabilitamos el navegador
   DBNavigator1.Enabled := False;
   // escondemos los botones, con esto evitamos cometer errores
   BRetiros.Visible := False;
   BDeposito.Visible := False;
end;

Ahora le damos doble clic al boton Cancelar, este es el evento OnClick, ponemos esto:

Código Delphi [-]
procedure TBanco.BcancelaClick(Sender: TObject);
begin
   Close; // cerramos el programa
end;

NOTA: Este código lo voy probando, osea que se puede cortar y pegar, sugiero escribirlo, se aprende mejor.
Seguimos con lo demás en el siguiente post.
Saludos

[[Caral]]

Vamos con dos partes mas:
Recordad que se cambio el caption a los botones asea el titulo, no me explique bien en el segundo post en ese punto, espero me lo disculpéis un dedazo.
El nombre (Name) de cada botón lo iré poniendo según se requiera entre paréntesis.
El botón Nueva Transacción (BNTrans):
En el evento OnClick:

Código Delphi [-]
procedure TBanco.BNTransClick(Sender: TObject);
begin
   // desactivo las tablas, esto es por si hemos hecho
   // alguna transaccion anterior
   Banco.Active := False;
   SumRet.Active := False;
   SumDep.Active := False;
   // confirmo que los botones estan escondidos
   BRetiros.Visible := False;
   BDeposito.Visible := False;
   // activo la tabla y querys
   Banco.Active := True;
   SumRet.Active := True;
   SumDep.Active := True;
   Banco.Last;
   // activo el combobox
   CBTipo.Enabled:= True;
   // activo el dbnavegator, con este ya se puede insertar un nuevo registro
   DBNavigator1.Enabled := True;
end;

Ahora el DBNavigator (DBNavigator1):
En el evento OnClick:

Código Delphi [-]
procedure TBanco.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
    // aqui vamos a definir el tipo de dato que se ingresa
    // para esto usaremos el combobox.
    case CBTipo.ItemIndex of
     0 : begin
         // activamos los dbedit
         DBNTransac.Enabled := True;
         DBDescrip.Enabled := True;
         DBRetiros.Enabled := True;
         DBDeposit.Enabled := False;
         // escondemos y presentamos
         DBRetiros.Visible:= true;
         DBDeposit.Visible:= False;
         end;
     1 : begin
         // activamos los dbedit
         DBNTransac.Enabled := True;
         DBDescrip.Enabled := True;
         DBDeposit.Enabled:= True;
         DBRetiros.Enabled := False;
         // escondemos y presentamos
         DBDeposit.Visible:= True;
         DBRetiros.Visible:= False;
         end;

end;

Bueno, ya se pueden hacer varias cosas con el programita pero todavía falta algo de camino, por ejemplo el calculo de ingresos (Depósitos) menos egresos (Retiros), ya casi vamos, ademas de los reportes.
Saludos

[[Caral]]

Vamos con otro componente:
El Combobox (CBTipo):
En el evento ONChange:

Código Delphi [-]
procedure TBanco.CBTipoChange(Sender: TObject);
begin
    // Aqui activamos y desactivamos opciones
    case CBTipo.ItemIndex of
     0 : begin
        BDeposito.Visible:= False; // escondemos el boton deposito (BDeposito)
        BRetiros.Visible:= True; // hacemos visible el boton retiros (BRetiros)
        CBTipo.Enabled:= False; // Deshabilitamos  el combobox, evitamos errores
        DBNavigator1.Enabled:= True; // avilitamos el navegador
         end;
     1 : begin
        BRetiros.Visible:= False; // Escondemos el boton retiros (BRetiros)
        BDeposito.Visible:= True; // Hacemos visible el boton deposito (BDeposito)
        CBTipo.Enabled:= False; // Deshabilitamos  el combobox, evitamos errores
        DBNavigator1.Enabled:= True; // avilitamos el navegador
         end;
end;
end;

Este lo puse solito por que vienen los grandes, depósitos y retiros.
Saludos

[ELENA3488]

hola
como siempre dando consejos practicos; gracias como gente como tu por compartir este tipo de info, pude relizar mi proyecto de titulacion; ya que no tenia ningun conocimiento en delphi; reconosco k aun m falta mucho por aprender.

Aprovechando este medio si tienes algun conocimiento o manual de como se usa el InstallShiel (Express). Para realizar el ejecutable de mi aplicacion y poder instalarlo en otra pc.
saludos

[ctrl_attack]

yo te recomendaria mas que nada que te descargues e instales el innosetup para crearte el ejecutable de tu aplicacion, es incluso mas facil de utilizar, y te puedes copiar de los ejemplos que trae, incluso tambien te puedes bajar un asistente del inno setup ke en este momento no recuerdo como se llama, pero es bastante bueno por ke ese es una extencion del programa ke hace todo mas visual, sin escribir tanto codigo, bueno bye

[ELENA3488]

ok gracias por la ayuda; la vdd aun desconosco muchas cosas de esto jejeje
lo descargo y lo pruebo