|
no me sirve quiero que se ejecute ayumaticament el siguiente codigo cuando yo habra el formularo
procedure TFMAGREGAR.FormCreate(Sender: TObject);
var
ultimo:integer;
begin
FMagregar.ADOQuery1.SQL.Add ('select max(IDARTICULO) +1 ultimo from articulos');
FMAGREGAR.DBEdit1.Text:= inttostr(ultimo);
end;
end.
|