seveN

Alguém sabe como fazer para que ao digitar o ultimo registro no campo (no caso são 13 numeros) abra-se outro formulário. Estou fazendo uma aplicação com código de barra e falta o código que ao digitar o 13º numero abra-se o form correspondente. A parte do abrir o outro form com os dados já está pronto, falta substituir o onexit por ao digitar 13º numero para que seja automático. Pedro

Estou tentando atualizar 53.000 registros com o codigo abaixo. Funciona, mas para atualizar tudo o servidor ficará travado por muito tempo Update tabela1 Set Campotabela1 = (Select CampoTabela2 From Tabela2 Where CodTabela1 = CodTabela2) Então alguém tem alguma idéia de acelerar o processo ou como fazer por parte. Por exemplo: atualizando do registro 1 até o 5000, quando terminar executo novamente do 5000 até 0 10.000... No aguardo Pedro

Valeu Valeu, vou tentar Pedro.

Alguém sabe como converter um DBgrid em Texto. Jogar um DBgrid em um Memo, com todas do DBgrid. Pedro

Deu Certo Relatorio.Matricula.Caption:= 'Mat ' + FormatMaskText('000000-0;0', (Edit.Text)); Obrigado pela força.

Eu digito a matricula assim: 9289988 e no relatório teria que sair assim 928998-8 com hífem. grato.

Não fechou só queria exibir a matricula no relatorio no seguinte formato "000000-0" grato.

Como faço para meu relatório receba o número no formato 000000-0 Tentei isso mas não consegui nada Relatorio.Matricula.Caption:= Format('%', [000000-0], (Edit1.Text)]); Pedro

Tinha pensado em alterar o campo no banco para não permitir registro duplicados. O código completo é esse. Begin QRLogin.Close; QRLogin.Sql.clear; QRLogin.Sql.add('select * from tab_usuarios where login =:login'); QRLogin.ParamByName('login').asstring:= DBEdit2.text; QRLogin.Open; If QRLogin.recordcount > 1 then Begin //Salvar DBCadastros.Enabled:= False; DBGeracao.Enabled:= False; DBConsultas.Enabled:= False; DBBackup.Enabled:= False; DBRelatorios.Enabled:= False; DBEdit1.Enabled:= False; DBEdit2.Enabled:= False; DBEdit3.Enabled:= False; DBComboBox2.Enabled:= False; DBComboBox1.Enabled:= False; DBGridUsers.Enabled:= True; BtAlterar.Enabled:= True; BtNovo.Enabled:= True; BtSalvar.Enabled:= False; BtExcluir.Enabled:= True; BtCancelar.Enabled:= False; BtFechar.Enabled:= True; Tab_Usuarios.Post; Tab_Usuarios.Refresh; End Else If QRLogin.recordcount > 0 then ShowMessage('login já cadastrado'); DBEdit2.SetFocus; End; grato.

Tenho o código abaixo para evitar que o login do usuário seja cadastrado com o mesmo nome duas vezes, quando incluo um novo login funciona perfeitamente, mas quando vou alterar qualquer usuário retorna que 'login já cadastrado'. Alguém tem alguma idéia de como contornar isso? Begin QRLogin.Close; QRLogin.Sql.clear; QRLogin.Sql.add('select * from tab_usuarios where login =:login'); QRLogin.ParamByName('login').asstring:= DBEdit2.text; QRLogin.Open; If QRLogin.recordcount > 0 then Begin ShowMessage('login já cadastrado'); DBEdit2.SetFocus; Exit; End; Grato.

O codigo abaixo auto completa o que for digitado no ComboBox, agora estou tentando fazer com que o se o nome não estiver na lista uma mensagem seja exibida solicitando que o nome não existente seja cadastrado abrindo o form correspondente. Begin QREscrivao.Create(Nil); QREscrivao.Sql.Add('Select Distinct Nome, Matricula, Funcao'); QREscrivao.Sql.Add('From Tabela'); QREscrivao.Sql.Add('Order By Nome'); QREscrivao.Open; QREscrivao.First; While Not QREscrivao.Eof Do Begin ComboBox1.Items.Add(QREscrivao.Fields[0].AsString); QREscrivao.Next; End; End; Grato...

Óbrigado pela dica. Já resolvi. Excluí o relatório e fiz um novo com as mesmas informações. Havia algum erro no form do relatório. grato.

Estou tendo problemas em visualizar um relatório no quickreport. Quando visualizo o relatório diretamente colocando os parâmetros manualmente (DataInicio e DataFim) o relatório funciona perfeitamente. Mas quando o relatório é exibido de outro form que tem os parâmetros a expressão não soma. Colunas SaldoAnteiror 10,00 DataPagto Credito Debito Saldo 01/01/2008 20,00 10,00 20,00 TQRExpr com a seguinte expressão: (SaldoAnterior) + Sum(Credito) - Sum(Debito), Alguém sabe com se resolve isso. O campo saldo (em vermelho) só aparece o resultado correto se visualizar no próprio quickreport. Quando é visualizado através do form (onde digito os parâmetros) o campo exibi um erro(Unknown). grato.

Estou usando um TDateTimePicker para retroceder a Data em 30 dias ou avançar 30 dias, mas gostaria de modificar a função abaixo para que retroceda para o 1º dia do mês anterior ou avançe para o último dia do Mês. Begin DataInicio.DateTime:=DataInicio.DateTime +30; DataFim.DateTime:=DataFim.DateTime -30; End; Grato.

Alguém tem alguma forma prática de fazer este relatório tipo extrato bancário.

Pessoal, sou iniciante em Delphi e estou tentando fazer um relatório com o QuickReport com os campos: DataPagto, Credito, Debito e Saldo. Exemplo: Saldo anterior.................................................................. 40,00 DataPagto-----------Credito--------------Debito-----------------Saldo 15/08/2008------------20,00----------------0,00-----------------60,00 16/08/2008--------------0,00--------------15,00-----------------45,00 ... Não consigo fazer com o saldo seja calculado linha por linha. Grato.

Aproveitando a pergunta, você saberia responder como faço para diminuir a data de hoje para o mesmo dia do mês anterior. Se hoje é 01/08/2008 ou melhor, sempre voltar para o dia 01/xx/xxxx.

A partir do Quick Report 4.0 é possível exportar para pdf, excel, ... Até mais.

Funcionou, Valeu. Grato.

Estou tentando fazer um formulário abrir mostrando no campo DataInicio o 1º dia do Mês atual e no campo DatafIm o último dia do Mês atual. Os dois campos são TDateTimePickler.

Valeu, Foi exatamente o que procurava. grato.

Consegui esta função: Select * from nome_tabela where extract(year from campo_data) = 1997 Mas quero uma query que separe o ano da data. grato

Como faço para pegar só o ano em uma data com sql.

Usei o código abaixo e deu certo. procedure TFormFuncao.BtExcluirClick(Sender: TObject); var Codigo: integer; begin If (MessageDlg('Deseja deletar o Registro?' , MtConfirmation , [mbYes,mbNo] , 0 ) = MrYes ) then Begin codigo:=QRFuncaoMat_bm.value; QRFuncao.close; QRFuncao.Sql.Clear; QRFuncao.Sql.Add('Delete From Tabbm Where Mat_bm = :Cod'); QRFuncao.ParamByName('Cod').AsInteger := Codigo; QRFuncao.ExecSql; Showmessage('Registro excluído com sucesso!'); end Else Showmessage('Operação cancelada!'); //Voltando as configurações originais da query QRFuncao.Sql.clear; QRFuncao.Sql.Add('Select Tabbm.Mat_bm, Tabbm.Des_bm, Tabbm.Posto_bm, Tabbm.Funcao'); QRFuncao.Sql.Add('From Tabbm where (Tabbm.Des_bm like:nome) Order by Tabbm.Mat_bm'); QRFuncao.parambyname('nome').asstring:='%'; QRFuncao.open; end; grato.

Estou usando o Delphi 7 com o banco de dados MySql e QRFuncao é uma Query. Ok.