-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
(Resolvido) DBComboBox para apresentar dados
pergunta respondeu ao Benaia de Jhonas em Delphi, Kylix
O DBComboBox é usado para voce selecionar um dos itens da lista para passar ao campo que foi definido em sua propriedade DataField. os demais não aparecem para escolha O Componente DBLookupComboBox é qu deve ser usado para esta finalidade Veja as propriedades ListSource, ListField e KeyField abraço -
Outra sugestão ... trabalhar com tabela temporária. Quando voce gerar a comsulta passe o resultado para uma tabela temporária do delphi para pode usar no DBChart abraço
-
Quando voce entra no modo segurança , alguns drives deixaram de ser carregados pelo windows ... neste caso voce pode tentar descobrir qual ou quais os arquivos que estão com problemas voce tem 2 opções: 1 - usar o cd de instalação do windows e tentar recuperar os arquivos corrompidos ou com problemas ... neste caso coloque o CD no CDROM va no INICIAR > Executar > digite sfc /scannow ... os arquivos com problemas no hd serão substituidos pelos que estão no CDROM e o problema resolvido 2 - se não funcionar a primeira opção, então voce terá que reinstalar o windows ... só que antes faça uma verificação no HD para saber se existem Bad Clusters. ( setores ou trilhas defeituosas ) abraço
-
Me referi a todas as linhas .... para os outros 3 está igual, para o ultimo esta diferente .... por isso pedi para voce verificar abraço
-
Isso é normal +----------+------------------------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +----------+------------------------------+------+-----+---------+----------------+ | id | tinyint(3) unsigned zerofill | NO | PRI | NULL | auto_increment | | name | varchar(15) | NO | | | | | password | char(32) | NO | | | | | fullname | varchar(50) | NO | | | | +----------+------------------------------+------+-----+---------+----------------+ mensagem 'Data truncated for collunm mat row1'. Truncated incorret DOUBLE value 60,35. Dados truncados para a coluna Mat linha 1 Valor Double truncado incorreto 60,35 Pode ser bug do Mysql ou valor passado de forma incorreta http://bugs.mysql.com/bug.php?id=21475 abraço
-
Como fazer com identificação de extensão
pergunta respondeu ao Wesley (Unamine) de Jhonas em Delphi, Kylix
Exemplo: procedure TForm1.Button1Click(Sender: TObject); var Arquivo : TextFile; Texto: string; begin Memo1.Clear; AssignFile(Arquivo, 'C:\NOMEARQUIVO.LBX'); Reset(Arquivo); while not EOF(Arquivo) do begin ReadLn(Arquivo, Texto); Memo1.Lines.Append(Texto); end; CloseFile(Arquivo); end; O seu arquivo com extensão LBX será lido e jogado para um Memo abraço -
Usando o ShellExecute não consequirá fazer isso se o sistema for acionado duas vezes não irar abrir duas irar sobrepor a primeira pagina Neste caso para acionar uma nova janela ou a mesma, voce deve criar um novo processo exemplo: uses Shellapi; procedure NovoProcesso(Proc : string); var SEInfo: TShellExecuteInfo; ExitCode: DWORD; ExecuteFile, ParamString, StartInString: string; begin ExecuteFile:= Proc; FillChar(SEInfo, SizeOf(SEInfo), 0); SEInfo.cbSize := SizeOf(TShellExecuteInfo); with SEInfo do begin fMask := SEE_MASK_NOCLOSEPROCESS; Wnd := Application.Handle; lpFile := PChar(ExecuteFile); nShow := SHOW_OPENWINDOW; end; if ShellExecuteEx(@SEInfo) then begin repeat Application.ProcessMessages; GetExitCodeProcess(SEInfo.hProcess, ExitCode); until (ExitCode <> STILL_ACTIVE) or Application.Terminated; ShowMessage('Processo terminado'); end else ShowMessage('Erro iniciando Processo!'); end; procedure TForm1.Button1Click(Sender: TObject); begin NovoProcesso('www.bol.com.br'); sleep(1000); NovoProcesso('http://noticias.bol.uol.com.br/'); sleep(1000); NovoProcesso('http://noticias.bol.uol.com.br/brasil/2009/08/08/ult4733u40278.jhtm'); end; Modifique o código para o seu uso ... mas a idéia é por ai OBS: As janelas abrirão em cascata, observe que o botão de navegação do IE estará ativo para voce voltar as janelas anteriores Outro exemplo http://www.marcosdellantonio.net/2006/11/2...-createprocess/ abraço
-
Pelo que entendi voce quer escrever ou preencher um campo da pagina automaticamente ... é isso ? Se for .. faça uma pesquisa no forum ... acho que tem alguma coisa a respeito http://scriptbrasil.com.br/forum/index.php...highlite=pagina Se não achar nada .. procure pela palavra web abraço
-
se voce postar o código fica mais facil alguém te ajudar abraço
-
Se for isso que voce colocou não funciona .. tem que ser o endereço especifico da pagina onde está o arquivo para download exemplo: https://www.scriptbrasil.com.br/script/php/atu-3.0b.zip abraço
-
Podem ser 3 coisas: 1 - A fonte está com a chave de voltagem em 220 Volts e voce esta ligando em 110 Volts 2 - A fonte está com problemas 3 - Pode haver algum componente em curto, neste caso a fonte se auto-desliga para evitar maiores estragos abraço
-
tente fazer então conversão de tipos de dados http://office.microsoft.com/pt-pt/access/HA012290182070.aspx abraço
-
primeiro tente salvar a sua consulta como tabela http://office.microsoft.com/pt-br/access/HA102051331046.aspx abraço
-
Mas no Access voce pode alterar isso ... basta alterar o tipo de campo abraço
-
Deixe a impressora em OffLine e mande imprimir .... va na impressora e veja o arquivo... de 2 cliks com o mouse e verifique qual papel esta marcado em < Tamanho do Papel > se for A4 voce terá que mudar abraço
-
Não foi o que voce escreveu: Access Violation q teima em aparecer; e o pior, só aparece na máquina do cliente, na minha máquina não inseri dados da proposta do veiculo, grava..., as vezes dá tudo certo, as vezes, Access Violation. se esta usando apenas uma maquina não era para acontecer .... no entanto percebi que este código: if dm.cdsPropostas.State in [dsinsert,dsedit] then try dm.cdsPropostas.DisableControls; DBXTrans := dm.ConConcess.BeginTransaction(TDBXIsolations.ReadCommitted); if dm.cdsPropostas.State = dsinsert then begin // dm.cdsPropostasID_PROPOSTA.AsInteger := dm.GeraId('SELECT MAX(ID_PROPOSTA) FROM PROPOSTAS'); dm.cdsPropostasID_VEICULOS_PROPOSTA.AsInteger := dm.cdsVeicPropostaID_VEICULOS_PROPOSTA.AsInteger; dm.cdsPropostas.ApplyUpdates(0); end else dm.cdsPropostas.ApplyUpdates(0); dm.ConConcess.CommitFreeAndNil(DBXTrans); dm.cdsPropostas.Close; dm.cdsPropostas.Open; dm.cdsPropostas.EnableControls; except on e:Exception do begin dm.ConConcess.RollbackFreeAndNil(DBXTrans); raise; end; end; está diferente dos outros .... veja se o motivo não seria por isso abraço
-
Podem ser 3 coisas: 1 - A fonte está com a chave de voltagem em 220 Volts e voce esta ligando em 110 Volts 2 - A fonte está com problemas 3 - Pode haver algum componente em curto, neste caso a fonte se auto-desliga para evitar maiores estragos abraço
-
(Resolvido) Cadastrando com o ibdataset
pergunta respondeu ao nicolasbraz de Jhonas em Delphi, Kylix
Se voce estiver usando IBQuery tambem dá .... no instante em que editar o registro passe o valor para este campo abraço -
___Data___ | _________Historico_________ | Valor Entrada | Valor Saída | Tipo de Pgto 06/08/2009 | PGTO CARTAO VISA___________|R$200,00____|__________|CARTÃO 06/08/2009 | PGTO CARTAO MASTERCARD____| ___________|R$40,00___ |CARTÃO 06/08/2009 | PGTO CARTAO MASTERCARD____|R$350,00____|__________|CARTÃO 06/08/2009 | PGTO CARTAO VISA___________| ___________| R$150,00__|CARTÃO Se esta saida for padrão ou seja se voce manter os campos que estão especificados ai... bastará montar a select para trazer todos os registros com cartões que tenham valores de entrada ou de saida .. com relação ao calculo e a montagem deste relatorio, o ideal seria usar o evento OnNeedData do report pois daria para controlar individualmente cada registro abraço
-
acho que tem alguma coisa no forum sobre isso ... pesquise no forum http://scriptbrasil.com.br/forum/index.php...lite=webbrowser abraço
-
O que acontece quando voce tenta editar o mesmo registro em 2 maquinas ao mesmo tempo ? um grande problema com uma mensagem de Access Violation quando se esta trabalhando em rede, não pode deixar 2 usuarios ou mais usarem o mesmo registro ao mesmo tempo voce deve controlar o acesso .... se um usuário já acessou este registro voce deve bloqueá-lo para os outros, até que este usuário tenha finalizado a sua operação e o pior, não é sempre, uma vez aqui e outra acolá, e só na última tabela, a T4 verifique e verá que isso só ocorre quando acontece de 2 usuários estarem usando o mesmo registro abraço
-
eu utilizo o Fortes Report. então terá que configurar o tamanho do papel que voce definiu no seu report e colocar como padrão este novo tamanho na impressora abraço
-
Database Tour 5.64 copyright information Using Database Tour 5.64 crack, password, serial numbers, registration codes, key generators is illegal and prevent future development of Database Tour. We at Download3000.com also does not provide download link for Database Tour from file hosting sites such as Rapidshare, Megaupload, Yousendit and so on. http://files3.download3000.com/download/ea.../dbtour_std.zip abraço
-
(Resolvido) Cadastrando com o ibdataset
pergunta respondeu ao nicolasbraz de Jhonas em Delphi, Kylix
Erro de validação para a coluna SAIPORD_COD_SAIDA_PAI ... valor nulo este erro indica que nesta coluna não pode haver um valor nulo abraço -
A maneira mais simples seria assim: uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var excel: variant; lin,col : integer; begin excel := CreateOleObject('Excel.Application'); excel.Workbooks.add(1); excel.Cells.Select; excel.Selection.NumberFormat := '@'; for lin := 1 to StringGrid1.RowCount do for col := 1 to StringGrid1.ColCount do begin excel.cells[lin,col] := StringGrid1.cells[lin,col]; excel.columns.AutoFit; excel.cells[lin,col].Select; end; excel.visible := true; end; abraço