Ir para conteúdo
Fórum Script Brasil

nsouza

Membros
  • Total de itens

    323
  • Registro em

  • Última visita

Tudo que nsouza postou

  1. Caro Jhonas, entendi sua colocação. Eu programei o TCombobox para receber o valor conforme abaixo. 001 - Proprietário 002 - Inquilino como faço para que a DBCombobox tenha o mesmo resultado, eu tentei e só consegui colocar um valor ex: Proprietário. Obrigado!
  2. Colegas, toda fez que gero um registro e ele duplica a chave primaria, logicamente da uma mensagem de erro. Como faço para definir uma mensagem para o usuario ao invés de usar a mensagem do banco de dados quem exibe toda em ingles para o usuario. Estou usando o mysql. Obrigado!
  3. Colegas, estou usando o DbExpress com o client dataset Tenho uma combobox que através dela dois TEdit recebem valores. Funciona normalmente, mas quando eu vou atualizar se eu mudar o valor de A para B tudo funciona, mas se eu deixar a combobox vazia da a mensagem de erro: "Record not found or changed by another user". Como corrigir este problema? Obrigado!
  4. Caro Jhonas, ficou otimo assim mesmo. Muito obrigado! (Resolvido) SpeedButton
  5. Daniel, foi batata! Fiz desta forma: spMorador.Caption:= 'F4'+#13+'Funcionário'; spMorador.Font.Color:= clWhite; tem como colocar a palavra Funcionario em negrito?
  6. Colegas, tenho um speedbutton no tamanho de 49x49, o texto que preciso que ele exiba é F4-Funcionario. Porém não desta forma mas sim, o F4 em cima da palavra funcionario F4 Funcionario Como faço para quebrar a linha usando um speedbutton. Obrigado!
  7. procure este evento dentro do componente ... OnDrawPanel é só colocar o codigo lá dentro e criar os panels e mudar a propriedade Style = psOwnerDraw para cada panel abraço Caros Jhonas, funcionou perfeitamente, muito obrigado! Como faço para colocar o post (Resolvido) TStatusBar no titulo do post obrigado
  8. coloque a função no evento OnDrawPanel ... abraços !! Segui todas as instruções acima, mas deu o seguinte erro marcando a linha abaixo "Not enough actual parameters" procedure TF_Menu.LinhaStatusDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); begin LinhaStatusDrawPanel; end;
  9. Exemplo procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); begin if Panel.Index=0 then begin StatusBar1.Canvas.Font.Color := clBlue; StatusBar1.Canvas.brush.Color:=$D1D1D1; StatusBar1.Canvas.FillRect(Rect); StatusBar1.Canvas.TextOut(Rect.Left + Font.Size, Rect.Top + 1, Panel.Text ); end; if Panel.Index=1 then begin StatusBar1.Canvas.Font.Color := clRed; StatusBar1.Canvas.brush.Color:= clYellow; StatusBar1.Canvas.FillRect(Rect); StatusBar1.Canvas.TextOut(Rect.Left + Font.Size, Rect.Top + 1, Panel.Text ); end; if Panel.Index=2 then begin StatusBar1.Canvas.Font.Color := clWhite; StatusBar1.Canvas.brush.Color:= clLime; StatusBar1.Canvas.FillRect(Rect); StatusBar1.Canvas.TextOut(Rect.Left + Font.Size, Rect.Top + 1, Panel.Text ); end; if Panel.Index=3 then begin StatusBar1.Canvas.Font.Color := clBlack; StatusBar1.Canvas.brush.Color:= clWhite; StatusBar1.Canvas.FillRect(Rect); StatusBar1.Canvas.TextOut(Rect.Left + Font.Size, Rect.Top + 1, Panel.Text ); end; end; OBS: mude a propriedade Style = psOwnerDraw para cada panel abraço Caro Jhonas, este procedimento eu tenho que criar ou colo ele em algum evento?
  10. Pois é amigo, na verdade eu refiz esta ação, e mesmo assim não deu certo. Coloquei a cor amarela mas quando rodo o sistema continua preto, ou seja, não deu efeito!
  11. Colegas, meu programa tem a TStatusBar cor azul e a fonte cor preta, eu gostaria de colocar a cor da fonte Branca, mas não consegui, desde modo fica dificil para o usuario ler as informações de ajuda. Como faço para colocar a cor da fonte Branca? Obrigado!
  12. estou usando o OpenPictureDialog2. Com respeito a imagem, como assim tamanho da imagem? Eu apenas tiro com a maquina digitau o coloco na pasta!
  13. Jhonas, foi perfeito, carregou sem problemas. No entando a foto ultrapassou o tamanho do espaço que defini. Como faço para ajustar tamanho do componente TImage?
  14. Colegas, meu sistema esta carregando as fotos perfeitamente, o problema é que só aceita foto no formato .bmp. Ao inserir foto no formato .jpg da a seguinte mensagem de erro. "Unkonw picture file extension (.jpg)". Estou usando o componente OpenDialog Alguém pode me ajudar. Obrigado!
  15. Colegas, a dias tentro resolver este problema, mas sem sucesso. já usei as configurações usando os tutoriais da internet para configura o TCP/IP, já liberei no firewal e nada. Minha conexão esta no modo misto. Por favor, alguém poderia me ajudar? Abaixo a mensagem de erro: (provider: TCP Provider, error: 0 - Uma tentantiva de conexão falhou por o componente conectado não respondeu corretamente após o tempo ou a conexão estabelecida falhou por o host conectado não respondeu.) (Microsolt SQL Server, Error 10060)
  16. Colegas estou usando o cliente dataset do dbexpress. tenho dois painels PanEdit e PanGrid PanEdit - Este panel tem os edits onde incluo os dados e quando clico em salvar ele envia o PanEdits para tras e mostra o panGrid com todos os registros. O problema é que quando altero os registro atraves do PanEdits e mando salvar, ele exibe o PanGrid altera no banco de dados o registro mas o PanGrid só atualiza se eu fechar e abrir o formulário, preciso que quando clicar em alterar, ele chamar o PanGrid mostre-me o registro alterado. Obrigado..
  17. Colegas, tenho um form conectado com o dbexpress e mysql 5.1 quando clico no botão confirmar da a mensagem de erro: Drive '[MySQL][OBDE 5.1 Driver][mysql-5.0.77-community]Duplicate entre' 26-7-1231231235456' for key1' Como posso resolver este problema? Alguém o conhece? Obrigado!
  18. Obrigado, já corrigia. Valeu pela atenção.
  19. Colegas, como iniciante tive dificuldade em atribuir valor a uma varial Após concatenar campoa pretendia o seguinte resultado em um TCombobox 001 - Mecânico O que fiz Declarei uma varial var combo :string; varcod:integer; begin varcod:= dm.Cds_Funcionario.fieldbyname('CODESPECIALIDADE').AsInteger; combo:='select descricao from especialidade where codigo='+ IntToStr(varcod); cbEspecialidade.Text := (stringofchar('0',3-length(DM.Cds_Funcionario.FieldByName('CODESPECIALIDADE').AsString)) + DM.Cds_Funcionario.FieldByName('CODESPECIALIDADE').AsString + ' - ' + combo); end; No geral funcionou, mas o resultado foi 001 - select descricao from especialidade where codigo=1 Ao invés de mostra, 001 - Mecânico, mostrou o que digitei na variavel, 001 - select descricao from especialidade where codigo=1 ou seja não esta rodando a consulta SQL. alguém poderia me dar uma ajuda ao digitar o codigo correto ao atribuir o valor da variavel?
  20. Colegas, estou trabalhando com o delphi 7 e o mysql 5.1 uso a sql abaixo para inserir os registros DM.Q_Funcionario.Active := False; DM.Q_Funcionario.SQL.Clear; DM.Q_Funcionario.SQL.Add('INSERT INTO FUNCIONARIO (CODESPECIALIDADE,NOME,ENDERECO) VALUES ('); DM.Q_Funcionario.SQL.Add(QuotedStr(edtEspecialidade.Text)+','); DM.Q_Funcionario.SQL.Add(QuotedStr(edtNome.Text)+','); DM.Q_Funcionario.SQL.Add(QuotedStr(edtEndereco.Text)+')'); DM.Q_Funcionario.ExecSQL; Trabalho da seguinte forma. Query, provider, DataSet, DataSouce. Esta inserindo no banco de dados perfeitamente, mas retorna a mensagem de erro "Fiedl requery", por orientação desabilitei esta opção. agora da a mensagem que o dataset não esta no modo de inserção. Podem me dar uma ajuda!
  21. :mellow: Já fiz isso, o problema é que da a mensagem "Field codfunc must have a value", mesmo no firebird esta dando o mesmo erro.
  22. :ninja: na verdade aconteceu porque eu estava usando uma nova ferramenta grafica e deleti o banco de dados. Restaurei e deu certo. Value pela atenção de todos! Fica ai mais um motivo deste erro!
  23. Colegas, estou usaando o mysql 5.1 com o delphi 7. Criei um form com o cliente dataset. O problema é que quando vou inserir um registro e clico no botão inserir para gravar no banco de dados, da a mensagem que o campo código deve ter um valor. o Campo código e autoincrement, mas como sabem, o cliente dataset deixa na memoria da maquina depois grava no banco. Tentei um stored procedure, mas sem sucesso, estou começando a aprender a traabalhar com SP. Alguém poderia me ajudar?
  24. Permissão do usuário tem porque eu estava usando normalmente. Eu acesso em 1 micro, mas coloquei no modo misto porque irei trabalhar com uma maquina virutal.
  25. Colegas, estava usando o dbexpress normalmente, até desenvolvi alguns forms. Mas de hora pra outra começou a mensagem de erro: "dbexpress: invalid precision" Os parametros não foram alterados, como disse começou a dar esse erro de repente. Como faço para resolver? Obrigado!
×
×
  • Criar Novo...