Jhonas

Veja este post http://scriptbrasil.com.br/forum/index.php...&hl=caminho ou procure no forum pelas palavras imagem ou caminho abraço

Se isto ocorre sempre, com qualquer impressão, voce deve verificar a configuração do papel, que provavelmente deve estar setada para envelope ( por isso imprime sempre meia folha ). abraço

Neste caso o que não está correto é a sua pesquisa.... sugestão: refaça a sua pesquisa ( horarios marcados do aluno ) procurando pelo nome ou codigo do aluno e depois ordenando as datas e horarios desse aluno, mostrando o resultado da pesquisa em um grid como já esta fazendo. Quando verificar que os dados estão corretos bastara voce jogar o conteudo da pesquisa nos seus edits, na mesma sequencia da leitura do arquivo. Abraço

Zekk, o que voce está querendo é que alguém programe isso para voce.... o que seria muito dificil de acontecer. Entretanto se voce se esforçar um pouco para começar o desenvolvimento do programa e ai encontrar duvidas, ficará mais facil alguém lhe responder. abraço

Veja nestes posts, talvez encontre a solução http://scriptbrasil.com.br/forum/index.php...ghlite=quickrep abraço

O codigo que estou passando servirá apenas como exemplo de partida, voce deve modificar o codigo de acordo com as suas necessidades. procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin // MUDANDO DE CAMPO USANDO A TECLA TAB if Key = #9 then if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount - 1) then begin //selectedindex := selectedindex + 1; CDS_Vendas.Edit; case selectedindex of 1 : CDS_VendasCODCLI.AsInteger := CDS_CadcliCOD.AsInteger; 2 : CDS_VendasCOD_ATV.Value := ''; 3 : begin CDS_CaixaP.First; if CDS_CaixaP.Locate('COD_ATIV',CDS_VendasCOD_ATV.Value,[loCaseInsensitive, loPartialKey]) then CDS_VendasQTDE.Value := CDS_CaixaPQTDE.Value else CDS_VendasQTDE.Value := 0; end; 4 : CDS_VendasDATA.Value := now; 5 : CDS_VendasPRECO.Value := 0.00; // OUTROS CAMPOS DA TABELA if selectedindex = 1 then begin // CRIA NOVA LINHA DE REGISTRO CDS_VendasNUM.AsInteger := CDS_Vendas.RecordCount+1; ndiv := 0; end end else begin if CDS_VendasPRECO.Value <> 0 then nbonif := nbonif + 1; CDS_Vendas.Post; CDS_Vendas.Append; selectedindex := 0; end; end; abraço

Experimente usar o componente OleContainer1 da paleta System do Delphi Exemplo: Num form coloque um botao e um OleContainer1 modifique o tamanho do OleContainer1 para que fique proximo ao tamanho do form ( diferenca de 1 cm a menos ) coloque este codigo no botao procedure TForm1.Button1Click(Sender: TObject); begin Screen.Cursor := crHourGlass; try OleContainer1.CreateObjectFromFile('C:\Teste.doc', True); OleContainer1.DoVerb(0); finally Screen.Cursor := crDefault; end; end; OBS: O arquivo teste.doc já deverá existir no dirve c: abraço

message 'Type mismatch in expression.'. mensagem 'Tipo incompativel na expressão' Isso significa que voce esta tentanto atribuir a um campo data ( datacad ) uma string ( txtDataCad.Text ) dm.Query1.ParamByName('datacad').value := txtDataCad.Text; tente esta mudança dm.Query1.ParamByName('datacad').value := strtodate(txtDataCad.Text); abraço

É possivel sim , inserir, alterar, excluir e fazer busca de dados em uma tabela dbf utilizando instruções SQL... basta usar componentes de acesso a tabelas dbf http://www.codigofonte.net/?secao=down&amp...7&tipo=nada abraço

Use o evento OnDrawColumnCell do DBGrid Exemplo Se no Campo Rentablidade Total ( RENT_TOTAL ) o valor for < que 1000 fica em vermelho ... se for maior que 1000 fica em verde. if (Column.Field.FieldName = 'RENT_TOTAL') then begin if CDS_CaixaP.FieldByName ('RENT_TOTAL').Value < 1000 then begin DBGrid1.Canvas.Font.Color:= clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color:= clGreen; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; OBS: Isto é penas um exemplo, voce deve modifica-lo de acordo com as suas necessidades abraço

Erro "required package 'rtl' not found" Erro Requerido Pacote Rtl ... Não Encontrado Não foi encontrado ou não foi instalado ... tente refazer a instalação. abraço

Sim ele é bom ... veja as especificações técnicas http://www.multiport.com.br/Download/Publi..._Data_Sheet.pdf abraço

Tem .. basta usar uma linguagem de programação ... Ex: C, C++ , Java, VB, Delphi ..etc Da pra colocar um exe dentro de outro. abraço

Veja se funciona assim: procedure TFrmPrincipal.TimerTimer(Sender: TObject); begin if MDIChildCount <> 0 then ShockwaveFlashLetreiro.Movie := 'C:\VirtuaPlacas - Sistema Para Fábricas de Placas\Movies\Atalhos.swf' else ShockwaveFlashLetreiro.Movie := 'C:\VirtuaPlacas - Sistema Para Fábricas de Placas\Movies\Letreiro.swf'; end; abraço

procedure TForm1.Button1Click(Sender: TObject); begin { Evento Som Padrão } MessageBeep(0); { ou Beep; } sleep(500); { Evento Parada Crítica } MessageBeep(16); sleep(500); { Evento Pergunta } MessageBeep(32); sleep(500); { Evento Exclamação } MessageBeep(48); sleep(500); { Evento Asterisco } MessageBeep(64); end; faça o teste: Se o som estiver saindo do autofalante voce ouvira todos estes sons, caso contrario não tente no evento ONKEYPRESS do form Código: if Key = #9 then Key := 0; ou veja http://www.forumweb.com.br/foruns/index.ph...49093&st=15 abraço

voce pode entar assim var I: Integer; begin for I := 0 to MDIChildCount - 1 do begin if MDIChildren[I] is TForm then begin showmessage(' já existe um form da classe TForm'); showmessage( MDIChildren[I] + ' é um form MDIChild '); end; end; end; outra maneira: http://www.webly.com.br/tutorial/net/3649/...licacao-mdi.htm abraço

[Error] RLINK32: Error opening file "C:\Sistema\Exemplo\Programas\unitcadclientes.dfm O Arquivo unitcadclientes.dfm está corrompido e o sistema não consegue abri-lo abraço

o beep sai do autofalante ou do transdutor da placa ?

primeiro voce deve levar e conta que, se esta tabela não for criptografada, não vai adiantar nada colocar senha um exemplo simples de criptorafia para NOME e SENHA 7AE04FD2 11023CCF212B5C98 859D9AA6 17033CC822364CAC37BF3158E305 CD4EEC788B8AEF E675C553A6A1C0 Quem olhar a tabela não vai saber quem é o usuario ou sua senha Exemplo simples sem criptografia function ValidaUser(login, senha : string) : boolean; Begin <nome da query>.Close; <nome da query>.ParamByName('LOGIN').AsString := login; <nome da query>.ParamByName('SENHA').AsString := senha; <nome da query>.Open; if <nome da query>.recordCount<>0 then Result := True; end; // No click do botao chama a funcao if ValidaUser(<NomedoEdit1>.text,<NomedoEdit2>.text) then "acao desejada"; o SQL da query, la vai o codigo : "Select * From <tabela> Where nome= :LOGIN and senha= :SENHA" outro exemplo procedure TFormLogin.BtnOKClick(Sender: TObject); begin DataModule1.UsuIBQuery.close; DataModule1.UsuIBQuery.sql.clear; DataModule1.UsuIBQuery.sql.add('SELECT USUARIO_LOGIN,USUARIO_SENHA'); DataModule1.UsuIBQuery.Sql.Add('from USUARIO'); DataModule1.UsuIBQuery.sql.Add('where USUARIO_LOGIN = :Nome and USUARIO_SENHA =:Login ' ); DataModule1.UsuIBQuery.parambyname('Nome').asstring:=ednome.text; DataModule1.UsuIBQuery.ParamByName('Login').asstring:=edsenha.text; DataModule1.UsuIBQuery.open; begin if DataModule1.UsuIBQuery.RecordCount = 0 then ShowMessage('Senha ou Usuario Invalido! '+ 'Certifique-se que a Tecla Caps Lock não esteja Ativada! ') else begin TelaPrincipal.enabled:=true; FormLogin.release; end; end; end; outros exemplos http://www.activedelphi.com.br/print.php?sid=200 https://www.scriptbrasil.com.br/script/delphi/login.rar existem muitos outros na net abraço

Borland DELPHI 8 ENTERPRISE (MPN: HDE1380WWCS181) Faixa de preço: R$ 611,91 Versões anteriores são mais baratas... voce pode encontrar em lojas de informatica ou veja este site http://jf.eti.br/pedido-delphi-7-enterpris...visual-basic-6/ abraço

o som de beep só ocorre quando voce não tem instalado no micro uma placa de som abraço

Respostas 1 - Experimente utilizar a opção Salvar Como do Excel voce salva a sua planilha diretamente para CVS 2 e 3 - Faça uma pesquisa no forum, já tem varios posts relacionados a sua duvida procure pelas palavras INI e REDE abraço

Expermente mudar nas propriedades de video na opção Aparencia, o estilo de cores do windows abraço

voce mesmo disse... localmente funcionam normalmente, mas em rede .... então voce deve verificar as configurações de rede ou verificar se existe erro em algum registro da sua tabela abraço

function TfmNotasVenda.VerificarNaturezaOperacao(natureza, sequen :integer): Boolean; var nat : integer; begin nat := sqllinha('select servico from Naturezas_operacao where cod_natureza = ' +IntToStr(natureza)+ ' and (sequencia = sequen)'); Result := nat = 1; end; observe que natureza e sequen é um integer então dessa forma se os valores para natureza e sequen etiverem vindo de edits, ficaria assim function TfmNotasVenda.VerificarNaturezaOperacao(natureza, sequen :integer): Boolean; var nat : integer; begin nat := sqllinha('select servico from Naturezas_operacao where cod_natureza = ' +StrtoInt(natureza)+ ' and sequencia = ' +StrtoInt(sequen)'); Result := nat + 1; end; Veja se é realmente isto que voce esta querendo abraço