60 replies to this topic

[amell2020]

hola amigos, como puedo hacer para cacular dos DBEDIT de una Base de Datos, tengo dos campos llamados diferencia y valor el cual quiero sumarlos para que el resultado me aparezca en total.

[Wilson]

Primero habría que saber si Total es un campo calculado o un campo normal de la tabla.


Asumiendo que Diferencia y Valor son campos de la tabla. Si es calculado entonces tienes que  manejar el evento OnCalcFields de tu dataset, más o menos así:

delphi

procedure TModuloDatos.TuTablaCalcFields(DataSet: TDataSet);
begin
 TuTabla.FieldByName('Total').Value :=  TuTabla.FieldByName('Diferencia').Value + TuTabla.FieldByName('Valor').Value;
end;

En cambio si Total es un campo normal de la tabla, entonces una opción es crear campos persistentes para tu dataset y manejar el evento OnChange de los campos Diferencia y Valor, más o menos así:

delphi

procedure TModuloDatos.DiferenciaChange(Sender: TField);
begin
   TuTabla.FieldByName('Total').Value :=  TuTabla.FieldByName('Diferencia').Value + TuTabla.FieldByName('Valor').Value;
end;
 
 
 
 procedure TModuloDatos.ValorChange(Sender: TField);
begin
   TuTabla.FieldByName('Total').Value :=  TuTabla.FieldByName('Diferencia').Value + TuTabla.FieldByName('Valor').Value;
end;

He colocado dos procedimientos, uno para cada campo con el objetivo de ilustrar el ejemplo, pero podrías escribir solo un procedimiento y compartirlo entre los dos campos.


Saludos.

[amell2020]

Mira Wilson yo trate de hacerlo asi:

delphi

procedure TAPSR.DBEdit6Change(Sender: TObject);
var v1,v2,s:integer;
begin
    DBEdit6.Text:=DBEdit4.Text + DBEdit5.Text;

Pero no me esta sumando los valores me lo esta concadenando, osea a juntandolos

[amell2020]

y con forma que pusite como no total no es campo calculado, entonce me da este error:


[Error] arsaps.pas(72): Undeclared identifier: 'ars_aps'
[Error] arsaps.pas(72): Missing operator or semicolon
[Error] arsaps.pas(72): Missing operator or semicolon
[Error] arsaps.pas(72): Missing operator or semicolon
[Error] arsaps.pas(72): Missing operator or semicolon
[Error] arsaps.pas(72): Missing operator or semicolon
[Fatal Error] Farmacia.dpr(9): Could not compile used unit 'arsaps.pas'

[Caral]

Hola

delphi

procedure TAPSR.DBEdit6Change(Sender: TObject);
var v1,v2,s:integer;
begin
DBEdit6.Text := FloatToStr(StrToFloat( DBEdit4.Text) + StrToFloat(DBEdit5.Text));
end;

Saludos

[amell2020]

Caral el campo de mi tabla es de tipo Numero, cual seria la conversion por eso es mi problema.

[Caral]

Hola
Los campos tipo numeros pueden ser integer o float.
El ejemplo que puse es para float, asi seria para integer:

delphi

procedure TAPSR.DBEdit6Change(Sender: TObject);
var v1,v2,s:integer;
begin
DBEdit6.Text := IntToStr(StrToInt( DBEdit4.Text) + StrToInt(DBEdit5.Text));
end;

Saludos

[amell2020]

mira caral mi base datos es en access, pero cuando ejecuto el programa me dicen que los valores integer no es valido para mi campo

[Caral]

Hola
Si el programa no es muy grande (quitale el EXE) lo pones en un ZIP con la BD y lo reviso con gusto.
Saludos

[Wilson]

Coloca esto en el evento ONChange de los DBEdit enlazados a  "Diferencia" y  "Valor". Cambia TuTabla por el nombre de tu Dataset.

delphi

TuTabla.FieldByName('Total').Value :=  TuTabla.FieldByName('Diferencia').Value + TuTabla.FieldByName('Valor').Value;

Saludos

[amell2020]

Mira wilson gracias por todo es que yo no utilizo dataset estoy usando DataSource para esto mira mis tablas:

delphi

unit arsaps;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, ExtCtrls, jpeg;
 
type
  TAPSR = class(TForm)
    Label9: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label1: TLabel;
    Image1: TImage;
    DBNavigator1: TDBNavigator;
    ADOTable1: TADOTable;
    ADOTable1id_numero: TAutoIncField;
    ADOTable1Nombre: TWideStringField;
    ADOTable1Carnet: TIntegerField;
    ADOTable1Autorizacin: TIntegerField;
    ADOTable1ValorARS: TIntegerField;
    ADOTable1Dif_Asegurado: TIntegerField;
    ADOTable1ValorTotal: TBCDField;
    ADOTable1Fecha: TDateTimeField;
    Label12: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label13: TLabel;
    DBEdit2: TDBEdit;
    Label14: TLabel;
    DBEdit3: TDBEdit;
    Label15: TLabel;
    DBEdit4: TDBEdit;
    Label16: TLabel;
    DBEdit5: TDBEdit;
    Label17: TLabel;
    DBEdit6: TDBEdit;
    Label18: TLabel;
    DBEdit7: TDBEdit;
    Label19: TLabel;
    DBEdit8: TDBEdit;
    Label20: TLabel;
    Label21: TLabel;
    procedure DBEdit6Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  APSR: TAPSR;
 
implementation
 
uses principal, Datamodulo;
 
{$R *.dfm}
 
procedure TAPSR.DBEdit6Change(Sender: TObject);
 
begin
   begin
   DBEdit6.Text:=IntToStr( StrToInt(DBEdit4.Text) + StrToInt(DBEdit5.Text));
end;
 end;
end.

Attached Files

•  2753_dc117102fce03108eaf9f9459cede15f57899e79.jpg   63.96KB   9 downloads

[Wilson]

Mira la propiedad Dataset de tu DataSource, ese es tu Dataset.

Saludos.

[amell2020]

ah okay graicas sorry es que soy novato, dejame probar haber.

[amell2020]

CAral Aqui les dejo el Programa para que lo revisisen. gracias por todos amigos.

[Caral]

Hola
Quieres un arreglo total, parcial o ideas ?.
Saludos

[amell2020]

(^)Como asi, esta mal hecho el form??  explicame mejor por favor

[Caral]

Hola
No esta mal el programa es solo una pregunta.
Me gustaria verlo trabajar pero no tengo los componentes que usas.
Creo que seria bueno que le hicieras algunos cambios que te ayudarían a que funcione mejor.
por eso fue la pregunta.
En mi opinion:
1- Eliminar momentáneamente los componentes extra.
2- Hacer la conexion con INI.
3- Crear los forms segun se necesiten.
Para saber que hace y que requieres con mas claridad seria bueno que aparte de quitarle los componentes nos explicaras que es lo que hace el programa.
Saludos

[amell2020]

okay entiendo.
el programa registra datos de una factura de medicamento para enviarle la factura a un seguro, en el panel principal tienen todos los seguro para registrar a los clientes que generen una factura.

tengo prooblema con la conexion INI, no se como cornectarlo con BD Acces.

[Caral]

Hola
Me gustaria que le quites los componentes que no tengo y volverlo a subir.
Es que con esos componentes no lo puedo correr, (luego los vuelves a poner).
Le voy a hacer la conexion por INI ademas de otros cambios, sencillos.
Pero necesito que le quites los componentes y lo subas de nuevo.
Saludos

[amell2020]

cual componente quickreport??