Jhonas

Todo orçamento é em potencial uma venda.. para tanto use um combobox onde vode pode escolher entre orçamento e venda usando a mesma janela. Voce deve ter uma campo na sua tabela chamada TIPO. Caso esse orçamento vire uma venda, basta trocar o tipo... de orçamento para venda e não teria que fazer mais nada em relação aos demais dados. Evidentemente voce não vai contabilizar um orçamento ... certo ? e no caso de venda, voce debita o seu estoque e contabiliza os valores. abraço

Não sei se é bem isto que está querendo. procedure TForm1.BitBtn1Click(Sender: TObject); begin if FileExists(trim(Edit1.Text)) then begin Label1.Caption := 'Abrindo o Arquivo ... Aguarde'; Label1.Refresh; OleContainer1.CreateLinkToFile(trim(Edit1.Text),TRUE); OleContainer1.SetFocus; Label1.Caption := ''; Label1.Refresh; end else MessageDlg('Arquivo não encontrado!!!' , mtInformation,[mbOk], 0); end; OBS: Use o componente OLE ( Pasta System ) e digite o caminho completo onde está o arquivo no Edit1.Text abraço

O delphi faz conexão com o Mysql atraves dos componentes do ZEOS Voce pode usar o DbExpress ou o ADO Mais informações nestes endereços: http://www.activedelphi.com.br/forum/viewt...8c8a6144fed118b http://www.devmedia.com.br/articles/viewcomp.asp?comp=2920 http://www.linhadecodigo.com.br/Artigo.aspx?id=1260 http://forum.imasters.uol.com.br/index.php...p;#entry1115544 abraço

Não sei se voce vai encontrar pronto o que esta querendo, mas de qualquer modo vai o endereço onde pode procurar http://www.freedownloadscenter.com/Best/ocr-delphi-bmp.html abraço

Colega.. esta seria a aparencia de um texto convertido em figura ( bmp ) tenho uma imagem e quero extrair o texto voce deve levar em consideração o tamanho da fonte utilizada.... então dos exemplos que te passei, tem um que transforma bmp para texto e tambem o contrario .. de texto para bmp procure descobrir como a coisa funciona... veja o codigo para transformar texto em bmp, uma vez formada a imagem, veja como ela foi construida ( o conteudo do codigo ) e como é feita novamente a transfomação em texto novamente a partir dai voce pode fazer as suas adaptações ao código abraço

Apostilas de delphi http://www.apostilando.com/download.php?co...ategoria=Delphi http://www.apostilando.com/sessao.php?cod=13 ma vez que voce criou a sua tabela com os campos necessarios, voce pode usar o componente DBGrid e DBNavigator da paleta Data Controls do delphi Para acessar a sua tabela voce pode usar os componentes TTable ou TQuery e DataSouce da paleta Data Access Como usar ??? faça uma pesquisa no forum que tem muitos exemplos abraço

O TImage suporta as seguintes extensões *.gif *.jpg *.jpeg *.bmp *.ico *.emf *.wmf Use-o e veja se consegue carregar a imagem nele. abraço

já tive esse problema... a matricial não imprime certas fontes...veja a fonte que esta nos itens que são impressos e coloque a mesma fonte em tudo. abraço

Se voce consegue localizar o menor valor entre colunas, então guarde esse valor em uma matriz, depois pesquise outra coluna e guarde novamente o menor valor encontrado na matriz até que todas as colunas tenham sido exploradas ... depois monte um codigo para testar o menor valor dos indices dessa matriz ... e terá a sua resposta abraço

De uma pesquisada no forum http://scriptbrasil.com.br/forum/index.php...torio+de+vendas abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=500291 abraço

OBS: Como voce esta ainda no nível básico de programação, sugiro a voce ler apostilas sobre o delphi, para poder entender melhor http://www.apostilasbr.com.br/linkmenu.asp?acao=133 OBS : se o link não abrir é porque o site está em manutenção ou faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php?showforum=69 abraço

Crie mais um campo em sua tabela que será o seu contador.. exemplo : campo < Item > numerico a cada insert que voce der na sua tabela voce grava o numero do item + 1 item ------- nome -------- data 1------------ aaaaaaa-----2/2/2009 2------------ bbbbbbb-----2/2/2009 3------------ cccccccc-----2/2/2009 4------------ ddddddd-----2/2/2009 5------------ eeeeeee-----2/2/2009 quando voce der o select aparecera no seu dbgrid os itens selecionados por voce. abraço

Voce não informou qual a versão do delphi que esta usando, no entanto este erro pode ser de componente ... tire-o do form e coloque outro e veja o que acontece. abraço

voce leu a ultima parte deste forum ? http://www.forumweb.com.br/foruns/lofivers...php/t48321.html abraço

Veja este post http://scriptbrasil.com.br/forum/index2.ph...st&p=488828 abraço

Não a tenho mais, por motivo de ter formatado o meu HD... mas voce poderão encontrar na net, mas infelizmente já não me lembro mais onde achei ... o negócio é fazer uma pesquisa na net. abraço

file is not a valid jpeg ( O arquivo não é um jpeg válido ) ou bad file format ( formato de arquivo ruim ) mude a extensão do arquivo para .jpg... se ainda assim não abrir, o arquivo esta corrompido abraço

Se voce não achar neste endereço, então somente com o fabricante. http://www.sweda.com.br/shouse_download.asp abraço

Te passei o endereço errado no post de cima... tente este Converter BMP para Texto http://www.efg2.com/Lab/Library/Delphi/Graphics/bmptotxt.zip outra sugestão http://www.forumweb.com.br/foruns/lofivers...php/t48321.html abraço

Procure nos seus Forms por 'uses unit1' porque um deles está fazendo referência a ele.... basta encontrá-lo e apagá-lo abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=473652 abraço

Veja estas dicas Converte Imagem em texto http://delphimasters.blogspot.com/2007/03/...teressante.html Coverte texto em imagem https://www.scriptbrasil.com.br/script/java...o_em_imagem.zip abraço

Existem muitas formas de se obter isso Exemplos: O exemplo abaixo mostra como converter uma string em data e lança uma exceção do tipo EConvertError se a converção não puder ser feita: procedure TForm1.Button1Click(Sender: TObject); var data: TDateTime; begin try data := StrToDate(Edit1.Text); ShowMessage('A data informada é: ' + DateToStr(data)); except on EConvertError do ShowMessage('Erro de Conversão de Tipos'); end; end; outro procedure TForm1.MaskEdit1Exit(Sender: TObject); begin try StrToDate(MaskEdit1.Text); except on EConvertError do ShowMessage ('Data Inválida!'); end; end; outro function tbStrIsDate(const S: string): boolean; begin try StrToDate(S); Result := true; except Result := false; end; end; procedure TForm1.Button1Click(Sender: TObject); var Data: string; begin Data := txtCadCli_DataNasc.Text; if tbStrIsDate(Data) then ShowMessage(txtCadCli_DataNasc.Text + ' é data válida.') else begin ShowMessage(txtCadCli_DataNasc.Text + ' NÃO é data válida.'); Application.MessageBox('Data inválida!!! ', 'WINSUPERM', MB_ICONEXCLAMATION); txtCadCli_DataNasc.SetFocus; end; end; outro //pra validar a data try strtodate(editdata.text); except showmessage('data invalida'); end; //mas try except só funciona se você rodar fora do Delphi. outro private { Private declarations } public function Data(const v: string): boolean; { Public declarations } end; //pressione Ctrl+Shift+C, neste momento abrirá um bloco vazio para que você possa digitar os comandos // que irá executar a function, como mostra o exemplo: Function Data(const v: string): boolean; begin try StrToDate(v); Result := true; except Result := false; end; end; //Salva sua aplicação e adicione um edit no seu formulário e um button, no evento onClick do button digite o //seguinte comando, if Data(Edit1.Text) then ShowMessage(Edit1.Text + ' Data válida . ') else ShowMessage('Data Invalida '); //Esse comando checa se o que foi digitado no edit é uma data válida. abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=527973 abraço