Progr'amador

É acho que aqui fica melhor... Abs. Progr'amador.

Então faz o seguinte 1º - clique com o botão direito do mouse no Fields Editor e escolha New Field...; - nas opções: 2º - Name: <o nome de seu campo> ex: Total; 3º - Type:= <tipo de campo> escolha Float; 4º - Field type:= escolha Calculated; e clique em Ok. No Evento OnCalcFields da Table, coloque: Table1['total'] := (Table1.FieldByName('Quantidade').Value * Table1.FieldByName('PrecoUnitario').Value); Ae é só adicionar esse campo no seu DBGrid. Entedeu? Abs. Progr'amador.

Ola rjcerri, é como o s3c falou, eu não havia percebido isso, mas se essa query ZQueryMrpmat já esta sendo usada pra uma SELECT você teria que usar uma outra query pra executar esse update, já que os paramtros fal e tot busca o resultado desse query 'ZQueryMrpmat', entedeu???? Abs. Progr'amador.

Olá Alexandre, a ideia do Kikonanet é boa! você tem que definir em que momento será feita a gravação, tipo: na abertura do form, ou no fechamento, etc... e qual seria esse momento? Abs. Progr'amador.

Olá, Tenta isso: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin For i := 1 to Screen.FormCount do Label1.Caption := IntToStr(Screen.FormCount); end; Abs. Progr'amador.

Olá, você ta tentando alterar os campos 'falta' e 'total'? 1º - No SET você deve usar ',' (virgula) em vez de 'and'; 2º - ta faltando receber o valor do parametro tot ; 3º - não há necesidades desses parenteses entre os parametros fal e tot. deixe assim: DataMrp.ZQueryMrpmat.SQL.Clear; DataMrp.ZQueryMrpmat.SQL.Add('update mrpmatprima set falta = :fal, total = :tot where simulacao = :simu and qtdmatprima > estoque '); DataMrp.ZQueryMrpmat.Parambyname('simu').asinteger:=strtoint(txtsimulacao.text); DataMrp.ZQueryMrpmat.Parambyname('fal').asfloat:=DataMrp.ZQueryMrpmat.fieldbyname('qtdmatprima').asfloat-DataMrp.ZQueryMrpmat.Fieldbyname('estoque').asfloat; DataMrp.ZQueryMrpmat.Parambyname('tot').asfloat:= ????????? DataMrp.ZQueryMrpmat.ExecSQL; Abs. Progr'amador.

Olá, seria como o Graymalkin falou?, ou seria um total em cada linha tipo criar uma coluna no DBGrid pro total: (Total = Quantidade * Preço Unitario)??? ????? Abs. Progr'amador.

Olá, não leve como "ignorancia", estamos todos apredendo... Fechado. Abs. Progr'amador.

Olá, No tópico Seção de dicas, postei uma dica sobre isso: http://scriptbrasil.com.br/forum/index.php...=15#entry218237 Abs. Progr'amador.

Olá posta ae o erro, talvez esteja faltando essa linha: Form1 := TForm1.Create(Self); Form1.Show; etc... Abs. Progr'amador.

Ae! é so traduzir pro inglues essa sua consulta: Selecionar todos na tbProdutos onde valor=1 ou dolar=1 ou custo=1 Select * from tbProdutos where (valor=1 or dolar=1 or custo=1) Abs. Progr'amador.

Olá cassitos, Use um DataSource (Ex: datasourceCLIENTE ) ligado à "QueryCLIENTE", e na opção DataSource da "QuerySUBCLIENTE" link esse DataSource (datasourceCLIENTE). Entedeu? Abs. Progr'amador.

Olá, Qual a versao do seu delphi? Abs. Progr'amador

Olá, No delphi 2005 houve uma pequena mudança mesmo. Declare no Uses: IdAttachmentFile, e substitua o TIdAttachment por TIdAttachmentFile ficando assim: for xAnexo := 0 to ListBox1.Items.Count-1 do TIdAttachmentFile.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo])); Abs. Progr'amador.

Olá Kikonanet, só um "observaçãozinha". nesse caso em vez usar o igual '=' teria que usar Like, e poderia ficar assim: with Query do begin close; SQL.Clear; SQL.Add('SELECT * FROM TABELA'); SQL.Add('WHERE Nome like '+#39Edit1.Text+'%'+#39); Open; end; Ok!? Abs. Progr'amador.

Olá rjcerri, tenta da um close antes do clear, assim: DataModulederma.ZQueryPadrao.Close; DataModulederma.ZQueryPadrao.SQL.Clear; etc, etc, etc... Abs. Progr'amador.

Olá, Pra instalar o Delphi 2005 são necessários os seguintes componentes: - .NET Framework 1.1; - .NET Framework SDK 1.1; - Visual J# .NET 1.1 Redistributable; - Microsoft XML Core Services (MSXML) 4.0 SP2; - Internet Explorer 6 SP1. Abs. Progr'amador.

Olá, de uma olhada nesse post: http://scriptbrasil.com.br/forum/index.php...=0entry241275 Abs. Progr'amador.

Ok! 1º - Criando Package: No Menu File >> New... escola a opção Package File name: nome do seu pacote. Description: A descrição de você quizer. clique em Ok 2º - Adicionando o Componente al seu packge: No Menu File >> Open: Na opção Arquivos do Tipo: Delphi package source (*.dpk) ae localize o seu packge que foi criado e clique em abrir. ira abrir uma janela clique em Add abrirá outra janela, na guia Add Unit clique em Browse... ae é so seta pro componente desejado (*.pas ou *.dcu), clique em Abrir, depois clique em Ok. Seu compoente ira aparecer na lista na janela do Pakage ae é só clicar em botão Compile e depois em Install. Obs. É aconselhavel que o seu *.dpk e seu *.pas e os outros arquivos do compoente fiquem tudo na mesma pasta. Ok!? Abs. Progr'amador.

Olá, você pode fazer isso em tempo de execução, só que pra isso você vai precisar de algo de que informe essa condição, quando será 3 ou 4 digitos, tipo: if variavel_codicao = 3 then MaskEdit1.EditMask := '(99) 999-9999;1;_' // 3 digitos else MaskEdit1.EditMask := '(99) 9999-9999;1;_'; // 4 digitos Entendeu? Abs. Progr'amador.

Cara, acredito que seja impossivel encontrar um curso bom como você quer, que se aprenda em "30 dias". Abs. Progr'amador

Olá Marcelo, você ta usando impressora térmica? (tipo: Zebra, Datamax...?) Abs. Progr'amador.

Olá fernando_vip, você deve especificar melhor. Que tipo de erro ta ocorrendo ae? Abs. Progr'amador.

Olá Arlon, No Menu Component >> Install Component... Na opção Unit file name: você seta para este seu arquivo (Delphi Source File - *.pas) Na opção Package file: você escolhe o pacote onde será instalado esse componente. Pessoalmente eu num gosto dessa opção, eu prefiro criar um package pra esses componentes, pra num ter que ficar alterando os packages do delphi. Abs. Progr'amador.

Procure >> AKI << que tem um montão de coisa. Abs. Progr'amador