Hola Yare.
Cita:
Uso componentes: Ttable y Tdatasource en el Data Module..
|
Ahora vamos mejor... Sabiendo que estas usando
BDE, la sintáxis de la consulta para un
TQuery cambia un poco:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
with Tu_Query do
begin
DataSource:= dsVentas; Close;
SQL.Clear;
SQL.Add('SELECT "COMPRAS".CANTIDAD - "VENTAS".CANTIDAD AS STOCK');
SQL.Add('FROM COMPRAS , VENTAS');
SQL.Add('WHERE "COMPRAS".CODIGO_BARRAS = "VENTAS".CODIGO_BARRAS');
SQL.Add('AND "VENTAS".CODIGO_BARRAS = :CODIGO_BARRAS'); Open;
end;
DBEdit1.DataSource:= dsQuery;
DBEdit1.DataField := 'STOCK';
end;
Saludos.