Arlon

Alguém por favor sabe me dizer onde eu posso encontrar uma apostila que me explique como usar o Install Shield que vem com o Delphi 6. meu e-mail é arlon@click21.com.br Agradeço qualquer ajuda.

Vê se vocês me entendem, talvez funcione: No momento em que o formulário é gerado uma variável recebe o valor do campo de auto-incremento, por exemplo: AutoInc := DataModule.Tabela.value; onde AutoInc é uma variável que recebe o valor do campo de auto-incremento. No momento em que o registro for deletado o valor do campo de auto incremento é desincrementado: Dec(AutoInc); DataModule.Tabela.value := AutoInc; será que daria certo?? eu nunca tentei, mas analisa e testa, quem sabe...

Vê se é isso aqui que você quer: If APPLICATION.MESSAGEBOX('Deseja encerrar o aplicativo?', 'Aviso', MB_ICONQUESTION + MB_YESNO)=ID_YES Then Application.Terminate;

Eu estou desenvolvendo um sistema que tem algumas telas de cadastro, uns relatórios, e algumas consultas. Eu tenho uma tabela em que estão gravados os registros de fornecedores e a chave primária dessa tabela é Cod_Forn, como eu estou começando a usar Delphi agora, estou com uma certa dificuldade pra fazer consultas. Eu fiz um form com um DBGrid um Edit e um Botão, e quero fazer uma consulta através do nome do fornecedor, ou seja, no Edit eu digito um nome e quando clicar no botão ele me retorna o registro com aquele nome No datamodule eu coloquei um Querry e seu respectivo DataSource e na propriedade SQL da Querry eu coloquei assim: Select * from Fornecedores where Nome = 'NomeBusca' e no OnClick do botão eu coloquei: procedure TFrmConsForn.BtnBuscarClick(Sender: TObject); var nomebusca : string; begin nomebusca := edit1.Text; DM.QrFornecedores.Close; DM.QrFornecedores.SQL.Text := 'Select * from Fornecedores ' + 'where Nome = NomeBusca ' + 'and upper(NomeBusca)'; DM.QrFornecedores.open; end; Só que quando eu clico no botão ele dá o seguinte erro: Project Estoque.exe raised exception class EDBEngineError with message 'Invalide use of a keyword. Token: ) Line Number: 1' Alguém sabe dizer como eu resolvo isso?? Evite Duplicar seus posts..

Pelo que eu entendi o que os nossos amigos querem é simplesmente editar a tabela, ou seja, a possibilidade de visualizar o registro e poder alterá-lo ou simplesmente cancelar a operação, como se fosse uma espécie de consulta... estou certo?? Se for isso é só por a tabela em modo de edição DataModule.NomeDaTabela.Edit; Quando a tabela for colocada em modo de edição os registros da linha selecionada do DBGrid aparecerão nos DBEdit´s do formulário de cadastro... seria isso a dúvida de vc´s?? Mesmo se não for isso posta a resposta ae.

Ao invés de colocar LongInteger coloca o sinal de soma "+" e sempre que você fizer um novo registro (quando ele gravar na tabela atavés do comando 'post') o campo será auto-incrementado. Espero ter ajudado, qualquer coisa posya de novo ae...

Uma Explicação bem rapidinha: O DBLookupComboBox é um componente utilizado pra você ver registros de outra tabela em tempo de execução, fazendo uma espécie de compartilhamento de campos. Por exemplo, imagine que você tem duas tabelas, TBProdutos e TBFornecedores. A tabela Fornecedores possui os seguintes campos: - Cod_Forn (Chave primária) - Nome_Forn - End_Forn e a tabela produtos os seguintes campos: - Cod_prod (Chave primária) - Desc_Prod - Nome_Forn O DBLookupComboBox é usado com a intenção de produzir uma interação entre as tabelas, por exemplo, você só poder cadastrar um produto se o seu fornecedor existir e ver se esse fornecedor já está cadastrado não com uma consulta à tabela Fornecedores, mas sim no próprio formulário de cadastro de produtos. É o DBLookupComboBox que "olha" a outra tabela(fornecedor) e grava o registro na tabela Produtos. -->> Como configurá-lo: - Data Source: DataModule.DataSourceProdutos (tabela que recebe a informação) - Data Field: Cod_Forn ( Chave estrangeira, se eu não me engano) - List Source: DataModule.DataSourceFornecedores (tabela que sede a informação) - List Field: Nome_Forn (Registros que aparecerão no DBLookupComboBox) - Key Field: Cod_Forn (Chave primária da tabela que sede a informação, no caso o nome do fornecedor) Espero ter sido claro, qualquer coisa posta de novo ae...

tenta isso aki oh: Edit1.text := "TabelaCampo".Value; **** "TabelaCampo" você substitui pelo nome da tabela (DataModule1.Table1Campo) e vê se dá certo... se não der ou não for bem isso que você quer posta de novo ae...

Cara, você quer mascarar a unidade monetária?? Se for isso, você tem que reestruturar a tabela e na propriedade "type" escolher a opção "money" ($) e quando você tirar o foco do dbedit correspondente a esse campo ele vai mascarar direto. =======//=======//=========//=========//========//=======//=======//==========//=========== Se liga... pra você mascarar um dbgrid você tem que mascarar no DataModule que aí ele mascara o dbgrid automaticamente: Dá um duplo click no componente table que tem o campo "preço" no Data Module, seleciona o campo que deseja mascarar (preço) , vai no object inspector, propriedade "edit mask" e preenche o campo com a máscara que você quer. Se não for isso ou ainda estiver com dúvida, posta de novo ae...

Valeu, deu certinho!! Alô adm da parada aki, pode fechar o tópico...

Vê se alguém me ajuda nesse erro aki: Num determinado momento da minha aplicação eu preciso fazer uma verificação sobre o estado da tabela: procedure TFrmEstoqueEntrada.SpeedButton1Click(Sender: TObject); begin DM.TbProdutos.Cancel; FrmConsProdutos.showmodal; if DM.TBProdutos.State = dsBrowse then // Linha 44 DM.TbProdutos.Edit; end; procedure TFrmEstoqueEntrada.BtnOKClick(Sender: TObject); begin if (DM.TbProdutos.State = dsEdit) and (edit1.text <> '') then // Linha 50 begin DM.TbProdutosQuant.Value := DM.TbProdutosQuant.Value + strtoint(edit1.Text); DM.TbProdutos.Post; edit1.clear; end; end; Quando eu dou F9 ele pára e exibe as mensagens pra declarar as variáveis "dsBrowse" e "dsEdit": [Error] EntradaEstoque.pas(44): Undeclared identifier: 'dsBrowse' [Error] EntradaEstoque.pas(50): Undeclared identifier: 'dsEdit' [Error] EntradaEstoque.pas(50): Operator not applicable to this operand type [Fatal Error] Estoque.dpr(18): Could not compile used unit 'EntradaEstoque.pas' Que doideira é essa de ele mandar declarar o estado da tabela, quer dizer, certamente eu errei em algum ponto... analisando essa parte do código alguém sabe me dizer uma solução.

Cara, esse teu texto tá meio confuso... tenta dar uma melhorada nele.

O problema é que, como eu já falei lá em cima, ele gera sempre a mesma sequencia fica uma parada meio manjada, vou ver um modo aki de resolver isso. Mas pode deixar que o resto do que eu preciso(verificar no bd pra não violar a chave primária, essas paradas...) eu sei como faz. Valeu pela ajuda galera Té mais...

Cara, eu nunca usei adoquery, mas... Experimentou colocar na máscara 00/0000 ?? Quando você mascara o campo no object inspector ele mascara no dbgrid também. Se mesmo assim não conseguir abre uma enquete nova e pergunta de novo, valeu...

Já mendei - - - - 10/02 - - - - 01:35. tem muita propaganda do cara que fez, mas é um exemplo legal... qualquer coisa meu icq é 168611158

Posta seu e-mail aí que eu te mando um exemplo com fonte...

Pow cara, eu pensei em colocar sequencial usando auto incremento, mas pra parada que eu estou fazendo aki seria melhor gerar randômico mesmo, falou... E por falar nisso como se gera um número randômico?? Eu fiz um uma vez mas ele sempre gerava números randômicos meio manjados. Toda vez gerava a mesma sequência cada vez que o programa inicializava, sei lá que maluquice é essa. ** Como que eu faço pra criar números randômicos, por exemplo ao clicar num botão?? ** E no caso do primeiro post que eu mandei, sabe como fazer?? De qualquer forma, valeu a ajuda...

Existe alguma forma de gerar um número eleatório em um Mask Edit ou DB Edit através do evento On Show do form (o campo é preenchido automaticamente quando o form aparece), sendo que esse número possua um número pré estabelecido de algarismos(10, por exemplo) e que seja diferente de qualquer registro daquele campo no banco de dados para não haver violação de chave na hora de registrar no BD? Agradeço qualquer ajuda...

Dá um duplo click no componente table do Data Module, seleciona o campo que deseja mascarar, vai no object inspector, propriedade "edit mask" e preenche o campo com a máscara que você quer. Só um detalhe: se você colocar na máscara algo como 00.00.00.00/00, e o campo for alfanumérico você tem que colocar um espaço reservado para 14 caracteres no BD, pois os pontos, barras, traços, etc, contam como caracter. Se você não entendeu nada ou ainda está com dúvida, posta de novo ae...

Essa rotina que você me passou é a mesma que tem no ClubeDelphi. Ele pede pra declarar "TForm2" e "Form2", o "TForm" eu declarei como TComponentClass, não sei se tá certo mas também não tá acusando erro e Form2 eu declaro como que variável?? De qualquer forma valeu pela ajuda...

Alguém sabe me dizer como criar um form em tempo de execução. Mais ou menos assim: quando eu clicar no Buttom ele gera um form. Agradeço a quem puder me ajudar... Valeu!!