nsouza

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!

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!

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!

Caro Jhonas, ficou otimo assim mesmo. Muito obrigado! (Resolvido) SpeedButton

Daniel, foi batata! Fiz desta forma: spMorador.Caption:= 'F4'+#13+'Funcionário'; spMorador.Font.Color:= clWhite; tem como colocar a palavra Funcionario em negrito?

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!

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

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;

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?

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!

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!

estou usando o OpenPictureDialog2. Com respeito a imagem, como assim tamanho da imagem? Eu apenas tiro com a maquina digitau o coloco na pasta!

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?

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!

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)

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..

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!

Obrigado, já corrigia. Valeu pela atenção.

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?

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!

:mellow: Já fiz isso, o problema é que da a mensagem "Field codfunc must have a value", mesmo no firebird esta dando o mesmo erro.

: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!

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?

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.

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!