nicolasbraz

Sim muitas empresas de poder público estão adotando linux conheço prefeituras que usam linux em sua grande maioria, agora se vale a pena vai de você, conhecimento nunca é demais.

É então estava no caminho certo :D Vou testar.

Jhonas tentei colocar a condição. procedure TFrmSaida.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if dbgrid1.selectedindex = 1 then begin if (dmdados.saidaproduto.State In [dsInsert] ) Then begin DBGrid1.SetFocus; DBGrid1.SelectedIndex := 1; exit; end; end; end; Mas não deu certo ainda :S O jeito que você me passou é para string o meu campo é inteiro, tentei colocar se o valor for = 0 mas também não deu.

No meu caso a minha dúvida é uma Tabela que tem interação com outras no caso vamos usar a tabela clientes. Abri a tabela cliente minimizei o form do cliente e abri o formulário de Venda fiz uma venda e fechei esse formulário de venda a tabela cliente é fechada se eu voltar para o form de cliente a tabela está fechada, então teria como eu usar um IF para isso se tiver aberto tal form mantenha aberto a tabela ?

Tenho um dbgrid com varios registros, quando o usuario está cadastrando um produto se ele clicar no registro de baixo ele muda o registro atual deixando o de cima incompleto, como posso bloquear isso ?

Como faço para no campo Parcela ele gerar assim. Primeira parcela 001/004 Segunda parcela 002/004.

Uso Firebird. Hehe não é o tipo ali eu coloquei só um nome dos meus Domains.

O que eu fiz até agora é isso http://img4.imageshack.us/img4/3962/contas.jpg Me digam se estou no caminho certo.

Obrigado Jhonas pela ajuda vou começar a criar as tabelas e qualquer duvida eu posto aqui. Abraços.

Jhonas, eu vi o primeiro exemplo que você me passou e achei ele muito interessante. Só tenho a duvida quando eu preencho os dados e clico em gerar parcela ele joga em um DbGrid os dados, esse dbGrid pertence a outra tabela ? http://img5.imageshack.us/img5/1193/cccov.jpg

Cara muito obrigado mesmo o código que você postou está perfeito. Só houve um erro meu, era na hora de chamar o form no caso que o form já estive-se aberto ele não acontecia nada, agora abaixo vou colocar o código funcionando redondo. procedure TFrmConFerramentas.DBGrid1DblClick(Sender: TObject); var registro:integer; begin registro := dmdados.SqlConFerramentasFER_CODIGO.Value; if not assigned (frmFerramentas) then begin application.createForm( TfrmFerramentas, frmFerramentas); frmFerramentas.show end else frmferramentas.show; dmdados.ibFerramentas.Locate('FER_CODIGO', registro, []); dmdados.ibFerramentas.Edit; dmdados.IbFerramentasFer_codigo.value := registro; frmferramentas.TbConsulta.TabVisible:=false; frmferramentas.TbCadastro.TabVisible:=true; frmferramentas.dbedit2.SetFocus; end;

Botão pesquisar do formulario de consulta. procedure TFrmConFerramentas.BotaoPesquisarClick(Sender: TObject); begin if (DateEdit1.Date > dateEdit2.Date) then begin showMessage('Não é possivel pesquisar quando a data inicial for maior que a data final'); end else begin dmdados.sqlconferramentas.Close; dmdados.sqlconferramentas.ParamByName('datainicial').AsDate:=DateEdit1.Date; dmdados.sqlconferramentas.ParamByName('datafinal').AsDate:=DateEdit2.Date; dmdados.sqlconferramentas.ParamByName('controle').AsString:='%'+Edit1.Text+'%'; dmdados.sqlconferramentas.ParamByName('nome').AsString:='%'+editnome.Text+'%'; dmdados.sqlconferramentas.ParamByName('ferramenta').AsString:='%'+editferramenta.Text+'%'; dmdados.sqlconferramentas.ParamByName('nomeobra').AsString:='%'+EditObra.Text+'%'; dmdados.sqlconferramentas.Open; end; end; Código do DbGrid procedure TFrmConFerramentas.DBGrid1DblClick(Sender: TObject); var registro:integer; begin registro := dmdados.SqlConFerramentasFER_CODIGO.Value; if not assigned (frmFerramentas) then begin application.createForm( TfrmFerramentas, frmFerramentas); frmFerramentas.show; end else abort; dmdados.ibFerramentas.Edit; dmdados.IbFerramentasFer_codigo.value := registro; frmferramentas.TbConsulta.TabVisible:=false; frmferramentas.TbCadastro.TabVisible:=true; frmferramentas.dbedit2.SetFocus; end; Tentei isso mas deu errado, ele abre o primeiro registro da tabela e altera o codigo dele.

Delphi 2007 sim são visualizados em um DBGrid.

Eu tenho um formulario de consulta que esta ligado por um DataSource e IbQuery. E o de cadastro que é ligado por um DataSource e IbDataset. Gostaria de que quando eu fize-se a consulta eu desse um duplo clique no registro da consulta e eu fosse para a tela de cadastro em modo de edição. É possivel ?

Gostaria da ajuda de vocês explicando como funciona esse modulo.

Para o titulo inseri o PageHeaderBand1 resolvido mas o restante não consegui. Inseri o ColumnHeaderBand1 so que ele so aparece na ultima pagina.

Ta mas como faço para elas se repetirem ? a Title e umas dessas duas.

Criei um relatorio mas gostaria que o TitleBand e o DetailBand fiquem em todas as paginas. Relatorio. Primeira Página http://img96.imageshack.us/img96/5339/primeirapagina.jpg Segunda Página http://img10.imageshack.us/img10/2811/pagina2p.jpg

Imaginei mesmo que se o usuario não altera-se a tabela não teria problemas, mas precisava confirmar. Obrigado ;)

Gostaria de saber se existe problema na seguinte situação 2 usuarios estão no sistema, acessando o banco de dados no servidor. Eu preciso criar uma nova tabela existe problema nisso ? Usando o firebird.

Douglas o que eu fiz foi assim. Vamos usar como exemplo um formulario de cadastro de clientes ok ? Podem ser realizar 3 tipos de operações. Inclusão, Alteração, Exclusão ok ? No botão adicionar não alterei o codigo do botao so implementei o seguinte codigo. dmdados.iblog.insert; dmdados.IbLogLOG_DATA.Value:=date; dmdados.IbLogLOG_HORA.Value:=time; dmdados.IbLogLOG_NOMEUSUARIO.AsString:= dadosusuario.nomeusuario; // Aqui é uma variavel que pega o nome do funcionario logado. dmdados.IbLogLOG_tabela.AsString:='clientes'; //o nome da tabela dmdados.IbLogLOG_OPERACAO.AsString:= 'incluiu'; // a operação realizada. dmdados.IbLog.Post; dmdados.ibCliente.append; TbConsulta.TabVisible := false; tbCadastro.TabVisible := true; dmdados.ibclienteCli_datacad.value:=date; DBNome.SetFocus; No botão alterar e excluir seria a mesma coisa só mudando no campo LOG_OPERACAO para "alteração" ou "exclusão". o codigo da tabela CREATE TABLE LOG ( LOG_ID CODIGO NOT NULL /* CODIGO = INTEGER NOT NULL */, LOG_DATA DATE, LOG_HORA TIME, LOG_NOMEUSUARIO NOME /* NOME = VARCHAR(50) */, LOG_OPERACAO NOME /* NOME = VARCHAR(50) */, LOG_TABELA NOME /* NOME = VARCHAR(50) */ ); Conseguiu entender ?

Jhonas pelo o que eu entendi, Preciso agrupar os dados, pelo QrExpression. Vou testando aqui e postando. Minha unica duvida é que os exemplos citados os campos eram diferentes. Ex.: Filmes - locação No meu caso é. Ex.: Quantidade + quantidade É o mesmo campo.

Jhonas eu fiz assim nos botões Novo, Alterar, Excluir. dmdados.iblog.insert; dmdados.IbLogLOG_DATA.Value:=date; dmdados.IbLogLOG_HORA.Value:=time; dmdados.IbLogLOG_NOMEUSUARIO.AsString:= dadosusuario.nomeusuario; dmdados.IbLogLOG_tabela.AsString:='saida'; dmdados.IbLogLOG_OPERACAO.AsString:= 'incluiu'; dmdados.IbLog.Post; No caso aqui é o botão novo. Não queria salvar num arquivo de texto porque fazendo isso, posso consultar. http://img15.imageshack.us/img15/4793/65303823.jpg Eu tenho varias opções podendo filtrar por Funcionario, Tabela e tipo de operação. Obrigado a todos pela ajuda.

Voce usa qual versao do delphi ? voce deu 2 cliques?

No seu "IbTransaction" esta setada a opção "Read committed" ?