duvida em manipulação dos valores de uma tabela

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, Mask, DBCtrls, ADODB, Buttons, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; orcamentos: TADOTable; orcamentosCdigo: TAutoIncField; orcamentosAno: TWideStringField; orcamentosPrefeitura: TWideStringField; orcamentosTributario: TIntegerField; orcamentosPatrimonial: TIntegerField; orcamentosTransCorrentes: TIntegerField; orcamentosOutras: TIntegerField; orcamentosDeducaoFundef: TIntegerField; orcamentosSubTotal1: TIntegerField; orcamentosOperCredito: TIntegerField; orcamentosAlienBens: TIntegerField; orcamentosTransCapital: TIntegerField; orcamentosSubTotal2: TIntegerField; orcamentosTotalGeral: TIntegerField; Label1: TLabel; DBEdit1: TDBEdit; DataSource1: TDataSource; Label2: TLabel; DBEdit2: TDBEdit; Label3: TLabel; DBEdit3: TDBEdit; Label4: TLabel; DBEdit4: TDBEdit; Label5: TLabel; DBEdit5: TDBEdit; Label6: TLabel; DBEdit6: TDBEdit; Label7: TLabel; DBEdit7: TDBEdit; Label8: TLabel; DBEdit8: TDBEdit; Label9: TLabel; DBEdit9: TDBEdit; Label10: TLabel; DBEdit10: TDBEdit; pnl_Menu: TPanel; sbtn_Novo: TSpeedButton; sbtn_Salvar: TSpeedButton; sbtn_Alterar: TSpeedButton; sbtn_Cancelar: TSpeedButton; sbtn_Atualizar: TSpeedButton; sbtn_Primeiro: TSpeedButton; sbtn_Anterior: TSpeedButton; sbtn_Proximo: TSpeedButton; sbtn_Ultimo: TSpeedButton; Sbtn_Sair: TSpeedButton; DBLookupComboBox1: TDBLookupComboBox; DBLookupComboBox2: TDBLookupComboBox; ADOConnection2: TADOConnection; ano: TADOTable; anoAno: TWideStringField; DataSource2: TDataSource; ADOConnection3: TADOConnection; prefeitura: TADOTable; prefeituraPrefeitura: TWideStringField; DataSource3: TDataSource; procedure sbtn_NovoClick(Sender: TObject); procedure sbtn_SalvarClick(Sender: TObject); procedure sbtn_AlterarClick(Sender: TObject); procedure sbtn_CancelarClick(Sender: TObject); procedure sbtn_AtualizarClick(Sender: TObject); procedure Sbtn_SairClick(Sender: TObject); procedure sbtn_PrimeiroClick(Sender: TObject); procedure sbtn_AnteriorClick(Sender: TObject); procedure sbtn_ProximoClick(Sender: TObject); procedure sbtn_UltimoClick(Sender: TObject); procedure orcamentosCalcFields(DataSet: TDataSet); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.sbtn_NovoClick(Sender: TObject); begin if orcamentos.State in [dsBrowse] Then begin DBEdit1.SetFocus; orcamentos.Insert; end else ShowMessage(´Operação Não Disponível!´); end; procedure TForm1.sbtn_SalvarClick(Sender: TObject); begin if not(orcamentos.State in [dsBrowse]) Then orcamentos.Post else ShowMessage(´Operação Não Disponível!´); end; procedure TForm1.sbtn_AlterarClick(Sender: TObject); begin if (orcamentos.State in [dsBrowse]) AND (orcamentos.RecordCount > 0) Then begin DBEdit1.SetFocus; orcamentos.Edit; end else ShowMessage(´Operação Não Disponível!´); end; procedure TForm1.sbtn_CancelarClick(Sender: TObject); begin if not(orcamentos.State in [dsBrowse]) Then orcamentos.Cancel else ShowMessage(´Operação Não Disponível!´); end; procedure TForm1.sbtn_AtualizarClick(Sender: TObject); begin if not(orcamentos.State in [dsBrowse]) Then orcamentos.Cancel; orcamentos.Close; orcamentos.Open; end; procedure TForm1.Sbtn_SairClick(Sender: TObject); begin close; end; procedure TForm1.sbtn_PrimeiroClick(Sender: TObject); begin if orcamentos.State in [dsBrowse] Then orcamentos.First else ShowMessage(´Operação Não Disponível!´); end; procedure TForm1.sbtn_AnteriorClick(Sender: TObject); begin if orcamentos.State in [dsBrowse] Then orcamentos.Prior else ShowMessage(´Operação Não Disponível!´); end; procedure TForm1.sbtn_ProximoClick(Sender: TObject); begin if orcamentos.State in [dsBrowse] Then orcamentos.Next else ShowMessage(´Operação Não Disponível!´); end; procedure TForm1.sbtn_UltimoClick(Sender: TObject); begin if orcamentos.State in [dsBrowse] Then orcamentos.Last else ShowMessage(´Operação Não Disponível!´); end; procedure TForm1.orcamentosCalcFields(DataSet: TDataSet); begin orcamentosSubTotal1.Value:=orcamentosPatrimonial.Value+orcamentosTransCorrentes.Value+orcamentosOutras.Value+orcamentosDeducaoFundef.Value; orcamentosSubTotal2.Value:=orcamentosOperCredito.Value+orcamentosAlienBens.Value+orcamentosTransCapital.Value; orcamentosTotalGeral.Value:=orcamentosSubTotal1.Value+ orcamentosSubTotal2.Value; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.

SELECTPatrimonial FROM orcamentos WHERE CodPrefeitura =1;

Instrução SQL inválida ´DELETE´, ´INSERTE´, ´PROCEDURE´, ´SELECT´ OU ´UPDATE´ esperado

como você identifica os valores tributários, patrimoniais, transferências, etc?

Bom pessoal ja que consegui vou postar aqui como fiz....talvez sirva para alguem.... Usando o ADOQuery na propriedade SQL coloquei o seguinte onde ´Prefeitura´ é uma variável daí Cliando paremeters vc vai observar que ´Prefeitura´ está la... mas não mexi em nada... Daí botei um DBLookupComboBox1 fiz as devidas ligações com o banco de dados e no evento OnClick coloquei o seguinte: deu certo.... muito bom... SDS

SELECT Patrimonial
FROM orcamentos
WHERE Prefeitura =:Prefeitura;

ADOQUERY1.Close;
ADOQUERY1.Parameters.ParamByName(´Prefeitura´).Value := DBLookupComboBox1.Text;
ADOQUERY1.Open; // use Active ou Close/Open.

Agora meu problema consiste no seguinte: como havia dito preciso fazer alguma operações matemáticas com os valores cadastrados....

para isso precisamos conhecer suas tabelas: como você identifica os valores patrimoniais, tributários, etc.

INSERT INTO estimativas ( Patrimonial )
SELECT (Tributario*100/(SELECT Tributario FROM orcamentos B WHERE B.Ano=A.Ano-1)-100)
FROM orcamentos AS A;

ADOQuery1:CommandText does not return a result set

INSERT INTO  estimativas (Expr1000, Patrimonial)
SELECT Patrimonial, (Tributario*100/(SELECT Tributario FROM orcamentos B WHERE B.Ano=A.Ano-1)-100)
FROM orcamentos A
WHERE Prefeitura=:Prefeitura;

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
      ADOQUERY1.Active := False;
      ADOQUERY1.Parameters.ParamByName(´Prefeitura´).Value := DBLookupComboBox1.Text;
      //ADOQUERY1.Active := True;
      ADOQUERY1.ExecSQL;
end;

ADOQuery1:CommandText does not return a result set

Open/Active deve ser utilizado para retorno de registros, ou seja: SELECT.

// insere os registros na tabela ESTIMATIVAS
ADOQuery1.CommandText :=
  ´INSERT INTO estimativas ( Patrimonial ) ´+
  ´SELECT (Tributario*100/(SELECT Tributario ´+
  ´FROM orcamentos B WHERE B.Ano=A.Ano-1)-100) ´+
  ´FROM orcamentos AS A´;
ADOQuery1.ExecSQL;

// abre a tabela ESTIMATIVAS
ADOQuery1.CommandText :=
  ´SELECT * ´+
  ´FROM ESTIMATIVAS ´
ADOQuery1.Active := True;