|
Perdon, soy nuevo en estar usando este estupendo Foro, envio el codigo que estoy usando
Gracias
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBTables, DB, Grids, DBGrids, StdCtrls, n00o001;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Database1: TDatabase;
Movinom: TTable;
DataSource1: TDataSource;
Query1: TQuery;
DataSource2: TDataSource;
Button1: TButton;
Trabajador: TTable;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
wimpo: double;
xImpo:string;
begin
query1.SQL.Clear;
query1.SQL.Add('select movinom.idtrab, idafecta, importe, paterno,materno,nombre from movinom,trabajador ');
query1.SQL.Add('where movinom.idtrab=35 and anodenom=2012 and numdenom=1 and movinom.idtrab=trabajador.idtrab');
query1.Open;
query1.First;
end;
end.
__________________
jql-51
|